summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-02-21 18:17:32 +0000
committerdamien <damien@mandriva.com>2001-02-21 18:17:32 +0000
commitb0127568b3d2b150341118f750150e66743d12b4 (patch)
tree1743e8b40a227163d4420b2acdf1e78b04d36c82 /perl-install
parentb4f3dca39879d6cece654e2623462634e82fe1aa (diff)
downloaddrakx-b0127568b3d2b150341118f750150e66743d12b4.tar
drakx-b0127568b3d2b150341118f750150e66743d12b4.tar.gz
drakx-b0127568b3d2b150341118f750150e66743d12b4.tar.bz2
drakx-b0127568b3d2b150341118f750150e66743d12b4.tar.xz
drakx-b0127568b3d2b150341118f750150e66743d12b4.zip
updated (don't remember what)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet10
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 81526a1b6..01bc99771 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -22,6 +22,7 @@ use Gtk;
init Gtk;
use Data::Dumper;
use lib qw(/usr/lib/libDrakX);
+#use lib qw(..);
use interactive;
use standalone;
@@ -190,6 +191,14 @@ $vbox2->pack_start($hbox3, 0, 0, 0);
my $bbox1 = new Gtk::HButtonBox;
$vbox1->pack_start($bbox1,0,0,0);
$bbox1->set_layout(-end);
+
+my $button_wizard = new Gtk::Button "Wizard...";
+$button_wizard->signal_connect ( clicked => sub {
+ $::isWizard = 1;
+ netconnect::intro('', $netcnx, $in, sub { $in->standalone::pkgs_install(@_) });
+ $combo1->entry->set_text((-e "/etc/sysconfig/network-scripts/draknet_conf." . $combo1->entry->get_text) ? $combo1->entry->get_text : "default");
+ });
+$bbox1->add($button_wizard );
my $button_ok = new Gtk::Button "OK";
$button_ok->signal_connect ( clicked => sub {
$old_profile=$netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default";
@@ -208,6 +217,7 @@ $button_cancel->signal_connect ( clicked => sub {
});
$bbox1->add($button_cancel);
$combo1->entry->signal_connect( 'changed', sub {
+ print "CHANGED\n";
netconnect::set_profile('', $netcnx, $combo1->entry->get_text());
netconnect::load_conf('', $netcnx, $netc, $intf);
$netcnx->{$_}=$netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE);