--- a/UIPainter.st Tue Feb 26 11:19:37 2008 +0100
+++ b/UIPainter.st Tue Feb 26 11:20:34 2008 +0100
@@ -2615,10 +2615,12 @@
|cls editor specTool columnHolder tableSelector columns|
- (cls := self resolveName:specClassName) isNil ifTrue:[
- self askForSaving ifTrue:[cls := self resolveName:specClassName].
+ self isEditingSpecOnly ifFalse:[
+ (cls := self resolveName:specClassName) isNil ifTrue:[
+ self askForSaving ifTrue:[cls := self resolveName:specClassName].
+ ].
+ cls isNil ifTrue:[^ self].
].
- cls isNil ifTrue:[^ self].
self acceptOrIgnoreSectionModification.
@@ -2626,16 +2628,19 @@
specTool := self specTool.
editor masterApplication:self.
- editor specClass: cls.
- editor rowClassName:(specTool specification rowClassName).
-
+ self isEditingSpecOnly ifFalse:[
+ editor specClass: cls.
+ editor rowClassName:(specTool specification rowClassName).
+ ].
columnHolder := specTool aspectFor:#columnHolder.
tableSelector := columnHolder value.
tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol]
ifFalse:[nil].
- (tableSelector notNil and:[cls class includesSelector:tableSelector]) ifTrue:[
+ (self isEditingSpecOnly not
+ and:[tableSelector notNil
+ and:[cls class includesSelector:tableSelector]]) ifTrue:[
editor openModalOnClass:cls andSelector:tableSelector
] ifFalse:[
columns := specTool specification columns.
@@ -2648,8 +2653,9 @@
].
editor hasSaved ifTrue:[
- specTool specification columns:nil.
- specTool specification rowClassName:(editor rowClassName).
+ specTool specification
+ columns:nil;
+ rowClassName:(editor rowClassName).
tableSelector = editor specSelector ifFalse:[
columnHolder value:(editor specSelector).
@@ -2659,8 +2665,9 @@
].
(editor modified and:[tableSelector isNil]) ifTrue:[
- specTool specification columns:(editor columns).
- specTool specification rowClassName:(editor rowClassName).
+ specTool specification
+ columns:(editor columns);
+ rowClassName:(editor rowClassName).
self modifiedChannel value:true.
].
@@ -4182,7 +4189,7 @@
cls := self specClass.
cls isNil ifTrue:[
- Dialog information:'No Application Class defined.'.
+ Dialog information:'No application class defined.'.
^ self
].
@@ -4191,7 +4198,7 @@
aspect := spec perform:aspectSelector.
aspect isNil ifTrue:[
Dialog information:(resources
- string:'Please enter a Method name for "%1" first.'
+ string:'Please enter an action method name for "%1" first.'
with:(resources string:aspectNameShown) allBold).
^ self
].