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

preparing robby's attempt to get insert menu right

Browse Source 
svn: r8142
This commit is contained in:
Matthias Felleisen 2007-12-28 15:53:23 +00:00
parent 7459da43ce
commit 181c85d28c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/profjWizard/tool.ss
View File

@ -32,7 +32,7 @@
(define (java-class-wizard-mixin %) (define (java-class-wizard-mixin %)
(class % (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) (super-new)
@ -87,14 +87,18 @@
(send mi enable ((get-edit-target-object) . is-a? . text%))) (send mi enable ((get-edit-target-object) . is-a? . text%)))
(new menu-item% (new menu-item%
(label descr) (label descr)
(parent (get-special-menu)) (parent (get-special-menu)) ;; (parent (get-insert-menu))
(callback A) (callback A)
(demand-callback enable))) (demand-callback enable)))
(make-menu-item% (string-constant profjWizward-insert-java-class) get-class-info make-class class-draw) (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) (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:get/extend:extend-unit-frame java-class-wizard-mixin)
(drscheme:language:register-capability 'profjWizard:special:java-class (drscheme:language:register-capability 'profjWizard:special:java-class