1 " |
1 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
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 |
12 |
13 Scroller subclass:#MiniScroller |
13 Scroller subclass:#MiniScroller |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Interactors' |
17 category:'Views-Interactors' |
18 ! |
18 ! |
19 |
19 |
20 MiniScroller comment:' |
20 MiniScroller 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/Attic/MiniScr.st,v 1.1 1994-08-07 13:22:53 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.2 1994-11-17 14:40:37 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !MiniScroller class methodsFor:'documentation'! |
27 !MiniScroller class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
30 " |
30 " |
31 COPYRIGHT (c) 1994 by Claus Gittinger |
31 COPYRIGHT (c) 1994 by Claus Gittinger |
32 All Rights Reserved |
32 All Rights Reserved |
33 |
33 |
34 This software is furnished under a license and may be used |
34 This software is furnished under a license and may be used |
35 only in accordance with the terms of that license and with the |
35 only in accordance with the terms of that license and with the |
36 inclusion of the above copyright notice. This software may not |
36 inclusion of the above copyright notice. This software may not |
37 be provided or otherwise made available to, or used by, any |
37 be provided or otherwise made available to, or used by, any |
66 ! |
66 ! |
67 |
67 |
68 initStyle |
68 initStyle |
69 super initStyle. |
69 super initStyle. |
70 style == #iris ifTrue:[ |
70 style == #iris ifTrue:[ |
71 tallyLevel := 0. |
71 tallyLevel := 0. |
72 tallyMarks := 0. |
72 tallyMarks := 0. |
73 thumbSoftEdge := false. |
73 thumbEdgeStyle := nil. |
74 thumbLevel := 2. |
74 thumbLevel := 2. |
75 ]. |
75 ]. |
76 ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[ |
76 ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[ |
77 style == #st80 ifTrue:[ |
77 style == #st80 ifTrue:[ |
78 self level:1. |
78 self level:1. |
79 self borderWidth:0 |
79 ] ifFalse:[ |
80 ] ifFalse:[ |
80 self level:-1. |
81 self level:-1. |
81 ]. |
82 self borderWidth:0 |
82 self borderWidth:0 |
83 ] |
|
84 ]. |
83 ]. |
85 shadowForm := lightForm := nil. |
84 shadowForm := lightForm := nil. |
86 fixThumbHeight := false |
85 fixThumbHeight := false |
87 ! ! |
86 ! ! |