This commit is contained in:
frese 2003-04-27 19:19:24 +00:00
parent dfd5b4d06b
commit 4259d7f0dd
1 changed files with 9 additions and 7 deletions

View File

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