author | Michael Beyl <mb@exept.de> |
Tue, 08 Apr 2003 16:13:25 +0200 | |
changeset 2477 | 994d88ef4334 |
parent 2474 | 173a07117f56 |
child 2499 | a2b676b9292c |
permissions | -rw-r--r-- |
1301
93a3ec8c339c
OOPS - stefan what happened to your checkin (garbage)
Claus Gittinger <cg@exept.de>
parents:
1294
diff
changeset
|
1 |
" |
332 | 2 |
COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
||
13 |
||
14 |
||
1884
bf33562ea53b
use rootWindowId (save a message send)
Claus Gittinger <cg@exept.de>
parents:
1696
diff
changeset
|
15 |
"{ Package: 'stx:libwidg2' }" |
bf33562ea53b
use rootWindowId (save a message send)
Claus Gittinger <cg@exept.de>
parents:
1696
diff
changeset
|
16 |
|
129 | 17 |
View subclass:#ComboView |
1306
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
18 |
instanceVariableNames:'field pullDownButton list listHolder listMsg action' |
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
19 |
classVariableNames:'DefaultButtonForm' |
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
20 |
poolDictionaries:'' |
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
21 |
category:'Views-Interactors' |
129 | 22 |
! |
23 |
||
263
865b7d99d3f5
added an example for a menu-pull-hook
Claus Gittinger <cg@exept.de>
parents:
247
diff
changeset
|
24 |
!ComboView class methodsFor:'documentation'! |
129 | 25 |
|
332 | 26 |
copyright |
27 |
" |
|
28 |
COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger |
|
29 |
All Rights Reserved |
|
30 |
||
31 |
This software is furnished under a license and may be used |
|
32 |
only in accordance with the terms of that license and with the |
|
33 |
inclusion of the above copyright notice. This software may not |
|
34 |
be provided or otherwise made available to, or used by, any |
|
35 |
other person. No title to or ownership of the software is |
|
36 |
hereby transferred. |
|
37 |
" |
|
38 |
||
39 |
||
40 |
! |
|
41 |
||
129 | 42 |
documentation |
43 |
" |
|
44 |
A ComboView combines some field (typically an enterField or Label) |
|
45 |
with a drop down list of default inputs; |
|
46 |
ComboView is abstract, providing protocol common to ComboBoxView and |
|
47 |
ComboListView. See documentation & examples there. |
|
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
48 |
|
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
49 |
[author:] |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
50 |
Claus Gittinger |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
51 |
|
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
52 |
[see also:] |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
53 |
PopUpList |
1281 | 54 |
ComboListView ComboBoxView ExtendedComboBox |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
55 |
PullDownMenu Label EntryField |
129 | 56 |
" |
57 |
! |
|
58 |
||
59 |
examples |
|
60 |
" |
|
308 | 61 |
see examples in ComboListView and ComboBoxView |
129 | 62 |
" |
63 |
! ! |
|
64 |
||
263
865b7d99d3f5
added an example for a menu-pull-hook
Claus Gittinger <cg@exept.de>
parents:
247
diff
changeset
|
65 |
!ComboView class methodsFor:'defaults'! |
129 | 66 |
|
67 |
buttonForm |
|
282 | 68 |
"return the pull-buttons image" |
69 |
||
1344
100e4d309847
support for disabled-image in pull-button
Claus Gittinger <cg@exept.de>
parents:
1334
diff
changeset
|
70 |
<resource: #style (#'comboView.downForm' |
100e4d309847
support for disabled-image in pull-button
Claus Gittinger <cg@exept.de>
parents:
1334
diff
changeset
|
71 |
#'comboView.downFormFile')> |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
72 |
|
276
8f90ed6c37bc
allow either fileName or form to be given by styleSheet
Claus Gittinger <cg@exept.de>
parents:
274
diff
changeset
|
73 |
|fileName form| |
129 | 74 |
|
525 | 75 |
DefaultButtonForm notNil ifTrue:[ |
76 |
^ DefaultButtonForm |
|
77 |
]. |
|
78 |
||
1334 | 79 |
form := StyleSheet at:#'comboView.downForm'. |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
80 |
form isNil ifTrue:[ |
1334 | 81 |
fileName := StyleSheet at:#'comboView.downFormFile' "default:'ComboDn.14.xbm'". |
1622
ea4d9baf568f
try bitmaps in package directory
Claus Gittinger <cg@exept.de>
parents:
1560
diff
changeset
|
82 |
fileName notNil ifTrue:[ |
1633 | 83 |
form := Smalltalk imageFromFileNamed:fileName forClass:self. |
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
84 |
form isNil ifTrue:[ |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
85 |
form := Smalltalk imageFromFileNamed:fileName inPackage:'stx:libwidg'. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
86 |
] |
1622
ea4d9baf568f
try bitmaps in package directory
Claus Gittinger <cg@exept.de>
parents:
1560
diff
changeset
|
87 |
]. |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
88 |
]. |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
89 |
form isNil ifTrue:[ |
605 | 90 |
form := Form width:12 height:12 |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
91 |
fromArray:#[2r00000000 2r00000000 |
605 | 92 |
"/ 2r00001111 2r00000000 |
93 |
"/ 2r00001111 2r00000000 |
|
94 |
2r00001111 2r00000000 |
|
95 |
2r00001111 2r00000000 |
|
96 |
2r00001111 2r00000000 |
|
97 |
2r01111111 2r11100000 |
|
98 |
2r00111111 2r11000000 |
|
99 |
2r00011111 2r10000000 |
|
100 |
2r00001111 2r00000000 |
|
101 |
2r00000110 2r00000000 |
|
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
102 |
2r00000000 2r00000000 |
605 | 103 |
2r01111111 2r11100000 |
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
104 |
2r00000000 2r00000000] |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
105 |
on:Display. |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
106 |
]. |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
107 |
form notNil ifTrue:[ |
525 | 108 |
form := DefaultButtonForm := form onDevice:Display. |
109 |
^ form |
|
274
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
110 |
]. |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
111 |
^ nil |
92b51554b1d7
allow form to be specified by styleSheet
Claus Gittinger <cg@exept.de>
parents:
269
diff
changeset
|
112 |
|
1344
100e4d309847
support for disabled-image in pull-button
Claus Gittinger <cg@exept.de>
parents:
1334
diff
changeset
|
113 |
"Modified: / 28.4.1999 / 12:49:42 / cg" |
304 | 114 |
! |
115 |
||
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
116 |
comboButtonFor:anInstance |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
117 |
<resource: #style (#'comboView.disabledDownForm' |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
118 |
#'comboView.disabledDownFormFile' |
2176 | 119 |
#'comboView.activeDownFormFile' |
120 |
#'comboView.button.activeForegroundColor' |
|
121 |
#'comboView.button.activeBackgroundColor' |
|
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
122 |
#'comboView.button.activeLevel' |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
123 |
#'comboView.button.passiveLevel' )> |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
124 |
|
2176 | 125 |
|pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr| |
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
126 |
|
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
127 |
pullDownButton := ComboBoxButton in:anInstance. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
128 |
pullDownButton controller beTriggerOnDown. |
2176 | 129 |
pullDownButton logo:(logo := self buttonForm). |
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
130 |
|
2176 | 131 |
disabledLogo := StyleSheet at:#'comboView.disabledDownForm'. |
132 |
disabledLogo isNil ifTrue:[ |
|
133 |
fn := StyleSheet at:#'comboView.disabledDownFormFile'. |
|
134 |
fn notNil ifTrue:[ |
|
135 |
disabledLogo := Smalltalk imageFromFileNamed:fn forClass:self. |
|
136 |
disabledLogo isNil ifTrue:[ |
|
137 |
disabledLogo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'. |
|
138 |
] |
|
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
139 |
] |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
140 |
]. |
2176 | 141 |
disabledLogo notNil ifTrue:[ |
142 |
pullDownButton passiveLogo:logo. |
|
143 |
pullDownButton activeLogo:logo. |
|
144 |
pullDownButton disabledLogo:disabledLogo. |
|
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
145 |
]. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
146 |
pullDownButton showLamp:false. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
147 |
|
2176 | 148 |
activeLogo := StyleSheet at:#'comboView.activeDownForm'. |
149 |
activeLogo isNil ifTrue:[ |
|
150 |
fn := StyleSheet at:#'comboView.activeDownFormFile'. |
|
151 |
fn notNil ifTrue:[ |
|
152 |
activeLogo := Smalltalk imageFromFileNamed:fn forClass:self. |
|
153 |
activeLogo isNil ifTrue:[ |
|
154 |
activeLogo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'. |
|
155 |
] |
|
156 |
] |
|
157 |
]. |
|
158 |
activeLogo notNil ifTrue:[ |
|
159 |
pullDownButton activeLogo:activeLogo. |
|
160 |
pullDownButton passiveLogo:logo. |
|
161 |
pullDownButton logo:logo. |
|
162 |
]. |
|
163 |
||
164 |
enteredLogo := StyleSheet at:#'comboView.enteredDownForm'. |
|
165 |
enteredLogo isNil ifTrue:[ |
|
166 |
fn := StyleSheet at:#'comboView.enteredDownFormFile'. |
|
167 |
fn notNil ifTrue:[ |
|
168 |
enteredLogo := Smalltalk imageFromFileNamed:fn forClass:self. |
|
169 |
enteredLogo isNil ifTrue:[ |
|
170 |
enteredLogo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'. |
|
171 |
] |
|
172 |
] |
|
173 |
]. |
|
174 |
enteredLogo notNil ifTrue:[ |
|
175 |
pullDownButton enteredLogo:enteredLogo. |
|
176 |
]. |
|
177 |
||
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
178 |
(lvl := StyleSheet at:#'comboView.button.activeLevel') notNil ifTrue:[ |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
179 |
pullDownButton activeLevel:lvl |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
180 |
]. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
181 |
(lvl := StyleSheet at:#'comboView.button.passiveLevel') notNil ifTrue:[ |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
182 |
pullDownButton passiveLevel:lvl |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
183 |
]. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
184 |
|
2176 | 185 |
(clr := StyleSheet colorAt:#'comboView.button.activeForegroundColor') notNil ifTrue:[ |
186 |
pullDownButton activeForegroundColor:clr |
|
187 |
]. |
|
188 |
(clr := StyleSheet colorAt:#'comboView.button.activeBackgroundColor') notNil ifTrue:[ |
|
189 |
pullDownButton activeBackgroundColor:clr |
|
190 |
]. |
|
191 |
||
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
192 |
pullDownButton activeLevel == pullDownButton passiveLevel ifTrue:[ |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
193 |
pullDownButton activeLevel:0. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
194 |
]. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
195 |
^ pullDownButton. |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
196 |
! |
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
197 |
|
415 | 198 |
defaultFont |
199 |
"/ for now - should come from the styleSheet |
|
200 |
||
201 |
^ SelectionInListView defaultFont. |
|
202 |
||
203 |
"Created: 4.6.1997 / 15:44:17 / cg" |
|
204 |
! |
|
205 |
||
304 | 206 |
defaultListMessage |
207 |
^ #list |
|
208 |
||
209 |
"Created: 26.2.1997 / 19:34:50 / cg" |
|
605 | 210 |
! |
211 |
||
212 |
updateStyleCache |
|
213 |
DefaultButtonForm := nil |
|
214 |
||
215 |
"Created: / 3.11.1997 / 15:28:48 / cg" |
|
304 | 216 |
! ! |
217 |
||
218 |
!ComboView methodsFor:'accessing-behavior'! |
|
219 |
||
220 |
action:aBlock |
|
221 |
"specify, a block, which is evaluated when the lists selection changes. |
|
222 |
This is an additional hook - normally, you would communicate with the model |
|
223 |
alone" |
|
224 |
||
225 |
action := aBlock. |
|
226 |
||
227 |
"Created: 26.7.1996 / 17:44:18 / cg" |
|
228 |
"Modified: 26.2.1997 / 19:37:18 / cg" |
|
411 | 229 |
! |
230 |
||
231 |
enabled |
|
232 |
"return true, if is enabled |
|
233 |
" |
|
1207 | 234 |
enableChannel isNil ifTrue:[^ true]. |
1294 | 235 |
^ enableChannel value |
236 |
! |
|
237 |
||
238 |
enabled:aBoolean |
|
239 |
"enable/disable components" |
|
240 |
||
241 |
self enableChannel value:aBoolean. |
|
242 |
||
243 |
"Modified: / 30.3.1999 / 14:56:18 / stefan" |
|
411 | 244 |
! ! |
245 |
||
246 |
!ComboView methodsFor:'accessing-channels'! |
|
247 |
||
248 |
enableChannel |
|
249 |
"return a valueHolder for enable/disable |
|
250 |
" |
|
1207 | 251 |
enableChannel isNil ifTrue:[ |
1294 | 252 |
self enableChannel:(true asValue). |
411 | 253 |
]. |
1207 | 254 |
^ enableChannel |
411 | 255 |
|
1294 | 256 |
"Modified: / 30.3.1999 / 16:20:25 / stefan" |
129 | 257 |
! ! |
258 |
||
259 |
!ComboView methodsFor:'accessing-components'! |
|
260 |
||
1560 | 261 |
field |
262 |
"return the field (input or label) component. |
|
263 |
For knowledgable users only." |
|
264 |
||
265 |
^ field |
|
266 |
||
267 |
"Created: / 26.9.1999 / 13:33:15 / cg" |
|
268 |
! |
|
269 |
||
129 | 270 |
menuButton |
271 |
"return the menuButton component" |
|
272 |
||
273 |
^ pullDownButton |
|
274 |
||
275 |
"Created: 28.2.1996 / 15:03:14 / cg" |
|
276 |
! ! |
|
277 |
||
278 |
!ComboView methodsFor:'accessing-contents'! |
|
279 |
||
181 | 280 |
contents |
304 | 281 |
"get the contents of my field" |
282 |
||
181 | 283 |
^ field model value |
284 |
||
285 |
"Created: 14.5.1996 / 13:05:16 / cg" |
|
304 | 286 |
"Modified: 26.2.1997 / 16:55:43 / cg" |
181 | 287 |
! |
288 |
||
289 |
contents:something |
|
304 | 290 |
"set the contents of my field; questionable" |
291 |
||
214 | 292 |
|m| |
293 |
||
294 |
(m := field model) notNil ifTrue:[ |
|
304 | 295 |
m value:something |
214 | 296 |
] |
181 | 297 |
|
298 |
"Created: 14.5.1996 / 13:05:33 / cg" |
|
304 | 299 |
"Modified: 26.2.1997 / 16:56:08 / cg" |
181 | 300 |
! |
301 |
||
889
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
302 |
list |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
303 |
"return the list" |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
304 |
|
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
305 |
^ list |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
306 |
|
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
307 |
"Created: / 18.5.1998 / 18:58:08 / cg" |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
308 |
! |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
309 |
|
129 | 310 |
list:aList |
304 | 311 |
"set the list explicitely; used internally or |
312 |
to be send from the outside if no model/listHolder is used." |
|
313 |
||
129 | 314 |
list := aList. |
2477 | 315 |
(list isNil or:[list isSequenceable]) ifFalse:[ |
2474 | 316 |
self error:'Need an ordered collection' mayProceed:true. |
317 |
]. |
|
1306
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
318 |
self enableStateChanged. |
1294 | 319 |
|
320 |
"Modified: / 30.3.1999 / 14:17:38 / stefan" |
|
129 | 321 |
! ! |
322 |
||
853 | 323 |
!ComboView methodsFor:'accessing-look'! |
324 |
||
325 |
backgroundColor |
|
326 |
||
327 |
^field backgroundColor |
|
328 |
! |
|
329 |
||
330 |
backgroundColor:aColor |
|
331 |
||
332 |
field backgroundColor:aColor |
|
333 |
! |
|
334 |
||
335 |
font:aFont |
|
336 |
||
337 |
super font:aFont. |
|
1183
667132091c2f
ComboBox's inputField ought to use its default font.
Claus Gittinger <cg@exept.de>
parents:
1126
diff
changeset
|
338 |
self setFieldsFont:aFont. |
853 | 339 |
! |
340 |
||
341 |
foregroundColor |
|
342 |
||
343 |
^field foregroundColor |
|
344 |
! |
|
345 |
||
346 |
foregroundColor:aColor |
|
347 |
||
348 |
field foregroundColor:aColor |
|
349 |
! ! |
|
350 |
||
214 | 351 |
!ComboView methodsFor:'accessing-mvc'! |
352 |
||
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
353 |
listHolder:aValueHolder |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
354 |
"set the listHolder. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
355 |
If not set, the list is supposed to be set explicitely" |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
356 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
357 |
listHolder notNil ifTrue:[ |
304 | 358 |
listHolder removeDependent:self. |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
359 |
]. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
360 |
listHolder := aValueHolder. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
361 |
listHolder notNil ifTrue:[ |
304 | 362 |
aValueHolder addDependent:self. |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
363 |
]. |
304 | 364 |
realized ifTrue:[ |
365 |
self getListFromModel. |
|
366 |
] |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
367 |
|
304 | 368 |
"Modified: 26.2.1997 / 19:32:09 / cg" |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
369 |
! |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
370 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
371 |
listMessage:aSymbol |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
372 |
"define the message selector sent to the model, to fetch |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
373 |
the list. If not defined, #list is used" |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
374 |
|
304 | 375 |
listMsg := aSymbol |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
376 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
377 |
"Created: 14.2.1997 / 19:16:52 / cg" |
304 | 378 |
"Modified: 26.2.1997 / 19:33:09 / cg" |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
379 |
! |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
380 |
|
214 | 381 |
model:aModel |
304 | 382 |
"set the model, which is supposed to provide the boxes value. |
383 |
If a listMessage was defined, it is also responsible for providing |
|
384 |
the list" |
|
385 |
||
214 | 386 |
super model:aModel. |
387 |
||
314
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
388 |
self getListFromModel. |
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
389 |
self getValueFromModel. |
304 | 390 |
|
314
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
391 |
"Modified: 28.2.1997 / 19:08:45 / cg" |
310 | 392 |
! ! |
393 |
||
394 |
!ComboView methodsFor:'change & update'! |
|
214 | 395 |
|
396 |
update:something with:aParameter from:changedObject |
|
1207 | 397 |
|
214 | 398 |
changedObject == model ifTrue:[ |
310 | 399 |
listHolder isNil ifTrue:[ |
400 |
self getListFromModel. |
|
401 |
]. |
|
402 |
self getValueFromModel. |
|
403 |
^ self |
|
214 | 404 |
]. |
310 | 405 |
changedObject == listHolder ifTrue:[ |
406 |
self getListFromModel. |
|
407 |
^ self |
|
408 |
]. |
|
409 |
||
214 | 410 |
super update:something with:aParameter from:changedObject |
411 |
||
1294 | 412 |
"Created: / 15.7.1996 / 12:26:49 / cg" |
413 |
"Modified: / 28.2.1997 / 13:48:51 / cg" |
|
414 |
"Modified: / 30.3.1999 / 14:17:55 / stefan" |
|
214 | 415 |
! ! |
416 |
||
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
417 |
!ComboView methodsFor:'event handling'! |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
418 |
|
1306
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
419 |
enableStateChanged |
1294 | 420 |
"the enable state has changed - pass this to my field and pullDownButton" |
421 |
||
422 |
|msg| |
|
423 |
||
424 |
(enableChannel isNil or:[enableChannel value]) ifTrue:[ |
|
425 |
msg := #enable |
|
426 |
] ifFalse:[ |
|
427 |
msg := #disable |
|
428 |
]. |
|
429 |
field perform:msg ifNotUnderstood:nil. |
|
430 |
||
431 |
(list size == 0) ifTrue:[ |
|
432 |
msg := #disable |
|
433 |
]. |
|
434 |
pullDownButton perform:msg ifNotUnderstood:nil. |
|
435 |
||
436 |
"Modified: / 22.2.1999 / 00:47:46 / cg" |
|
437 |
"Modified: / 30.3.1999 / 14:17:10 / stefan" |
|
438 |
! |
|
439 |
||
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
440 |
keyPress:key x:x y:y |
2025 | 441 |
<resource: #keyboard (#Return)> |
442 |
||
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
443 |
(key == Character space |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
444 |
or:[key == #Return]) ifTrue:[ |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
445 |
self pullMenu. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
446 |
^ self. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
447 |
]. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
448 |
|
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
449 |
^ super keyPress:key x:x y:y |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
450 |
|
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
451 |
"Modified: / 21.4.1998 / 20:10:05 / cg" |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
452 |
! ! |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
453 |
|
1325 | 454 |
!ComboView methodsFor:'initialize / release'! |
129 | 455 |
|
456 |
initialize |
|
1696
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
457 |
|prefExt leftInset rightInset prefWidth halfSpacing l nm| |
129 | 458 |
|
459 |
super initialize. |
|
308 | 460 |
|
304 | 461 |
listMsg := self class defaultListMessage. |
462 |
aspectMsg := self class defaultAspectMessage. |
|
463 |
changeMsg := self class defaultChangeMessage. |
|
129 | 464 |
|
465 |
self initializeField. |
|
431 | 466 |
field origin:0@0 corner:1.0@1.0. |
2136 | 467 |
self shadowColor:(field shadowColor). |
129 | 468 |
|
331 | 469 |
self initializeButton. |
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
470 |
pullDownButton pressAction:[self pullMenu]. |
280 | 471 |
prefExt := pullDownButton preferredExtent. |
472 |
prefWidth := prefExt x. |
|
473 |
||
129 | 474 |
pullDownButton origin:1.0@0.0 corner:1.0@1.0. |
217 | 475 |
styleSheet is3D ifTrue:[ |
280 | 476 |
halfSpacing := ViewSpacing // 2. |
477 |
leftInset := rightInset := prefWidth + halfSpacing. |
|
1334 | 478 |
(l := styleSheet at:#'comboView.level' default:nil) notNil ifTrue:[ |
331 | 479 |
self level:l. |
319 | 480 |
field level:0. |
481 |
field rightInset:margin. |
|
482 |
] ifFalse:[ |
|
483 |
pullDownButton rightInset:halfSpacing. |
|
484 |
field leftInset:halfSpacing |
|
485 |
]. |
|
217 | 486 |
] ifFalse:[ |
280 | 487 |
leftInset := prefWidth + pullDownButton borderWidth. |
488 |
rightInset := prefWidth. |
|
217 | 489 |
]. |
1125 | 490 |
|
1696
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
491 |
nm := styleSheet name. |
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
492 |
(nm = #win95 |
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
493 |
or:[nm = #win98 |
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
494 |
or:[nm = #st80]]) ifTrue:[ |
1125 | 495 |
field level:0. |
496 |
self level:-1. |
|
497 |
pullDownButton rightInset:0. |
|
1696
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
498 |
nm ~= #st80 ifTrue:[ |
1125 | 499 |
leftInset := (ArrowButton new preferredExtent x). |
1126 | 500 |
rightInset := leftInset. |
1125 | 501 |
]. |
502 |
field origin:0.0@0.0. |
|
503 |
field leftInset:0 |
|
504 |
"/ field topInset:1; bottomInset:1. |
|
505 |
]. |
|
1126 | 506 |
field rightInset:rightInset. |
280 | 507 |
pullDownButton leftInset:leftInset negated. |
129 | 508 |
|
247 | 509 |
self initialHeight:field preferredExtent y + ViewSpacing. |
129 | 510 |
|
511 |
" |
|
512 |
|b| |
|
513 |
||
514 |
b := ComboBoxView new. |
|
515 |
b list:#('hello' 'world' 'this' 'is' 'st/x'). |
|
516 |
b open |
|
517 |
" |
|
518 |
||
1125 | 519 |
"Created: / 28.2.1996 / 15:03:17 / cg" |
520 |
"Modified: / 8.9.1998 / 20:33:22 / cg" |
|
331 | 521 |
! |
522 |
||
523 |
initializeButton |
|
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
524 |
pullDownButton := self class comboButtonFor:self. |
331 | 525 |
pullDownButton disable. |
526 |
! |
|
527 |
||
528 |
initializeField |
|
529 |
self subclassResponsibility |
|
530 |
||
531 |
"Created: 29.3.1997 / 11:17:14 / cg" |
|
2157 | 532 |
! |
533 |
||
534 |
release |
|
535 |
listHolder notNil ifTrue:[ |
|
536 |
listHolder removeDependent:self. |
|
537 |
listHolder := nil. |
|
538 |
]. |
|
539 |
super release |
|
129 | 540 |
! ! |
541 |
||
2406 | 542 |
!ComboView methodsFor:'menu interaction'! |
543 |
||
544 |
createPullDownMenuForList:aList |
|
545 |
"pull the menu - triggered from the button" |
|
546 |
||
547 |
|menu index| |
|
548 |
||
549 |
menu := MenuPanel labels:aList. |
|
550 |
||
551 |
index := 1. |
|
552 |
||
553 |
menu do:[:el | |
|
554 |
el value:#select: argument:index. |
|
555 |
index := index + 1. |
|
556 |
]. |
|
557 |
menu receiver:self. |
|
558 |
menu font:font. |
|
559 |
menu preferredWidth:(self width). |
|
560 |
||
561 |
^ menu |
|
562 |
! |
|
563 |
||
564 |
pullMenu |
|
565 |
"pull the menu - triggered from the button" |
|
566 |
||
567 |
|menu origin| |
|
568 |
||
569 |
self getListFromModel. |
|
570 |
||
571 |
list notEmptyOrNil ifTrue:[ |
|
572 |
menu := self createPullDownMenuForList:list. |
|
573 |
origin := device translatePoint:(0 @ self height) fromView:self toView:nil. |
|
574 |
menu showAt:origin. |
|
575 |
]. |
|
576 |
||
577 |
pullDownButton turnOff. |
|
578 |
||
579 |
"Created: / 10.10.2001 / 14:47:25 / cg" |
|
580 |
"Modified: / 10.10.2001 / 15:04:44 / cg" |
|
581 |
! |
|
582 |
||
583 |
select:anIndex |
|
584 |
"sent from the popped menu, when an item was selected" |
|
585 |
||
586 |
self subclassResponsibility |
|
587 |
||
588 |
"Modified: 27.2.1997 / 15:19:07 / cg" |
|
589 |
! ! |
|
590 |
||
129 | 591 |
!ComboView methodsFor:'message delegation'! |
592 |
||
593 |
doesNotUnderstand:aMessage |
|
594 |
(field respondsTo:aMessage selector) ifTrue:[ |
|
1207 | 595 |
^ aMessage sendTo:field |
129 | 596 |
]. |
597 |
^ super doesNotUnderstand:aMessage |
|
598 |
||
599 |
"Created: 28.2.1996 / 15:03:17 / cg" |
|
600 |
"Modified: 28.2.1996 / 15:06:09 / cg" |
|
166 | 601 |
! |
602 |
||
2300 | 603 |
flash |
604 |
field flash |
|
605 |
! |
|
606 |
||
166 | 607 |
respondsTo:aSymbol |
608 |
^ (field respondsTo:aSymbol) or:[super respondsTo:aSymbol] |
|
609 |
||
610 |
"Created: 2.5.1996 / 16:57:34 / stefan" |
|
129 | 611 |
! ! |
612 |
||
214 | 613 |
!ComboView methodsFor:'private'! |
614 |
||
615 |
getListFromModel |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
616 |
"fetch the list - either from the listHolder, or |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
617 |
from the model. If no listMessage was defined, fetch it |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
618 |
using #list." |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
619 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
620 |
listHolder notNil ifTrue:[ |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
621 |
self list:listHolder value |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
622 |
] ifFalse:[ |
304 | 623 |
(model notNil and:[listMsg notNil]) ifTrue:[ |
624 |
(model respondsTo:listMsg) ifTrue:[ |
|
625 |
self list:(model perform:listMsg) |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
626 |
] |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
627 |
] |
214 | 628 |
]. |
629 |
||
630 |
"Created: 15.7.1996 / 12:22:56 / cg" |
|
304 | 631 |
"Modified: 26.2.1997 / 19:40:58 / cg" |
214 | 632 |
! |
633 |
||
634 |
getValueFromModel |
|
635 |
||
636 |
"Modified: 15.7.1996 / 12:28:59 / cg" |
|
1183
667132091c2f
ComboBox's inputField ought to use its default font.
Claus Gittinger <cg@exept.de>
parents:
1126
diff
changeset
|
637 |
! |
667132091c2f
ComboBox's inputField ought to use its default font.
Claus Gittinger <cg@exept.de>
parents:
1126
diff
changeset
|
638 |
|
1210
55f2c4209f94
oops - only pull-button is disabled with empty list;
Claus Gittinger <cg@exept.de>
parents:
1207
diff
changeset
|
639 |
setFieldsFont:aFont |
55f2c4209f94
oops - only pull-button is disabled with empty list;
Claus Gittinger <cg@exept.de>
parents:
1207
diff
changeset
|
640 |
field font:aFont. |
214 | 641 |
! ! |
642 |
||
129 | 643 |
!ComboView methodsFor:'queries'! |
644 |
||
645 |
preferredExtent |
|
285 | 646 |
"compute & return the boxes preferredExtent from the components' preferrences" |
647 |
||
683 | 648 |
|fieldPref buttonPref m menuPrefX menuPrefY w h| |
129 | 649 |
|
312 | 650 |
"/ If I have an explicit preferredExtent .. |
651 |
||
652 |
preferredExtent notNil ifTrue:[ |
|
653 |
^ preferredExtent |
|
654 |
]. |
|
655 |
||
129 | 656 |
list isNil ifTrue:[ |
308 | 657 |
self getListFromModel |
658 |
]. |
|
659 |
||
660 |
list isNil ifTrue:[ |
|
683 | 661 |
menuPrefX := menuPrefY := 0 |
129 | 662 |
] ifFalse:[ |
1544 | 663 |
m := (MenuView onDevice:device ? Screen current) labels:list. |
302
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
664 |
menuPrefX := m preferredExtent x. |
1348 | 665 |
|
666 |
"/ the menuView returns rubbish ... |
|
667 |
"/ menuPrefY := (m preferredExtentForLines:1 cols:10) y |
|
668 |
||
669 |
"/ any non-strings ? |
|
670 |
menuPrefY := list |
|
671 |
inject:('X' heightOn:self) |
|
672 |
into:[:max :el | el isString ifTrue:[ |
|
673 |
max |
|
674 |
] ifFalse:[ |
|
675 |
max max:(el heightOn:self) |
|
676 |
] |
|
677 |
]. |
|
129 | 678 |
]. |
679 |
||
302
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
680 |
fieldPref := field preferredExtent. |
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
681 |
buttonPref := pullDownButton preferredExtent. |
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
682 |
|
319 | 683 |
w := ((fieldPref x max:menuPrefX) max:50) + buttonPref x. |
684 |
w := w + margin + margin. |
|
683 | 685 |
h := (fieldPref y max:buttonPref y) max:menuPrefY. |
319 | 686 |
h := h + margin + margin. |
687 |
^ w @ h |
|
129 | 688 |
|
1348 | 689 |
"Created: / 28.2.1996 / 15:03:17 / cg" |
690 |
"Modified: / 29.4.1999 / 11:27:54 / cg" |
|
129 | 691 |
! ! |
692 |
||
263
865b7d99d3f5
added an example for a menu-pull-hook
Claus Gittinger <cg@exept.de>
parents:
247
diff
changeset
|
693 |
!ComboView class methodsFor:'documentation'! |
129 | 694 |
|
695 |
version |
|
2477 | 696 |
^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.74 2003-04-08 14:13:25 mb Exp $' |
129 | 697 |
! ! |