diff options
| author | damien <damien@mandriva.com> | 2001-08-21 16:01:43 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-21 16:01:43 +0000 |
| commit | ade11209d85cc868827760931aedb9ea3a7e5c1d (patch) | |
| tree | 239c9be52aac200d6ba1d329bcc2f0879829b0aa /perl-install/standalone | |
| parent | ee652ea093328514c38a9456f5f578e3f9c01828 (diff) | |
| download | drakx-backup-do-not-use-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar drakx-backup-do-not-use-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.gz drakx-backup-do-not-use-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.bz2 drakx-backup-do-not-use-ade11209d85cc868827760931aedb9ea3a7e5c1d.tar.xz drakx-backup-do-not-use-ade11209d85cc868827760931aedb9ea3a7e5c1d.zip | |
removed memoty leak
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 9 |
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); |