summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-07 15:33:11 +0000
committerdamien <damien@mandriva.com>2001-03-07 15:33:11 +0000
commit7e1353553ee0532a2380e0ead7839717262471c4 (patch)
tree40fe480ec74e0080b3880a973abe4dca9f216ae9 /perl-install/standalone
parent5b7c8e3c88d8a924517263724f8680ba925f369a (diff)
downloaddrakx-7e1353553ee0532a2380e0ead7839717262471c4.tar
drakx-7e1353553ee0532a2380e0ead7839717262471c4.tar.gz
drakx-7e1353553ee0532a2380e0ead7839717262471c4.tar.bz2
drakx-7e1353553ee0532a2380e0ead7839717262471c4.tar.xz
drakx-7e1353553ee0532a2380e0ead7839717262471c4.zip
not use common anymore, uses gtkpng, cosmetic chages
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draknet8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index af578296e..e720c2e36 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -25,7 +25,8 @@ use lib qw(/usr/lib/libDrakX);
use interactive;
use standalone;
use netconnect;
-use common qw(:common :file :functional :system);
+#use common qw(:common :file :functional :system);
+use my_gtk;
use c;
my $xpm_path="/usr/share/libDrakX/pixmaps";
@@ -345,9 +346,11 @@ sub configure_lan {
$vbox1->pack_start(new Gtk::Label(_("LAN Configuration")),0,1,0);
my $notebook = new Gtk::Notebook;
$vbox1->pack_start($notebook,0,1,0);
+ $notebook->set_sensitive($netc->{NETWORKING} eq "yes");
my @eth_data;
foreach (0..$#all_cards) {
my $vbox_local=new Gtk::VBox(0,0);
+ $vbox_local->set_border_width(10);
$vbox_local->pack_start(new Gtk::Label( _("Adapter %s: %s", $_+1 , "eth$_")),1,1,0);
# Eth${_}Hostname=$netc->{HOSTNAME}
# Eth${_}HostAlias=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
@@ -359,7 +362,6 @@ sub configure_lan {
[_("DHCP client"), \$netcnx->{dhcp_client}]
);
my $i=0;
- my ($pix_eth_map, $pix_eth_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'), "$xpm_path/eth_card_mini.xpm");
foreach (@conf_data) {
$infos[2*$i]=new Gtk::HBox(0,0);
my $l=new Gtk::Label($_->[0]);
@@ -382,7 +384,7 @@ sub configure_lan {
# $clist1->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]);
# $clist1->set_selectable($_, 0);
my $hbox_local = new Gtk::HBox(0,0);
- my $pix = new Gtk::Pixmap ($pix_eth_map, $pix_eth_mask);
+ my $pix = my_gtk::gtkpng ("eth_card_mini");
$hbox_local->pack_start($pix,0,0,0);
$hbox_local->pack_start(new Gtk::Label("eth$_"),0,0,0);
$hbox_local->show_all;