UIPainterView.st
changeset 511 082c077ff0c7
parent 510 c9a335ff889f
child 568 7c4482bf37cf
--- 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 , '\' ,