diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 8 |
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; |