Bert Freudenberg uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-bf.34.mcz
==================== Summary ====================
Name: System-bf.34 Author: bf Time: 29 August 2010, 7:18:27 pm UUID: ae84b711-8f83-4088-9067-fc8f1d55103d Ancestors: System-bf.33
- use forceToScreen: to make displayProgressWithJump: visible on virtual screen
=============== Diff against System-bf.33 ===============
Item was changed: ----- Method: Project>>displayProgressWithJump: (in category 'menu messages') ----- 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. + Display forceToScreen: b bounds. (Delay forMilliseconds: 500) wait. ]. ] forkAt: Processor userInterruptPriority. ^[done := true]!
etoys-dev@lists.squeakfoundation.org