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

Added Java Class and Java Union to the menu items only appearing in Java

Browse Source 
languages, using register-capability

svn: r3162
This commit is contained in:
Kathy Gray 2006-05-31 22:30:33 +00:00
parent cbfb5fc62b
commit c666a5cae2
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/tool.ss
View File

@ -155,7 +155,9 @@
(cond
[(eq? s 'drscheme:language-menu-title) "Java"]
[(memq s '(profj:special:java-comment-box
profj:special:java-examples-box
profj:special:java-examples-box
profjWizard:special:java-class
profjWizard:special:java-union
drscheme:special:insert-large-letters)) #t]
[(memq s '(slideshow:special-menu
drscheme:define-popup

14
collects/profjWizard/tool.ss
View File

@ -12,7 +12,8 @@
(lib "unitsig.ss")
(lib "etc.ss")
(lib "class.ss")
(lib "string-constant.ss" "string-constants"))
(lib "string-constant.ss" "string-constants")
(lib "contract.ss"))
(provide tool@)
@ -36,7 +37,7 @@
(define (java-class-wizard-mixin %)
(class %
(inherit get-special-menu get-edit-target-object)
(inherit get-special-menu get-edit-target-object register-capability-menu-item)
(super-new)
@ -86,10 +87,15 @@
(new menu-item% (label descr) (parent (get-special-menu)) (callback A)))
(make-menu-item% INSERT-JAVA-CLASS get-class-info make-class class-draw)
(make-menu-item% INSERT-JAVA-UNION get-union-info make-union dt-draw)))
(register-capability-menu-item 'profjWizard:special:java-class (get-special-menu))
(make-menu-item% INSERT-JAVA-UNION get-union-info make-union dt-draw)
(register-capability-menu-item 'profjWizard:special:java-union (get-special-menu))))
(drscheme:get/extend:extend-unit-frame java-class-wizard-mixin)
(drscheme:language:register-capability 'profjWizard:special:java-class
(flat-contract boolean?) #f)
(drscheme:language:register-capability 'profjWizard:special:java-union
(flat-contract boolean?) #f)
))
)