diff -r b895330fc7aa -r a2e23dea36bf DataSetBuilder.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'!