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

done with insert menu

Browse Source 
svn: r8143
This commit is contained in:
Matthias Felleisen 2007-12-28 16:18:29 +00:00
parent 181c85d28c
commit 2abe742b98
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
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-insert-menu get-edit-target-object register-capability-menu-item) (inherit get-insert-menu get-edit-target-object register-capability-menu-item)
(super-new) (super-new)
@ -87,18 +87,16 @@
(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-insert-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 (register-capability-menu-item 'profjWizard:special:java-class
(get-special-menu) (get-insert-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 (register-capability-menu-item 'profjWizard:special:java-union
(get-special-menu) (get-insert-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