diff options
| author | damien <damien@mandriva.com> | 2001-02-26 21:26:24 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-02-26 21:26:24 +0000 |
| commit | 40bb969c0384907d53a54218a1618ec6b2bc83cd (patch) | |
| tree | 34184d4b7908d85ad3ffd4120d21068a4c537aa7 /perl-install | |
| parent | 315c44dc67e87885a412d63e85969fb95615fe4a (diff) | |
| download | drakx-backup-do-not-use-40bb969c0384907d53a54218a1618ec6b2bc83cd.tar drakx-backup-do-not-use-40bb969c0384907d53a54218a1618ec6b2bc83cd.tar.gz drakx-backup-do-not-use-40bb969c0384907d53a54218a1618ec6b2bc83cd.tar.bz2 drakx-backup-do-not-use-40bb969c0384907d53a54218a1618ec6b2bc83cd.tar.xz drakx-backup-do-not-use-40bb969c0384907d53a54218a1618ec6b2bc83cd.zip | |
reincluded Gtk + init Gtk
thiskind -> thiskind_backend
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 8 |
1 files changed, 6 insertions, 2 deletions
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}; |