# IUP::Progressbar example
use strict;
use warnings;
use IUP ':all';
my $progressbar = IUP::ProgressBar->new();
sub idle_cb {
  my $value = $progressbar->VALUE;
  if ( $value == 1 ) {
   $value = 0.0001;
  }
  else {
   $value += 0.0001;
  }
  $progressbar->VALUE($value);
  return IUP_DEFAULT;
}
my $dlg = IUP::Dialog->new( child=>$progressbar, TITLE=>"IUP::ProgressBar");
# Registers idle callback;
IUP->SetIdle(\&idle_cb);
$dlg->ShowXY(IUP_CENTER, IUP_CENTER);
IUP->MainLoop;