[Pkg] Monticello Public: PackageInfo-Base-mtf.55.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sat Oct 4 06:23:01 UTC 2008
A new version of PackageInfo-Base was added to project Monticello Public:
http://www.squeaksource.com/mc/PackageInfo-Base-mtf.55.mcz
==================== Summary ====================
Name: PackageInfo-Base-mtf.55
Author: mtf
Time: 3 October 2008, 11:22:58 pm
UUID: 80c3622f-1833-4552-84f0-ff8c38e02a2f
Ancestors: PackageInfo-Base-mtf.54
added a progress bar to the new fast collector
=============== Diff against PackageInfo-Base-mtf.54 ===============
Item was added:
+ ----- Method: PackageInfo>>classesDo:methodsDo:displayingProgress: (in category 'single-pass') -----
+ classesDo: classBlock methodsDo: methodBlock displayingProgress: aString
+ "Enumerates all non-meta classes and all methods in the package, and displays a progress bar"
+
+ | classes methods i |
+ (1 to: 2) do: [:ignored | ] displayingProgress: 'Collecting...'.
+ classes := OrderedCollection new.
+ methods := OrderedCollection new.
+ self
+ classesDo: [:class | classes add: class]
+ methodsDo: [:method | methods add: method].
+ aString displayProgressAt: Sensor cursorPoint
+ from: 1 to: classes size + methods size
+ during: [:bar | i := 0.
+ classes do: [:class | bar value: (i := i + 1). classBlock value: class].
+ methods do: [:method | bar value: (i := i + 1). methodBlock value: method]]!
More information about the Packages
mailing list