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)))) (Xdisplay (display-Xdisplay (window-display window))))
(let ((values (%get-window-attributes Xdisplay Xwindow))) (let ((values (%get-window-attributes Xdisplay Xwindow)))
(if (not values) (if (not values)
(error "cannot get window attributes." window) #f
((integer+vector->window-attribute-alist (window-display window)) ((integer+vector->window-attribute-alist (window-display window))
values))))) values)))))
@ -276,10 +276,10 @@
;; windows). See XRaiseWindow. ;; windows). See XRaiseWindow.
(define (raise-window window) (define (raise-window window)
(set-window-stack-mode! window 'above)) (set-window-stack-mode! window (stack-mode above)))
(define (lower-window window) (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 ;; The restack-windows function restacks the windows in the order
;; specified, from top to bottom. The stacking order of the first ;; specified, from top to bottom. The stacking order of the first
@ -347,7 +347,7 @@
#f))) #f)))
(import-lambda-definition %translate-coordinates (Xdisplay srcXwindow x y (import-lambda-definition %translate-coordinates (Xdisplay srcXwindow x y
srcXwindow) dstXwindow)
"scx_Translate_Coordinates") "scx_Translate_Coordinates")