'From etoys2.1 of 8 August 2007 [latest update: #1615] on 11 September 2007 at 12:51:15 pm'!
"Change Set:		NewProjWithBalloon2-yo
Date:			11 September 2007
Author:			Yoshiki Ohshima

BalloonMorph can handle arbitrary morph.

Also a comment in SugarNavigatorBar is fixed."!


!SugarNavigatorBar methodsFor: 'initialization' stamp: 'yo 9/11/2007 12:49'!
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.
	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.
! !

BalloonMorph class removeSelector: #contentsMorph:for:corner:!