From 205abfb826e95df660e276c0c0d0d414dec33979 Mon Sep 17 00:00:00 2001 From: frese Date: Fri, 26 Apr 2002 08:28:05 +0000 Subject: [PATCH] - changed error signalling to returning #f in some cases. - fixed some bugs in raise/lower-window and translate-coordinates. --- scheme/xlib/window.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/xlib/window.scm b/scheme/xlib/window.scm index 76c2668..ea3f235 100644 --- a/scheme/xlib/window.scm +++ b/scheme/xlib/window.scm @@ -147,7 +147,7 @@ (Xdisplay (display-Xdisplay (window-display window)))) (let ((values (%get-window-attributes Xdisplay Xwindow))) (if (not values) - (error "cannot get window attributes." window) + #f ((integer+vector->window-attribute-alist (window-display window)) values))))) @@ -276,10 +276,10 @@ ;; windows). See XRaiseWindow. (define (raise-window window) - (set-window-stack-mode! window 'above)) + (set-window-stack-mode! window (stack-mode above))) (define (lower-window window) - (set-window-stack-mode! window 'below)) + (set-window-stack-mode! window (stack-mode below))) ;; The restack-windows function restacks the windows in the order ;; specified, from top to bottom. The stacking order of the first @@ -347,7 +347,7 @@ #f))) (import-lambda-definition %translate-coordinates (Xdisplay srcXwindow x y - srcXwindow) + dstXwindow) "scx_Translate_Coordinates")