From dbb07d5b7623f81524c1d4f0ab345886125cf0a0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Jul 2001 13:40:49 +0000 Subject: [PATCH] . original commit: 674c2a5206800b2a7b6197791ddeacf4ba3d5246 --- collects/mred/private/kernel.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 89acc44b..3810c698 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -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])