From: minima Date: Thu, 20 Jul 2006 02:06:50 +0000 (+0000) Subject: remove old stuff X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3193969a660518df1a2c392b35f1e39a392376c;p=spider.git remove old stuff --- diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole index 54dcba6b..95a810ae 100755 --- a/gtkconsole/gtkconsole +++ b/gtkconsole/gtkconsole @@ -33,8 +33,6 @@ use vars qw(@modules $font); use DXVars; use DXUtil; use IO::Socket::INET; -use Text; -use DebugHandler; # # main initialisation @@ -74,7 +72,10 @@ sendmsg('I', 'set/nobeep'); # # main window my $main = new Gtk2::Window('toplevel'); -$main->set_default_size(600, 600); +my $scr = $main->get_screen; +my $scr_width = $scr->get_width; +my $scr_height = $scr->get_height; +$main->set_default_size($scr_width, $scr_height/2); $main->signal_connect('delete_event', sub { Gtk2->main_quit; }); $main->set_title("gtkconsole - The DXSpider Console - $call"); @@ -108,7 +109,7 @@ $bhbox->pack_start(Gtk2::VSeparator->new, 0, 1, 0); $bhbox->pack_end($rhvbox, 1, 1, 5); # first add a column type for the QRG -my $font = 'monospace 10'; +my $font = 'monospace 9'; my $oddbg = 'light blue'; my $evenbg = 'white'; @@ -211,7 +212,7 @@ $annscroll->set_policy ('automatic', 'automatic'); #$annscroll->set_size_request (700, 400); $annscroll->add($annlist); $annscroll->set_border_width(5); -$rhvbox->pack_start($annscroll, 0, 1, 0); +$rhvbox->pack_start($annscroll, 1, 1, 0); # The wwv list my $wwvlist = Gtk2::SimpleList->new( @@ -230,7 +231,7 @@ $wwvscroll->set_policy ('never', 'automatic'); #$wwvscroll->set_size_request (700, 200); $wwvscroll->add($wwvlist); $wwvscroll->set_border_width(5); -$rhvbox->pack_start($wwvscroll, 1, 1, 0); +$rhvbox->pack_start($wwvscroll, 0, 1, 0); # The wcy list my $wcylist = Gtk2::SimpleList->new( @@ -244,7 +245,7 @@ my $wcylist = Gtk2::SimpleList->new( SA => 'tt', GMF => 'tt', Aurora => 'tt', - Time => 'tt' + Hour => 'tt' ); $wcylist->set_rules_hint(1); my $wcyscroll = Gtk2::ScrolledWindow->new (undef, undef); @@ -253,7 +254,7 @@ $wcyscroll->set_policy ('never', 'automatic'); #$wcyscroll->set_size_request (700, 200); $wcyscroll->add($wcylist); $wcyscroll->set_border_width(5); -$rhvbox->pack_start($wcyscroll, 1, 1, 0); +$rhvbox->pack_start($wcyscroll, 0, 1, 0); my $sock_helper = Gtk2::Helper->add_watch($sock->fileno, 'in', \&tophandler, $sock); @@ -394,7 +395,7 @@ sub handle_ann } chomp $s; - push @{$annlist->{data}}, [$ts, @$ref[0,1,2]]; + push @{$annlist->{data}}, [$ts, @$ref[3,1,2]]; } sub handle_wcy