--- 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 $'
! !