view release on metacpan or  search on metacpan

examples/progress.pl  view on Meta::CPAN

push @progress, $glade->get_widget('sw_progressbar');
push @progress, $glade->get_widget('se_progressbar');

# Start it up
Gtk2->main;

exit 0;


# Helper to update all of the progress widgets in one swoop
sub update_progress {
    foreach my $p (@progress) {
        $p->set_fraction($fract/1000);
    }
}

#----------------------------------------------------------------------
# Signal handlers, connected to signals we defined using glade-2 

# Handle next-button click: show next message
sub on_decrement_button_clicked {