equal
deleted
inserted
replaced
35 |
35 |
36 documentation |
36 documentation |
37 " |
37 " |
38 HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down |
38 HorizontalSteppingSliders are like HorizontalSliders, but add step-up and step-down |
39 buttons (which increment/decrement the value). |
39 buttons (which increment/decrement the value). |
|
40 |
|
41 [author:] |
|
42 Claus Gittinger |
|
43 |
|
44 [see also:] |
|
45 HorizontalScrollBar HorizontalScroller HorizontalSlider |
|
46 ThumbWheel |
40 " |
47 " |
41 ! |
48 ! |
42 |
49 |
43 examples |
50 examples |
44 " |
51 " |
|
52 see more examples in my superclass, SteppingSlider |
|
53 [exBegin] |
45 |top sl| |
54 |top sl| |
46 |
55 |
47 top := StandardSystemView extent:200@200. |
56 top := StandardSystemView extent:200@200. |
48 sl := HorizontalSteppingSlider in:top. |
57 sl := HorizontalSteppingSlider in:top. |
49 sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)). |
58 sl origin:(0.0@0.0) corner:(1.0@(sl preferredExtent y)). |
50 sl scrollAction:[:pos | Transcript showCR:pos]. |
59 sl scrollAction:[:pos | Transcript showCR:pos]. |
51 top open |
60 top open |
|
61 [exEnd] |
52 " |
62 " |
53 ! ! |
63 ! ! |
54 |
64 |
55 !HorizontalSteppingSlider methodsFor:'queries'! |
65 !HorizontalSteppingSlider methodsFor:'queries'! |
56 |
66 |
61 ! ! |
71 ! ! |
62 |
72 |
63 !HorizontalSteppingSlider class methodsFor:'documentation'! |
73 !HorizontalSteppingSlider class methodsFor:'documentation'! |
64 |
74 |
65 version |
75 version |
66 ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.10 1997-05-28 14:00:27 cg Exp $' |
76 ^ '$Header: /cvs/stx/stx/libwidg2/HorizontalSteppingSlider.st,v 1.11 1997-05-28 14:20:21 cg Exp $' |
67 ! ! |
77 ! ! |