'From etoys2.2 of 24 September 2007 [latest update: #1742] on 1 November 2007 at 1:04:56 am'!
"Change Set:		helpStayOpen-sw
Date:			1 Nov 2007
Author:			Scott Wallace

Make the help flap *not* close when things are dragged out from it."!


!SugarNavigatorBar methodsFor: 'help flap' stamp: 'sw 11/1/2007 01:04'!
buildAndOpenHelpFlap
	"Called only when flaps are being created afresh."

	| aFlapTab outer leftStrip rightStrip aGuide |
	aFlapTab :=  FlapTab new.
	aFlapTab assureExtension visible: false.
	aFlapTab setProperty: #rigidThickness toValue: true.

	outer := AlignmentMorph newRow.
	outer assureExtension visible: false.
	outer clipSubmorphs: true.
	outer beTransparent.
	outer vResizing: #spaceFill; hResizing: #spaceFill.
	outer layoutInset: 0; cellInset: 0; borderWidth: 0.
	outer setProperty: #wantsHaloFromClick toValue: false.

	leftStrip := Morph new beTransparent.  "This provides space for tabs to be seen."
	leftStrip layoutInset: 0; cellInset: 0; borderWidth: 0.
	leftStrip width:  20.
	leftStrip hResizing: #rigid; vResizing: #spaceFill.
	outer addMorphBack: leftStrip.   

	rightStrip := AlignmentMorph newColumn.
	rightStrip color: (Color green veryMuchLighter alpha:  0.2).
	rightStrip layoutInset: 0; cellInset: 0; borderWidth: 0.
	rightStrip setProperty: #wantsHaloFromClick toValue: false.
	outer addMorphBack: rightStrip.
	outer clipSubmorphs: true.
	
	aGuide := QuickGuideMorph new.
	aGuide initializeIndexPage.
	aGuide order: QuickGuideMorph defaultOrder.
	rightStrip addMorphBack: aGuide.
	aGuide beSticky.

	aFlapTab referent ifNotNil: [aFlapTab referent delete].
	aFlapTab referent: outer.
	aFlapTab setName: 'Help' translated edge: #left color: (Color r: 0.677 g: 0.935 b: 0.484).
	ActiveWorld addMorphFront: aFlapTab.
	aFlapTab adaptToWorld: ActiveWorld.
	aFlapTab computeEdgeFraction.

	aFlapTab position: (outer left @ outer top).
	outer extent: (462 @ ActiveWorld height).

	outer beFlap: true.
	outer beTransparent.

	aFlapTab referent hide.
	aFlapTab referentMargin: 0@self height.
	aFlapTab openFully.

	outer beSticky.
	leftStrip beSticky.
	rightStrip beSticky.

	aFlapTab applyThickness: 462.
	aFlapTab fitOnScreen.
	aFlapTab referent show.
	aFlapTab show.
	aFlapTab makeFlapCompact: true.
	aFlapTab setToPopOutOnDragOver:  false.
	Flaps addGlobalFlap: aFlapTab.
	ActiveWorld addGlobalFlaps.
	ScriptingSystem cleanUpFlapTabsOnLeft! !

"Postscript:"
(Flaps globalFlapTabWithID: 'Help') ifNotNilDo:
	[:f | f setToPopOutOnDragOver: false].
!