DSVColumnView.st
changeset 4163 3d9fbb60d952
parent 4161 4722a6575ff0
child 4176 915f6fa47e09
--- a/DSVColumnView.st	Fri Jan 11 11:44:40 2013 +0100
+++ b/DSVColumnView.st	Fri Jan 11 11:45:31 2013 +0100
@@ -2920,14 +2920,16 @@
     "size changed - move origin up if possible
      change the layout of the labelView dependent on my layout"
 
-    |selectionWasVisible ext|
-
-    ext := previousExtent notNil ifTrue:[previousExtent] ifFalse:[self extent].
-    selectionWasVisible := self isSelectionVisibleIn:ext.
+    |selectionWasVisible lastExtent|
+
+    lastExtent := previousExtent notNil ifTrue:[previousExtent] ifFalse:[self extent].
+    selectionWasVisible := self isSelectionVisibleIn:lastExtent.
 
     previousExtent := self extent.
     super sizeChanged:how.
 
+    previousExtent := self extent.
+
     "/ no - must compute even if not visible.
     "/ (could be invisible in a notebook ...)
     realized ifTrue:[                   "used to be: shown" 
@@ -2937,7 +2939,7 @@
 "/            lyt rightOffset:(layout rightOffset).
 "/            labelView layout:lyt.
 "/        ].
-        previousExtent x ~= width ifTrue: [
+        previousExtent x ~= lastExtent x ifTrue: [
             self fitColumns.
         ].
         selectionWasVisible ifTrue:[
@@ -4723,10 +4725,10 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.280 2013-01-10 15:19:11 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.281 2013-01-11 10:45:31 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.280 2013-01-10 15:19:11 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.281 2013-01-11 10:45:31 ca Exp $'
 ! !