equal
deleted
inserted
replaced
43 [author:] |
43 [author:] |
44 Claus Gittinger |
44 Claus Gittinger |
45 " |
45 " |
46 ! ! |
46 ! ! |
47 |
47 |
48 !HVScrollableView methodsFor:'accessing'! |
48 !HVScrollableView methodsFor:'accessing - components'! |
49 |
49 |
50 horizontalScrollBar |
50 horizontalScrollBar |
51 "return the horizontal scrollbar" |
51 "return the horizontal scrollbar" |
52 |
52 |
53 ^ hScrollBar |
53 ^ hScrollBar |
279 (pref y + hScrollBar height + m2). |
279 (pref y + hScrollBar height + m2). |
280 ]. |
280 ]. |
281 ^ super preferredExtent. |
281 ^ super preferredExtent. |
282 |
282 |
283 "Modified: 23.4.1996 / 00:15:25 / cg" |
283 "Modified: 23.4.1996 / 00:15:25 / cg" |
|
284 ! |
|
285 |
|
286 preferredExtentForLines:numLines cols:numCols |
|
287 "return my preferredExtent for given number of lines and cols." |
|
288 |
|
289 |pref m2| |
|
290 |
|
291 scrolledView notNil ifTrue:[ |
|
292 m2 := innerMargin * 2. |
|
293 pref := scrolledView preferredExtentForLines:numLines cols:numCols. |
|
294 ^ (pref x + scrollBar width + m2) |
|
295 @ |
|
296 (pref y + hScrollBar height + m2). |
|
297 ]. |
|
298 ^ super preferredExtent. |
|
299 |
|
300 "Modified: 23.4.1996 / 00:15:25 / cg" |
|
301 "Created: 24.5.1996 / 17:15:43 / cg" |
284 ! ! |
302 ! ! |
285 |
303 |
286 !HVScrollableView class methodsFor:'documentation'! |
304 !HVScrollableView class methodsFor:'documentation'! |
287 |
305 |
288 version |
306 version |
289 ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.16 1996-04-25 17:16:19 cg Exp $' |
307 ^ '$Header: /cvs/stx/stx/libwidg/HVScrollableView.st,v 1.17 1996-05-24 18:12:39 cg Exp $' |
290 ! ! |
308 ! ! |