Added Java Class and Java Union to the menu items only appearing in Java
languages, using register-capability svn: r3162
This commit is contained in:
parent
cbfb5fc62b
commit
c666a5cae2
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
))
|
||||
|
||||
)
|
||||
|
|
Loading…
Reference in New Issue
Block a user