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

fixed resizing in north-west directions

This commit is contained in:
frese 2003-03-30 01:43:43 +00:00
parent 1ef21b5897
commit ad3e6183c2
1 changed files with 48 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/move-wm-resizer.scm
View File

@ -88,7 +88,12 @@
(rectangle:width rect) (rectangle:height rect))) (rectangle:width rect) (rectangle:height rect)))
(define (adjust-rect wm client sr dx dy dir) (define (adjust-rect wm client sr dx dy dir)
(let* ((r (let* ((w.h (maximal-size/hints (wm:dpy wm) (client:window client)
(+ (rectangle:width sr) dx)
(+ (rectangle:height sr) dy)))
(dx (- (car w.h) (rectangle:width sr)))
(dy (- (cdr w.h) (rectangle:height sr))))
(case dir (case dir
((west) ((west)
(make-rectangle (+ (rectangle:x sr) dx) (make-rectangle (+ (rectangle:x sr) dx)
@ -130,12 +135,7 @@
(rectangle:y sr) (rectangle:y sr)
(- (rectangle:width sr) dx) (- (rectangle:width sr) dx)
(+ (rectangle:height sr) dy))) (+ (rectangle:height sr) dy)))
(else sr))) (else sr))))
(w.h (maximal-size/hints (wm:dpy wm) (client:window client)
(rectangle:width r) (rectangle:height r))))
(set-rectangle:width! r (car w.h))
(set-rectangle:height! r (cdr w.h))
r))
(define (commit-resize wm client dx dy dir) (define (commit-resize wm client dx dy dir)
(let* ((dpy (wm:dpy wm)) (let* ((dpy (wm:dpy wm))