equal
deleted
inserted
replaced
19 |
19 |
20 HorizontalSlider comment:' |
20 HorizontalSlider comment:' |
21 COPYRIGHT (c) 1992 by Claus Gittinger |
21 COPYRIGHT (c) 1992 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.2 1994-10-10 03:13:15 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.3 1995-04-30 13:40:33 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !HorizontalSlider class methodsFor:'documentation'! |
27 !HorizontalSlider class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.2 1994-10-10 03:13:15 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg2/HorizontalSlider.st,v 1.3 1995-04-30 13:40:33 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
55 !HorizontalSlider methodsFor:'initialization'! |
55 !HorizontalSlider methodsFor:'initialization'! |
56 |
56 |
57 initialize |
57 initialize |
58 sliderHeight := (self verticalPixelPerMillimeter:10) rounded. |
58 sliderHeight := (self verticalPixelPerMillimeter:10) rounded. |
59 super initialize. |
59 super initialize. |
60 thumbHeight := 0 |
60 thumbHeight := 0. |
61 ! |
61 ! |
62 |
62 |
63 initStyle |
63 initStyle |
64 super initStyle. |
64 super initStyle. |
65 tallyMarks := StyleSheet at:'sliderNTallyMarks' default:1. |
65 tallyMarks := StyleSheet at:'sliderNTallyMarks' default:1. |