'From etoys2.1 of 8 August 2007 [latest update: #1660] on 18 September 2007 at 3:27:31 pm'! "Change Set: QuickGuide13-yo Date: 18 September 2007 Author: Yoshiki Ohshima Show wait cursor and show the pageNumbers"! !QuickGuideMorph methodsFor: 'initialization' stamp: 'yo 9/18/2007 15:20'! initializeIndexPage | indexPage firstPage | IndexPage ifNil: [ self class initializeIndexPageFrom: IndexPageMimeString. ]. IndexPage ifNotNil: [ indexPage _ IndexPage veryDeepCopy. firstPage _ pages first. indexPage position: firstPage position. indexPage beSticky. firstPage extent: indexPage extent. firstPage addMorph: indexPage. self goToPage: 1. ]. ! ! !QuickGuideMorph methodsFor: 'page controls' stamp: 'yo 9/18/2007 15:26'! pageNumberReport | b | b _ currentPage findA: BookMorph. b ifNotNil: [^ b pageNumberReport]. ^ super pageNumberReport. ! ! !SugarNavigatorBar methodsFor: 'help flap' stamp: 'yo 9/18/2007 15:22'! 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 showWhile: [guide initializeIndexPage]]]] ifNil: [self buildAndOpenHelpFlap]! !