--- a/DataSetColumn.st	Thu Feb 17 10:11:45 2000 +0100
+++ b/DataSetColumn.st	Thu Feb 17 10:12:13 2000 +0100
@@ -14,15 +14,15 @@
 
 
 Object subclass:#DataSetColumn
-        instanceVariableNames:'columnNumber dataSet width description buttonExtent shownValue
-                rendererType backgroundColor rowSeparatorSelector
-                showColSeparator showRowSeparator foregroundColor fgSelector
-                bgSelector columnAlignment label readSelector containsText
-                numArgsToReadSelector numArgsToFgSelector numArgsToBgSelector
-                columnAdaptor descWidth descMinWidth'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Views-DataSet'
+	instanceVariableNames:'columnNumber dataSet width description buttonExtent shownValue
+		rendererType backgroundColor rowSeparatorSelector
+		showColSeparator showRowSeparator foregroundColor fgSelector
+		bgSelector columnAlignment label readSelector containsText
+		numArgsToReadSelector numArgsToFgSelector numArgsToBgSelector
+		columnAdaptor descWidth descMinWidth'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-DataSet'
 !
 
 !DataSetColumn class methodsFor:'documentation'!
@@ -126,6 +126,7 @@
 
     row := dataSet at:aRowNr.
     newRow := self storeCol:something inRow:row.
+
     newRow ~~ row ifTrue:[
         dataSet listAt:aRowNr put:newRow.
     ]
@@ -137,6 +138,10 @@
     ^ columnAdaptor
 !
 
+columnAdaptor:anAdapter
+    columnAdaptor := anAdapter.
+!
+
 description
     "returns the column description
     "
@@ -989,5 +994,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.60 1999-10-14 17:16:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.61 2000-02-17 09:12:13 ca Exp $'
 ! !