equal
deleted
inserted
replaced
329 ]. |
329 ]. |
330 ^ nil |
330 ^ nil |
331 |
331 |
332 "Created: / 13.9.1997 / 10:25:16 / cg" |
332 "Created: / 13.9.1997 / 10:25:16 / cg" |
333 "Modified: / 27.10.1997 / 15:23:33 / cg" |
333 "Modified: / 27.10.1997 / 15:23:33 / cg" |
|
334 ! |
|
335 |
|
336 menuItemWithArgument:aValue |
|
337 "return the menuItem for the given value; nil if no such item is in the menu. |
|
338 Searches all items (i.e. also submenu items)" |
|
339 |
|
340 self allItemsDo:[:anItem| |
|
341 |l| |
|
342 |
|
343 (anItem argument = aValue) ifTrue:[ |
|
344 ^ anItem |
|
345 ]. |
|
346 ]. |
|
347 ^ nil |
|
348 |
|
349 "Created: / 19-04-2011 / 14:42:18 / cg" |
334 ! |
350 ! |
335 |
351 |
336 menuItemWithValue:aValue |
352 menuItemWithValue:aValue |
337 "return the menuItem for the given value; nil if no such item is in the menu. |
353 "return the menuItem for the given value; nil if no such item is in the menu. |
338 Searches all items (i.e. also submenu items)" |
354 Searches all items (i.e. also submenu items)" |
1185 ! ! |
1201 ! ! |
1186 |
1202 |
1187 !Menu class methodsFor:'documentation'! |
1203 !Menu class methodsFor:'documentation'! |
1188 |
1204 |
1189 version |
1205 version |
1190 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.77 2010-09-22 12:21:41 cg Exp $' |
1206 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $' |
1191 ! |
1207 ! |
1192 |
1208 |
1193 version_CVS |
1209 version_CVS |
1194 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.77 2010-09-22 12:21:41 cg Exp $' |
1210 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $' |
1195 ! ! |
1211 ! ! |