'From etoys2.1 of 26 July 2007 [latest update: #1590] on 4 September 2007 at 10:50:19 pm'!
"Change Set:		redSuppliesInEvtTh-sw-sw
Date:			4 September 2007
Author:			Scott Wallace

Position the supplies tab in non-sugar evt theatre properly.  Requires a change to the newSuppliesFlapFromQuads:positioning: method from Yoshiki before this all comes together..."!


!EventRecordingSpace methodsFor: 'flaps' stamp: 'sw 9/4/2007 22:44'!
addSuppliesFlap
	"If the content area does not have a Supplies flap, give it one."

	| existing aFlap actualFlap |
	existing := contentArea submorphs detect: [:aMorph | (aMorph isKindOf: FlapTab) and: [aMorph flapID = 'Supplies']] ifNone: [nil].
	existing ifNotNil: [^ self].  "already present"

	aFlap := Flaps newSuppliesFlapFromQuads: Flaps quadsDefiningPlugInSuppliesFlap positioning: #right.
	contentArea addMorphFront: (actualFlap := aFlap as: InteriorFlapTab).
	actualFlap setToPopOutOnDragOver: true.
	actualFlap edgeToAdhereTo: #bottom.
	actualFlap right: contentArea right.
	contentArea installFlaps

! !