summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-01 15:03:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-01 15:03:52 +0000
commit6935a6f681efd3dc15997b6127c7a227c1c6e37f (patch)
tree3e99663fa9a4d144b256360606d84a9b0ee48d52 /perl-install
parentdd15cb04d0dc0790a34a94aae80cd36f9892912d (diff)
downloaddrakx-6935a6f681efd3dc15997b6127c7a227c1c6e37f.tar
drakx-6935a6f681efd3dc15997b6127c7a227c1c6e37f.tar.gz
drakx-6935a6f681efd3dc15997b6127c7a227c1c6e37f.tar.bz2
drakx-6935a6f681efd3dc15997b6127c7a227c1c6e37f.tar.xz
drakx-6935a6f681efd3dc15997b6127c7a227c1c6e37f.zip
- kill icons on button
- kill profil combo box & log button (duplicated features already availlable within mcc) - translate one more string
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor50
1 files changed, 10 insertions, 40 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 397ad596b..61128c7c1 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -75,9 +75,6 @@ my ($width, $height) = (300, 150);
network::netconnect::load_conf($netcnx, $netc, $intf);
network::netconnect::read_net_conf('', $netcnx, $netc);
-my $combo1 = Gtk2::OptionMenu->new;
-$combo1->set_popdown_strings(network::netconnect::get_profiles());
-$combo1->entry->set_text($netcnx->{PROFILE} || "default");
MDK::Common::Globals::init(
in => $in,
prefix => '',
@@ -91,14 +88,11 @@ gtkadd($window1->{window},
1, my $notebook = Gtk2::Notebook->new,
0, gtkpack_(Gtk2::VBox->new(0,5),
0, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Settings")), 'etched_out'),
- gtkpack__(gtkset_border_width(Gtk2::VBox->new(0,5),5),
- gtkpack__(Gtk2::HBox->new(0,0),
- N("Connection type: "),
- my $label_cnx_type = Gtk2::Label->new("")),
- gtkpack__(Gtk2::HBox->new(0,0),
- N("Profile "), $combo1)
- )
- ),
+ gtkpack__(Gtk2::HBox->new(0,0),
+ N("Connection type: "),
+ my $label_cnx_type = Gtk2::Label->new("")),
+
+ ),
1, gtkadd(gtkset_shadow_type(Gtk2::Frame->new(N("Global statistics")), 'etched_out'),
gtkpack__(Gtk2::VBox->new(0,0),
create_packtable({ col_spacings => 1, row_spacings => 1 },
@@ -112,17 +106,9 @@ gtkadd($window1->{window},
),
)
),
- 0, gtkpack_(Gtk2::HBox->new(0,5),
- 1, gtksignal_connect(my $button_connect = gtkset_sensitive(Gtk2::Button->new, 0), clicked => \&connection),
- 0, Gtk2::VSeparator->new,
- 0, gtkpack(Gtk2::VBox->new(0,5),
- gtksignal_connect(Gtk2::Button->new(N("Logs")), clicked => sub {
- -e "/usr/sbin/logdrake"
- ? system('/usr/sbin/logdrake --file=/var/log/messages &')
- : system('/usr/X11R6/bin/xvt -e "tail -f /var/log/messages " &')
- }),
- gtksignal_connect(my $button_close = Gtk2::Button->new(N("Close")), clicked => sub { ugtk2->exit(0) }),
- )
+ 0, gtkpack(Gtk2::HBox->new(0,5),
+ gtksignal_connect(my $button_connect = gtkset_sensitive(Gtk2::Button->new(N("Wait please")), 0), clicked => \&connection),
+ gtksignal_connect(my $button_close = Gtk2::Button->new(N("Close")), clicked => sub { ugtk2->exit(0) }),
)
)
),
@@ -131,24 +117,12 @@ gtkadd($window1->{window},
);
$window1->{rwindow}->show_all;
$window1->{rwindow}->realize;
-$combo1->entry->signal_connect(changed => sub {
- $netcnx->{PROFILE} = $combo1->entry->get_text;
- network::netconnect::set_profile($netcnx);
- network::netconnect::load_conf($netcnx, $netc, $intf);
- network::netconnect::read_net_conf('', $netcnx, $netc);
- });
my $gct = Gtk2::Gdk::GC->new($window1->{rwindow}->window);
$gct->set_foreground($colort);
my $gcr = Gtk2::Gdk::GC->new($window1->{rwindow}->window);
$gcr->set_foreground($colorr);
my $gca = Gtk2::Gdk::GC->new($window1->{rwindow}->window);
$gca->set_foreground($colora);
-my $pix_c_map = gtkcreate_pixbuf("net_c.png");
-my $pix_d_map = gtkcreate_pixbuf("net_d.png");
-$button_connect->add(gtkpack__(Gtk2::VBox->new(0,3),
- my $pix_c = gtkcreate_img("net_u.png"),
- my $label_c = Gtk2::Label->new(N("Wait please"))
- ));
$statusbar->push(1, N("Wait please, testing your connection..."));
$window1->{rwindow}->show_all;
@@ -352,9 +326,6 @@ sub update() {
};
my @intfs = get_val(); # get values from /proc file system
- if ($combo1->entry->get_text ne ($netcnx->{PROFILE} || "default")) {
- $combo1->entry->set_text($netcnx->{PROFILE} || "default");
- }
foreach (@intfs) {
my $intf = $_;
if (!member($intf,@interfaces)) {
@@ -449,13 +420,12 @@ sub update() {
$statusbar->pop(1);
$statusbar->push(1, $isconnected == 1 ? N("Connected") : N("Not connected"));
}
- $label_c->set_label($isconnected == 1 ? N("Disconnect %s", $netcnx->{type}) : N("Connect %s", $netcnx->{type}));
- $pix_c->set_from_pixbuf($isconnected == 1 ? $pix_c_map : $pix_d_map);
+ $button_connect->set("label", $isconnected == 1 ? N("Disconnect %s", $netcnx->{type}) : N("Connect %s", $netcnx->{type}));
$button_connect->set_sensitive(1);
}
if (!(-e $connect_file && -e $disconnect_file)) {
$button_connect->set_sensitive(0);
- $label_c->set_label("No internet connection configured");
+ $button_connect->set("label", N("No internet connection configured"));
}
1;
}