'From etoys2.1 of 8 August 2007 [latest update: #1600] on 7 September 2007 at 10:52:23 am'!
"Change Set:		initialBalloonHelp-yo
Date:			7 September 2007
Author:			Yoshiki Ohshima

For the initial project, this changeset adds explaination on where to start.

Based on Ted's idea, this changeset add two balloon helps (or any morphs) in a baloon help.  For the future, you might want to add some interactive elements... But that will require some rework on the baloon help architecture."!


!BalloonMorph class methodsFor: 'instance creation' stamp: 'yo 9/7/2007 10:08'!
contentsMorph: tm for: morph corner: cornerName 
	"Make up and return a balloon for morph. Find the quadrant that 
	clips the text the least, using cornerName as a tie-breaker. tk 9/12/97"
	| vertices |
	vertices _ self getVertices: tm bounds.
	vertices _ self
				getBestLocation: vertices
				for: morph
				corner: cornerName.
	^ self new color: morph balloonColor;
		 setVertices: vertices;
		 addMorph: tm;
		 setTarget: morph! !


!SugarLauncher methodsFor: 'commands' stamp: 'yo 9/7/2007 10:40'!
putUpInitialBalloonHelp

	| flap |
	flap _ Flaps globalFlapTabWithID: 'Sugar Navigator Flap' translated.
	flap ifNil: [^ self].
	(flap referent isMemberOf: SugarNavigatorBar) ifFalse: [^ self].
	flap referent putUpInitialBalloonHelp
! !


!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/7/2007 10:41'!
paintButtonInitialExplanation

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

!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/7/2007 10:48'!
putUpInitialBalloonHelp
"
	SugarLauncher basicNew 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.
	b2 _ BalloonMorph string: self suppliesButtonInitialExplanation  for: suppliesButton.
	b1 fullBounds.
	b2 fullBounds.

	p _ PasteUpMorph new bounds: (b1 bounds merge: b2 bounds).
	p color: Color transparent.
	p borderWidth: 0.
	p addMorph: b1.
	p addMorph: b2.
	b _ BalloonMorph contentsMorph: 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/7/2007 10:32'!
suppliesButtonInitialExplanation

	^ '
Or, grab an object from
Supplies or further look
more objects in Object Catalog
in it.'.
! !