'From etoys2.2 of 22 September 2007 [latest update: #1699] on 13 October 2007 at 1:52:08 pm'! "Change Set: MenuMorph Date: 13 October 2007 Author: Karl Ramberg Fixes issues with deletion of menus and submenus with 'StayUp' items"! !MenuMorph methodsFor: 'accessing' stamp: 'kfr 10/13/2007 13:48'! stayUp: aBoolean stayUp := aBoolean. aBoolean ifTrue: [self removeStayUpBox. (self rootMenu ~= self and: [self rootMenu stayUp = false]) ifTrue: [self rootMenu delete]]! ! !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! !