Select Code to Download

$w{7}->add( 
...

$w{7}->onFocus( sub{$cui->enable_timer  ('progressbar_demo')} );
$w{7}->onBlur(  sub{$cui->disable_timer ('progressbar_demo')} );

$w{12}->add(
    undef, 'Buttonbox',
...
         }
    ]
);