equal
deleted
inserted
replaced
31 DefaultThumbEnteredColor DefaultThumbActiveLevel' |
31 DefaultThumbEnteredColor DefaultThumbActiveLevel' |
32 poolDictionaries:'' |
32 poolDictionaries:'' |
33 category:'Views-Interactors' |
33 category:'Views-Interactors' |
34 ! |
34 ! |
35 |
35 |
36 !Scroller class methodsFor:'documentation'! |
36 !Scroller class methodsFor:'documentation'! |
37 |
37 |
38 copyright |
38 copyright |
39 " |
39 " |
40 COPYRIGHT (c) 1989 by Claus Gittinger |
40 COPYRIGHT (c) 1989 by Claus Gittinger |
41 All Rights Reserved |
41 All Rights Reserved |
269 top open |
269 top open |
270 [exEnd] |
270 [exEnd] |
271 " |
271 " |
272 ! ! |
272 ! ! |
273 |
273 |
274 !Scroller class methodsFor:'defaults'! |
274 !Scroller class methodsFor:'defaults'! |
275 |
275 |
276 handleLightFormOn:aDisplay |
276 handleLightFormOn:aDisplay |
277 "answer the form used for the handles light area; |
277 "answer the form used for the handles light area; |
278 cache the one for Display for the next round" |
278 cache the one for Display for the next round" |
279 |
279 |
1795 ] ifFalse:[ |
1795 ] ifFalse:[ |
1796 w := defExt x. |
1796 w := defExt x. |
1797 h := (device verticalPixelPerMillimeter asFloat * 6) rounded. |
1797 h := (device verticalPixelPerMillimeter asFloat * 6) rounded. |
1798 ]. |
1798 ]. |
1799 |
1799 |
1800 ^ w @ h. |
1800 preferredExtent := w @ h. |
1801 |
1801 ^ preferredExtent. |
1802 "Modified: 29.5.1996 / 12:10:42 / cg" |
1802 |
|
1803 "Modified: 15.7.1996 / 09:56:07 / cg" |
1803 ! ! |
1804 ! ! |
1804 |
1805 |
1805 !Scroller class methodsFor:'documentation'! |
1806 !Scroller class methodsFor:'documentation'! |
1806 |
1807 |
1807 version |
1808 version |
1808 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.62 1996-06-15 11:52:43 cg Exp $' |
1809 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.63 1996-07-15 10:08:11 cg Exp $' |
1809 ! ! |
1810 ! ! |