author | Claus Gittinger <cg@exept.de> |
Tue, 24 Jan 2006 18:21:18 +0100 | |
changeset 2892 | 42ba7f03313b |
parent 2868 | 0050e38370ed |
child 2950 | 431dafff127d |
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 |
2892 | 18 |
instanceVariableNames:'field pullDownButton list listHolder listMsg action resizableMenu' |
1306
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. |
2785
3c705bdd5792
Do not use obsolete message #logo:
Stefan Vogel <sv@exept.de>
parents:
2750
diff
changeset
|
129 |
pullDownButton label:(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. |
|
2785
3c705bdd5792
Do not use obsolete message #logo:
Stefan Vogel <sv@exept.de>
parents:
2750
diff
changeset
|
161 |
pullDownButton label:logo. |
2176 | 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 |
|
2892 | 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" |
|
2892 | 244 |
! |
245 |
||
246 |
resizableMenu |
|
247 |
"return true, if the menu is to be resizable. |
|
248 |
This feature is as yet unimplemented." |
|
249 |
||
250 |
^ resizableMenu ? false |
|
251 |
! |
|
252 |
||
253 |
resizableMenu:aBoolean |
|
254 |
"enable/disable, if the menu is to be resizable. |
|
255 |
This feature is as yet unimplemented." |
|
256 |
||
257 |
resizableMenu := aBoolean |
|
411 | 258 |
! ! |
259 |
||
260 |
!ComboView methodsFor:'accessing-channels'! |
|
261 |
||
262 |
enableChannel |
|
2892 | 263 |
"return a valueHolder for enable/disable" |
264 |
||
1207 | 265 |
enableChannel isNil ifTrue:[ |
1294 | 266 |
self enableChannel:(true asValue). |
411 | 267 |
]. |
1207 | 268 |
^ enableChannel |
411 | 269 |
|
1294 | 270 |
"Modified: / 30.3.1999 / 16:20:25 / stefan" |
129 | 271 |
! ! |
272 |
||
273 |
!ComboView methodsFor:'accessing-components'! |
|
274 |
||
1560 | 275 |
field |
276 |
"return the field (input or label) component. |
|
277 |
For knowledgable users only." |
|
278 |
||
279 |
^ field |
|
280 |
||
281 |
"Created: / 26.9.1999 / 13:33:15 / cg" |
|
282 |
! |
|
283 |
||
129 | 284 |
menuButton |
285 |
"return the menuButton component" |
|
286 |
||
287 |
^ pullDownButton |
|
288 |
||
289 |
"Created: 28.2.1996 / 15:03:14 / cg" |
|
290 |
! ! |
|
291 |
||
292 |
!ComboView methodsFor:'accessing-contents'! |
|
293 |
||
181 | 294 |
contents |
304 | 295 |
"get the contents of my field" |
296 |
||
181 | 297 |
^ field model value |
298 |
||
299 |
"Created: 14.5.1996 / 13:05:16 / cg" |
|
304 | 300 |
"Modified: 26.2.1997 / 16:55:43 / cg" |
181 | 301 |
! |
302 |
||
303 |
contents:something |
|
304 | 304 |
"set the contents of my field; questionable" |
305 |
||
214 | 306 |
|m| |
307 |
||
308 |
(m := field model) notNil ifTrue:[ |
|
304 | 309 |
m value:something |
214 | 310 |
] |
181 | 311 |
|
312 |
"Created: 14.5.1996 / 13:05:33 / cg" |
|
304 | 313 |
"Modified: 26.2.1997 / 16:56:08 / cg" |
181 | 314 |
! |
315 |
||
889
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
316 |
list |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
317 |
"return the list" |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
318 |
|
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
319 |
^ list |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
320 |
|
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
321 |
"Created: / 18.5.1998 / 18:58:08 / cg" |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
322 |
! |
7879fffb4810
oops #list returned wrong list
Claus Gittinger <cg@exept.de>
parents:
869
diff
changeset
|
323 |
|
129 | 324 |
list:aList |
304 | 325 |
"set the list explicitely; used internally or |
326 |
to be send from the outside if no model/listHolder is used." |
|
327 |
||
129 | 328 |
list := aList. |
2477 | 329 |
(list isNil or:[list isSequenceable]) ifFalse:[ |
2474 | 330 |
self error:'Need an ordered collection' mayProceed:true. |
331 |
]. |
|
1306
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
332 |
self enableStateChanged. |
1294 | 333 |
|
334 |
"Modified: / 30.3.1999 / 14:17:38 / stefan" |
|
129 | 335 |
! ! |
336 |
||
853 | 337 |
!ComboView methodsFor:'accessing-look'! |
338 |
||
339 |
backgroundColor |
|
340 |
||
341 |
^field backgroundColor |
|
342 |
! |
|
343 |
||
344 |
backgroundColor:aColor |
|
345 |
||
346 |
field backgroundColor:aColor |
|
347 |
! |
|
348 |
||
349 |
font:aFont |
|
350 |
||
351 |
super font:aFont. |
|
1183
667132091c2f
ComboBox's inputField ought to use its default font.
Claus Gittinger <cg@exept.de>
parents:
1126
diff
changeset
|
352 |
self setFieldsFont:aFont. |
853 | 353 |
! |
354 |
||
355 |
foregroundColor |
|
356 |
||
357 |
^field foregroundColor |
|
358 |
! |
|
359 |
||
360 |
foregroundColor:aColor |
|
361 |
||
362 |
field foregroundColor:aColor |
|
363 |
! ! |
|
364 |
||
214 | 365 |
!ComboView methodsFor:'accessing-mvc'! |
366 |
||
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
367 |
listHolder:aValueHolder |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
368 |
"set the listHolder. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
369 |
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
|
370 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
371 |
listHolder notNil ifTrue:[ |
304 | 372 |
listHolder removeDependent:self. |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
373 |
]. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
374 |
listHolder := aValueHolder. |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
375 |
listHolder notNil ifTrue:[ |
304 | 376 |
aValueHolder addDependent:self. |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
377 |
]. |
304 | 378 |
realized ifTrue:[ |
379 |
self getListFromModel. |
|
380 |
] |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
381 |
|
304 | 382 |
"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
|
383 |
! |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
384 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
385 |
listMessage:aSymbol |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
386 |
"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
|
387 |
the list. If not defined, #list is used" |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
388 |
|
304 | 389 |
listMsg := aSymbol |
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
390 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
391 |
"Created: 14.2.1997 / 19:16:52 / cg" |
304 | 392 |
"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
|
393 |
! |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
394 |
|
214 | 395 |
model:aModel |
304 | 396 |
"set the model, which is supposed to provide the boxes value. |
397 |
If a listMessage was defined, it is also responsible for providing |
|
398 |
the list" |
|
399 |
||
214 | 400 |
super model:aModel. |
401 |
||
314
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
402 |
self getListFromModel. |
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
403 |
self getValueFromModel. |
304 | 404 |
|
314
6ff49c930c71
fetch models value when a model is assigned;
Claus Gittinger <cg@exept.de>
parents:
312
diff
changeset
|
405 |
"Modified: 28.2.1997 / 19:08:45 / cg" |
310 | 406 |
! ! |
407 |
||
408 |
!ComboView methodsFor:'change & update'! |
|
214 | 409 |
|
410 |
update:something with:aParameter from:changedObject |
|
1207 | 411 |
|
214 | 412 |
changedObject == model ifTrue:[ |
310 | 413 |
listHolder isNil ifTrue:[ |
414 |
self getListFromModel. |
|
415 |
]. |
|
416 |
self getValueFromModel. |
|
417 |
^ self |
|
214 | 418 |
]. |
310 | 419 |
changedObject == listHolder ifTrue:[ |
420 |
self getListFromModel. |
|
421 |
^ self |
|
422 |
]. |
|
423 |
||
214 | 424 |
super update:something with:aParameter from:changedObject |
425 |
||
1294 | 426 |
"Created: / 15.7.1996 / 12:26:49 / cg" |
427 |
"Modified: / 28.2.1997 / 13:48:51 / cg" |
|
428 |
"Modified: / 30.3.1999 / 14:17:55 / stefan" |
|
214 | 429 |
! ! |
430 |
||
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
431 |
!ComboView methodsFor:'event handling'! |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
432 |
|
1306
56e90a9e5da1
renambe #enableStateChange to #enableStateChanged
Claus Gittinger <cg@exept.de>
parents:
1301
diff
changeset
|
433 |
enableStateChanged |
1294 | 434 |
"the enable state has changed - pass this to my field and pullDownButton" |
435 |
||
436 |
|msg| |
|
437 |
||
438 |
(enableChannel isNil or:[enableChannel value]) ifTrue:[ |
|
439 |
msg := #enable |
|
440 |
] ifFalse:[ |
|
441 |
msg := #disable |
|
442 |
]. |
|
443 |
field perform:msg ifNotUnderstood:nil. |
|
444 |
||
445 |
(list size == 0) ifTrue:[ |
|
446 |
msg := #disable |
|
447 |
]. |
|
448 |
pullDownButton perform:msg ifNotUnderstood:nil. |
|
449 |
||
450 |
"Modified: / 22.2.1999 / 00:47:46 / cg" |
|
451 |
"Modified: / 30.3.1999 / 14:17:10 / stefan" |
|
452 |
! |
|
453 |
||
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
454 |
keyPress:key x:x y:y |
2868 | 455 |
"pull the menu on space and return keys" |
456 |
||
2025 | 457 |
<resource: #keyboard (#Return)> |
458 |
||
2868 | 459 |
(key == Character space or:[key == #Return]) ifTrue:[ |
869
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
460 |
self pullMenu. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
461 |
^ self. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
462 |
]. |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
463 |
|
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
464 |
^ super keyPress:key x:x y:y |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
465 |
|
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
466 |
"Modified: / 21.4.1998 / 20:10:05 / cg" |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
467 |
! ! |
a1838cce9641
popup menu on space or return
Claus Gittinger <cg@exept.de>
parents:
853
diff
changeset
|
468 |
|
2499 | 469 |
!ComboView methodsFor:'initialization & release'! |
129 | 470 |
|
471 |
initialize |
|
2750 | 472 |
|prefExt leftInset rightInset prefWidth halfSpacing nm lvl| |
129 | 473 |
|
474 |
super initialize. |
|
308 | 475 |
|
304 | 476 |
listMsg := self class defaultListMessage. |
477 |
aspectMsg := self class defaultAspectMessage. |
|
478 |
changeMsg := self class defaultChangeMessage. |
|
129 | 479 |
|
480 |
self initializeField. |
|
431 | 481 |
field origin:0@0 corner:1.0@1.0. |
2136 | 482 |
self shadowColor:(field shadowColor). |
129 | 483 |
|
331 | 484 |
self initializeButton. |
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
485 |
pullDownButton pressAction:[self pullMenu]. |
280 | 486 |
prefExt := pullDownButton preferredExtent. |
487 |
prefWidth := prefExt x. |
|
488 |
||
129 | 489 |
pullDownButton origin:1.0@0.0 corner:1.0@1.0. |
217 | 490 |
styleSheet is3D ifTrue:[ |
280 | 491 |
halfSpacing := ViewSpacing // 2. |
492 |
leftInset := rightInset := prefWidth + halfSpacing. |
|
2750 | 493 |
(lvl := styleSheet at:#'comboView.level' default:nil) notNil ifTrue:[ |
494 |
self level:lvl. |
|
319 | 495 |
field level:0. |
496 |
field rightInset:margin. |
|
497 |
] ifFalse:[ |
|
498 |
pullDownButton rightInset:halfSpacing. |
|
499 |
field leftInset:halfSpacing |
|
500 |
]. |
|
217 | 501 |
] ifFalse:[ |
280 | 502 |
leftInset := prefWidth + pullDownButton borderWidth. |
503 |
rightInset := prefWidth. |
|
217 | 504 |
]. |
1125 | 505 |
|
1696
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
506 |
nm := styleSheet name. |
2750 | 507 |
(nm = #win95 or:[nm = #win98 or:[nm = #winXP or:[nm = #st80]]]) ifTrue:[ |
1125 | 508 |
field level:0. |
2750 | 509 |
lvl isNil ifTrue:[self level:-1]. |
1125 | 510 |
pullDownButton rightInset:0. |
1696
f1bae6d68ffe
eliminated styleSheet name = win95 queries
Claus Gittinger <cg@exept.de>
parents:
1633
diff
changeset
|
511 |
nm ~= #st80 ifTrue:[ |
1125 | 512 |
leftInset := (ArrowButton new preferredExtent x). |
1126 | 513 |
rightInset := leftInset. |
1125 | 514 |
]. |
515 |
field origin:0.0@0.0. |
|
2750 | 516 |
field leftInset:0. |
1125 | 517 |
"/ field topInset:1; bottomInset:1. |
2750 | 518 |
"/ nm = #winXP ifTrue:[ |
519 |
"/ self borderWidth:1. |
|
520 |
"/ self borderColor:(Color blue lightened). |
|
521 |
"/ ]. |
|
1125 | 522 |
]. |
1126 | 523 |
field rightInset:rightInset. |
280 | 524 |
pullDownButton leftInset:leftInset negated. |
129 | 525 |
|
247 | 526 |
self initialHeight:field preferredExtent y + ViewSpacing. |
129 | 527 |
|
528 |
" |
|
529 |
|b| |
|
530 |
||
531 |
b := ComboBoxView new. |
|
532 |
b list:#('hello' 'world' 'this' 'is' 'st/x'). |
|
533 |
b open |
|
534 |
" |
|
535 |
||
1125 | 536 |
"Created: / 28.2.1996 / 15:03:17 / cg" |
537 |
"Modified: / 8.9.1998 / 20:33:22 / cg" |
|
331 | 538 |
! |
539 |
||
540 |
initializeButton |
|
2174
ab242e29da64
button init code made publicly available
Claus Gittinger <cg@exept.de>
parents:
2157
diff
changeset
|
541 |
pullDownButton := self class comboButtonFor:self. |
331 | 542 |
pullDownButton disable. |
543 |
! |
|
544 |
||
545 |
initializeField |
|
546 |
self subclassResponsibility |
|
547 |
||
548 |
"Created: 29.3.1997 / 11:17:14 / cg" |
|
2157 | 549 |
! |
550 |
||
551 |
release |
|
552 |
listHolder notNil ifTrue:[ |
|
553 |
listHolder removeDependent:self. |
|
554 |
listHolder := nil. |
|
555 |
]. |
|
556 |
super release |
|
129 | 557 |
! ! |
558 |
||
2406 | 559 |
!ComboView methodsFor:'menu interaction'! |
560 |
||
561 |
createPullDownMenuForList:aList |
|
562 |
"pull the menu - triggered from the button" |
|
563 |
||
564 |
|menu index| |
|
565 |
||
566 |
menu := MenuPanel labels:aList. |
|
567 |
||
568 |
index := 1. |
|
569 |
||
570 |
menu do:[:el | |
|
571 |
el value:#select: argument:index. |
|
572 |
index := index + 1. |
|
573 |
]. |
|
574 |
menu receiver:self. |
|
575 |
menu font:font. |
|
576 |
menu preferredWidth:(self width). |
|
577 |
||
578 |
^ menu |
|
579 |
! |
|
580 |
||
581 |
pullMenu |
|
582 |
"pull the menu - triggered from the button" |
|
583 |
||
584 |
|menu origin| |
|
585 |
||
586 |
self getListFromModel. |
|
587 |
||
588 |
list notEmptyOrNil ifTrue:[ |
|
589 |
menu := self createPullDownMenuForList:list. |
|
590 |
origin := device translatePoint:(0 @ self height) fromView:self toView:nil. |
|
591 |
menu showAt:origin. |
|
592 |
]. |
|
593 |
||
594 |
pullDownButton turnOff. |
|
595 |
||
596 |
"Created: / 10.10.2001 / 14:47:25 / cg" |
|
597 |
"Modified: / 10.10.2001 / 15:04:44 / cg" |
|
598 |
! |
|
599 |
||
600 |
select:anIndex |
|
601 |
"sent from the popped menu, when an item was selected" |
|
602 |
||
603 |
self subclassResponsibility |
|
604 |
||
605 |
"Modified: 27.2.1997 / 15:19:07 / cg" |
|
606 |
! ! |
|
607 |
||
129 | 608 |
!ComboView methodsFor:'message delegation'! |
609 |
||
610 |
doesNotUnderstand:aMessage |
|
611 |
(field respondsTo:aMessage selector) ifTrue:[ |
|
1207 | 612 |
^ aMessage sendTo:field |
129 | 613 |
]. |
614 |
^ super doesNotUnderstand:aMessage |
|
615 |
||
616 |
"Created: 28.2.1996 / 15:03:17 / cg" |
|
617 |
"Modified: 28.2.1996 / 15:06:09 / cg" |
|
166 | 618 |
! |
619 |
||
2300 | 620 |
flash |
621 |
field flash |
|
622 |
! |
|
623 |
||
166 | 624 |
respondsTo:aSymbol |
625 |
^ (field respondsTo:aSymbol) or:[super respondsTo:aSymbol] |
|
626 |
||
627 |
"Created: 2.5.1996 / 16:57:34 / stefan" |
|
129 | 628 |
! ! |
629 |
||
214 | 630 |
!ComboView methodsFor:'private'! |
631 |
||
632 |
getListFromModel |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
633 |
"fetch the list - either from the listHolder, or |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
634 |
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
|
635 |
using #list." |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
636 |
|
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
637 |
listHolder notNil ifTrue:[ |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
638 |
self list:listHolder value |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
639 |
] ifFalse:[ |
304 | 640 |
(model notNil and:[listMsg notNil]) ifTrue:[ |
641 |
(model respondsTo:listMsg) ifTrue:[ |
|
642 |
self list:(model perform:listMsg) |
|
277
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
643 |
] |
44eadbccc2b7
added support for a separate listHolder
Claus Gittinger <cg@exept.de>
parents:
276
diff
changeset
|
644 |
] |
214 | 645 |
]. |
646 |
||
647 |
"Created: 15.7.1996 / 12:22:56 / cg" |
|
304 | 648 |
"Modified: 26.2.1997 / 19:40:58 / cg" |
214 | 649 |
! |
650 |
||
651 |
getValueFromModel |
|
652 |
||
653 |
"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
|
654 |
! |
667132091c2f
ComboBox's inputField ought to use its default font.
Claus Gittinger <cg@exept.de>
parents:
1126
diff
changeset
|
655 |
|
1210
55f2c4209f94
oops - only pull-button is disabled with empty list;
Claus Gittinger <cg@exept.de>
parents:
1207
diff
changeset
|
656 |
setFieldsFont:aFont |
55f2c4209f94
oops - only pull-button is disabled with empty list;
Claus Gittinger <cg@exept.de>
parents:
1207
diff
changeset
|
657 |
field font:aFont. |
214 | 658 |
! ! |
659 |
||
129 | 660 |
!ComboView methodsFor:'queries'! |
661 |
||
662 |
preferredExtent |
|
285 | 663 |
"compute & return the boxes preferredExtent from the components' preferrences" |
664 |
||
683 | 665 |
|fieldPref buttonPref m menuPrefX menuPrefY w h| |
129 | 666 |
|
312 | 667 |
"/ If I have an explicit preferredExtent .. |
668 |
||
669 |
preferredExtent notNil ifTrue:[ |
|
670 |
^ preferredExtent |
|
671 |
]. |
|
672 |
||
129 | 673 |
list isNil ifTrue:[ |
308 | 674 |
self getListFromModel |
675 |
]. |
|
676 |
||
677 |
list isNil ifTrue:[ |
|
683 | 678 |
menuPrefX := menuPrefY := 0 |
129 | 679 |
] ifFalse:[ |
1544 | 680 |
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
|
681 |
menuPrefX := m preferredExtent x. |
1348 | 682 |
|
683 |
"/ the menuView returns rubbish ... |
|
684 |
"/ menuPrefY := (m preferredExtentForLines:1 cols:10) y |
|
685 |
||
686 |
"/ any non-strings ? |
|
687 |
menuPrefY := list |
|
688 |
inject:('X' heightOn:self) |
|
689 |
into:[:max :el | el isString ifTrue:[ |
|
690 |
max |
|
691 |
] ifFalse:[ |
|
692 |
max max:(el heightOn:self) |
|
693 |
] |
|
694 |
]. |
|
129 | 695 |
]. |
696 |
||
302
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
697 |
fieldPref := field preferredExtent. |
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
698 |
buttonPref := pullDownButton preferredExtent. |
8af5f51ce7a5
preferredExtent is sum of menu + button
Claus Gittinger <cg@exept.de>
parents:
285
diff
changeset
|
699 |
|
319 | 700 |
w := ((fieldPref x max:menuPrefX) max:50) + buttonPref x. |
701 |
w := w + margin + margin. |
|
683 | 702 |
h := (fieldPref y max:buttonPref y) max:menuPrefY. |
319 | 703 |
h := h + margin + margin. |
704 |
^ w @ h |
|
129 | 705 |
|
1348 | 706 |
"Created: / 28.2.1996 / 15:03:17 / cg" |
707 |
"Modified: / 29.4.1999 / 11:27:54 / cg" |
|
129 | 708 |
! ! |
709 |
||
263
865b7d99d3f5
added an example for a menu-pull-hook
Claus Gittinger <cg@exept.de>
parents:
247
diff
changeset
|
710 |
!ComboView class methodsFor:'documentation'! |
129 | 711 |
|
712 |
version |
|
2892 | 713 |
^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.79 2006-01-24 17:21:18 cg Exp $' |
129 | 714 |
! ! |