blob: aa7482528dd0f8fe23c6fef50aa8dd19144462a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
--- lisp/sawfish/wm/windows.jl.old 2002-11-18 15:58:07.000000000 +0100
+++ lisp/sawfish/wm/windows.jl 2002-11-18 15:58:39.000000000 +0100
@@ -320,7 +320,7 @@
(t x))))
(define (adjust-position-for-gravity/y w grav y #!key inverse)
- (let* ((tl-off (window-frame-offset w))
+ (let* ((tl-off (cdr (window-frame-offset w)))
(br-off (- (cdr (window-frame-dimensions w))
(cdr (window-dimensions w))))
(sign (if inverse -1 +1)))
|
GitWeb
