Friedrich Dominicus wrote:

Bernat Romagosa <tibabenfortlapalanca@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
<tibabenfortlapalanca@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