not use common anymore, uses gtkpng, cosmetic chages

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;