--- Emerge-Progress_0.1.1.perl 2005-04-14 23:49:32.000000000 +0200 +++ Emerge-Progress_0.1.2.perl 2005-04-14 23:49:46.000000000 +0200 @@ -1,7 +1,8 @@ #!/usr/bin/perl -#Versjon 0.1.1 +# Versjon 0.1.2 #use-stuff +use utf8; use Gtk2 '-init'; use Gtk2::Helper; use strict; @@ -26,11 +27,9 @@ my $window = Gtk2::Window->new; my $vbox = Gtk2::VBox->new; my $sw = Gtk2::ScrolledWindow->new(undef, undef); -my $progressbar = Gtk2::ProgressBar->new; my $buttonbox = Gtk2::HButtonBox->new; my $exitbutton = Gtk2::Button->new("Lukk"); my $treeview = Gtk2::TreeView->new_with_model($store); -my $progressbar_timer = Glib::Timeout->add(100, \&update_progress_bar); #sette parametre.. $window->set_default_size(600,400); @@ -38,16 +37,15 @@ $sw->set_policy('automatic','automatic'); $buttonbox->set_layout_default("end"); $buttonbox->set_spacing_default(12); -$progressbar->set_pulse_step("0.2"); $exitbutton->signal_connect(clicked => sub { Gtk2->main_quit; }); $window->signal_connect(destroy => sub { Gtk2->main_quit; }); #vis ting.. $buttonbox->pack_start($exitbutton,0,0,0); -$vbox->pack_start($progressbar,0,0,0); $window->add($vbox); $window->show_all(); #Start programmet.. +&sett_opp; Gtk2->main; sub sett_opp @@ -58,8 +56,8 @@ $window->show_all; &sett_opp_kolonner; &parselog("emerge"); - my $timer = Glib::Timeout->add(10000, &test); - &test; + my $timer = Glib::Timeout->add(10000, \&test); +# &test; } sub sett_opp_kolonner @@ -117,12 +115,13 @@ $package = (split /\ /, $package)[0]; my $package_group = (split/\//, $line)[0]; $package_group = (split /\ /, $package_group)[7]; + my $status = &status_package($package); my $tid = sprintf("%d",$time); $tid = gmtime($tid); my @data=( - { Name => "$package", Time => "$tid", Status => 'unknown' } + { Name => "$package", Time => "$tid", Status => "$status" } ); foreach(@data) @@ -223,25 +222,7 @@ } } -sub update_progress_bar -{ - my $percentage = $progressbar->get_fraction; - if($percentage < 1) - { - $progressbar->set_fraction($percentage + 0.1); - return 1; - } - if($percentage == 1) - { - my $timer = Glib::Timeout->add(10000, \&test); - &sett_opp; - $progressbar->destroy; - return 0; - } -} - sub error { print 'Faen i helvete :)',"\n"; - Gtk2->main_quit; }