equal
deleted
inserted
replaced
4 poolDictionaries:'' |
4 poolDictionaries:'' |
5 category:'Views-Support' |
5 category:'Views-Support' |
6 ! |
6 ! |
7 |
7 |
8 Object subclass:#MenuItemAdornment |
8 Object subclass:#MenuItemAdornment |
9 instanceVariableNames:'color indication submenu shortcutKey labelText labelImage |
9 instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText |
10 accessCharacterPosition' |
10 labelImage accessCharacterPosition' |
11 classVariableNames:'' |
11 classVariableNames:'' |
12 poolDictionaries:'' |
12 poolDictionaries:'' |
13 privateIn:MenuItem |
13 privateIn:MenuItem |
14 ! |
14 ! |
15 |
15 |
149 self adornment submenu:aMenu |
149 self adornment submenu:aMenu |
150 |
150 |
151 "Created: 25.2.1997 / 20:56:20 / cg" |
151 "Created: 25.2.1997 / 20:56:20 / cg" |
152 ! |
152 ! |
153 |
153 |
|
154 submenuChannel |
|
155 adornment notNil ifTrue:[ |
|
156 ^ adornment submenuChannel |
|
157 ]. |
|
158 ^ nil |
|
159 ! |
|
160 |
|
161 submenuChannel:something |
|
162 self adornment submenuChannel:something |
|
163 ! |
|
164 |
154 value |
165 value |
155 ^ value |
166 ^ value |
156 |
167 |
157 "Created: 25.2.1997 / 19:50:14 / cg" |
168 "Created: 25.2.1997 / 19:50:14 / cg" |
158 ! |
169 ! |
291 adornment labelImage notNil ifTrue:[ |
302 adornment labelImage notNil ifTrue:[ |
292 coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding) |
303 coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding) |
293 ]. |
304 ]. |
294 (something := self indication) notNil ifTrue:[ |
305 (something := self indication) notNil ifTrue:[ |
295 coll add:#indication: ; add:(something literalArrayEncoding) |
306 coll add:#indication: ; add:(something literalArrayEncoding) |
296 ] |
307 ]. |
297 ]. |
308 |
298 |
309 (something := self submenuChannel) notNil ifTrue:[ |
299 self hasSubmenu ifTrue:[ |
310 coll add:#submenuChannel: ; add:(something literalArrayEncoding) |
300 coll add:#submenu:; add:(self submenu literalArrayEncoding) |
311 ]. |
|
312 |
|
313 self hasSubmenu ifTrue:[ |
|
314 coll add:#submenu:; add:(self submenu literalArrayEncoding) |
|
315 ]. |
301 ]. |
316 ]. |
302 |
317 |
303 ^ coll asArray |
318 ^ coll asArray |
304 ! ! |
319 ! ! |
305 |
320 |
442 "set the submenu or nil |
457 "set the submenu or nil |
443 " |
458 " |
444 submenu := something. |
459 submenu := something. |
445 |
460 |
446 "Created: 25.2.1997 / 20:59:28 / cg" |
461 "Created: 25.2.1997 / 20:59:28 / cg" |
|
462 ! |
|
463 |
|
464 submenuChannel |
|
465 "get the submenuChannel or nil |
|
466 " |
|
467 ^ submenuChannel |
|
468 ! |
|
469 |
|
470 submenuChannel:something |
|
471 "set the submenuChannel or nil |
|
472 " |
|
473 submenuChannel := something. |
447 ! ! |
474 ! ! |
448 |
475 |
449 !MenuItem class methodsFor:'documentation'! |
476 !MenuItem class methodsFor:'documentation'! |
450 |
477 |
451 version |
478 version |
452 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.14 1997-07-05 14:53:36 ca Exp $' |
479 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.15 1997-07-17 10:07:02 ca Exp $' |
453 ! ! |
480 ! ! |