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 Scroller subclass:#HorizontalScroller |
13 Scroller subclass:#HorizontalScroller |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Interactors' |
17 category:'Views-Interactors' |
18 ! |
18 ! |
19 |
19 |
20 !HorizontalScroller class methodsFor:'documentation'! |
20 !HorizontalScroller class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
57 initialize |
57 initialize |
58 super initialize. |
58 super initialize. |
59 orientation := #horizontal |
59 orientation := #horizontal |
60 ! ! |
60 ! ! |
61 |
61 |
62 !HorizontalScroller methodsFor:'queries'! |
|
63 |
|
64 preferredExtent |
|
65 |w h| |
|
66 |
|
67 w := self class defaultExtent x. |
|
68 h := (device verticalPixelPerMillimeter asFloat * 6) rounded. |
|
69 ^ w @ h. |
|
70 ! ! |
|
71 |
|
72 !HorizontalScroller class methodsFor:'documentation'! |
62 !HorizontalScroller class methodsFor:'documentation'! |
73 |
63 |
74 version |
64 version |
75 ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.12 1995-11-23 18:18:00 cg Exp $' |
65 ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.13 1996-04-17 12:06:06 cg Exp $' |
76 ! ! |
66 ! ! |