equal
deleted
inserted
replaced
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Interactors' |
17 category:'Views-Interactors' |
18 ! |
18 ! |
19 |
19 |
20 !HorizontalScrollBar class methodsFor:'documentation'! |
20 !HorizontalScrollBar class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
295 (style ~~ #normal) ifTrue:[ |
295 (style ~~ #normal) ifTrue:[ |
296 h := h + 4. |
296 h := h + 4. |
297 w := w + 4 |
297 w := w + 4 |
298 ]. |
298 ]. |
299 ]. |
299 ]. |
300 ^ w @ h. |
300 preferredExtent := w @ h. |
301 |
301 ^ preferredExtent. |
302 "Modified: 12.6.1996 / 14:57:26 / cg" |
302 |
303 ! ! |
303 "Modified: 15.7.1996 / 09:56:56 / cg" |
304 |
304 ! ! |
305 !HorizontalScrollBar class methodsFor:'documentation'! |
305 |
|
306 !HorizontalScrollBar class methodsFor:'documentation'! |
306 |
307 |
307 version |
308 version |
308 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.20 1996-06-12 12:57:41 cg Exp $' |
309 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.21 1996-07-15 10:09:19 cg Exp $' |
309 ! ! |
310 ! ! |