'From etoys4.0 of 9 October 2008 [latest update: #2254] on 24 August 2009 at 9:38:15 pm'!
"Change Set:		viewerSpanFix-rm
Date:			24 August 2009
Author:			Ricardo Moran; published by Scott Wallace

Fix for a serious performance bug introduced in update 2234viewerBeneath-sw"!


!ViewerFlapTab methodsFor: 'positioning' stamp: 'sw 8/24/2009 21:38'!
spanWorld
	"Make the receiver's height and width be harmonious with those of the container."

	| container ht nav |
	container _ self pasteUpMorph ifNil: [self currentWorld].
	ht := (nav := ActiveWorld findA: SugarNavTab)
		ifNotNil:
			[nav height]
		ifNil:
			[0].
	referent width: (referent width min: container width - self width).
	referent top: container top + ht! !