'From etoys3.0 of 24 February 2008 [latest update: #2128] on 4 September 2008 at 10:03:28 pm'!
"Change Set:		pangoJump-yo
Date:			4 September 2008
Author:			Yoshiki Ohshima

set the usePango flag to false for these jumping guys."!


!Project methodsFor: 'menu messages' stamp: 'yo 9/4/2008 22:00'!
displayProgressWithJump: aMessage
	"Answer a block to display progress while some time-consuming action is going on; the message provided is shown within a tableau of special chars.  This is basically Andreas's code."

	| done b guy guys c text idx |
	done := false.
	b := ScriptableButton new.
	guy _ TextMorph new.
	guy usePango: false.
	guys _ #('\o/
_I_
' '_o_
I
/  \' 'o
/ I \
| |' '_o_
I
/  \').

	b color: Color yellow.
	b borderWidth: 1; borderColor: Color black.
	[
		idx _ 0.
		[done] whileFalse:[
			c _ Display getCanvas.
			b label: aMessage font: (Preferences standardEToysFont emphasized: 1).
			b extent: 200@100.
			b center: Display center.
			b fullDrawOn: Display getCanvas.
			guy beAllFont: (Preferences standardEToysFont  emphasized: 1).
			text _ (guys atWrap: (idx := idx + 1)) asText.
			text addAttribute: (TextAlignment centered) from: 1 to: text string size.
			guy contents: text.
			guy center: b position + (30@50); top: b top + 20.
			guy fullDrawOn: c.
			guy center: b position + (170@50); top: b top + 20.
			guy fullDrawOn: c.
			(Delay forMilliseconds: 500) wait.
		].
	] forkAt: Processor userInterruptPriority.
	^[done := true]! !