David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.73.mcz==================== Summary ====================
Name: ST80-dtl.73
Author: dtl
Time: 30 November 2009, 11:28:51 am
UUID: 3fba2d46-02e6-43ff-b0d0-d5c1398604a6
Ancestors: ST80-dtl.72
Better progress display handling and rudimentary MVC implementations for
Project>>loadFromServer:
Project>>storeOnServerWithProgressInfo:
Project>>storeOnServerWithProgressInfoOn:
=============== Diff against ST80-dtl.72 ===============
Item was added:
+ ----- Method: MVCProject>>do:withProgressInfoOn:label: (in category 'utilities') -----
+ do: aBlock withProgressInfoOn: aMorphOrNil label: aString
+ "Evaluate aBlock with a labeled progress bar. Use a simple progress
+ bar set to 50% progress. In Morphic, progress is displayed with a
+ ComplexProgressIndicator."
+
+ aString
+ displayProgressAt: Sensor cursorPoint
+ from: 0 to: 2
+ during: [:bar | bar value: 1.
+ aBlock value]
+
+ !