equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
55 "Modified: / 7.3.1999 / 00:00:47 / cg" |
57 "Modified: / 7.3.1999 / 00:00:47 / cg" |
56 ! ! |
58 ! ! |
57 |
59 |
58 !HorizontalSlider methodsFor:'queries'! |
60 !HorizontalSlider methodsFor:'queries'! |
59 |
61 |
60 preferredExtent |
62 computePreferredExtent |
61 "return the view's preferredExtent." |
63 "return the view's preferredExtent." |
62 |
64 |
63 |w h| |
65 |w h| |
64 |
|
65 "/ If I have an explicit preferredExtent.. |
|
66 explicitExtent notNil ifTrue:[ |
|
67 ^ explicitExtent |
|
68 ]. |
|
69 |
|
70 "/ If I have a cached preferredExtent value.. |
|
71 preferredExtent notNil ifTrue:[ |
|
72 ^ preferredExtent |
|
73 ]. |
|
74 |
66 |
75 w := self class defaultExtent x. |
67 w := self class defaultExtent x. |
76 h := (self verticalPixelPerMillimeter:6) rounded. |
68 h := (self verticalPixelPerMillimeter:6) rounded. |
77 |
69 |
78 preferredExtent := w @ h. |
70 preferredExtent := w @ h. |
79 ^ preferredExtent. |
71 ^ preferredExtent. |
80 |
72 |
81 "Modified: 19.7.1996 / 20:44:30 / cg" |
73 "Created: / 09-11-2018 / 19:55:19 / Claus Gittinger" |
82 ! ! |
74 ! ! |
83 |
75 |
84 !HorizontalSlider class methodsFor:'documentation'! |
76 !HorizontalSlider class methodsFor:'documentation'! |
85 |
77 |
86 version |
78 version |