summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-10 08:57:21 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-10 08:57:21 +0000
commit0492a73962bbce163d4861fb01e278befae9cbb6 (patch)
treebbd421df7dc6ef3b06410118a9bf7e6ac0550ead /perl-install
parent56c3de50a210479f3fde2928ba7fb2619b8e6883 (diff)
downloaddrakx-0492a73962bbce163d4861fb01e278befae9cbb6.tar
drakx-0492a73962bbce163d4861fb01e278befae9cbb6.tar.gz
drakx-0492a73962bbce163d4861fb01e278befae9cbb6.tar.bz2
drakx-0492a73962bbce163d4861fb01e278befae9cbb6.tar.xz
drakx-0492a73962bbce163d4861fb01e278befae9cbb6.zip
restore step with correct help button & code cleanning.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup85
1 files changed, 5 insertions, 80 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 4589c6cd7..837ec5a17 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -394,7 +394,6 @@ sub build_backup_files {
}
}
-
sub list_remove {
my($widget, $list) = @_;
my @to_remove;
@@ -469,10 +468,6 @@ sub wizard_old {
) or goto step_2;
}
-
-
-
-
sub advanced_what_sys {
my $box_what_sys;
@@ -559,8 +554,6 @@ sub advanced_what_other {
$up_box->show_all();
}
-
-
sub advanced_what{
my $box_what;
@@ -680,7 +673,6 @@ sub advanced_where_net_ssh {
$up_box->show_all();
}
-
sub advanced_where_net {
my $box_where_net;
@@ -1231,8 +1223,6 @@ sub restore_step2 {
$up_box->show_all();
}
-
-
sub restore_box {
my $retore_box;
my $retore_box3;
@@ -1241,7 +1231,7 @@ sub restore_box {
my $check_restore_other;
find_backup_to_restore();
-
+ restore_button_box();
@user_list_to_restore = @user_backuped;
if ($other_backuped || $sys_backuped || @user_backuped) {
gtkpack($advanced_box,
@@ -1276,67 +1266,12 @@ sub restore_box {
)
);
}
+ $custom_help = "retore";
+ $current_widget = \&restore_box;
$central_widget = \$retore_box;
$up_box->show_all();
}
-# sub restore_box {
-# my $retore_box;
-# my $retore_box3;
-# my $check_restore_sys;
-# my $check_restore_user;
-# my $check_restore_other;
-
-# find_backup_to_restore();
-
-# @user_list_to_restore = @user_backuped;
-# if ($other_backuped || $sys_backuped || @user_backuped) {
-# gtkpack($advanced_box,
-# $retore_box = gtkpack(new Gtk::VBox(0,1),
-# $retore_box2 = gtkpack(new Gtk::VBox(0,10),
-# $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
-# 0, gtkpack_(new Gtk::HBox(0,10),
-# 1, new Gtk::HBox(0,10),
-# 1, gtkpack_(new Gtk::VBox(0,10),
-# 0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")),
-# clicked => sub { $retore_box3->destroy();
-# $restore_sys = 1;
-# $restore_other = 1;
-# $restore_user = 1;
-# do_restore(); }),
-# 0, gtksignal_connect(new Gtk::Button(_("Custom Restore")),
-# clicked => sub { $retore_box3->destroy(); restore_step2(); }),
-# ),
-# 1, new Gtk::HBox(0,10),
-# ),
-# 1, new Gtk::HBox(0,10),
-# ),),),
-# );
-# } else {
-# gtkpack($advanced_box,
-# $retore_box = gtkpack_(new Gtk::VBox(0,1),
-# 1, gtkpack_(new Gtk::HBox(0, 0),
-# 1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
-# $retore_box2 = gtkpack(new Gtk::VBox(0,10),
-# $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
-# 1, _("Please Build backup before to restore it..."),
-# 0, gtkpack_(new Gtk::HBox(0,10),
-# 1, new Gtk::HBox(0,10),
-# ),
-# 1, new Gtk::HBox(0,10),
-# ),),),),
-# )
-# );
-# }
-# $central_widget = \$retore_box;
-# $up_box->show_all();
-# }
-
-
-
-
-
-
sub adv_button_box {
$button_box_tmp->destroy();
@@ -1355,8 +1290,7 @@ sub adv_button_box {
);
}
-
-sub adv_button_box {
+sub restore_button_box {
$button_box_tmp->destroy();
gtkpack($button_box,
@@ -1367,14 +1301,11 @@ sub adv_button_box {
${$central_widget}->destroy(); restore_help();}),
1, new Gtk::HBox(0, 0),
1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub {
- ${$central_widget}->destroy(); restore_help();}),
+ ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help);}),
),
);
}
-
-
-
sub main_button_box {
$button_box_tmp->destroy();
@@ -1414,8 +1345,6 @@ sub interactive_mode_box {
$up_box->show_all();
}
-
-
sub interactive_mode {
$interactive = 1;
my $box;
@@ -1464,7 +1393,6 @@ sub interactive_mode {
Gtk->exit(0);
}
-
sub about {
my $text = new Gtk::Text(undef, undef);
my $about_box;
@@ -1544,7 +1472,6 @@ configuration file:
$up_box->show_all();
}
-
sub adv_help {
my ($function, $custom_help) = @_,
my $text = new Gtk::Text(undef, undef);
@@ -1621,8 +1548,6 @@ configuration file:
}
-
-
sub restore_help {
my $text = new Gtk::Text(undef, undef);
my $about_box;