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

- fixed some small bugs (in motion-event and rect).

This commit is contained in:
frese 2002-04-26 08:25:07 +00:00
parent a0ac2ea56b
commit 2db54b1c37
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/xlib/event-types.scm
View File

@ -367,7 +367,7 @@
subwindow time x y x-root y-root state is-hint? subwindow time x y x-root y-root state is-hint?
same-screen?) same-screen?)
(let ((display (make-display display #f))) (let ((display (make-display display #f)))
(create-button-event (create-motion-event
type serial send-event? display type serial send-event? display
(make-window window display #f) (make-window window display #f)
(make-window root display #f) (make-window root display #f)

3
scheme/xlib/graphics.scm
View File

@ -254,7 +254,8 @@
;; Now some auxiliary functions: ;; Now some auxiliary functions:
(define rect list) (define (rect x y w h)
(list x y w h))
(define (rect? obj) (define (rect? obj)
(and (list? obj) (= 4 (length obj)))) (and (list? obj) (= 4 (length obj))))