--- 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"