From 181c85d28c97209132d577aa330a6ca9ac5cad05 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 28 Dec 2007 15:53:23 +0000 Subject: [PATCH] preparing robby's attempt to get insert menu right svn: r8142 --- collects/profjWizard/tool.ss | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/collects/profjWizard/tool.ss b/collects/profjWizard/tool.ss index 918f3a6fb3..645805888d 100644 --- a/collects/profjWizard/tool.ss +++ b/collects/profjWizard/tool.ss @@ -32,7 +32,7 @@ (define (java-class-wizard-mixin %) (class % - (inherit get-special-menu get-edit-target-object register-capability-menu-item) + (inherit get-special-menu #;get-insert-menu get-edit-target-object register-capability-menu-item) (super-new) @@ -87,14 +87,18 @@ (send mi enable ((get-edit-target-object) . is-a? . text%))) (new menu-item% (label descr) - (parent (get-special-menu)) + (parent (get-special-menu)) ;; (parent (get-insert-menu)) (callback A) (demand-callback enable))) (make-menu-item% (string-constant profjWizward-insert-java-class) get-class-info make-class class-draw) - (register-capability-menu-item 'profjWizard:special:java-class (get-special-menu)) + (register-capability-menu-item 'profjWizard:special:java-class + (get-special-menu) + #;(get-insert-menu)) (make-menu-item% (string-constant profjWizard-insert-java-union) get-union-info make-union dt-draw) - (register-capability-menu-item 'profjWizard:special:java-union (get-special-menu)))) + (register-capability-menu-item 'profjWizard:special:java-union + (get-special-menu) + #;(get-insert-menu)))) (drscheme:get/extend:extend-unit-frame java-class-wizard-mixin) (drscheme:language:register-capability 'profjWizard:special:java-class