'From etoys2.1 of 8 August 2007 [latest update: #1642] on 14 September 2007 at 12:48:01 pm'!
"Change Set:		QuickGuide6-yo
Date:			14 September 2007
Author:			Yoshiki Ohshima

Follow some intelligent ordering."!


!QuickGuideMorph class methodsFor: 'defaults' stamp: 'yo 9/14/2007 12:44'!
defaultOrder

	| dir baseNames |
	dir _ (FileDirectory on: (Smalltalk imagePath)) directoryNamed: 'QuickGuides'.
	baseNames _  ((dir fileNames select: [:f | f endsWith: '.sexp.data.gz']) collect: [:f | f copyFrom: 1 to: f size - '.sexp.data.gz' size]) asSet.
	^ self suggestedOrder select: [:e | baseNames includes: e].
! !

!QuickGuideMorph class methodsFor: 'defaults' stamp: 'yo 9/14/2007 12:41'!
suggestedOrder

	^ #(
	'NavBarChooseLanguage'
	'NavBarKeepFindProjects'
	'PaintBrushes'
	'PaintBucket'
	'PaintColorPalette'
	'PaintColorPicker'
	'PaintStraightLine'
	'PaintEllipses'
	'PaintRectangle'
	'PaintPolygon'
	'PaintStampCopy'
	'HaloHandlesAppear'
	'HaloColorCopyScale'
	'HaloRotateHandle'
	'HaloMovePickUp'
	'HaloMoveToTrash'
	'HaloViewer'
	'HaloTile'
	'HaloArrowAtCenter'
	'HaloCenterofRotation'
	'HaloCollapse'
	'HaloMenu'
	'SuppliesObjectCatalog'
	'SuppliesText'
	'SuppliesJoystick'
	'SuppliesAllScriptStopGo'
	'SuppliesSoundRecorder'
	'ObjectCatSlider'
	'ObjectCatDigitalImages'
	'ObjectCatGrabPatch1'
	'ObjectCatLasso'
	'ObjectCatMakerButton'
	'BooksTopBorderIcons'
	'ScriptTileForwardby5'
	'ScriptTileTurnBy5'
	'ScriptTileBounce'
	'ScriptTilesFowardTurn'
	'ScriptTileHeading1'
	'ScriptTilePenUse'
	'ScriptTileXY'
	'ScriptTilesTestCategory'
	'ScriptTileScaleFactor'
	'ScriptTilesHideShow'
	'ScriptTileStamp'
	'MenuNormalTicking'
	'MenuScriptorIconSet'
	'MenuGrabMeRevealMe'
	'MenuToolWatchers'
	'MenuViewerIconsSet'
	'MenuButtonToFireScript'
	)! !


!SugarNavigatorBar methodsFor: 'help flap' stamp: 'yo 9/14/2007 12:47'!
buildAndOpenHelpFlap
	"Called only when flaps are being created afresh."

	| aFlapTab outer leftStrip rightStrip aGuide |
	aFlapTab :=  FlapTab new.
	aFlapTab assureExtension visible: false.

	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."
	outer setProperty: #morphicLayerNumber toValue: aFlapTab morphicLayerNumber - 1.

	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.
	Flaps addGlobalFlap: aFlapTab.
	ActiveWorld addGlobalFlaps.
	ScriptingSystem cleanUpFlapTabsOnLeft! !