equal
deleted
inserted
replaced
1682 |
1682 |
1683 menu |
1683 menu |
1684 |menu subm sz inclRoot| |
1684 |menu subm sz inclRoot| |
1685 |
1685 |
1686 (sz := self numberOfSelections) == 0 ifTrue:[ |
1686 (sz := self numberOfSelections) == 0 ifTrue:[ |
1687 ^ self |
1687 ^ nil |
1688 ]. |
1688 ]. |
1689 |
1689 |
1690 inclRoot := self isInSelection:1. |
1690 inclRoot := self isInSelection:1. |
1691 |
1691 |
1692 sz > 1 ifTrue:[ |
1692 sz > 1 ifTrue:[ |
1709 selectors:#( #doCreateMenu #doCreateItem #doCreateSep ) |
1709 selectors:#( #doCreateMenu #doCreateItem #doCreateSep ) |
1710 receiver:self. |
1710 receiver:self. |
1711 |
1711 |
1712 menu subMenuAt:#create put:subm. |
1712 menu subMenuAt:#create put:subm. |
1713 ^ menu. |
1713 ^ menu. |
|
1714 |
|
1715 "Modified: 6.7.1997 / 12:51:28 / cg" |
1714 ! ! |
1716 ! ! |
1715 |
1717 |
1716 !MenuEditor::Painter methodsFor:'private'! |
1718 !MenuEditor::Painter methodsFor:'private'! |
1717 |
1719 |
1718 addElement:something |
1720 addElement:something |