--- a/ViewScroller.st Wed May 07 17:54:23 2014 +0200
+++ b/ViewScroller.st Wed May 07 17:54:53 2014 +0200
@@ -227,16 +227,31 @@
^ resizeScrolledViewHorizontal
!
-resizeScrolledViewHorizontal:something
- resizeScrolledViewHorizontal := something.
+resizeScrolledViewHorizontal:aBoolean
+ "if true, the scrolled view is actually NOT scrolled horizontally,
+ but instead always resized to fit.
+ Set this, if only vertical scrollability is wanted (i.e. the view
+ itself does adjust its size horizontally (for example, in a settings dialog,
+ the subcanvas to be enbedded has a horizontal panel, taking all of the space)"
+
+ resizeScrolledViewHorizontal := aBoolean.
!
resizeScrolledViewVertical
^ resizeScrolledViewVertical
!
-resizeScrolledViewVertical:something
- resizeScrolledViewVertical := something.
+resizeScrolledViewVertical:aBoolean
+ "if true, the scrolled view is actually NOT scrolled vertically,
+ but instead always resized to fit.
+ Set this, if only horizontal scrollability is wanted (i.e. the view
+ itself does adjust its size vertically (for example, in a settings dialog,
+ the subcanvas to be enbedded has a vertical panel, taking all of the space)"
+
+ resizeScrolledViewVertical := aBoolean.
+ scrolledView notNil ifTrue:[
+ self resizeScrolledView
+ ].
!
scrolledView
@@ -374,7 +389,7 @@
!ViewScroller methodsFor:'change & update'!
resizeScrolledView
- "forces a recomputation of the scrolled views size"
+ "forces a recomputation of the scrolled view's size"
|oldExtent newExtent xIsRelative yIsRelative|
@@ -407,12 +422,12 @@
newExtent y:1.0.
oldExtent y:1.0.
].
- oldExtent ~= newExtent ifTrue:[
+ true "oldExtent ~= newExtent" ifTrue:[
scrolledView extent:newExtent.
- realized ifTrue:[
- self sizeChanged:nil.
- ].
+"/ realized ifTrue:[
+"/ self sizeChanged:nil.
+"/ ].
].
!
@@ -507,6 +522,8 @@
|newOrigin|
+ "/ self resizeScrolledView.
+
"
if we are beyond the end, scroll up a bit
"
@@ -538,6 +555,7 @@
self changed:#sizeOfContents. "update possible scrollers"
self repositionScrolledView.
+ self resizeScrolledView
! !
!ViewScroller methodsFor:'focus handling'!
@@ -673,10 +691,10 @@
!ViewScroller class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.43 2014-03-18 15:42:21 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.44 2014-05-07 15:54:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.43 2014-03-18 15:42:21 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.44 2014-05-07 15:54:53 cg Exp $'
! !