author | Claus Gittinger <cg@exept.de> |
Thu, 30 Jun 2016 18:29:21 +0200 | |
changeset 5148 | 275375188608 |
parent 4993 | f17ce640c51f |
child 5167 | 44864b178d31 |
permissions | -rw-r--r-- |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
1 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
2 |
COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
3 |
All Rights Reserved |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
4 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
5 |
This software is furnished under a license and may be used |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
6 |
only in accordance with the terms of that license and with the |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
7 |
inclusion of the above copyright notice. This software may not |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
8 |
be provided or otherwise made available to, or used by, any |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
9 |
other person. No title to or ownership of the software is |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
10 |
hereby transferred. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
11 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
12 |
"{ Package: 'stx:libwidg2' }" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
13 |
|
4993 | 14 |
"{ NameSpace: Smalltalk }" |
15 |
||
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
16 |
View subclass:#ThumbWheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
17 |
instanceVariableNames:'orientation synchronousOperation thumbPosition thumbColor |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
18 |
thumbShadowColor thumbLightColor thumbEnteredColor tallyLevel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
19 |
tallyAngle rangeStart rangeEnd rangeStep angleRange |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
20 |
unitsPerRotation entered press pressPos scrollAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
21 |
endlessRotation startMoveAction endMoveAction keyboardStep' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
22 |
classVariableNames:'DefaultViewBackground DefaultThumbColor DefaultThumbShadowColor |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
23 |
DefaultThumbLightColor DefaultTallyMarks DefaultTallyLevel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
24 |
DefaultLevel DefaultBorderWidth' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
25 |
poolDictionaries:'' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
26 |
category:'Views-Interactors' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
27 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
28 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
29 |
!ThumbWheel class methodsFor:'documentation'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
30 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
31 |
copyright |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
32 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
33 |
COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
34 |
All Rights Reserved |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
35 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
36 |
This software is furnished under a license and may be used |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
37 |
only in accordance with the terms of that license and with the |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
38 |
inclusion of the above copyright notice. This software may not |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
39 |
be provided or otherwise made available to, or used by, any |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
40 |
other person. No title to or ownership of the software is |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
41 |
hereby transferred. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
42 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
43 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
44 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
45 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
46 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
47 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
48 |
documentation |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
49 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
50 |
A thumbWheel is like a slider, but looks different ... |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
51 |
ThumbWheels are useful with 3D applications, to control |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
52 |
things like rotation, translation and magnification. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
53 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
54 |
[author:] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
55 |
Claus Gittinger |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
56 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
57 |
[see also:] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
58 |
Slider ScrollBar StepSlider |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
59 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
60 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
61 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
62 |
examples |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
63 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
64 |
basic setup: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
65 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
66 |
|top wheel| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
67 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
68 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
69 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
70 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
71 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
72 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
73 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
74 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
75 |
wheel origin:0.0@0.0; extent:(wheel preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
76 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
77 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
78 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
79 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
80 |
two of them: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
81 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
82 |
|top wheel1 wheel2| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
83 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
84 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
85 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
86 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
87 |
wheel1 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
88 |
wheel1 orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
89 |
wheel1 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
90 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
91 |
wheel1 origin:0.0@0.0; extent:(wheel1 preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
92 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
93 |
wheel2 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
94 |
wheel2 orientation:#horizontal. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
95 |
wheel2 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
96 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
97 |
wheel2 origin:0.0@1.0; extent:(wheel2 preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
98 |
wheel2 topInset:(wheel2 preferredExtent y negated). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
99 |
wheel2 bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
100 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
101 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
102 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
103 |
performing an action: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
104 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
105 |
|top wheel| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
106 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
107 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
108 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
109 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
110 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
111 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
112 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
113 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
114 |
wheel origin:0.0@0.0; extent:(wheel preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
115 |
wheel scrollAction:[:value | Transcript showCR:value rounded]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
116 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
117 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
118 |
operating on a model: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
119 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
120 |
|top wheel model| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
121 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
122 |
model := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
123 |
model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
124 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
125 |
to:[Transcript show:'value now: '; showCR:model value rounded]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
126 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
127 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
128 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
129 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
130 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
131 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
132 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
133 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
134 |
wheel origin:0.0@0.0; extent:(wheel preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
135 |
wheel model:model. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
136 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
137 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
138 |
endless rotation: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
139 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
140 |
|top wheel model| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
141 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
142 |
model := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
143 |
model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
144 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
145 |
to:[Transcript show:'value now: '; showCR:model value rounded]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
146 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
147 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
148 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
149 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
150 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
151 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
152 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
153 |
wheel endlessRotation:true. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
154 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
155 |
wheel origin:0.0@0.0; extent:(wheel preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
156 |
wheel model:model. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
157 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
158 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
159 |
concrete example: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
160 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
161 |
|top wheel1 wheel2 image magX magY hHolder vHolder imageView| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
162 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
163 |
magX := magY := 1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
164 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
165 |
hHolder := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
166 |
hHolder |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
167 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
168 |
to:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
169 |
magX := hHolder value * 2 / 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
170 |
magX = 0 ifTrue:[magX := 0.01]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
171 |
Transcript show:'magX now '; showCR:magX. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
172 |
imageView clear. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
173 |
imageView magnification:magX@magY]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
174 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
175 |
vHolder := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
176 |
vHolder |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
177 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
178 |
to:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
179 |
magY := vHolder value * 2 / 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
180 |
magY = 0 ifTrue:[magY := 0.01]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
181 |
Transcript show:'magY now '; showCR:magY. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
182 |
imageView clear. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
183 |
imageView magnification:magX@magY]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
184 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
185 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
186 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
187 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
188 |
wheel1 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
189 |
wheel1 orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
190 |
wheel1 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
191 |
wheel1 origin:0.0@0.0; extent:(wheel1 preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
192 |
wheel1 model:vHolder. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
193 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
194 |
wheel2 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
195 |
wheel2 orientation:#horizontal. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
196 |
wheel2 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
197 |
wheel2 origin:0.0@1.0; extent:(wheel2 preferredExtent). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
198 |
wheel2 topInset:(wheel2 preferredExtent y negated). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
199 |
wheel2 bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
200 |
wheel2 model:hHolder. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
201 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
202 |
imageView := ImageEditView in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
203 |
imageView level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
204 |
imageView origin:0.0@0.0 corner:1.0@1.0. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
205 |
imageView leftInset:(wheel1 preferredExtent x). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
206 |
imageView bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
207 |
imageView image:(Image fromFile:'bitmaps/garfield.gif'). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
208 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
209 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
210 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
211 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
212 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
213 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
214 |
!ThumbWheel methodsFor:'accessing'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
215 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
216 |
keyboardStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
217 |
"return the scrollers keyboard step. If non-nil, |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
218 |
thats the stepping value used with cursorUp/cursorDown keys. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
219 |
(not used with Scrollers, but provided for subclasses)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
220 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
221 |
^ keyboardStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
222 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
223 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
224 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
225 |
keyboardStep:aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
226 |
"set the scrollers keyboard step. If non-nil, |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
227 |
thats the stepping value used with cursorUp/cursorDown keys. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
228 |
(not used with Scrollers, but provided for subclasses)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
229 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
230 |
keyboardStep := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
231 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
232 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
233 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
234 |
start |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
235 |
"return the wheels range minimum." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
236 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
237 |
^ rangeStart |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
238 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
239 |
"Created: 1.4.1997 / 12:30:04 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
240 |
"Modified: 1.4.1997 / 12:52:31 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
241 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
242 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
243 |
start:aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
244 |
"set the wheels range minimum." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
245 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
246 |
rangeStart := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
247 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
248 |
"Created: 1.4.1997 / 12:30:54 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
249 |
"Modified: 1.4.1997 / 12:52:36 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
250 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
251 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
252 |
start:start stop:stop |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
253 |
"set the wheels range minimum." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
254 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
255 |
rangeStart := start. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
256 |
rangeEnd := stop. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
257 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
258 |
"Modified: / 1.4.1997 / 12:52:36 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
259 |
"Created: / 23.1.1998 / 15:06:04 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
260 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
261 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
262 |
step |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
263 |
"return the wheels range step." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
264 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
265 |
^ rangeStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
266 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
267 |
"Created: 1.4.1997 / 12:30:15 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
268 |
"Modified: 1.4.1997 / 12:53:05 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
269 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
270 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
271 |
step:aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
272 |
"set the wheels range step." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
273 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
274 |
rangeStep := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
275 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
276 |
"Created: 1.4.1997 / 12:30:32 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
277 |
"Modified: 1.4.1997 / 12:52:49 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
278 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
279 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
280 |
stop |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
281 |
"return the wheels range end." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
282 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
283 |
^ rangeEnd |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
284 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
285 |
"Created: 1.4.1997 / 12:30:09 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
286 |
"Modified: 1.4.1997 / 12:52:59 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
287 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
288 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
289 |
stop:aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
290 |
"set the wheels range end." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
291 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
292 |
rangeEnd := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
293 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
294 |
"Created: 1.4.1997 / 12:30:47 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
295 |
"Modified: 1.4.1997 / 12:52:54 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
296 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
297 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
298 |
thumbOrigin:pos |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
299 |
"same as thumbPosition (for protocol compatibility with sliders)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
300 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
301 |
self thumbPosition:pos |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
302 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
303 |
"Created: / 21.4.1998 / 20:57:20 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
304 |
"Modified: / 21.4.1998 / 20:58:43 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
305 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
306 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
307 |
thumbPosition |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
308 |
"sreturn the position" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
309 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
310 |
^ thumbPosition |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
311 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
312 |
"Created: / 21.4.1998 / 20:58:15 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
313 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
314 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
315 |
thumbPosition:pos |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
316 |
"set the wheels position; the argument should be in the start..stop |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
317 |
interval." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
318 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
319 |
|newPos delta| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
320 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
321 |
delta := (rangeEnd-rangeStart). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
322 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
323 |
newPos := pos. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
324 |
endlessRotation ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
325 |
[newPos < rangeStart] whileTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
326 |
newPos := newPos + delta |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
327 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
328 |
[newPos > rangeEnd] whileTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
329 |
newPos := newPos - delta |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
330 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
331 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
332 |
newPos := (newPos max:rangeStart) min:rangeEnd. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
333 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
334 |
rangeStep notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
335 |
newPos := newPos roundTo:rangeStep. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
336 |
rangeStep isInteger ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
337 |
newPos := newPos asInteger |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
338 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
339 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
340 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
341 |
newPos ~= thumbPosition ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
342 |
thumbPosition := newPos. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
343 |
shown ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
344 |
self invalidate. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
345 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
346 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
347 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
348 |
"Created: / 27.9.1996 / 18:10:57 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
349 |
"Modified: / 6.6.1998 / 23:29:28 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
350 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
351 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
352 |
!ThumbWheel methodsFor:'accessing-behavior'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
353 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
354 |
endMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
355 |
"set the endMoveAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
356 |
stops to move (i.e. the user releases the mouse). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
357 |
The default is nil (i.e. no action)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
358 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
359 |
^ endMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
360 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
361 |
"Created: / 18.8.1998 / 16:29:40 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
362 |
"Modified: / 18.8.1998 / 16:31:41 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
363 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
364 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
365 |
endMoveAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
366 |
"set the endMoveAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
367 |
stops to move (i.e. the user releases the mouse)." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
368 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
369 |
endMoveAction := aBlock. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
370 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
371 |
"Created: / 18.8.1998 / 16:30:40 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
372 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
373 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
374 |
endlessRotation:aBoolean |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
375 |
"if true, rotation wraps and endless rotation is permitted. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
376 |
If false (the default), rotation ends at rangeStart/rangeEnd." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
377 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
378 |
endlessRotation := aBoolean |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
379 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
380 |
"Created: / 5.2.1998 / 22:20:28 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
381 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
382 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
383 |
scrollAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
384 |
"return the scrollAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
385 |
is turned (i.e. for every change)." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
386 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
387 |
^ scrollAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
388 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
389 |
"Modified: / 18.8.1998 / 16:31:59 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
390 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
391 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
392 |
scrollAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
393 |
"set the scrollAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
394 |
is turned (i.e. for every change)." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
395 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
396 |
scrollAction := aBlock. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
397 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
398 |
"Modified: / 18.8.1998 / 16:31:52 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
399 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
400 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
401 |
startMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
402 |
"return the startMoveAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
403 |
starts to turn (i.e. the user clicks on it). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
404 |
The default is nil (i.e. no action)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
405 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
406 |
^ startMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
407 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
408 |
"Created: / 18.8.1998 / 16:29:36 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
409 |
"Modified: / 18.8.1998 / 16:31:16 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
410 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
411 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
412 |
startMoveAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
413 |
"set the startMoveAction, a block which is evaluated when the wheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
414 |
starts to turn (i.e. the user clicks on it)." |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
415 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
416 |
startMoveAction := aBlock. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
417 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
418 |
"Modified: / 18.8.1998 / 16:30:53 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
419 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
420 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
421 |
!ThumbWheel methodsFor:'accessing-look'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
422 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
423 |
orientation |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
424 |
"return the wheels orientation; #horizontal or #vertical" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
425 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
426 |
^ orientation |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
427 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
428 |
"Created: 1.4.1997 / 12:29:46 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
429 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
430 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
431 |
orientation:aSymbol |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
432 |
"set the wheels orientation; the argument may be one of |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
433 |
#horizontal or #vertical" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
434 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
435 |
orientation := aSymbol. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
436 |
shown ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
437 |
self invalidate |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
438 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
439 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
440 |
"Created: 27.9.1996 / 16:02:14 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
441 |
"Modified: 1.4.1997 / 12:50:22 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
442 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
443 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
444 |
!ThumbWheel methodsFor:'drawing'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
445 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
446 |
redrawX:x y:y width:w height:h |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
447 |
"redraw the thumbWheel. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
448 |
Q: is it worth the effort - or should we simply use some bitmap ?" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
449 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
450 |
|halfHeight y0 y1 halfWidth x0 x1 thumbColor| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
451 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
452 |
halfHeight := height // 2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
453 |
halfWidth := width // 2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
454 |
y0 := 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
455 |
y1 := height - 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
456 |
x0 := 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
457 |
x1 := width - 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
458 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
459 |
self paint:viewBackground. "/ View defaultViewBackgroundColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
460 |
self fillRectangleX:x y:y width:w height:h. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
461 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
462 |
thumbColor := View defaultViewBackgroundColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
463 |
thumbColor ~= viewBackground ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
464 |
self paint:thumbColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
465 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
466 |
self fillRectangleX:3 y:y0 width:width-6 height:height-8. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
467 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
468 |
self fillRectangleX:x0 y:3 width:width-8 height:height-6. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
469 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
470 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
471 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
472 |
((thumbPosition truncateTo:tallyAngle)) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
473 |
to:((thumbPosition + angleRange truncateTo:tallyAngle)+tallyAngle) by:tallyAngle do:[:a | |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
474 |
|yT pA xT d| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
475 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
476 |
pA := a - thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
477 |
d := (pA degreesToRadians cos). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
478 |
yT := halfHeight + (d * (halfHeight - 4)) - 1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
479 |
xT := halfWidth + (d * (halfWidth - 4)) - 1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
480 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
481 |
xT := xT min:x1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
482 |
yT := yT min:y1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
483 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
484 |
(pA > (angleRange * 7 // 8)) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
485 |
self paint:shadowColor |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
486 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
487 |
self paint:Color black. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
488 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
489 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
490 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
491 |
self displayLineFromX:3 y:yT toX:width-4 y:yT. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
492 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
493 |
self displayLineFromX:xT y:3 toX:xT y:height-4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
494 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
495 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
496 |
(pA between:(angleRange * 4 // 8) and:(angleRange * 7 // 8)) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
497 |
self paint:Color white. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
498 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
499 |
self displayLineFromX:3 y:yT-1 toX:width-5 y:yT-1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
500 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
501 |
self displayLineFromX:xT-1 y:3 toX:xT-1 y:height-5. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
502 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
503 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
504 |
(pA between:(angleRange * 4 // 8) and:(angleRange * 6 // 8)) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
505 |
self paint:Color white. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
506 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
507 |
self displayLineFromX:3 y:yT-2 toX:width-5 y:yT-2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
508 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
509 |
self displayLineFromX:xT-2 y:3 toX:xT-2 y:height-5. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
510 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
511 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
512 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
513 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
514 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
515 |
self paint:Color white. "/lightColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
516 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
517 |
self displayLineFromX:2 y:y0 toX:2 y:y1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
518 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
519 |
self displayLineFromX:x0 y:2 toX:x1 y:2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
520 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
521 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
522 |
self paint:shadowColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
523 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
524 |
self displayLineFromX:width-4 y:y0 toX:width-4 y:y1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
525 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
526 |
self displayLineFromX:x0 y:height-4 toX:x1 y:height-4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
527 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
528 |
self displayLineFromX:width-4 y:y0-1 toX:width-4 y:y1+1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
529 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
530 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
531 |
self displayLineFromX:width-4 y:y0 toX:width-4 y:y1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
532 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
533 |
self displayLineFromX:x0 y:height-4 toX:x1 y:height-4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
534 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
535 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
536 |
"Created: / 27.9.1996 / 16:04:49 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
537 |
"Modified: / 6.6.1998 / 23:30:38 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
538 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
539 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
540 |
!ThumbWheel methodsFor:'events'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
541 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
542 |
buttonMotion:state x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
543 |
|deltaY deltaX d oldPos newPos| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
544 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
545 |
(state == 0 or:[press isNil]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
546 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
547 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
548 |
deltaY := y - press y. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
549 |
deltaX := x - press x. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
550 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
551 |
"/scale acc. to angleRange |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
552 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
553 |
d := deltaY / height * angleRange. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
554 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
555 |
d := deltaX / width * angleRange |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
556 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
557 |
rangeStep notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
558 |
d := d * (rangeStep * 3) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
559 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
560 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
561 |
oldPos := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
562 |
newPos := pressPos + d. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
563 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
564 |
"/ newPos > rangeEnd ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
565 |
"/ newPos := rangeEnd |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
566 |
"/ ]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
567 |
"/ newPos < rangeStart ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
568 |
"/ newPos := rangeStart |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
569 |
"/ ]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
570 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
571 |
newPos ~= oldPos ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
572 |
self thumbPosition:newPos. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
573 |
self repairDamage. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
574 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
575 |
synchronousOperation ifTrue: [ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
576 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
577 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
578 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
579 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
580 |
"Created: / 27.9.1996 / 17:38:57 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
581 |
"Modified: / 16.6.1998 / 10:24:40 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
582 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
583 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
584 |
buttonPress:button x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
585 |
press := x@y. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
586 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
587 |
"/ fetch the current value; to avoid a jump. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
588 |
model notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
589 |
thumbPosition := (model value ? 0). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
590 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
591 |
pressPos := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
592 |
startMoveAction notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
593 |
startMoveAction value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
594 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
595 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
596 |
"Created: / 27.9.1996 / 17:37:57 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
597 |
"Modified: / 18.8.1998 / 16:32:21 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
598 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
599 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
600 |
buttonRelease:button x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
601 |
synchronousOperation ifFalse: [ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
602 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
603 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
604 |
endMoveAction notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
605 |
endMoveAction value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
606 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
607 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
608 |
"Created: / 27.9.1996 / 18:13:35 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
609 |
"Modified: / 18.8.1998 / 16:32:30 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
610 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
611 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
612 |
keyPress:key x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
613 |
<resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown #+ #-)> |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
614 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
615 |
|step| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
616 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
617 |
step := self verticalScrollStep. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
618 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
619 |
(key == #CursorRight |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
620 |
or:[key == #CursorDown |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
621 |
or:[key == $+]]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
622 |
self scrollStep:step. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
623 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
624 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
625 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
626 |
(key == #CursorLeft |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
627 |
or:[key == #CursorUp |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
628 |
or:[key == $-]]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
629 |
self scrollStep:step negated. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
630 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
631 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
632 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
633 |
super keyPress:key x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
634 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
635 |
"Modified: / 21.4.1998 / 20:49:32 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
636 |
"Created: / 21.4.1998 / 20:55:29 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
637 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
638 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
639 |
sizeChanged:how |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
640 |
super sizeChanged:how. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
641 |
shown ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
642 |
self invalidate |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
643 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
644 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
645 |
"Created: / 18.4.1998 / 02:36:04 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
646 |
"Modified: / 18.4.1998 / 14:10:16 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
647 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
648 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
649 |
update:something with:aParameter from:changedObject |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
650 |
"handle update from a model (if any)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
651 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
652 |
(changedObject == model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
653 |
"and:[something == aspectMsg]") ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
654 |
self thumbPosition:(model value ? 0). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
655 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
656 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
657 |
super update:something with:aParameter from:changedObject |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
658 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
659 |
"Modified: / 16.6.1998 / 10:25:42 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
660 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
661 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
662 |
!ThumbWheel methodsFor:'forced scroll'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
663 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
664 |
scrollDown:amountToScroll |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
665 |
"compatibility with SimpleView. This allows mouse wheel actions on Scrollers |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
666 |
Note: this is used for horizontal scrollers, too (scrollRight)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
667 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
668 |
self scrollStep:amountToScroll |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
669 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
670 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
671 |
scrollStep:delta |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
672 |
"step by some delta" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
673 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
674 |
|oldOrg newOrg| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
675 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
676 |
oldOrg := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
677 |
newOrg := ((oldOrg + delta) max:rangeStart) min:rangeEnd. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
678 |
oldOrg ~= newOrg ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
679 |
self thumbOrigin:newOrg. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
680 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
681 |
] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
682 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
683 |
"Created: / 21.4.1998 / 20:56:15 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
684 |
"Modified: / 21.4.1998 / 20:59:25 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
685 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
686 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
687 |
scrollUp:amountToScroll |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
688 |
"compatibility with SimpleView. This allows mouse wheel actions on Scrollers |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
689 |
Note: this is used for horizontal scrollers, too (scrollLeft)" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
690 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
691 |
self scrollStep:amountToScroll negated |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
692 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
693 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
694 |
!ThumbWheel methodsFor:'initialization'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
695 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
696 |
initialize |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
697 |
"initialize - setup instvars from defaults" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
698 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
699 |
super initialize. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
700 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
701 |
orientation isNil ifTrue:[orientation := #vertical]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
702 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
703 |
entered := false. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
704 |
synchronousOperation := true. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
705 |
endlessRotation := false. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
706 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
707 |
thumbPosition := 0. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
708 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
709 |
rangeStart := 0. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
710 |
rangeEnd := 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
711 |
rangeStep := nil. "/ meaning: arbitrary precision |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
712 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
713 |
angleRange := 150. "/ 180 degrees are visible |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
714 |
tallyAngle := 10. "/ tally every 10 degrees |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
715 |
unitsPerRotation := 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
716 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
717 |
"Modified: / 5.2.1998 / 22:20:39 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
718 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
719 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
720 |
!ThumbWheel methodsFor:'private'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
721 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
722 |
tellOthers |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
723 |
"notify others of a change" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
724 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
725 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
726 |
the ST/X way of notifying scrolls |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
727 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
728 |
scrollAction notNil ifTrue:[ |
5148 | 729 |
scrollAction value:thumbPosition |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
730 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
731 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
732 |
the ST-80 way of notifying scrolls |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
733 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
734 |
self sendChangeMessageWith:thumbPosition. |
5148 | 735 |
dependents notNil ifTrue:[ self changed:#scrollerPosition ]. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
736 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
737 |
"Created: 27.9.1996 / 18:14:02 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
738 |
"Modified: 28.5.1997 / 16:04:16 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
739 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
740 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
741 |
!ThumbWheel methodsFor:'queries'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
742 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
743 |
preferredExtent |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
744 |
"return a useful default extent" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
745 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
746 |
|ppmm| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
747 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
748 |
preferredExtent isNil ifTrue:[ |
4993 | 749 |
ppmm := device pixelPerMillimeter. |
750 |
orientation == #vertical ifTrue:[ |
|
751 |
preferredExtent := (ppmm * (5 @ 30)) rounded |
|
752 |
] ifFalse:[ |
|
753 |
preferredExtent := (ppmm * (30 @ 5)) rounded |
|
754 |
]. |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
755 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
756 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
757 |
^ preferredExtent |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
758 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
759 |
"Modified: 28.5.1997 / 16:03:55 / cg" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
760 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
761 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
762 |
verticalScrollStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
763 |
"mouse wheel: scroll step |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
764 |
Note: this is used for horizontal scrollers, too" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
765 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
766 |
^ keyboardStep ? (rangeEnd - rangeStart / 10) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
767 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
768 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
769 |
!ThumbWheel class methodsFor:'documentation'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
770 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
771 |
version |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
772 |
^ '$Header$' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
773 |
! ! |
4993 | 774 |