show menu in the UI-Painter
authorClaus Gittinger <cg@exept.de>
Sat, 13 Feb 1999 15:05:07 +0100
changeset 1027 4121bb68706b
parent 1026 ee8a738cd35d
child 1028 592cfb2232ce
show menu in the UI-Painter
UIPainter.st
--- a/UIPainter.st	Tue Feb 09 20:58:35 1999 +0100
+++ b/UIPainter.st	Sat Feb 13 15:05:07 1999 +0100
@@ -2012,42 +2012,42 @@
     |cls selectorOrMenu editor selectedSpec spec|
 
     (cls := self resolveName:specClass) isNil ifTrue:[
-	self askForSaving ifFalse: [^self].
-	cls := self resolveName:specClass.
+        self askForSaving ifFalse: [^self].
+        cls := self resolveName:specClass.
     ].
 
     cls notNil ifTrue:[
-	spec := self specTool specification.
-	(selectorOrMenu := spec menuSelector) notNil ifTrue:[
-	    selectorOrMenu := selectorOrMenu asSymbol
-	] ifFalse:[
-	    "/ cg: q&d hack ...
-
-	    (selectedSpec := treeView propertySelected) notNil ifTrue:[
-		Object errorSignal handle:[:ex |
-		    selectorOrMenu := nil.
-		] do:[
-		    selectorOrMenu := selectedSpec view asMenu.
-		]
-	    ].
-	].
-
-	editor := MenuEditor new.
-	editor masterApplication:self.
-	editor specClass: cls.
-	editor useHelpTool: self helpTool. 
-	selectorOrMenu class ~~ Menu
-	    ifTrue:  [editor openModalOnClass:cls andSelector:selectorOrMenu]
-	    ifFalse: [editor openModalOnMenu:selectorOrMenu].
-	self helpTool updateList.
-
-	editor specSelector ~= selectorOrMenu ifTrue:[
-	    editor hasSaved ifTrue:[
-		spec menuSelector:editor specSelector.
-		self modifiedChannel value:true.
-		self accept
-	    ]
-	].
+        spec := self specTool specification.
+        (selectorOrMenu := spec menuSelector) notNil ifTrue:[
+            selectorOrMenu := selectorOrMenu asSymbol
+        ] ifFalse:[
+            "/ cg: q&d hack ...
+
+            (selectedSpec := treeView propertySelected) notNil ifTrue:[
+                Object errorSignal handle:[:ex |
+                    selectorOrMenu := nil.
+                ] do:[
+                    selectorOrMenu := selectedSpec view asMenu.
+                ]
+            ].
+        ].
+
+        editor := MenuEditor new.
+        editor masterApplication:self.
+        editor specClass: cls.
+        editor useHelpTool: self helpTool. 
+        selectorOrMenu class ~~ Menu
+            ifTrue:  [editor openModalOnClass:cls andSelector:selectorOrMenu]
+            ifFalse: [editor openModalOnMenu:selectorOrMenu].
+        self helpTool updateList.
+
+"/        editor specSelector ~= selectorOrMenu ifTrue:[
+            editor hasSaved ifTrue:[
+                spec menuSelector:editor specSelector.
+                self modifiedChannel value:true.
+                self accept
+"/            ]
+        ].
     ]
 
     "Modified: / 16.7.1998 / 18:16:42 / cg"