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