equal
deleted
inserted
replaced
74 ! ! |
74 ! ! |
75 |
75 |
76 !MiniScroller methodsFor:'queries'! |
76 !MiniScroller methodsFor:'queries'! |
77 |
77 |
78 preferredExtent |
78 preferredExtent |
79 "make my width very small" |
79 "return my preferredExtent - make my width very small" |
80 |
80 |
81 |defExt w h mm| |
81 |defExt w h mm| |
82 |
82 |
83 defExt := self class defaultExtent. |
83 defExt := self class defaultExtent. |
84 mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0]. |
84 mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0]. |
89 w := defExt x. |
89 w := defExt x. |
90 h := (device verticalPixelPerMillimeter asFloat * mm) rounded. |
90 h := (device verticalPixelPerMillimeter asFloat * mm) rounded. |
91 ]. |
91 ]. |
92 ^ w @ h. |
92 ^ w @ h. |
93 |
93 |
94 "Modified: 17.4.1996 / 14:02:43 / cg" |
94 "Modified: 23.4.1996 / 00:16:42 / cg" |
95 ! ! |
95 ! ! |
96 |
96 |
97 !MiniScroller class methodsFor:'documentation'! |
97 !MiniScroller class methodsFor:'documentation'! |
98 |
98 |
99 version |
99 version |
100 ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.9 1996-04-19 16:49:07 ca Exp $' |
100 ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.10 1996-04-22 22:19:01 cg Exp $' |
101 ! ! |
101 ! ! |