'From Squeak3.8-Nihongo of 25 February 2005 [latest update: #2] on 1 March 2005 at 12:52:58 pm'!
"Change Set:		FontProgressTranslation
Date:			1 March 2005
Author:			Yoshiki Ohshima

Add #translated and a bit more."!


!Project methodsFor: 'menu messages' stamp: 'yo 3/1/2005 12:05'!
displayFontProgress
	"Display progress for fonts"
	| done b pp |
	done := false.
	b := ScriptableButton new.
	b color: Color yellow.
	b borderWidth: 1; borderColor: Color black.
	pp := [	| dots str idx |
		dots := #(' - ' ' \ ' ' | ' ' / '). idx := 0.
		[done] whileFalse:[
			str := '$	Fixing fonts	$	' translated.
			str := str copyReplaceTokens: '$' with: (dots atWrap: (idx := idx + 1)) asString.
			b label: str font: (TextStyle defaultFont emphasized: 1).
			b extent: 200@50.
			b center: Display center.
			b fullDrawOn: Display getCanvas.
			(Delay forMilliseconds: 250) wait.
		].
	] forkAt: Processor userInterruptPriority.
	^[done := true]! !