From fd46b534478487b3208ecad82b9135d09f730495 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Fri, 25 Apr 2003 12:56:09 +0000
Subject: [PATCH] added send-configuration

---
 src/packages.scm | 3 ++-
 src/utils.scm    | 9 +++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/packages.scm b/src/packages.scm
index a7ba115..d21f4c5 100644
--- a/src/packages.scm
+++ b/src/packages.scm
@@ -27,6 +27,7 @@
 	  window-level
 	  point-in-rectangle?
 	  set-wm-state! get-wm-state ((wm-state) :syntax)
+	  send-configuration
 
 	  maximize-window maximal-size/hints
 	  size-window desired-size/hints desired-position/hints
@@ -52,7 +53,7 @@
 (define-structure titlebar
   (export create-titlebar destroy-titlebar titlebar? titlebar:window
 	  map-titlebar unmap-titlebar move-resize-titlebar
-	  set-titlebar-state! set-titlebar-title!)
+	  set-titlebar-state! set-titlebar-title! set-titlebar-title+state!)
   (open scheme define-record-types threads list-lib
 	rendezvous-channels rendezvous
 	xlib
diff --git a/src/utils.scm b/src/utils.scm
index f10e56b..331690b 100644
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -553,6 +553,15 @@
 	      (uninstall-colormap dpy c))
 	    (all-window-colormaps dpy window)))
 
+(define (send-configuration dpy window)
+  (let ((r (root-rectangle dpy window)))
+    (send-event dpy window #f (event-mask structure-notify)
+		(create-configure-event
+		 (event-type configure-notify) 0 #t dpy window window
+		 (rectangle:x r) (rectangle:y r)
+		 (rectangle:width r) (rectangle:height r)
+		 0 none #f))))
+
 ;; timer
 
 (define (now)