equal
deleted
inserted
replaced
20 HVScrollableView comment:' |
20 HVScrollableView comment:' |
21 |
21 |
22 COPYRIGHT (c) 1991 by Claus Gittinger |
22 COPYRIGHT (c) 1991 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.9 1994-11-21 16:45:26 claus Exp $ |
25 $Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.10 1995-03-18 05:14:47 claus Exp $ |
26 written jan 91 by claus |
26 written jan 91 by claus |
27 '! |
27 '! |
28 |
28 |
29 !HVScrollableView class methodsFor:'documentation'! |
29 !HVScrollableView class methodsFor:'documentation'! |
30 |
30 |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.9 1994-11-21 16:45:26 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.10 1995-03-18 05:14:47 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
222 ] |
222 ] |
223 ]. |
223 ]. |
224 self setScrollActions |
224 self setScrollActions |
225 ! ! |
225 ! ! |
226 |
226 |
|
227 !HVScrollableView methodsFor:'queries'! |
|
228 |
|
229 preferedExtent |
|
230 scrolledView notNil ifTrue:[ |
|
231 | pref | |
|
232 pref := scrolledView preferedExtent. |
|
233 ^ (pref x + scrollBar width + (innerMargin * 2)) |
|
234 @ |
|
235 (pref y + hScrollBar height + (innerMargin * 2)). |
|
236 ]. |
|
237 ^ super preferedExtent. |
|
238 ! ! |
|
239 |
227 !HVScrollableView methodsFor:'changes '! |
240 !HVScrollableView methodsFor:'changes '! |
228 |
241 |
229 update:something with:argument from:changedObject |
242 update:something with:argument from:changedObject |
230 "whenever the scrolledview changes its contents, we have to |
243 "whenever the scrolledview changes its contents, we have to |
231 update the scrollers too" |
244 update the scrollers too" |