'From etoys2.1 of 8 August 2007 [latest update: #1662] on 18 September 2007 at 5:53:21 pm'!
"Change Set:		QuickGuide14-yo
Date:			18 September 2007
Author:			Yoshiki Ohshima

One more place to show wait cursor."!


!QuickGuideHolderMorph methodsFor: 'file in/file out' stamp: 'yo 9/18/2007 17:43'!
load

	| dir m fileName f unzipped zipped |
	self submorphs size > 0 ifTrue: [^ self].
	dir _ (FileDirectory on: (Smalltalk imagePath)) directoryNamed: 'QuickGuides'.
	fileName _ guideName, '.sexp.data.gz'.
	(dir fileNames includes: fileName) ifFalse: [
		^ self
	].
	Cursor wait showWhile: [
		unzipped _ WriteStream on: ByteArray new.
		f _ dir readOnlyFileNamed: fileName.
		zipped _ GZipReadStream on: f.
		unzipped nextPutAll: zipped contents.
		m _ BookMorph bookFromPagesInSISSFormat: (DataStream on: (ReadStream on: (unzipped contents))) next.
		f close.
		m position: 0@0.
		self position: 0@0.
		self extent: m extent.
		m setNamePropertyTo: guideName.
		m beSticky.
		self addMorph: m.
	].
! !


!SugarNavigatorBar methodsFor: 'help flap' stamp: 'yo 9/18/2007 17:53'!
toggleHelp
	"Open the help-cards flap, or close it if open."

	| ref f guide |
	f _ Flaps globalFlapTab: 'Help' translated.
	f ifNotNil:
		[
		f isInWorld
			ifTrue:
				[ref _ f referent.
				ref ifNotNil: [guide _ ref findDeeplyA: QuickGuideMorph].
				guide ifNotNil: [guide unloadPages].
				Flaps removeFlapTab: f keepInList: false]
			ifFalse:
				[f openInWorld.
				f showFlap.
				ref _ f referent.
				ref ifNotNil: [
					guide _ ref findDeeplyA: QuickGuideMorph].
					guide ifNotNil: [Cursor wait showWhile: [guide initializeIndexPage]]]]
		ifNil:
			[Cursor wait showWhile: [self buildAndOpenHelpFlap]]! !