diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 2 | ||||
| -rwxr-xr-x | 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); |