[etoys-dev] Etoys: System-bf.34.mcz

[commits at source.squeak.org]

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 at 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 at 50); top: b top + 20.
  			guy fullDrawOn: c.
  			guy center: b position + (170 at 50); top: b top + 20.
  			guy fullDrawOn: c.
+ 			Display forceToScreen: b bounds.
  			(Delay forMilliseconds: 500) wait.
  		].
  	] forkAt: Processor userInterruptPriority.
  	^[done := true]!