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

.

Browse Source 
original commit: 674c2a5206800b2a7b6197791ddeacf4ba3d5246
This commit is contained in:
Matthew Flatt 2001-07-04 13:40:49 +00:00
parent c967661e8b
commit dbb07d5b76
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,8 +10,6 @@
(define kernel:initialize-primitive-object
(dynamic-require '#%mred-kernel 'initialize-primitive-object))
(define kernel:find-in-primitive-class
(dynamic-require '#%mred-kernel 'find-in-primitive-class))
(define kernel:primitive-class-find-method
(dynamic-require '#%mred-kernel 'primitive-class-find-method))
(define kernel:primitive-class-prepare-struct-type!
@ -411,7 +409,7 @@
(define-class control-event% event% (event-type [time-stamp 0])
get-event-type
set-event-type)
(define-class popup-event% control-event% ([menu-id 0] [time-stamp 0])
(define-class popup-event% control-event% #f
get-menu-id
set-menu-id)
(define-class scroll-event% event% ([event-type 'thumb] [direction 'vertical] [position 0] [time-stamp 0])