--- 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
     ].