change className to rowClassName
authorca
Wed, 15 Oct 1997 15:39:01 +0200
changeset 333 a2e23dea36bf
parent 332 b895330fc7aa
child 334 3f632e9711e8
change className to rowClassName
DataSetBuilder.st
UIPainter.st
--- a/DataSetBuilder.st	Wed Oct 15 12:59:56 1997 +0200
+++ b/DataSetBuilder.st	Wed Oct 15 15:39:01 1997 +0200
@@ -837,24 +837,6 @@
 
 !DataSetBuilder methodsFor:'accessing'!
 
-className
-    ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil]
-!
-
-className:aClassName
-    |cls|
-
-    superclassName := nil.
-
-    (className := aClassName) notNil ifTrue:[
-        (cls := self resolveClassNamed) notNil ifTrue:[
-            superclassName := cls superclass name asString.
-        ] ifFalse:[
-            superclassName := 'Object'
-        ]
-    ]
-!
-
 columns
     "returns list of columns
     "
@@ -880,6 +862,25 @@
                                                ifTrue:[list add:'Row Selector'].
         ]
     ].
+!
+
+rowClassName
+    ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil]
+!
+
+rowClassName:aClassName
+    |cls|
+
+    superclassName := nil.
+
+    (className := aClassName) notNil ifTrue:[
+        (cls := self resolveClassNamed) notNil ifTrue:[
+            superclassName := cls superclass name asString.
+        ] ifFalse:[
+            superclassName := 'Object'
+        ]
+    ]
+
 ! !
 
 !DataSetBuilder methodsFor:'accessing menu'!
--- a/UIPainter.st	Wed Oct 15 12:59:56 1997 +0200
+++ b/UIPainter.st	Wed Oct 15 15:39:01 1997 +0200
@@ -1411,12 +1411,12 @@
     aspect := self specTool specification columns.
     editor := DataSetBuilder new.
     editor columns:aspect fromView:(self layoutTool layoutView).
-    editor className:(self specTool specification className).
+    editor rowClassName:(self specTool specification rowClassName).
     editor openModal.
 
     editor hasChanged ifTrue:[
         self specTool specification columns:(editor columns).
-        self specTool specification className:(editor className).
+        self specTool specification rowClassName:(editor rowClassName).
         self modifiedChannel value:true.
     ].
 !