From c7fee2b3d5ea231ef6484990162b6c8b0b557dba Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 16 Apr 2001 19:59:57 +0000 Subject: updated --- perl-install/standalone/draknet | 2 +- perl-install/standalone/net_monitor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index 802957f76..09e0b0c21 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -328,8 +328,8 @@ $window1->show_all(); $_->hide foreach ($button1, $button3); Gtk->main_iteration while Gtk->events_pending; $::isEmbedded and kill USR2, $::CCPID; +my $tag = Gtk->timeout_add(5000, sub { update(); 1 }); Gtk->main; -my $tag = Gtk->timeout_add(5000, sub { update (); 1 }); Gtk->exit(0); dd: diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 1da91ebf0..cce794c5f 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -38,7 +38,7 @@ my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel $window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); $window1->set_position(1); $window1->set_title(_("Network Monitoring")); -$window1->set_policy(0, 0, 0); +#$window1->set_policy(0, 0, 0); $window1->set_border_width(5); #$::isEmbedded or $window1->set_usize(500, 400); @@ -82,7 +82,7 @@ $button_connect->add(gtkpack__(new Gtk::VBox(0,3), )); $statusbar->push(1, _("Not connected")); $window1->show_all(); -$window1->set_policy (1, 1, 1); +#$window1->set_policy (1, 1, 1); update(); my ($labelr, $labelt); my $time_tag = Gtk->timeout_add(1000, \&rescan); -- cgit v1.2.1