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)
(fit-windows wm resizer-window first-client second-client)
(map-window dpy (client:window client))
(map-window dpy (client:client-window client))
;;(select-client wm client))) ??
(let ((opt (if (eq? (get-option-value (wm:options wm)
'orientation)
@ -76,7 +76,8 @@
(if (eq? client second-client)
(set! second-client #f))
;; 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))))
(mdisplay "destroying " wm ". with replacement " repl "\n")
(send (wm:out-channel wm)