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

added the window-rect to manage-window 

changed root-wm-configure-window for existing clients (XReconfigureWMWindow)
This commit is contained in:
frese 2003-05-07 13:19:36 +00:00
parent 75d449422a
commit ac5860aed0
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/root-manager.scm
View File

@ -125,11 +125,19 @@
(sync-point-wait (root-wm:finish root-wm))) (sync-point-wait (root-wm:finish root-wm)))
(define (root-wm-manage-window root-wm window) (define (root-wm-manage-window root-wm window)
(set-wm-state! (root-wm:dpy root-wm) window (wm-state normal) none) (let ((dpy (root-wm:dpy root-wm)))
(wm-manage-window (root-wm:current-manager root-wm) window)) (if (window-exists? dpy window)
(begin
;; TODO: initial-state iconic ??
(set-wm-state! (root-wm:dpy root-wm) window (wm-state normal) none)
(wm-manage-window (root-wm:current-manager root-wm) window
(window-rectangle dpy window))))))
(define (root-wm-configure-window root-wm window changes) (define (root-wm-configure-window root-wm window changes)
(wm-configure-window (root-wm:current-manager root-wm) window changes)) (let ((wm (manager-of-window root-wm window)))
(mdisplay "root-wm configure: " (list wm window changes) "\n")
(wm-configure-window (or wm (root-wm:current-manager root-wm))
window changes)))
(define (handle-xevent root-wm exit xevent) (define (handle-xevent root-wm exit xevent)
(let ((type (any-event-type xevent)) (let ((type (any-event-type xevent))