diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-11 08:48:12 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-11 08:48:12 +0000 |
| commit | 5aec7c8b70e86d124cc01436a50a9ae5f97e8aec (patch) | |
| tree | 0d0fc7380c8b6f1e4be4cc58bdb687b55fb9378f /perl-install | |
| parent | 3d6fcda8eb87cb63393510489b4e965d43f9ac69 (diff) | |
| download | drakx-backup-do-not-use-5aec7c8b70e86d124cc01436a50a9ae5f97e8aec.tar drakx-backup-do-not-use-5aec7c8b70e86d124cc01436a50a9ae5f97e8aec.tar.gz drakx-backup-do-not-use-5aec7c8b70e86d124cc01436a50a9ae5f97e8aec.tar.bz2 drakx-backup-do-not-use-5aec7c8b70e86d124cc01436a50a9ae5f97e8aec.tar.xz drakx-backup-do-not-use-5aec7c8b70e86d124cc01436a50a9ae5f97e8aec.zip | |
fix wizard step2 problems, and add configuration button.
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index c67014354..998b67f82 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -43,9 +43,9 @@ # cdrw: /sys/dev/cdrom/info # /scsi/host0/bus0/target4/lun0 # # tar --use-compress-prog=bzip2 xf foo.tar.bz2 - -# todo today; new gi -# ftp +# +# don't forget to build floppy boot +# @@ -1040,17 +1040,26 @@ sub wizard_step2 { 0, gtkpack_(new Gtk::HBox(0, 15), 0, my $check_restore_sys = new Gtk::CheckButton(_("on Hard Drive")), 1, new Gtk::VBox(0, 5), - 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {filedialog() }), + 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub { + ${$central_widget}->destroy(); + advanced_where_hd(); + }), ), 0, gtkpack_(new Gtk::HBox(0, 15), 0, my $check_restore_user = new Gtk::CheckButton(_("across Network")), 1, new Gtk::VBox(0, 5), - 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {filedialog() }), + 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub { + ${$central_widget}->destroy(); + advanced_where_net(); + }), ), 0, gtkpack_(new Gtk::HBox(0, 15), 0, my $check_restore_other = new Gtk::CheckButton(_("on CDROM")), 1, new Gtk::VBox(0, 5), - 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {filedialog() }), + 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub { + ${$central_widget}->destroy(); + advanced_where_cd(); + }), ), 1, new Gtk::VBox(0, 5), ), |