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