'From etoys2.2 of 21 September 2007 [latest update: #1689] on 7 October 2007 at 10:25:08 pm'! !MenuMorph methodsFor: 'control' stamp: 'kfr 10/7/2007 22:21'! activeSubmenu: aSubmenu activeSubMenu ifNotNil:[activeSubMenu stayUp ifFalse:[activeSubMenu delete]]. activeSubMenu _ aSubmenu.! ! !MenuMorph methodsFor: 'initialization' stamp: 'kfr 10/7/2007 22:24'! delete "Delete the receiver." activeSubMenu ifNotNil: [activeSubMenu stayUp ifFalse:[activeSubMenu delete]]. self isFlexed ifTrue: [^ owner delete]. ^ super delete! !