From 40bb969c0384907d53a54218a1618ec6b2bc83cd Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 26 Feb 2001 21:26:24 +0000
Subject: reincluded Gtk + init Gtk thiskind -> thiskind_backend

---
 perl-install/standalone/draknet | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 4dcd58f9e..2903dda79 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -19,6 +19,9 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 #use Data::Dumper;
+
+use Gtk;
+init Gtk;
 use lib qw(/usr/lib/libDrakX);
 
 use interactive;
@@ -61,7 +64,7 @@ my $in = vnew interactive('su');
 
 $::isEmbedded or goto dd;
 netconnect::read_net_conf('', $netcnx, $netc);
-any::setup_thiskind($in, 'net', !$::expert, 1);
+any::setup_thiskind_backend('net', undef);
 my @all_cards = netconnect::conf_network_card_backend ('', $netc, $intf, undef, undef, undef, undef);
 netconnect::load_conf('', $netcnx, $netc, $intf);
 
@@ -70,12 +73,13 @@ $window1->signal_connect ( delete_event => sub { Gtk->exit(0); });
 $window1->set_position(1);
 $window1->set_title(_("Network configuration (%d adapters)", @all_cards));
 $window1->border_width(10);
-$window1->set_usize(500, 400);
+$::isEmbedded or $window1->set_usize(500, 400);
 my $vbox1 = new Gtk::VBox(0,0);
 $window1->add($vbox1);
 my $hbox1 = new Gtk::HBox(0,0);
 $vbox1->pack_start($hbox1,1,1,0);
 $hbox1->pack_start(new Gtk::Label(_("Profile: ")),0,0,0);
+
 my $combo1 = new Gtk::Combo;
 $combo1->set_popdown_strings (netconnect::get_profiles() );
 my $old_profile=$netcnx->{PROFILE};
-- 
cgit v1.2.1