'From etoys2.1 of 8 August 2007 [latest update: #1630] on 13 September 2007 at 10:28:02 am'!
"Change Set:		BalloonHelpWording-yo
Date:			13 September 2007
Author:			Yoshiki Ohshima

Second round for balllon help wording."!


!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/13/2007 10:21'!
paintButtonInitialExplanation

	^ 'To start,
click here
to create
a new
painting.'.
! !

!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/13/2007 10:19'!
putUpInitialBalloonHelp
"
	SugarNavigatorBar putUpInitialBalloonHelp
"

	| paintButton suppliesButton b1 b2 p b |
	paintButton _ undoButton owner submorphs detect: [:e | e isButton and: [e actionSelector = #doNewPainting]].
	suppliesButton _ undoButton owner submorphs detect: [:e | e isButton and: [e actionSelector = #toggleSupplies]].

	b1 _ BalloonMorph string: self paintButtonInitialExplanation for: paintButton corner: #bottomLeft.
	b2 _ BalloonMorph string: self suppliesButtonInitialExplanation for: suppliesButton.

	p _ PasteUpMorph new.
	p clipSubmorphs: false.
	p color: Color transparent.
	p borderWidth: 0.
	p addMorph: b1.
	p addMorph: b2.
	b _ BalloonMorph string: p for: World corner: #bottomLeft.
	b color: Color transparent.
	b borderWidth: 0.
	[(Delay forSeconds: 1) wait. b popUpForHand: ActiveHand] fork.
! !

!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/13/2007 10:24'!
suppliesButtonInitialExplanation

	^ 'Or, grab an object 
from here or choose Object Catalog
for more choices.'.
! !