updated

src/packages.scm

@@ -3,6 +3,7 @@
 (define-structure utils
   (export mdisplay assq/false flatten
 	  select* spawn* with-lock
+	  make-sync-point sync-point-release sync-point-wait
 
 	  create-options free-options
 	  get-option-value get-option set-option! get-options
@@ -21,6 +22,8 @@
 	  draw-shadow-rectangle
 	  invalidate-window
 	  text-center-pos
+	  window-level
+	  point-in-rectangle?
 
 	  maximize-window maximal-size/hints
 	  size-window desired-size/hints desired-position/hints)
@@ -62,7 +65,8 @@
 ;; *** manager *******************************************************
 
 (define-structure manager
-  (export wm? wm:type wm:dpy wm:window wm:colormap wm:options
+  (export wm? wm:type wm:dpy wm:window wm:colormap wm:options wm:out-channel
+	  wm:internal-out-channel
 	  (manager-type :syntax) manager-types manager-type-name
 	  create-wm destroy-wm
 	  wm-clients wm-current-client
@@ -71,7 +75,8 @@
 
 	  client? client:window client:client-window
 	  client:data set-client:data!
-	  client-name)
+	  client-name
+	  client-replace-window)
   (open scheme threads list-lib locks
 	xlib
 	define-record-types
@@ -96,9 +101,9 @@
 ;; *** split manager *************************************************
 
 (define-structure split-wm
-  (export create-split-wm)
+  (export create-split-wm split-wm?)
   (open scheme list-lib define-record-types
-	threads rendezvous-channels rendezvous
+	threads rendezvous-channels rendezvous placeholders
 	xlib
 	manager
 	utils)