13 |
13 |
14 |
14 |
15 "{ Package: 'stx:libwidg2' }" |
15 "{ Package: 'stx:libwidg2' }" |
16 |
16 |
17 View subclass:#ComboView |
17 View subclass:#ComboView |
18 instanceVariableNames:'field pullDownButton list listHolder listMsg action' |
18 instanceVariableNames:'field pullDownButton list listHolder listMsg action resizableMenu' |
19 classVariableNames:'DefaultButtonForm' |
19 classVariableNames:'DefaultButtonForm' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Views-Interactors' |
21 category:'Views-Interactors' |
22 ! |
22 ! |
23 |
23 |
227 "Created: 26.7.1996 / 17:44:18 / cg" |
227 "Created: 26.7.1996 / 17:44:18 / cg" |
228 "Modified: 26.2.1997 / 19:37:18 / cg" |
228 "Modified: 26.2.1997 / 19:37:18 / cg" |
229 ! |
229 ! |
230 |
230 |
231 enabled |
231 enabled |
232 "return true, if is enabled |
232 "return true, if is enabled" |
233 " |
233 |
234 enableChannel isNil ifTrue:[^ true]. |
234 enableChannel isNil ifTrue:[^ true]. |
235 ^ enableChannel value |
235 ^ enableChannel value |
236 ! |
236 ! |
237 |
237 |
238 enabled:aBoolean |
238 enabled:aBoolean |
239 "enable/disable components" |
239 "enable/disable components" |
240 |
240 |
241 self enableChannel value:aBoolean. |
241 self enableChannel value:aBoolean. |
242 |
242 |
243 "Modified: / 30.3.1999 / 14:56:18 / stefan" |
243 "Modified: / 30.3.1999 / 14:56:18 / stefan" |
|
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 |
244 ! ! |
258 ! ! |
245 |
259 |
246 !ComboView methodsFor:'accessing-channels'! |
260 !ComboView methodsFor:'accessing-channels'! |
247 |
261 |
248 enableChannel |
262 enableChannel |
249 "return a valueHolder for enable/disable |
263 "return a valueHolder for enable/disable" |
250 " |
264 |
251 enableChannel isNil ifTrue:[ |
265 enableChannel isNil ifTrue:[ |
252 self enableChannel:(true asValue). |
266 self enableChannel:(true asValue). |
253 ]. |
267 ]. |
254 ^ enableChannel |
268 ^ enableChannel |
255 |
269 |