diff options
| author | damien <damien@mandriva.com> | 2001-02-21 18:17:32 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-02-21 18:17:32 +0000 |
| commit | b0127568b3d2b150341118f750150e66743d12b4 (patch) | |
| tree | 1743e8b40a227163d4420b2acdf1e78b04d36c82 /perl-install | |
| parent | b4f3dca39879d6cece654e2623462634e82fe1aa (diff) | |
| download | drakx-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-x | perl-install/standalone/draknet | 10 |
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); |