From d9d9fbd4a4d804b1c5bcadbff998879a4324e3d9 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 7 Aug 2001 21:00:03 +0000
Subject: nex features

---
 perl-install/standalone/net_monitor | 59 +++++++++++++++++++------------------
 1 file changed, 30 insertions(+), 29 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 8ed2523b7..8fc3d968a 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -52,6 +52,7 @@ my $monitor = {};
 my $netcnx = {};
 my $netc = {};
 my $intf = {};
+my $c_time = 0;
 network::netconnect::load_conf($netcnx, $netc, $intf);
 network::netconnect::read_net_conf('', $netcnx, $netc);
 my $combo1 = new Gtk::Combo;
@@ -71,31 +72,31 @@ gtkadd($window1,
 		1, gtkpack_(new Gtk::HBox(0,5),
 			    1, my $notebook = new Gtk::Notebook,
 			    0, gtkpack_(new Gtk::VBox(0,5),
-					1, gtkadd(gtkset_shadow_type(new Gtk::Frame(_("Settings")), 'etched_out'),
+					0, gtkadd(gtkset_shadow_type(new Gtk::Frame(_("Settings")), 'etched_out'),
 						  gtkpack__(gtkset_border_width(new Gtk::VBox(0,5),5),
 							    gtkpack__(new Gtk::HBox(0,0),
 								      _("Connection type: "), my $label_cnx_type = new Gtk::Label("")),
 							    gtkpack__(new Gtk::HBox(0,0),
-								      _("Profile: "), $combo1)
+								      _("Profile "), $combo1)
 							   )
 						 ),
-					0, gtkadd(gtkset_shadow_type(new Gtk::Frame(_("Statistics")), 'etched_out'),
+					1, gtkadd(gtkset_shadow_type(new Gtk::Frame(_("Statistics")), 'etched_out'),
+						  gtkpack__(new Gtk::VBox(0,0),
 						  create_packtable({ col_spacings => 1, row_spacings => 1},
 						   [ "", "instantaneous" , "average"],
 						   [ _("Sending Speed:"), my $label_st = new Gtk::Label(""), my $label_sta=new Gtk::Label("na")],
 						   [ _("Receiving Speed:"),my $label_sr= new Gtk::Label(""), my $label_sra=new Gtk::Label("na")],
-								  )
-#						  gtkpack__(gtkset_border_width(new Gtk::VBox(0,5),5),
-#							    gtkpack__(new Gtk::HBox(0,0),
-#								      _("Sending Speed: "), my $label_st = new Gtk::Label("")),
-#							    gtkpack__(new Gtk::HBox(0,0),
-#								      _("Receiving Speed: "), my $label_sr = new Gtk::Label("")),
+								  ),
+						   gtkpack__(new Gtk::HBox(0,0), "  "._("Connection Time: "), my $label_ct = new Gtk::Label("")),
+							   )
 						 ),
-					0, gtksignal_connect(my $button_connect = new Gtk::Button(), clicked => \&connection),
-					0, new Gtk::HSeparator,
-					0, gtkpack(new Gtk::HBox(0,5),
-					      gtksignal_connect(new Gtk::Button(_("Logs")), clicked => sub { system("/usr/sbin/logdrake --file /var/log/messages &") }),
-					      gtksignal_connect(my $button_close = new Gtk::Button(_("Close")), clicked => sub { Gtk->exit(0) }),
+					0, gtkpack_(new Gtk::HBox(0,5),
+						   1, gtksignal_connect(my $button_connect = new Gtk::Button(), clicked => \&connection),
+						   0, new Gtk::VSeparator,
+						   0, gtkpack(new Gtk::VBox(0,5),
+							      gtksignal_connect(new Gtk::Button(_("Logs")), clicked => sub { system("/usr/sbin/logdrake --file /var/log/messages &") }),
+							      gtksignal_connect(my $button_close = new Gtk::Button(_("Close")), clicked => sub { Gtk->exit(0) }),
+							     )
 						  )
 				       )
 			   ),
@@ -285,25 +286,25 @@ sub update {
 					       0, gtkpack__(gtkset_border_width(new Gtk::HBox(0,0), 5),
 							    gtksize($monitor->{$intf}{darea} = new Gtk::DrawingArea(),300, 150)),
 					       0, gtkpack__(gtkset_border_width(new Gtk::HBox(0,5), 5),
-							    gtksignal_connect(my $button_t = new Gtk::Button(), clicked => sub {
-										  $colort = change_color($colort);
-										  $gct->set_foreground($colort);
-										  $_[0]->draw(undef);
-									      }),
+						    gtksignal_connect(my $button_t = gtkset_relief(new Gtk::Button(), 'none'), clicked => sub {
+									  $colort = change_color($colort);
+									  $gct->set_foreground($colort);
+									  $_[0]->draw(undef);
+								      }),
 							    _("sent: "), $monitor->{$intf}{labelt} = new Gtk::Label("0")),
 					       0, gtkpack__(gtkset_border_width(new Gtk::HBox(0,5), 5),
-							    gtksignal_connect(my $button_r = new Gtk::Button(), clicked => sub {
-										  $colorr = change_color($colorr);
-										  $gcr->set_foreground($colorr);
-										  $_[0]->draw(undef);
-									      }),
+						    gtksignal_connect(my $button_r = gtkset_relief(new Gtk::Button(), 'none'), clicked => sub {
+									  $colorr = change_color($colorr);
+									  $gcr->set_foreground($colorr);
+									  $_[0]->draw(undef);
+								      }),
 							    _("received: "), $monitor->{$intf}{labelr} = new Gtk::Label("0")),
 					       0, gtkpack__(gtkset_border_width(new Gtk::HBox(0,5), 5),
-							    gtksignal_connect(my $button_a = new Gtk::Button(), clicked => sub {
-										  $colora = change_color($colora);
-										  $gca->set_foreground($colora);
-										  $_[0]->draw(undef);
-									      }),
+						    gtksignal_connect(my $button_a = gtkset_relief(new Gtk::Button(), 'none'), clicked => sub {
+									  $colora = change_color($colora);
+									  $gca->set_foreground($colora);
+									  $_[0]->draw(undef);
+								      }),
 							    _("average"))
 					       )),
 				   new Gtk::Label($intf));
-- 
cgit v1.2.1