--- a/HVScrollableView.st Sat Mar 18 06:16:33 1995 +0100
+++ b/HVScrollableView.st Sat Mar 18 06:16:50 1995 +0100
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.9 1994-11-21 16:45:26 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.10 1995-03-18 05:14:47 claus Exp $
written jan 91 by claus
'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.9 1994-11-21 16:45:26 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.10 1995-03-18 05:14:47 claus Exp $
"
!
@@ -224,6 +224,19 @@
self setScrollActions
! !
+!HVScrollableView methodsFor:'queries'!
+
+preferedExtent
+ scrolledView notNil ifTrue:[
+ | pref |
+ pref := scrolledView preferedExtent.
+ ^ (pref x + scrollBar width + (innerMargin * 2))
+ @
+ (pref y + hScrollBar height + (innerMargin * 2)).
+ ].
+ ^ super preferedExtent.
+! !
+
!HVScrollableView methodsFor:'changes '!
update:something with:argument from:changedObject