# HG changeset patch # User Michael Beyl # Date 1144673724 -7200 # Node ID c4319600989e6c97585a84244e1ee52edbc832c6 # Parent 57c6b1a672dd85c6d410dea971700eda167f4d2a *** empty log message *** diff -r 57c6b1a672dd -r c4319600989e 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 $' ! !