updated

src/packages.scm

@@ -4,11 +4,12 @@
   (export mdisplay assq/false flatten
 	  select* spawn* with-lock
 	  make-sync-point sync-point-release sync-point-wait
+	  send-message+wait
 
 	  create-options free-options
 	  get-option-value get-option set-option! get-options
 	  ((define-options-spec) :syntax) options-spec-union
-	  get-options-diff
+	  get-options-diff spec-defaults
 
 	  string->keys string->key key:keycode key:modifiers
 
@@ -31,6 +32,7 @@
 
 	  maximize-window maximal-size/hints
 	  size-window desired-size/hints desired-position/hints
+	  minimal-size/hints
 	  install-colormaps uninstall-colormaps
 	  
 	  now at-time-rv after-time-rv
@@ -104,7 +106,7 @@
 	  client-name find-window-by-name get-all-window-names
 	  client-replace-window
 	  client-of-window)
-  (open scheme threads list-lib locks
+  (open scheme threads list-lib locks signals
 	xlib
 	define-record-types
 	finite-types
@@ -117,7 +119,7 @@
 
 (define-structure move-wm
   (export create-move-wm)
-  (open scheme list-lib define-record-types
+  (open scheme list-lib define-record-types signals
 	threads rendezvous-channels rendezvous
 	xlib
 	manager key-grab
@@ -128,8 +130,8 @@
 ;; *** split manager *************************************************
 
 (define-structure split-wm
-  (export create-split-wm split-wm?)
-  (open scheme list-lib define-record-types
+  (export create-split-wm)
+  (open scheme list-lib define-record-types signals
 	threads rendezvous-channels rendezvous placeholders
 	xlib
 	manager
@@ -140,7 +142,7 @@
 
 (define-structure switch-wm
   (export create-switch-wm)
-  (open scheme list-lib define-record-types
+  (open scheme list-lib define-record-types signals
 	threads rendezvous-channels rendezvous
 	xlib
 	manager titlebar dragging
@@ -169,7 +171,7 @@
 	  get-manager-by-window
 	  create-new-manager
 	  root-wm-manage-window)
-  (open scheme list-lib scsh-things
+  (open scheme list-lib scsh-things signals
 	define-record-types threads
 	xlib
 	rendezvous rendezvous-channels