equal
deleted
inserted
replaced
56 (index isNil and:[adornment isNil]) ifFalse:[ |
56 (index isNil and:[adornment isNil]) ifFalse:[ |
57 self adornment accessCharacterPosition:index |
57 self adornment accessCharacterPosition:index |
58 ] |
58 ] |
59 ! |
59 ! |
60 |
60 |
|
61 indication |
|
62 "not yet supported |
|
63 " |
|
64 ^ true |
|
65 ! |
|
66 |
|
67 indication:anIndication |
|
68 "not yet supported |
|
69 " |
|
70 ! |
|
71 |
61 label |
72 label |
62 ^ label |
73 ^ label |
63 |
74 |
64 "Created: 25.2.1997 / 19:48:16 / cg" |
75 "Created: 25.2.1997 / 19:48:16 / cg" |
65 ! |
76 ! |
165 |
176 |
166 2 to:aLiteralEncodedArray size by:2 do:[:i | |
177 2 to:aLiteralEncodedArray size by:2 do:[:i | |
167 |selector value| |
178 |selector value| |
168 |
179 |
169 selector := aLiteralEncodedArray at:i. |
180 selector := aLiteralEncodedArray at:i. |
170 value := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray. |
181 selector == #labelImage: ifFalse:[ |
171 |
182 value := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray. |
172 self perform:selector with:value |
183 |
|
184 self perform:selector with:value |
|
185 ] |
173 ]. |
186 ]. |
174 |
187 |
175 " |
188 " |
176 #( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left ) |
189 #( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left ) |
177 decodeAsLiteralArray |
190 decodeAsLiteralArray |
316 ! ! |
329 ! ! |
317 |
330 |
318 !MenuItem class methodsFor:'documentation'! |
331 !MenuItem class methodsFor:'documentation'! |
319 |
332 |
320 version |
333 version |
321 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.7 1997-05-21 10:38:15 ca Exp $' |
334 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.8 1997-05-22 11:39:07 ca Exp $' |
322 ! ! |
335 ! ! |