--- a/DataSetColumn.st	Thu Dec 19 08:28:26 2002 +0100
+++ b/DataSetColumn.st	Thu Dec 19 14:53:12 2002 +0100
@@ -171,13 +171,7 @@
     |row newRow|
 
     row := dataSet at:aRowNr.
-    newRow := self storeCol:something inRow:row.
-
-    newRow ~~ row ifTrue:[
-        dataSet listAt:aRowNr put:newRow.
-    ]
-
-    "Modified: / 7.8.1998 / 22:17:27 / cg"
+    self storeCol:something inRow:row.
 !
 
 columnAdaptor
@@ -204,6 +198,10 @@
 
 !
 
+longStringCompression:aBoolean
+    ^ longStringCompression ? true
+!
+
 rendererType
     "returns my renderer type
     "
@@ -389,7 +387,7 @@
     drawnLabel := aLabelToDraw.
     labelWidth := drawnLabel widthOn:dataSet.
 
-    ("longStringCompression notNil" true
+    (longStringCompression ~~ false
     and:[ drawnLabel isString 
     and:[ labelWidth > width]]) ifTrue:[
         drawnLabel := self class shortenedStringFor:drawnLabel on:dataSet maxWidth:width-space.
@@ -840,9 +838,11 @@
 
     columnAdaptor notNil ifTrue:[
         numArgs == 2 ifTrue:[
-            ^ columnAdaptor perform:writeSelector with:aRow with:newValue
+            columnAdaptor perform:writeSelector with:aRow with:newValue.
+            ^ self
         ].
-        ^ columnAdaptor perform:writeSelector with:aRow with:columnNumber with:newValue
+        columnAdaptor perform:writeSelector with:aRow with:columnNumber with:newValue.
+        ^ self
     ].
 
     numArgs == 1 ifTrue:[
@@ -850,7 +850,6 @@
     ] ifFalse:[
         aRow perform:writeSelector with:columnNumber with:newValue
     ].
-    ^ aRow
 
 ! !
 
@@ -1051,5 +1050,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.77 2002-09-26 08:51:17 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.79 2002-12-19 13:53:12 cg Exp $'
 ! !