equal
deleted
inserted
replaced
19 |
19 |
20 HorizontalMiniScroller comment:' |
20 HorizontalMiniScroller comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.2 1994-11-17 14:34:11 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !HorizontalMiniScroller class methodsFor:'documentation'! |
27 !HorizontalMiniScroller 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/libwidg/HorizontalMiniScroller.st,v 1.2 1994-11-17 14:34:11 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/HorizontalMiniScroller.st,v 1.3 1995-05-03 00:29:35 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
64 h := (device verticalPixelPerMillimeter asFloat * mm) rounded. |
64 h := (device verticalPixelPerMillimeter asFloat * mm) rounded. |
65 self extent:w @ h. |
65 self extent:w @ h. |
66 ! |
66 ! |
67 |
67 |
68 initStyle |
68 initStyle |
|
69 |style lvl| |
|
70 |
69 super initStyle. |
71 super initStyle. |
|
72 style := StyleSheet name. |
70 style == #iris ifTrue:[ |
73 style == #iris ifTrue:[ |
71 tallyLevel := 0. |
74 tallyLevel := 0. |
72 tallyMarks := 0. |
75 tallyMarks := 0. |
73 thumbEdgeStyle := nil. |
76 thumbEdgeStyle := nil. |
74 thumbLevel := 2. |
77 thumbLevel := 2. |
75 ]. |
78 ]. |
76 ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[ |
79 ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[ |
77 style == #st80 ifTrue:[ |
80 style == #st80 ifTrue:[ |
78 self level:1. |
81 lvl := inset := 1. |
79 inset := 1. |
|
80 ] ifFalse:[ |
82 ] ifFalse:[ |
81 self level:-1. |
83 lvl := -1. |
82 ]. |
84 ]. |
|
85 self level:lvl. |
83 self borderWidth:0 |
86 self borderWidth:0 |
84 ]. |
87 ]. |
85 shadowForm := lightForm := nil. |
88 shadowForm := lightForm := nil. |
86 fixThumbHeight := false |
89 fixThumbHeight := false |
87 ! ! |
90 ! ! |