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

- changed error signalling to returning #f in some cases. 

- fixed some bugs in raise/lower-window and translate-coordinates.
This commit is contained in:
frese 2002-04-26 08:28:05 +00:00
parent 0043252da4
commit 205abfb826
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/xlib/window.scm
View File

@ -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")