7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 |
|
13 "{ Package: 'stx:libwidg2' }" |
12 |
14 |
13 SteppingSlider subclass:#HorizontalSteppingSlider |
15 SteppingSlider subclass:#HorizontalSteppingSlider |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
37 " |
39 " |
38 HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down |
40 HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down |
39 buttons (which increment/decrement the value). |
41 buttons (which increment/decrement the value). |
40 |
42 |
41 [author:] |
43 [author:] |
42 Claus Gittinger |
44 Claus Gittinger |
43 |
45 |
44 [see also:] |
46 [see also:] |
45 HorizontalScrollBar HorizontalScroller HorizontalSlider |
47 HorizontalScrollBar HorizontalScroller HorizontalSlider |
46 ThumbWheel |
48 ThumbWheel |
47 " |
49 " |
48 ! |
50 ! |
49 |
51 |
50 examples |
52 examples |
51 " |
53 " |
52 see more examples in my superclass, SteppingSlider |
54 see more examples in my superclass, SteppingSlider |
53 [exBegin] |
55 [exBegin] |
54 |top sl| |
56 |top sl| |
55 |
57 |
56 top := StandardSystemView extent:200@200. |
58 top := StandardSystemView extent:200@200. |
57 sl := HorizontalSteppingSlider in:top. |
59 sl := HorizontalSteppingSlider in:top. |
58 sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)). |
60 sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)). |
59 sl scrollAction:[:pos | Transcript showCR:pos]. |
61 sl scrollAction:[:pos | Transcript showCR:pos]. |
60 top open |
62 top open |
61 [exEnd] |
63 [exEnd] |
62 " |
64 " |
63 ! ! |
65 ! ! |
64 |
66 |
65 !HorizontalSteppingSlider methodsFor:'initialization'! |
67 !HorizontalSteppingSlider methodsFor:'initialization'! |
66 |
68 |
67 initialize |
69 initialize |
68 orientation := #horizontal. |
70 orientation := #horizontal. |
69 super initialize. |
71 super initialize. |
70 |
72 |
71 |
73 |
72 ! ! |
74 ! ! |
73 |
75 |
74 !HorizontalSteppingSlider class methodsFor:'documentation'! |
76 !HorizontalSteppingSlider class methodsFor:'documentation'! |
75 |
77 |
76 version |
78 version |
77 ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.12 1999-08-10 09:01:07 cg Exp $' |
79 ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.13 2006-11-13 16:11:30 cg Exp $' |
78 ! ! |
80 ! ! |