'From etoys4.0 of 9 October 2008 [latest update: #2229] on 6 July 2009 at 3:06:59 pm'!
"Change Set:		viewerBeneath-sw
Date:			6 July 2009
Author:			Scott Wallace

Fix for JIRA issue SQ-88:  Position the viewer beneath the nav-bar,"!


!ViewerFlapTab methodsFor: 'positioning' stamp: 'sw 7/6/2009 15:05'!
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 height:  (container height - ht).
	referent width: (referent width min: container width - self width).
	referent top: container top + ht! !