- 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

View File

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

View File

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