Ben Coman wrote:
Friedrich Dominicus wrote:
Bernat Romagosa <tibabenfortlapala...@gmail.com> writes:
ouch, I added a . in the middle, sorry!
elements := #('eins' 'zwei' 'drei' 'vier').
elements
do: [ :element | (Delay forSeconds: 2) wait ]
displayingProgress: [ :element | 'Working on', element asString ].
2014-03-18 9:55 GMT+01:00 Bernat Romagosa
<tibabenfortlapala...@gmail.com>:
Without having tried it, I think you're missing a #wait message in
there:
elements := #('eins' 'zwei' 'drei' 'vier').
elements do: [ :element | (Delay forSeconds: 2) wait ].
displayingProgress: [ :element | 'Working on', element asString ].
Sorry even with that I do not see the 'Working on ' message.
It's just a progress bar with nothing else. No "Working on" anywhere.
Regards
Friedrich
I'm not sure what the expected result is, but if you debug/step into
that code a few times you find yourself in...
Array(Collection)>>do:displayingProgress:every:
Looking at _expression_...
aStringOrBlock isString
I guessed something might be learnt from stepping through...
elements := #('eins' 'zwei' 'drei' 'vier').
elements do: [ :element | (Delay forSeconds: 2) wait ]
displayingProgress: 'MyProgress'
and indeed progress bar text is updated by the line...
bar label: aStringOrBlock.
Now stepping through your original script, #label: never seems to be
executed
So replacing...
[ProgressNotification signal: '' extra: (oldLabel := newLabel)]
with...
[ bar label: newLabel.
ProgressNotification signal: '' extra: (oldLabel := newLabel).
].
seems to do the trick, although as I said before, I don't know what the
expected behaviour is. Is that what you need?
I've not looked at this code before so I've learnt something new today.
In particular, for a while I was wondering purpose ProgressNotification
served since tracing through it seemed to do nothing, and then I
realised it might be used something like this...
elements := #('eins' 'zwei' 'drei' 'vier' ).
[ elements do: [ :element | (Delay forSeconds: 2) wait ]
displayingProgress: [ :element | 'Working on ', element
asString ]
] on: ProgressNotification do:
[ :notice |
self inform: notice extraParam printString.
notice resume
]
I've logged a case
https://pharo.fogbugz.com/f/cases/13101/Progress-bar-progressive-text-update-not-working
cheers -ben
Friedrich, Peter, Bernat,
I've uploaded slice 13101 to the Pharo30Inbox. Could you review and
comment on the issue tracker whether that is satisfactory.
cheers -ben
|
