--- a/DSVColumnView.st	Fri Jan 26 15:00:55 2007 +0100
+++ b/DSVColumnView.st	Mon Feb 05 10:52:21 2007 +0100
@@ -2000,8 +2000,9 @@
 
                 preferredExtent notNil ifTrue:[
                     rowHeight := (minRowHeight + separatorSize + verticalSpacing + verticalSpacing + 1) // 2 * 2.
-                    preferredExtent := preferredExtent copy.
-                    preferredExtent y: (list size * rowHeight).
+                    preferredExtent := Point 
+                                            x: preferredExtent x
+                                            y: (list size * rowHeight).
                     self contentsChanged.
                 ].
                 self class stopRedrawSignal raiseRequest.
@@ -2010,6 +2011,8 @@
         ].
         aLabel displayOn:self x:xLeft y:y.
     ].
+
+    "Modified: / 05-02-2007 / 09:07:10 / cg"
 !
 
 drawCheckToggleAtX:xTop y:yTop w:rowWidth state:aState
@@ -3081,7 +3084,9 @@
         ].
         width := width + aCol minWidth.
     ].
-    preferredExtent x:width.
+    preferredExtent := Point
+                        x: width
+                        y: (self preferredExtent y).
     width := self innerWidth - width.
 
     (list notEmpty and:[width > 0]) ifTrue:[
@@ -3101,7 +3106,7 @@
         (oldOrgX := viewOrigin x) ~~ 0 ifTrue:[
             "/ UPDATE VIEW-ORIGIN X
 
-            width   := preferredExtent x.
+            width   := self preferredExtent x.
             newOrgX := (width - self innerWidth) max:0.
 
             newOrgX < oldOrgX ifTrue:[
@@ -3128,10 +3133,12 @@
                 editView width:(selectedColumn width - (2 * separatorSize)).
             ]
         ].
-        oldWidth  ~= preferredExtent x ifTrue:[
+        oldWidth ~= self preferredExtent x ifTrue:[
             self contentsChanged.
         ].
     ].
+
+    "Modified: / 05-02-2007 / 09:08:49 / cg"
 !
 
 hasSelectables
@@ -4298,5 +4305,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.221 2006-11-10 06:20:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.222 2007-02-05 09:52:21 cg Exp $'
 ! !