Balázs Kósi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-kb.545.mcz

==================== Summary ====================

Name: Monticello-kb.545
Author: kb
Time: 24 May 2013, 8:33:43.455 pm
UUID: 81e08811-7e69-44b9-841d-280d241aa01d
Ancestors: Monticello-fbs.544

MCHttpRepository displays a progress bar, when downloading files from the internet. Before this change the progressbar only appeard after the response started to arrive. Setting the progressbar value to 0 before executing the workBlock displays it immediately, providing better feedback to the user.

=============== Diff against Monticello-fbs.544 ===============

Item was changed:
  ----- Method: MCHttpRepository>>displayProgress:during: (in category 'required') -----
  displayProgress: label during: workBlock
  	| nextUpdateTime |
  	nextUpdateTime := 0.
  	^label displayProgressFrom: 0.0 to: 1.0 during:[:bar|
+ 		bar value: 0.0.
+ 		workBlock on: HTTPProgress do:[:ex|
+ 			(ex total == nil or:[ex amount == nil]) ifFalse:[
+ 				(nextUpdateTime < Time millisecondClockValue 
+ 					or:[ex total = ex amount]) ifTrue:[
+ 						bar value: ex amount asFloat / ex total asFloat.
+ 						nextUpdateTime := Time millisecondClockValue + 100.
- 			workBlock on: HTTPProgress do:[:ex|
- 				(ex total == nil or:[ex amount == nil]) ifFalse:[
- 					(nextUpdateTime < Time millisecondClockValue 
- 						or:[ex total = ex amount]) ifTrue:[
- 							bar value: ex amount asFloat / ex total asFloat.
- 							nextUpdateTime := Time millisecondClockValue + 100.
- 					].
  				].
+ 			].
+ 			ex resume.
+ 		]
+ 	].
- 				ex resume.
- 			]
- 		].
  !