--- a/UIPainterView.st Wed Jan 28 19:50:56 1998 +0100
+++ b/UIPainterView.st Wed Jan 28 20:39:59 1998 +0100
@@ -651,20 +651,7 @@
]
].
- protoSpec := treeView canvasSpec.
-
- (menuSelector := protoSpec menu) notNil ifTrue:[
- (menuSelector isArray not) ifTrue:[
- thisCode := self generateMenuMethodFor:menuSelector spec:protoSpec inClass:cls.
- thisCode size ~~ 0 ifTrue:[
- code := code , thisCode
- ]
- ]
- ].
-
^ code
-
- "Modified: / 31.10.1997 / 14:22:30 / cg"
!
generateHookMethodFor:selectorSpec comment:commentWhen note:noteOrNil defaultCode:defaultCode inClass:targetClass
@@ -746,48 +733,6 @@
"Created: / 31.10.1997 / 17:32:49 / cg"
!
-generateMenuMethodFor:aspect spec:protoSpec inClass:aClass
- |code cperf performer category|
-
- (aClass implements:aspect asSymbol) ifFalse:[
- code := MenuEditor generateCodeFor:aClass menuSelector:(aspect asSymbol).
- ] ifTrue:[
- code := ''
- ].
-
- (protoSpec respondsTo:#menuPerformer) ifTrue:[
- performer := protoSpec menuPerformer.
- ].
- performer notNil ifTrue:[
- performer := performer asSymbol.
-
- (aClass implements:performer) ifFalse:[
- category := MenuEditor sourceCategory.
-
- cperf := Character excla asString
- , aClass name , ' methodsFor:' , category storeString
- , Character excla asString , '\\'
- , performer , '\'
- , ' "this menu spec was automatically generated by the UI MenuBuilder"\\'
- , ' ^ self\\'
- , '\'
- , Character excla asString
- , ' '
- , Character excla asString
- , '\\'.
-
- code := code, cperf.
- ]
- ].
-
- code size == 0 ifTrue:[
- ^ nil
- ].
- ^ code withCRs
-
- "Modified: / 26.10.1997 / 14:44:20 / cg"
-!
-
generateValueMethodFor:aspect spec:protoSpec inClass:targetClass
^ ('!!' , targetClass name , ' methodsFor:''values''!!\\' ,
aspect , '\' ,