added send-configuration

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

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)