suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 5cf4fa4cdec3af74b70ca834a40ed23bbc2900f9
This commit is contained in:
Matthew Flatt 2001-08-02 19:18:52 +00:00
parent b1fb00799c
commit 4049f5295e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/kernel.ss
View File

@ -419,7 +419,7 @@
set-direction set-direction
get-position get-position
set-position) set-position)
(define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0.0] [y 0.0] [time-stamp 0]) (define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0])
get-key-code get-key-code
set-key-code set-key-code
get-shift-down get-shift-down
@ -434,7 +434,7 @@
set-x set-x
get-y get-y
set-y) set-y)
(define-class mouse-event% event% (event-type [left-down #f] [middle-down #f] [right-down #f] [x 0.0] [y 0.0] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [time-stamp 0]) (define-class mouse-event% event% (event-type [left-down #f] [middle-down #f] [right-down #f] [x 0] [y 0] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [time-stamp 0])
moving? moving?
leaving? leaving?
entering? entering?