'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #348] on 1 December 2004 at 10:40:43 am'! "Change Set: FontProgress Date: 1 December 2004 Author: Andreas Raab The 'lost' displayFontProgress method."! !Project methodsFor: 'menu messages' stamp: 'ar 11/25/2004 15:33'! 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$ '. str := str copyReplaceAll: '$' 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]! !