- fixed some small bugs (in motion-event and rect).
This commit is contained in:
parent
a0ac2ea56b
commit
2db54b1c37
|
@ -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)
|
||||
|
|
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue