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

Fix by David: On manage-window set current-client if unset

This commit is contained in:
mainzelm 2003-06-03 09:52:32 +00:00
parent 3825bbb471
commit eee88046ca
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/manager.scm
View File

@ -179,7 +179,9 @@
(let ((client (create-client wm window)))
(set-wm:clients! wm (append (wm:clients wm) (list client)))
(send-message+wait internal-out-channel
(list 'init-client client maybe-rect)))))
(list 'init-client client maybe-rect))
(if (not (wm:current-client wm))
(wm-select-client wm client current-time)))))
((configure-window)
(let ((window (second msg))