--- Emerge-Progress_0.1.4.perl 2005-04-20 00:42:35.000000000 +0200 +++ Emerge-Progress_0.1.5.perl 2005-04-23 02:20:47.253172768 +0200 @@ -27,8 +27,6 @@ my $storedone = Gtk2::ListStore->new( map { $_->{type}} @cols ); my $window = Gtk2::Window->new; my $vbox = Gtk2::VBox->new; -my $sw = Gtk2::ScrolledWindow->new(undef, undef); -my $swdone = Gtk2::ScrolledWindow->new(undef, undef); my $buttonbox = Gtk2::HButtonBox->new; my $exitbutton = Gtk2::Button->new("Lukk"); my $treeview = Gtk2::TreeView->new_with_model($store); @@ -37,10 +35,10 @@ #sette parametre.. $window->set_default_size(600,400); $window->set_title("Emerge Progress"); -$sw->set_policy('automatic','automatic'); -$swdone->set_policy('automatic','automatic'); $buttonbox->set_layout_default("end"); $buttonbox->set_spacing_default(12); +$treeview->set_headers_visible(0); +$treeviewdone->set_headers_visible(0); $exitbutton->signal_connect(clicked => sub { Gtk2->main_quit; }); $window->signal_connect(destroy => sub { Gtk2->main_quit; }); @@ -54,16 +52,19 @@ sub sett_opp { - $sw->add($treeview); - $swdone->add($treeviewdone); - $vbox->pack_start($sw,1,1,0); - $vbox->pack_start($swdone,1,1,0); + my $label_ongoing = Gtk2::Label->new("Ongoing Emerges"); + my $label_done = Gtk2::Label->new("Done Emerges"); + $label_ongoing->set_justify('left'); + $label_done->set_justify('left'); + $vbox->pack_start($label_ongoing,0,0,0); + $vbox->pack_start($treeview,1,1,0); + $vbox->pack_start($label_done,0,0,0); + $vbox->pack_start($treeviewdone,1,1,0); $vbox->pack_end($buttonbox,0,0,0); $window->show_all; &sett_opp_kolonner; &parselog("emerge"); my $timer = Glib::Timeout->add(10000, \&test); -# &test; } sub sett_opp_kolonner