[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