--- 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'!