scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated

This commit is contained in:
frese 2003-04-01 13:24:30 +00:00
parent 037d352da4
commit 5d6fdb0c0f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/packages.scm
View File

@ -3,6 +3,7 @@
(define-structure utils (define-structure utils
(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
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
@ -21,6 +22,8 @@
draw-shadow-rectangle draw-shadow-rectangle
invalidate-window invalidate-window
text-center-pos text-center-pos
window-level
point-in-rectangle?
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)
@ -62,7 +65,8 @@
;; *** manager ******************************************************* ;; *** manager *******************************************************
(define-structure 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 (manager-type :syntax) manager-types manager-type-name
create-wm destroy-wm create-wm destroy-wm
wm-clients wm-current-client wm-clients wm-current-client
@ -71,7 +75,8 @@
client? client:window client:client-window client? client:window client:client-window
client:data set-client:data! client:data set-client:data!
client-name) client-name
client-replace-window)
(open scheme threads list-lib locks (open scheme threads list-lib locks
xlib xlib
define-record-types define-record-types
@ -96,9 +101,9 @@
;; *** split manager ************************************************* ;; *** split manager *************************************************
(define-structure split-wm (define-structure split-wm
(export create-split-wm) (export create-split-wm split-wm?)
(open scheme list-lib define-record-types (open scheme list-lib define-record-types
threads rendezvous-channels rendezvous threads rendezvous-channels rendezvous placeholders
xlib xlib
manager manager
utils) utils)