--- a/HVScrollableView.st Fri Aug 02 21:03:07 1996 +0200
+++ b/HVScrollableView.st Mon Aug 05 13:48:39 1996 +0200
@@ -112,16 +112,34 @@
!HVScrollableView methodsFor:'event processing'!
sizeChanged:how
+ |orgY orgX scroll|
+
super sizeChanged:how.
scrolledView notNil ifTrue:[
- hScrollBar setThumbFor:scrolledView
- ].
- hScrollBar thumbOrigin + hScrollBar thumbHeight >= 100 ifTrue:[
- hScrollBar thumbOrigin:(100 - hScrollBar thumbHeight).
- scrolledView scrollHorizontalToPercent:hScrollBar thumbOrigin.
+ scrollBar setThumbFor:scrolledView.
+ hScrollBar setThumbFor:scrolledView.
+
+ orgY := scrollBar thumbOrigin.
+ orgX := hScrollBar thumbOrigin.
+ scroll := false.
+
+ orgY + scrollBar thumbHeight >= 100 ifTrue:[
+ scrollBar thumbOrigin:(100 - scrollBar thumbHeight).
+ orgY := scrollBar thumbOrigin.
+ scroll := true.
+ ].
+ orgX + hScrollBar thumbHeight >= 100 ifTrue:[
+ hScrollBar thumbOrigin:(100 - hScrollBar thumbHeight).
+ orgX := hScrollBar thumbOrigin.
+ scroll := true.
+ ].
+ scroll ifTrue:[
+ scrolledView scrollToPercent:(orgX@orgY).
+ ].
].
"Modified: 8.9.1995 / 12:46:36 / claus"
+ "Modified: 5.8.1996 / 12:18:52 / stefan"
! !
!HVScrollableView methodsFor:'initialization'!
@@ -280,6 +298,14 @@
!HVScrollableView methodsFor:'queries'!
+isHorizontalScrollable
+ "return true, because I am horizontal scrollable"
+
+ ^ true
+
+ "Modified: 5.8.1996 / 12:29:10 / stefan"
+!
+
preferredExtent
"return the components preferredExtent."
@@ -324,5 +350,5 @@
!HVScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.20 1996-08-01 16:25:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.21 1996-08-05 11:48:39 stefan Exp $'
! !