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

added thread names 

added automatic destroying if one client terminates
This commit is contained in:
frese 2003-04-11 01:22:31 +00:00
parent 0b23d8bf08
commit fbc1478a17
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/split-wm.scm
View File

@ -22,8 +22,10 @@
(manager-type split) split-wm-options-spec (manager-type split) split-wm-options-spec
external-in-channel external-in-channel
(lambda (wm in-channel) (lambda (wm in-channel)
(spawn (lambda () (spawn* (list 'split-wm wm)
(split-wm-handler wm in-channel))) (lambda (release)
(release)
(split-wm-handler wm in-channel)))
wm))) wm)))
(define (split-wm? wm) (define (split-wm? wm)
@ -73,8 +75,12 @@
(set! first-client #f)) (set! first-client #f))
(if (eq? client second-client) (if (eq? client second-client)
(set! second-client #f)) (set! second-client #f))
;; TODO: destroy switch if only one client left ;; destroy split if only one client left
)) (if (not (and first-client second-client))
(let ((repl (client:window (or first-client second-client))))
(mdisplay "destroying " wm ". with replacement " repl "\n")
(send (wm:out-channel wm)
(list 'destroy-wm wm repl))))))
((draw-client-window) #t) ((draw-client-window) #t)
@ -170,6 +176,7 @@
xc-sb-v-double-arrow)))) xc-sb-v-double-arrow))))
(set-window-cursor! dpy window cursor) (set-window-cursor! dpy window cursor)
(spawn* (spawn*
(list 'split-resizer wm)
(lambda (release) (lambda (release)
(call-with-event-channel (call-with-event-channel
dpy window (event-mask structure-notify dpy window (event-mask structure-notify