Update progress bar in GUI

What is body of main proc?

Add update cmd into every loop of it

Hi tinh,

'body' would correspond with the old script I mentioned before. There a lot of loops, and nested loops.

I added update cmd like you said, and now I can see that the progress bar is working, but I can notice sometimes it get stuck. I wonder if there is a way to resolve this...

Another question, update command makes the script runs slower?

Thanks you tinh

Yes, because update cmd will invoke various cmds, it slows down script. So do not make it runs smooth (look beautiful, but expensive!)

The progress bar is stuck sometimes because a certain cmd takes much time,

If you want it runs smoother, you have to put 'update' inside that cmd.

If the cmd is a tcl proc, it is possible

Otherwise is not.

Ok tinh, so then I won't put the progress bar... I need to show if the script is running or not, because HyperMesh freezes in a short period of time, so I will put a text showing 'running' and it will update when the script finish. Do you think is a good way? Or could be better?

If your script runs very fast => don't need progress bar

If your script runs in a short time => use smoothy updated progress bar, because it's not expensive so make it nice

If your script runs in a long time => use periodically updated progress bar, because it's expensive so make it ugly!

Ugly is better than none (hm frozen)

Ok tinh, thank you for your help!

I don't understand what is update cmd ??

I'm a newbie to automation, don't mind if my question sounds lame to you people.

I don't understand what is update cmd ??

I'm a newbie to automation, don't mind if my question sounds lame to you people.

as its name => it is a command to update visualization

but internally, it is a command to process event loop

while tcl is processing a long task, example:

for {set i 0} {$i<10000000000000} {incr i} {

     dosomething

}

=> event loop will be stopped (GUI will be frozen, not responsed with mouse, keboard events,...)

If you add an 'update'  inside a long task, example:

for {set i 0} {$i<10000000000000} {incr i} {

     dosomething

     update

}

==> now, the 'update' command will invoke event loop , so GUI will response with mouse, keyboard events, timers,...

but it slows down the process, because it invokes event loop many times

I'm trying to output the progress of my script in the user message field, but it gets stuck on 0% till the end of the run even tough I'm using update.

Here follows the code I'm using:

 proc statusMsg { current total } {     ## Displays progress pecentage     set percnt [ expr $current/$total*100 ]     set str '%'     hm_usermessage 'In progress ($percnt$str)'     update }

I even tried using hm_blockmessages 1 before and hm_blockmessages 0 after the code execution, but it didn't work.

How can I fix this?

Thank you.

Attention: 1/100=50/100=0, 

51/100=100/100=1

And if you don't increase 'current' before calling statusMsg, % will not vary.

Ok, got it.

I'll shall use 100.0 instead of 100 then.

Thanks tinh