Hi again, while hacking on this problem, I noticed 1 peculiarity, the color changes work as you would expect, IF you resize the $mw after hitting the buttons. As an example of this behavior, I rewrote the script above to use a timer (instead of a hackish select delay) and just used configure on the -colors.

If you run this script, and hit Stop, the bar will turn red only after you just SLIGHTLY resize the window. The same occurs after a second START, the bar returns to original colors after a slight resize of the window.

I tried update, packPropagate, idletasks, etc. to stimulate the update, but no luck.

Does anyone know how to trigger the progressbar's deep update without a window resize? I suppose as a hack, the Start and Stop buttons could include some code to do a 1-pixel resize of the $mw. :-) 

#!/usr/bin/perl
use strict;
use Tk;
use Tk::ProgressBar;

our $percent_done = 0;
our $stopped = 0;

my $mw = new MainWindow;

$mw->geometry('200x100+100+100');

my $progress = $mw->ProgressBar(
  -width => 40,
  -height => 20,
  -from => 0,
  -to => 100,
  -blocks => 50,
  -colors => [0, 'blue',30,'yellow',70,'orange'],
  -variable => \$percent_done
)->pack(-expand=>1, -fill=>'x');

my $buttonF = $mw->Frame->pack;

my $timer;

my $startB = $buttonF->Button(
  -text => 'start',
  -command => sub {
        $stopped = 0;
        $percent_done = 0;
      
      #restore original colors 
$progress->configure('-colors',[0, 'blue',30,'yellow',70,'orange'] );
               
               $mw->idletasks; # these commands
               $mw->update;    # don't seem to work
                               #but a window resize does
        $timer = $mw->repeat(50,
          sub{
              $percent_done++;
              $progress->update;
           
               if ($stopped) {
      #set red colors
     $progress->configure('-colors', [0, 'red',30,'red',70,'red'] );
               
               $mw->idletasks; # these commands
               $mw->update;    # don't seem to work
                               #but a window resize does
               
               
                $timer->cancel;
               }
             })        
     }
)->pack(-side => 'left');

my $stopB = $buttonF->Button(
  -text => "stop",
  -command => sub { $stopped = 1; }
 )->pack(-side => 'left');

MainLoop;

[download]
I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

In reply to Re: TK::ProgressBar Color update by zentara
in thread TK::ProgressBar Color update by Ohad

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.