summaryrefslogtreecommitdiff
path: root/wm/sawfish/patches/patch-ad
diff options
context:
space:
mode:
Diffstat (limited to 'wm/sawfish/patches/patch-ad')
-rw-r--r--wm/sawfish/patches/patch-ad13
1 files changed, 13 insertions, 0 deletions
diff --git a/wm/sawfish/patches/patch-ad b/wm/sawfish/patches/patch-ad
new file mode 100644
index 00000000000..62bc5411ce5
--- /dev/null
+++ b/wm/sawfish/patches/patch-ad
@@ -0,0 +1,13 @@
+$NetBSD: patch-ad,v 1.1 2003/01/18 06:37:02 toshii Exp $
+
+--- lisp/sawfish/wm/windows.jl.orig Mon Nov 4 12:35:38 2002
++++ lisp/sawfish/wm/windows.jl
+@@ -320,7 +320,7 @@ If HINTS is non-nil, then it is the size
+ (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)))