From 8237d9e9fa811e73ffe62ef135e0c4fa5a9ee71f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 4 Nov 2003 16:02:24 +0000
Subject: forward "manage all interfaces when there more than one"

---
 perl-install/standalone/net_monitor | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 40310fa1a..ee146d3fe 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -288,7 +288,7 @@ sub rescan {
 	$monitor->{$intf}{labelt}->set_label(formatXiB($transmit - $monitor->{$intf}{initialt}));
 	$monitor->{$intf}{referencet} = $transmit;
 
-	draw_monitor($monitor->{$intf});
+	draw_monitor($monitor->{$intf}, $intf);
     }
     $label_sr->set_label(formatXiB($monitor->{sr}) . "/s");
     $label_st->set_label(formatXiB($monitor->{st}) . "/s");
@@ -363,11 +363,11 @@ sub update {
 	    $default_intf = $intf;
 	    $monitor->{$intf}{initialr} = $monitor->{$intf}{val}[0];
 	    $monitor->{$intf}{initialt} = $monitor->{$intf}{val}[8];
-	    $darea = Gtk2::DrawingArea->new();
-	    $darea->set_events(["pointer_motion_mask"]);
+	    $darea->{$intf} = Gtk2::DrawingArea->new();
+	    $darea->{$intf} ->set_events(["pointer_motion_mask"]);
 	    $notebook->append_page(gtkshow(my $page = gtkpack_(Gtk2::VBox->new(0,0),
 					       0, gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,0), 5),
-							    gtksize($darea, $width, $height)),
+							    gtksize($darea->{$intf} , $width, $height)),
 					       0, gtkpack_(Gtk2::HBox->new(0,0),
 							    1, gtkpack__(Gtk2::VBox->new(0,0),
 								      gtkpack__(gtkset_border_width(Gtk2::HBox->new(0,5), 5),
@@ -414,12 +414,12 @@ sub update {
 	    }
 	    $notebook->set_current_page($notebook->page_num($page));
 	    $monitor->{$intf}{page} = $notebook->page_num($page);
-         $darea->realize;
-         $pixmap = Gtk2::Gdk::Pixmap->new($darea->window, $width, $height, $darea->window->get_depth);
+         $darea->{$intf} ->realize;
+         $pixmap = Gtk2::Gdk::Pixmap->new($darea->{$intf} ->window, $width, $height, $darea->{$intf}->window->get_depth);
 	    $monitor->{$intf}{referencer} = $monitor->{$intf}{val}[0];
 	    $monitor->{$intf}{referencet} = $monitor->{$intf}{val}[8];
-	    $pixmap->draw_rectangle($darea->style->black_gc, 1, 0, 0, $width, $height);
-	    $darea->signal_connect(motion_notify_event => sub { 
+	    $pixmap->draw_rectangle($darea->{$intf} ->style->black_gc, 1, 0, 0, $width, $height);
+	    $darea->{$intf} ->signal_connect(motion_notify_event => sub { 
                                     my ($w, $e) = @_;
                                     my $x = $e->x - 50;
                                     my $y = $e->y;
@@ -431,8 +431,8 @@ sub update {
                                     $measure_r->set_label(formatXiB($received));
                                     $measure_t->set_label(formatXiB($transmitted));
                                 });
-	    $darea->signal_connect(expose_event => sub {
-                         $darea->window->draw_drawable($darea->style->bg_gc('normal'), $pixmap, 0, 0, 0, 0, $width, $height);
+	    $darea->{$intf}->signal_connect(expose_event => sub {
+                         $darea->{$intf}->window->draw_drawable($darea->{$intf}->style->bg_gc('normal'), $pixmap, 0, 0, 0, 0, $width, $height);
                      });
 	}
     }
@@ -471,9 +471,9 @@ sub in_ifconfig {
 }
 
 sub draw_monitor {
-    my ($o) = @_;
-    defined $darea or return;
-    $pixmap->draw_rectangle($darea->style->black_gc, 1, 0, 0, $width, $height);
+    my ($o, $intf) = @_;
+    defined $darea->{$intf} or return;
+    $pixmap->draw_rectangle($darea->{$intf}->style->black_gc, 1, 0, 0, $width, $height);
     my $maxr = 0;
     foreach (@{$o->{stack_r}}) { $maxr = $_ if $_ > $maxr }
     my $maxt = 0;
@@ -520,8 +520,8 @@ sub draw_monitor {
     }
 
     my $switch = 1;
-    my $gcl = Gtk2::Gdk::GC->new($darea->window);
-    $gcl->set_foreground($darea->style->white);
+    my $gcl = Gtk2::Gdk::GC->new($darea->{$intf}->window);
+    $gcl->set_foreground($darea->{$intf}->style->white);
     $gcl->set_line_attributes(1, 'on-off-dash', 'not-last', 'round');
     for (my $i = 30; $i <= 120; $i += 30) {
 	$pixmap->draw_line($gcl, 50, $i, 300, $i);
@@ -555,9 +555,9 @@ sub draw_monitor {
 	    $text = formatXiB($i*$ech/150);
 	    $gc2 = $gct;
 	}
-     $pixmap->draw_layout($gc2, 45-string_width($darea, $text), $i-5, $darea->create_pango_layout($text));
+     $pixmap->draw_layout($gc2, 45-string_width($darea->{$intf}, $text), $i-5, $darea->{$intf}->create_pango_layout($text));
     }
-    $darea->queue_draw;
+    $darea->{$intf}->queue_draw;
 }
 
 
-- 
cgit v1.2.1