equal
deleted
inserted
replaced
1214 |
1214 |
1215 " |
1215 " |
1216 aMenu hideOnLeave:true. |
1216 aMenu hideOnLeave:true. |
1217 " |
1217 " |
1218 menuView subMenuAt:indexOrName put:aMenu. |
1218 menuView subMenuAt:indexOrName put:aMenu. |
1219 (aMenu notNil and:[aMenu isBlock not]) ifTrue:[ |
1219 (aMenu notNil and:[aMenu isBlock not] |
|
1220 ) ifTrue:[ |
1220 "tell the submenu to notify me when action is performed" |
1221 "tell the submenu to notify me when action is performed" |
1221 aMenu superMenu:self. |
1222 aMenu superMenu:self. |
1222 ]. |
1223 ]. |
1223 |
1224 |
1224 " |
1225 " |
1684 ! ! |
1685 ! ! |
1685 |
1686 |
1686 !PopUpMenu class methodsFor:'documentation'! |
1687 !PopUpMenu class methodsFor:'documentation'! |
1687 |
1688 |
1688 version |
1689 version |
1689 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.115 2014-02-18 15:04:30 stefan Exp $' |
1690 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.116 2014-06-04 12:38:42 cg Exp $' |
1690 ! |
1691 ! |
1691 |
1692 |
1692 version_CVS |
1693 version_CVS |
1693 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.115 2014-02-18 15:04:30 stefan Exp $' |
1694 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.116 2014-06-04 12:38:42 cg Exp $' |
1694 ! ! |
1695 ! ! |
1695 |
1696 |