summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-11 08:48:12 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-11 08:48:12 +0000
commit5aec7c8b70e86d124cc01436a50a9ae5f97e8aec (patch)
tree0d0fc7380c8b6f1e4be4cc58bdb687b55fb9378f /perl-install
parent3d6fcda8eb87cb63393510489b4e965d43f9ac69 (diff)
downloaddrakx-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-xperl-install/standalone/drakbackup21
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),
),