*** empty log message ***
authorMichael Beyl <mb@exept.de>
Mon, 10 Apr 2006 14:55:24 +0200
changeset 2956 c4319600989e
parent 2955 57c6b1a672dd
child 2957 21b7fc774154
*** empty log message ***
DSVColumnView.st
--- a/DSVColumnView.st	Tue Apr 04 14:26:56 2006 +0200
+++ b/DSVColumnView.st	Mon Apr 10 14:55:24 2006 +0200
@@ -2959,10 +2959,12 @@
 fitColumns
     "fit columns to view; "
 
-    |selectedColumn list width changed dX sz oldOrgX newOrgX|
+    |selectedColumn list width changed dX sz oldOrgX newOrgX oldWidth|
 
     preferredExtent isNil ifTrue:[
         self preferredExtent.
+    ] ifFalse:[
+        oldWidth := preferredExtent x.
     ].
 
     columnDescriptors isEmpty ifTrue:[
@@ -3026,8 +3028,9 @@
                 editView width:(selectedColumn width - (2 * separatorSize)).
             ]
         ].
-
-        self contentsChanged.
+        oldWidth  ~= preferredExtent x ifTrue:[
+            self contentsChanged.
+        ].
     ].
 !
 
@@ -4130,5 +4133,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.211 2006-03-06 08:56:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.212 2006-04-10 12:55:24 mb Exp $'
 ! !