equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 ScrollableView subclass:#HVScrollableView |
13 ScrollableView subclass:#HVScrollableView |
14 instanceVariableNames:'hScrollBar' |
14 instanceVariableNames:'hScrollBar' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Basic' |
17 category:'Views-Basic' |
18 ! |
18 ! |
19 |
19 |
20 !HVScrollableView class methodsFor:'documentation'! |
20 !HVScrollableView class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
262 ! ! |
262 ! ! |
263 |
263 |
264 !HVScrollableView methodsFor:'queries'! |
264 !HVScrollableView methodsFor:'queries'! |
265 |
265 |
266 preferredExtent |
266 preferredExtent |
|
267 "return the components preferredExtent." |
|
268 |
267 |pref m2| |
269 |pref m2| |
268 |
270 |
269 scrolledView notNil ifTrue:[ |
271 scrolledView notNil ifTrue:[ |
270 m2 := innerMargin * 2. |
272 m2 := innerMargin * 2. |
271 pref := scrolledView preferredExtent. |
273 pref := scrolledView preferredExtent. |
272 ^ (pref x + scrollBar width + m2) |
274 ^ (pref x + scrollBar width + m2) |
273 @ |
275 @ |
274 (pref y + hScrollBar height + m2). |
276 (pref y + hScrollBar height + m2). |
275 ]. |
277 ]. |
276 ^ super preferredExtent. |
278 ^ super preferredExtent. |
|
279 |
|
280 "Modified: 23.4.1996 / 00:15:25 / cg" |
277 ! ! |
281 ! ! |
278 |
282 |
279 !HVScrollableView class methodsFor:'documentation'! |
283 !HVScrollableView class methodsFor:'documentation'! |
280 |
284 |
281 version |
285 version |
282 ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.14 1995-11-27 22:28:01 cg Exp $' |
286 ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.15 1996-04-22 22:20:01 cg Exp $' |
283 ! ! |
287 ! ! |