--- Emerge-Progress_0.1.8.perl 2005-05-14 01:22:10.000000000 +0200 +++ Emerge-Progress_0.1.9.perl 2005-05-14 01:26:24.000000000 +0200 @@ -10,6 +10,7 @@ #Definering av ting.. +my $version = '0.1.9'; my $logfile = "/var/log/emerge.log"; my @package_list; my $lastline; @@ -17,6 +18,7 @@ my $tag; my $updatetag; my $noclickupdate = 0; +my $progresstring = '.'; my @cols = ( { title => 'Name', type => 'Glib::String', }, { title => 'Date', type => 'Glib::String', }, @@ -37,7 +39,7 @@ #sette parametre.. $window->set_default_size(600,400); -$window->set_title("Emerge Progress"); +$window->set_title("Emerge Progress $version"); $buttonbox->set_layout_default("end"); $buttonbox->set_spacing_default(12); $treeview->set_headers_visible(0); @@ -145,7 +147,7 @@ sub sync { my $fh = FileHandle->new; - open($fh, q^emerge -q --sync|^); + open($fh, q^emerge --sync|^); $updatetag = Gtk2::Helper->add_watch ( $fh->fileno, 'in', sub { update_callback($fh,$updatetag); }); return 1; } @@ -162,6 +164,10 @@ &emergeworld; return 1; } + my $line = <$fh>; + if($progresstring eq '.............') { $progresstring = '.'; } + $statusbar->push('1','Running emerge sync'."$progresstring"); + $progresstring = "$progresstring".'.'; return 1; } @@ -182,10 +188,14 @@ { Gtk2::Helper->remove_watch ($updatetag) or &error("Kunne ikke gi slipp på Gtk2::Helper."); close($fh); - $statusbar->push('1','Done running emerge world..'); + $statusbar->push('1','Done running emerge world.. You should open a terminal, and as root type "etc-update" to update your config files.'); $noclickupdate = 0; return 1; } + my $line = <$fh>; + if($progresstring eq '.............') { $progresstring = '.'; } + $statusbar->push('1','Running emerge world'."$progresstring"); + $progresstring = "$progresstring".'.'; return 1; }