author | Claus Gittinger <cg@exept.de> |
Sat, 02 May 2020 19:50:29 +0200 | |
changeset 6244 | 2050c2ab251c |
parent 5957 | d678ea33dda7 |
permissions | -rw-r--r-- |
5773 | 1 |
"{ Encoding: utf8 }" |
2 |
||
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
3 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
4 |
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
|
5 |
All Rights Reserved |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
6 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
7 |
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
|
8 |
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
|
9 |
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
|
10 |
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
|
11 |
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
|
12 |
hereby transferred. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
13 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
14 |
"{ Package: 'stx:libwidg2' }" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
15 |
|
4993 | 16 |
"{ NameSpace: Smalltalk }" |
17 |
||
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
18 |
View subclass:#ThumbWheel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
19 |
instanceVariableNames:'orientation synchronousOperation thumbPosition thumbColor |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
20 |
thumbShadowColor thumbLightColor thumbEnteredColor tallyLevel |
5773 | 21 |
tallyAngle rangeStart rangeEnd rangeStep angleRange entered press |
22 |
pressPos scrollAction endlessRotation startMoveAction |
|
23 |
endMoveAction keyboardStep' |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
24 |
classVariableNames:'DefaultViewBackground DefaultThumbColor DefaultThumbShadowColor |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
25 |
DefaultThumbLightColor DefaultTallyMarks DefaultTallyLevel |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
26 |
DefaultLevel DefaultBorderWidth' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
27 |
poolDictionaries:'' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
28 |
category:'Views-Interactors' |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
29 |
! |
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 |
!ThumbWheel class methodsFor:'documentation'! |
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 |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
34 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
35 |
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
|
36 |
All Rights Reserved |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
37 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
38 |
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
|
39 |
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
|
40 |
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
|
41 |
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
|
42 |
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
|
43 |
hereby transferred. |
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 |
! |
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 |
documentation |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
51 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
52 |
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
|
53 |
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
|
54 |
things like rotation, translation and magnification. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
55 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
56 |
[author:] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
57 |
Claus Gittinger |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
58 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
59 |
[see also:] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
60 |
Slider ScrollBar StepSlider |
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 |
! |
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 |
examples |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
65 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
66 |
basic setup: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
67 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
68 |
|top wheel| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
69 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
70 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
71 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
72 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
73 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
74 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
75 |
wheel level:1. |
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 |
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
|
78 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
79 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
80 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
81 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
82 |
two of them: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
83 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
84 |
|top wheel1 wheel2| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
85 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
86 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
87 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
88 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
89 |
wheel1 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
90 |
wheel1 orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
91 |
wheel1 level:1. |
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 |
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
|
94 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
95 |
wheel2 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
96 |
wheel2 orientation:#horizontal. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
97 |
wheel2 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
98 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
99 |
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
|
100 |
wheel2 topInset:(wheel2 preferredExtent y negated). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
101 |
wheel2 bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
102 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
103 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
104 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
105 |
performing an action: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
106 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
107 |
|top wheel| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
108 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
109 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
110 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
111 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
112 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
113 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
114 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
115 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
116 |
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
|
117 |
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
|
118 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
119 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
120 |
operating on a model: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
121 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
122 |
|top wheel model| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
123 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
124 |
model := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
125 |
model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
126 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
127 |
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
|
128 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
129 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
130 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
131 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
132 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
133 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
134 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
135 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
136 |
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
|
137 |
wheel model:model. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
138 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
139 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
140 |
endless rotation: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
141 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
142 |
|top wheel model| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
143 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
144 |
model := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
145 |
model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
146 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
147 |
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
|
148 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
149 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
150 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
151 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
152 |
wheel := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
153 |
wheel orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
154 |
wheel level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
155 |
wheel endlessRotation:true. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
156 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
157 |
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
|
158 |
wheel model:model. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
159 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
160 |
[exEnd] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
161 |
concrete example: |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
162 |
[exBegin] |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
163 |
|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
|
164 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
165 |
magX := magY := 1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
166 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
167 |
hHolder := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
168 |
hHolder |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
169 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
170 |
to:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
171 |
magX := hHolder value * 2 / 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
172 |
magX = 0 ifTrue:[magX := 0.01]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
173 |
Transcript show:'magX now '; showCR:magX. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
174 |
imageView clear. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
175 |
imageView magnification:magX@magY]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
176 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
177 |
vHolder := ValueHolder new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
178 |
vHolder |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
179 |
onChangeSend:#value |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
180 |
to:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
181 |
magY := vHolder value * 2 / 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
182 |
magY = 0 ifTrue:[magY := 0.01]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
183 |
Transcript show:'magY now '; showCR:magY. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
184 |
imageView clear. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
185 |
imageView magnification:magX@magY]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
186 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
187 |
top := StandardSystemView new. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
188 |
top extent:200@200. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
189 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
190 |
wheel1 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
191 |
wheel1 orientation:#vertical. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
192 |
wheel1 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
193 |
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
|
194 |
wheel1 model:vHolder. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
195 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
196 |
wheel2 := ThumbWheel in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
197 |
wheel2 orientation:#horizontal. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
198 |
wheel2 level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
199 |
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
|
200 |
wheel2 topInset:(wheel2 preferredExtent y negated). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
201 |
wheel2 bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
202 |
wheel2 model:hHolder. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
203 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
204 |
imageView := ImageEditView in:top. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
205 |
imageView level:1. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
206 |
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
|
207 |
imageView leftInset:(wheel1 preferredExtent x). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
208 |
imageView bottomInset:(wheel2 preferredExtent y). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
209 |
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
|
210 |
top open. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
211 |
[exEnd] |
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 |
! ! |
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 |
!ThumbWheel methodsFor:'accessing'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
217 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
218 |
keyboardStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
219 |
"return the scrollers keyboard step. If non-nil, |
5259 | 220 |
that's the stepping value used with cursorUp/cursorDown keys. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
221 |
(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
|
222 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
223 |
^ keyboardStep |
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
226 |
keyboardStep:aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
227 |
"set the scrollers keyboard step. If non-nil, |
5259 | 228 |
that's the stepping value used with cursorUp/cursorDown keys. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
229 |
(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
|
230 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
231 |
keyboardStep := aNumber |
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 |
5774 | 235 |
"return the wheel's range minimum." |
4914
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 |
|
5774 | 239 |
"Created: / 01-04-1997 / 12:30:04 / cg" |
240 |
"Modified (comment): / 27-05-2018 / 13:14:17 / Claus Gittinger" |
|
4914
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 |
5774 | 244 |
"set the wheel's range minimum." |
4914
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 |
|
5774 | 248 |
"Created: / 01-04-1997 / 12:30:54 / cg" |
249 |
"Modified (comment): / 27-05-2018 / 13:14:13 / Claus Gittinger" |
|
4914
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 |
5774 | 253 |
"set the wheel's range." |
4914
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 |
|
5774 | 258 |
"Modified: / 01-04-1997 / 12:52:36 / cg" |
259 |
"Created: / 23-01-1998 / 15:06:04 / cg" |
|
260 |
"Modified (comment): / 27-05-2018 / 13:14:08 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
263 |
step |
5774 | 264 |
"return the wheel's range step." |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
265 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
266 |
^ rangeStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
267 |
|
5774 | 268 |
"Created: / 01-04-1997 / 12:30:15 / cg" |
269 |
"Modified (comment): / 27-05-2018 / 13:13:04 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
272 |
step:aNumber |
5774 | 273 |
"set the wheel's range step." |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
274 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
275 |
rangeStep := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
276 |
|
5774 | 277 |
"Created: / 01-04-1997 / 12:30:32 / cg" |
278 |
"Modified (comment): / 27-05-2018 / 13:13:00 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
281 |
stop |
5774 | 282 |
"return the wheel's range end." |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
283 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
284 |
^ rangeEnd |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
285 |
|
5774 | 286 |
"Created: / 01-04-1997 / 12:30:09 / cg" |
287 |
"Modified (comment): / 27-05-2018 / 13:12:57 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
290 |
stop:aNumber |
5774 | 291 |
"set the wheel's range end." |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
292 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
293 |
rangeEnd := aNumber |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
294 |
|
5774 | 295 |
"Created: / 01-04-1997 / 12:30:47 / cg" |
296 |
"Modified (comment): / 27-05-2018 / 13:12:53 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
299 |
thumbOrigin:pos |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
300 |
"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
|
301 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
302 |
self thumbPosition:pos |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
303 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
304 |
"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
|
305 |
"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
|
306 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
307 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
308 |
thumbPosition |
5774 | 309 |
"return the position" |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
310 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
311 |
^ thumbPosition |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
312 |
|
5774 | 313 |
"Created: / 21-04-1998 / 20:58:15 / cg" |
314 |
"Modified (comment): / 27-05-2018 / 13:13:56 / Claus Gittinger" |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
315 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
316 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
317 |
thumbPosition:pos |
5774 | 318 |
"set the wheel's position; |
319 |
the argument should be in the start..stop interval." |
|
4914
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 |
|newPos delta| |
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 |
delta := (rangeEnd-rangeStart). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
324 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
325 |
newPos := pos. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
326 |
endlessRotation ifTrue:[ |
5774 | 327 |
[newPos < rangeStart] whileTrue:[ |
328 |
newPos := newPos + delta |
|
329 |
]. |
|
330 |
[newPos > rangeEnd] whileTrue:[ |
|
331 |
newPos := newPos - delta |
|
332 |
]. |
|
4914
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 |
newPos := (newPos max:rangeStart) min:rangeEnd. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
335 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
336 |
rangeStep notNil ifTrue:[ |
5774 | 337 |
newPos := newPos roundTo:rangeStep. |
338 |
rangeStep isInteger ifTrue:[ |
|
339 |
newPos := newPos asInteger |
|
340 |
] |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
341 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
342 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
343 |
newPos ~= thumbPosition ifTrue:[ |
5774 | 344 |
thumbPosition := newPos. |
345 |
shown ifTrue:[ |
|
346 |
self invalidate. |
|
347 |
] |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
348 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
349 |
|
5774 | 350 |
"Created: / 27-09-1996 / 18:10:57 / cg" |
351 |
"Modified: / 06-06-1998 / 23:29:28 / cg" |
|
352 |
"Modified (comment): / 27-05-2018 / 13:13:51 / Claus Gittinger" |
|
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
355 |
!ThumbWheel methodsFor:'accessing-behavior'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
356 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
357 |
endMoveAction |
5774 | 358 |
"return the endMoveAction, a block which is evaluated when the wheel |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
359 |
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
|
360 |
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
|
361 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
362 |
^ endMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
363 |
|
5774 | 364 |
"Created: / 18-08-1998 / 16:29:40 / cg" |
365 |
"Modified (comment): / 27-05-2018 / 13:12:31 / Claus Gittinger" |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
366 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
367 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
368 |
endMoveAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
369 |
"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
|
370 |
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
|
371 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
372 |
endMoveAction := aBlock. |
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 |
"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
|
375 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
376 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
377 |
endlessRotation:aBoolean |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
378 |
"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
|
379 |
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
|
380 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
381 |
endlessRotation := aBoolean |
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 |
"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
|
384 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
385 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
386 |
scrollAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
387 |
"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
|
388 |
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
|
389 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
390 |
^ scrollAction |
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 |
"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
|
393 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
394 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
395 |
scrollAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
396 |
"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
|
397 |
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
|
398 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
399 |
scrollAction := aBlock. |
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 |
"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
|
402 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
403 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
404 |
startMoveAction |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
405 |
"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
|
406 |
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
|
407 |
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
|
408 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
409 |
^ startMoveAction |
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 |
"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
|
412 |
"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
|
413 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
414 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
415 |
startMoveAction:aBlock |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
416 |
"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
|
417 |
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
|
418 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
419 |
startMoveAction := aBlock. |
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 |
"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
|
422 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
423 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
424 |
!ThumbWheel methodsFor:'accessing-look'! |
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 |
"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
|
428 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
429 |
^ orientation |
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 |
"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
|
432 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
433 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
434 |
orientation:aSymbol |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
435 |
"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
|
436 |
#horizontal or #vertical" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
437 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
438 |
orientation := aSymbol. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
439 |
shown ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
440 |
self invalidate |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
441 |
] |
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 |
"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
|
444 |
"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
|
445 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
446 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
447 |
!ThumbWheel methodsFor:'drawing'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
448 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
449 |
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
|
450 |
"redraw the thumbWheel. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
451 |
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
|
452 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
453 |
|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
|
454 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
455 |
halfHeight := height // 2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
456 |
halfWidth := width // 2. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
457 |
y0 := 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
458 |
y1 := height - 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
459 |
x0 := 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
460 |
x1 := width - 4. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
461 |
|
5429 | 462 |
gc paint:viewBackground. "/ View defaultViewBackgroundColor. |
463 |
gc fillRectangleX:x y:y width:w height:h. |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
464 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
465 |
thumbColor := View defaultViewBackgroundColor. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
466 |
thumbColor ~= viewBackground ifTrue:[ |
5429 | 467 |
gc paint:thumbColor. |
5167 | 468 |
orientation == #vertical ifTrue:[ |
5429 | 469 |
gc fillRectangleX:3 y:y0 width:width-6 height:height-8. |
5167 | 470 |
] ifFalse:[ |
5429 | 471 |
gc fillRectangleX:x0 y:3 width:width-8 height:height-6. |
5167 | 472 |
] |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
473 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
474 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
475 |
((thumbPosition truncateTo:tallyAngle)) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
476 |
to:((thumbPosition + angleRange truncateTo:tallyAngle)+tallyAngle) by:tallyAngle do:[:a | |
5167 | 477 |
|yT pA xT d| |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
478 |
|
5167 | 479 |
pA := a - thumbPosition. |
480 |
d := (pA degreesToRadians cos). |
|
481 |
yT := halfHeight + (d * (halfHeight - 4)) - 1. |
|
482 |
xT := halfWidth + (d * (halfWidth - 4)) - 1. |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
483 |
|
5167 | 484 |
xT := xT min:x1. |
485 |
yT := yT min:y1. |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
486 |
|
5167 | 487 |
(pA > (angleRange * 7 // 8)) ifTrue:[ |
5429 | 488 |
gc paint:shadowColor |
5167 | 489 |
] ifFalse:[ |
5429 | 490 |
gc paint:self blackColor. |
5167 | 491 |
]. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
492 |
|
5167 | 493 |
orientation == #vertical ifTrue:[ |
5429 | 494 |
gc displayLineFromX:3 y:yT toX:width-4 y:yT. |
5167 | 495 |
] ifFalse:[ |
5429 | 496 |
gc displayLineFromX:xT y:3 toX:xT y:height-4. |
5167 | 497 |
]. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
498 |
|
5167 | 499 |
(pA between:(angleRange * 4 // 8) and:(angleRange * 7 // 8)) ifTrue:[ |
5429 | 500 |
gc paint:self whiteColor. |
5167 | 501 |
orientation == #vertical ifTrue:[ |
5429 | 502 |
gc displayLineFromX:3 y:yT-1 toX:width-5 y:yT-1. |
5167 | 503 |
] ifFalse:[ |
5429 | 504 |
gc displayLineFromX:xT-1 y:3 toX:xT-1 y:height-5. |
5167 | 505 |
]. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
506 |
|
5167 | 507 |
(pA between:(angleRange * 4 // 8) and:(angleRange * 6 // 8)) ifTrue:[ |
5429 | 508 |
gc paint:self whiteColor. |
5167 | 509 |
orientation == #vertical ifTrue:[ |
5429 | 510 |
gc displayLineFromX:3 y:yT-2 toX:width-5 y:yT-2. |
5167 | 511 |
] ifFalse:[ |
5429 | 512 |
gc displayLineFromX:xT-2 y:3 toX:xT-2 y:height-5. |
5167 | 513 |
] |
514 |
] |
|
515 |
] |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
516 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
517 |
|
5429 | 518 |
gc paint:self whiteColor. "/lightColor. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
519 |
orientation == #vertical ifTrue:[ |
5429 | 520 |
gc displayLineFromX:2 y:y0 toX:2 y:y1. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
521 |
] ifFalse:[ |
5429 | 522 |
gc displayLineFromX:x0 y:2 toX:x1 y:2. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
523 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
524 |
|
5429 | 525 |
gc paint:shadowColor. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
526 |
orientation == #vertical ifTrue:[ |
5429 | 527 |
gc displayLineFromX:width-4 y:y0 toX:width-4 y:y1. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
528 |
] ifFalse:[ |
5429 | 529 |
gc displayLineFromX:x0 y:height-4 toX:x1 y:height-4. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
530 |
]. |
5429 | 531 |
gc displayLineFromX:width-4 y:y0-1 toX:width-4 y:y1+1. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
532 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
533 |
orientation == #vertical ifTrue:[ |
5429 | 534 |
gc displayLineFromX:width-4 y:y0 toX:width-4 y:y1. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
535 |
] ifFalse:[ |
5429 | 536 |
gc displayLineFromX:x0 y:height-4 toX:x1 y:height-4. |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
537 |
]. |
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 |
"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
|
540 |
"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
|
541 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
542 |
|
5773 | 543 |
!ThumbWheel methodsFor:'event handling'! |
4914
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 |
buttonMotion:state x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
546 |
|deltaY deltaX d oldPos newPos| |
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 |
(state == 0 or:[press isNil]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
549 |
^ self |
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 |
deltaY := y - press y. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
552 |
deltaX := x - press x. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
553 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
554 |
"/scale acc. to angleRange |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
555 |
orientation == #vertical ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
556 |
d := deltaY / height * angleRange. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
557 |
] ifFalse:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
558 |
d := deltaX / width * angleRange |
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 |
rangeStep notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
561 |
d := d * (rangeStep * 3) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
562 |
]. |
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 |
oldPos := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
565 |
newPos := pressPos + d. |
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 > rangeEnd ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
568 |
"/ newPos := rangeEnd |
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 |
"/ newPos < rangeStart ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
571 |
"/ newPos := rangeStart |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
572 |
"/ ]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
573 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
574 |
newPos ~= oldPos ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
575 |
self thumbPosition:newPos. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
576 |
self repairDamage. |
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 |
synchronousOperation ifTrue: [ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
579 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
580 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
581 |
]. |
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 |
"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
|
584 |
"Modified: / 16.6.1998 / 10:24:40 / cg" |
5773 | 585 |
! ! |
586 |
||
587 |
!ThumbWheel methodsFor:'events'! |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
588 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
589 |
buttonPress:button x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
590 |
press := x@y. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
591 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
592 |
"/ 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
|
593 |
model notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
594 |
thumbPosition := (model value ? 0). |
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 |
pressPos := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
597 |
startMoveAction notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
598 |
startMoveAction value |
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
601 |
"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
|
602 |
"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
|
603 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
604 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
605 |
buttonRelease:button x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
606 |
synchronousOperation ifFalse: [ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
607 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
608 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
609 |
endMoveAction notNil ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
610 |
endMoveAction value |
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
613 |
"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
|
614 |
"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
|
615 |
! |
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 |
keyPress:key x:x y:y |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
618 |
<resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown #+ #-)> |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
619 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
620 |
|step| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
621 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
622 |
step := self verticalScrollStep. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
623 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
624 |
(key == #CursorRight |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
625 |
or:[key == #CursorDown |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
626 |
or:[key == $+]]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
627 |
self scrollStep:step. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
628 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
629 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
630 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
631 |
(key == #CursorLeft |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
632 |
or:[key == #CursorUp |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
633 |
or:[key == $-]]) ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
634 |
self scrollStep:step negated. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
635 |
^ self |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
636 |
]. |
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 |
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
|
639 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
640 |
"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
|
641 |
"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
|
642 |
! |
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 |
sizeChanged:how |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
645 |
super sizeChanged:how. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
646 |
shown ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
647 |
self invalidate |
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
650 |
"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
|
651 |
"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
|
652 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
653 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
654 |
update:something with:aParameter from:changedObject |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
655 |
"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
|
656 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
657 |
(changedObject == model |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
658 |
"and:[something == aspectMsg]") ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
659 |
self thumbPosition:(model value ? 0). |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
660 |
^ self |
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 |
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
|
663 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
664 |
"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
|
665 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
666 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
667 |
!ThumbWheel methodsFor:'forced scroll'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
668 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
669 |
scrollDown:amountToScroll |
5806 | 670 |
"compatibility with SimpleView. |
671 |
This allows mouse wheel actions on Scrollers & Wheels |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
672 |
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
|
673 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
674 |
self scrollStep:amountToScroll |
5806 | 675 |
|
676 |
"Modified (comment): / 13-06-2018 / 21:59:00 / Claus Gittinger" |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
677 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
678 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
679 |
scrollStep:delta |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
680 |
"step by some delta" |
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 |
|oldOrg newOrg| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
683 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
684 |
oldOrg := thumbPosition. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
685 |
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
|
686 |
oldOrg ~= newOrg ifTrue:[ |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
687 |
self thumbOrigin:newOrg. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
688 |
self tellOthers. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
689 |
] |
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 |
"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
|
692 |
"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
|
693 |
! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
694 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
695 |
scrollUp:amountToScroll |
5806 | 696 |
"compatibility with SimpleView. |
697 |
This allows mouse wheel actions on Scrollers & Wheels |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
698 |
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
|
699 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
700 |
self scrollStep:amountToScroll negated |
5806 | 701 |
|
702 |
"Modified (comment): / 13-06-2018 / 21:58:52 / Claus Gittinger" |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
703 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
704 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
705 |
!ThumbWheel methodsFor:'initialization'! |
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 |
initialize |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
708 |
"initialize - setup instvars from defaults" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
709 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
710 |
super initialize. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
711 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
712 |
orientation isNil ifTrue:[orientation := #vertical]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
713 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
714 |
entered := false. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
715 |
synchronousOperation := true. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
716 |
endlessRotation := false. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
717 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
718 |
thumbPosition := 0. |
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 |
rangeStart := 0. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
721 |
rangeEnd := 360. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
722 |
rangeStep := nil. "/ meaning: arbitrary precision |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
723 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
724 |
angleRange := 150. "/ 180 degrees are visible |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
725 |
tallyAngle := 10. "/ tally every 10 degrees |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
726 |
|
5773 | 727 |
"Modified: / 05-02-1998 / 22:20:39 / cg" |
728 |
"Modified: / 27-05-2018 / 12:31:00 / Claus Gittinger" |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
729 |
! ! |
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 |
!ThumbWheel methodsFor:'private'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
732 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
733 |
tellOthers |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
734 |
"notify others of a change" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
735 |
|
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 |
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
|
738 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
739 |
scrollAction notNil ifTrue:[ |
5148 | 740 |
scrollAction value:thumbPosition |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
741 |
]. |
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 |
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
|
744 |
" |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
745 |
self sendChangeMessageWith:thumbPosition. |
5148 | 746 |
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
|
747 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
748 |
"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
|
749 |
"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
|
750 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
751 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
752 |
!ThumbWheel methodsFor:'queries'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
753 |
|
5957 | 754 |
computePreferredExtent |
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
755 |
"return a useful default extent" |
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 |
|ppmm| |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
758 |
|
5957 | 759 |
ppmm := device pixelPerMillimeter. |
760 |
orientation == #vertical ifTrue:[ |
|
761 |
preferredExtent := (ppmm * (5 @ 30)) rounded |
|
762 |
] ifFalse:[ |
|
763 |
preferredExtent := (ppmm * (30 @ 5)) rounded |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
764 |
]. |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
765 |
^ preferredExtent |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
766 |
|
5957 | 767 |
"Created: / 09-11-2018 / 20:02:47 / Claus Gittinger" |
4914
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 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
770 |
verticalScrollStep |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
771 |
"mouse wheel: scroll step |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
772 |
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
|
773 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
774 |
^ keyboardStep ? (rangeEnd - rangeStart / 10) |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
775 |
! ! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
776 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
777 |
!ThumbWheel class methodsFor:'documentation'! |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
778 |
|
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
779 |
version |
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
780 |
^ '$Header$' |
5774 | 781 |
! |
782 |
||
783 |
version_CVS |
|
784 |
^ '$Header$' |
|
4914
4073c9f0d180
moved over from libwidg3 (some tools/dialogs use it)
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
785 |
! ! |
4993 | 786 |