Comment #12 on issue 5969 by
[hidden email]: [ENH]: Clean
SystemProgressMorph and friends (Part 2)
http://code.google.com/p/pharo/issues/detail?id=5969argh this does not work because
do: aBlock displayingProgress: aStringOrBlock every: msecs
"Enumerate aBlock displaying progress information.
If the argument is a string, use a static label for the process.
If the argument is a block, evaluate it with the element to retrieve
the label.
The msecs argument ensures that updates happen at most every msecs.
Example:
Smalltalk allClasses
do:[:aClass| (Delay forMilliseconds: 1) wait]
displayingProgress:[:aClass| 'Processing ', aClass
name]
every: 0."
| size labelBlock count oldLabel lastUpdate |
self isEmpty ifTrue: [ ^ self ].
oldLabel := nil.
count := lastUpdate := 0.
size := self size.
'' displayProgressFrom: 0 to: size during: [:bar |
labelBlock := aStringOrBlock isString
ifTrue: [
bar label: aStringOrBlock.
^^^^^^^^^^^^^^^^^^^^^^^^^^
expect something that accept a label
[ :item | aStringOrBlock]]
ifFalse: [aStringOrBlock].
self do: [:each| | newLabel |
"Special handling for first and last element"
(count = 0 or: [count+1 = size
or: [(Time millisecondsSince: lastUpdate) >= msecs]])
ifTrue: [
bar value: count.
oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel])
ifFalse: [ProgressNotification signal: '' extra: (oldLabel :=
newLabel)].
lastUpdate := Time millisecondClockValue ].
aBlock value: each.
count := count + 1]]
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
