equal
deleted
inserted
replaced
212 ]. |
212 ]. |
213 ]. |
213 ]. |
214 ! ! |
214 ! ! |
215 |
215 |
216 !Menu methodsFor:'accessing'! |
216 !Menu methodsFor:'accessing'! |
|
217 |
|
218 atMenuItemLabeled:aString putSubmenu:aMenu visible:visible |
|
219 (self menuItemLabeled:aString) |
|
220 subMenu:aMenu; |
|
221 visible:visible |
|
222 |
|
223 "Created: / 30-06-2011 / 10:30:22 / cg" |
|
224 ! |
217 |
225 |
218 atNameKey:aNameKey |
226 atNameKey:aNameKey |
219 "return the menuItem for the given nameKey; nil if no such item is in the menu. |
227 "return the menuItem for the given nameKey; nil if no such item is in the menu. |
220 Searches in allItems (i.e. also in subMenus)" |
228 Searches in allItems (i.e. also in subMenus)" |
221 |
229 |
1200 ^ (MenuPanel menu:self) startUpOrNil |
1208 ^ (MenuPanel menu:self) startUpOrNil |
1201 ! ! |
1209 ! ! |
1202 |
1210 |
1203 !Menu class methodsFor:'documentation'! |
1211 !Menu class methodsFor:'documentation'! |
1204 |
1212 |
1205 version |
|
1206 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $' |
|
1207 ! |
|
1208 |
|
1209 version_CVS |
1213 version_CVS |
1210 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.78 2011-04-19 13:16:00 cg Exp $' |
1214 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.79 2011-06-30 08:30:35 cg Exp $' |
1211 ! ! |
1215 ! ! |