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

modified client creation 

added some window-exists? checks
This commit is contained in:
frese 2003-04-25 12:49:03 +00:00
parent 16ea422cd2
commit 573d7f43f6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/split-wm.scm
View File

@ -55,8 +55,8 @@
(set-window-border-width! dpy (client:window client) 0) (set-window-border-width! dpy (client:window client) 0)
(fit-windows wm resizer-window first-client second-client) (fit-windows wm resizer-window first-client second-client)
(map-window dpy (client:window client))
(map-window dpy (client:client-window client)) (map-window dpy (client:client-window client))
;;(select-client wm client))) ??
(let ((opt (if (eq? (get-option-value (wm:options wm) (let ((opt (if (eq? (get-option-value (wm:options wm)
'orientation) 'orientation)
@ -76,7 +76,8 @@
(if (eq? client second-client) (if (eq? client second-client)
(set! second-client #f)) (set! second-client #f))
;; destroy split if only one client left ;; destroy split if only one client left
(if (not (and first-client second-client)) (if (and (not (and first-client second-client))
(or first-client second-client))
(let ((repl (client:window (or first-client second-client)))) (let ((repl (client:window (or first-client second-client))))
(mdisplay "destroying " wm ". with replacement " repl "\n") (mdisplay "destroying " wm ". with replacement " repl "\n")
(send (wm:out-channel wm) (send (wm:out-channel wm)