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

fixed bug in assert-client-visible

This commit is contained in:
frese 2003-05-08 15:24:26 +00:00
parent 4b5ff9a156
commit 4182daa61f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/move-wm.scm
View File

@ -288,13 +288,13 @@
(win (client:client-window client)) (win (client:client-window client))
(x (window-x dpy win)) (x (window-x dpy win))
(y (window-y dpy win)) (y (window-y dpy win))
(w (window-width (wm:window wm))) (w (window-width dpy (wm:window wm)))
(h (window-height (wm:window wm)))) (h (window-height dpy (wm:window wm))))
;; TODO: assert-icon-visible ... ;; TODO: assert-icon-visible ...
(if (>= x w) (if (>= x w)
(set-window-x! win (- w 10))) (set-window-x! dpy win (- w 10)))
(if (>= y h) (if (>= y h)
(set-window-y! win (- h 10))))) (set-window-y! dpy win (- h 10)))))
(define (draw-client-window wm client gc) (define (draw-client-window wm client gc)
(let* ((options (wm:options wm)) (let* ((options (wm:options wm))