summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet2
-rwxr-xr-xperl-install/standalone/net_monitor4
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);