summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_monitor
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-21 16:01:43 +0000
committerdamien <damien@mandriva.com>2001-08-21 16:01:43 +0000
commitade11209d85cc868827760931aedb9ea3a7e5c1d (patch)
tree239c9be52aac200d6ba1d329bcc2f0879829b0aa /perl-install/standalone/net_monitor
parentee652ea093328514c38a9456f5f578e3f9c01828 (diff)
downloaddrakx-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar
drakx-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.gz
drakx-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.bz2
drakx-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.xz
drakx-ade11209d85cc868827760931aedb9ea3a7e5c1d.zip
removed memoty leak
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-xperl-install/standalone/net_monitor9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 51749dd38..9e1397975 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -77,6 +77,9 @@ my $netc = {};
my $intf = {};
my $c_time = 0;
my $ct_tag;
+my $style= new Gtk::Style;
+$style->font(Gtk::Gdk::Font->fontset_load("-adobe-times-medium-r-normal-*-12-*-75-75-p-*-iso8859-*,*-r-*"));
+
network::netconnect::load_conf($netcnx, $netc, $intf);
network::netconnect::read_net_conf('', $netcnx, $netc);
my $combo1 = new Gtk::Combo;
@@ -374,8 +377,8 @@ sub update {
$button_connect->set_sensitive(0);
$label_c->set("No internet connection configured");
}
- $time_tag2 = Gtk->timeout_add(5000, \&update);
- 0;
+ #$time_tag2 = Gtk->timeout_add(5000, \&update);
+ 1;
}
sub draw_monitor {
@@ -429,8 +432,6 @@ sub draw_monitor {
my $gcl = new Gtk::Gdk::GC($o->{darea}->window);
$gcl->set_foreground($o->{darea}->window->get_colormap->color_white());
$gcl->set_line_attributes (1, 'on-off-dash', 'not-last', 'round');
- my $style= new Gtk::Style;
- $style->font(Gtk::Gdk::Font->fontset_load("-adobe-times-medium-r-normal-*-12-*-75-75-p-*-iso8859-*,*-r-*"));
for (my $i = 30;$i<=120;$i+=30) {
$o->{pixmap_db}->draw_line($gcl, 50, $i, 300, $i);
my ($gc2, $text);