'From Squeak3.2alpha of 3 October 2001 [latest update: #4542] on 24 November 2001 at 9:50:05 pm'! "Change Set: hideTabsFix-sw Date: 24 November 2001 Author: Scott Wallace Fixes the bug that could drop you into an endless series of debuggers if you hit the 'hide tabs' button in a flap-based Navigator tab"! !FlapTab methodsFor: 'show & hide' stamp: 'sw 11/24/2001 21:50'! hideFlapUnlessOverReferent "Hide the flap unless the mouse is over my referent." | aWorld where | (referent isInWorld and: [where _ self outermostWorldMorph activeHand lastEvent cursorPoint. referent bounds containsPoint: (referent globalPointToLocal: where)]) ifTrue: [^ self]. (aWorld _ self world) ifNil: [^ self]. "In case flap tabs just got hidden" self referent delete. aWorld removeAccommodationForFlap: self. flapShowing _ false. self isInWorld ifFalse: [self inboard ifTrue: [aWorld addMorphFront: self]]. self adjustPositionAfterHidingFlap! !