--- a/DataSetColumn.st	Sat Dec 28 13:29:25 2002 +0100
+++ b/DataSetColumn.st	Wed Jan 08 16:47:21 2003 +0100
@@ -704,30 +704,7 @@
 
     val isText ifTrue:[val := val string].
     ^ description editorOn:row column:self value:val usingAdaptor:columnAdaptor.
-! !
-
-!DataSetColumn methodsFor:'event handling'!
-
-doesNotUnderstand:aMessage
-
-    (description respondsTo:(aMessage selector)) ifTrue:[
-        ^ aMessage sendTo:description
-    ].
-    ^ super doesNotUnderstand:aMessage
-
-! !
-
-!DataSetColumn methodsFor:'grow & degrow'!
-
-growWidth:n
-    "grow the width for n pixels
-    "
-    width := self width + n.
-
-
-! !
-
-!DataSetColumn methodsFor:'initialization'!
+!
 
 on:aDSVColumnView description:aDescription columnNumber:aNumber label:aLabel
     "instance creation; set attributes dependent on the description
@@ -744,6 +721,7 @@
                           and:[rendererType ~~ #rowSelector]
                         ).
     descWidth        := description width.
+    longStringCompression := description longStringCompression.
 
     description usePreferredWidth ifTrue:[
         descWidth := 0
@@ -818,6 +796,27 @@
     "Modified: / 25.2.2000 / 14:25:56 / cg"
 ! !
 
+!DataSetColumn methodsFor:'event handling'!
+
+doesNotUnderstand:aMessage
+
+    (description respondsTo:(aMessage selector)) ifTrue:[
+        ^ aMessage sendTo:description
+    ].
+    ^ super doesNotUnderstand:aMessage
+
+! !
+
+!DataSetColumn methodsFor:'grow & degrow'!
+
+growWidth:n
+    "grow the width for n pixels
+    "
+    width := self width + n.
+
+
+! !
+
 !DataSetColumn methodsFor:'private'!
 
 extractColFromRow:aRow rowNr:rowNr
@@ -1054,5 +1053,5 @@
 !DataSetColumn class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.80 2002-12-20 15:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.81 2003-01-08 15:47:21 stefan Exp $'
 ! !