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