summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2003-07-03 01:20:59 +0000
committerStew Benedict <stewb@mandriva.org>2003-07-03 01:20:59 +0000
commite4282b2b128094eb62794c951e125ee4c527cda0 (patch)
treeb24dfde18583e94058ec5a162c7dd1c3290d8be1 /perl-install/standalone
parentc9402323c5c1efc3dea0d23d31583a8a45b30d88 (diff)
downloaddrakx-e4282b2b128094eb62794c951e125ee4c527cda0.tar
drakx-e4282b2b128094eb62794c951e125ee4c527cda0.tar.gz
drakx-e4282b2b128094eb62794c951e125ee4c527cda0.tar.bz2
drakx-e4282b2b128094eb62794c951e125ee4c527cda0.tar.xz
drakx-e4282b2b128094eb62794c951e125ee4c527cda0.zip
Show units for hard-drive allocation. Add "View Configuration" 1st screen.
Diffstat (limited to 'perl-install/standalone')
-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 d36b7bf4e..d3561418c 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -2141,7 +2141,7 @@ sub advanced_where_tape {
),
0, new Gtk2::VBox(0, 6),
0, gtkpack_(new Gtk2::HBox(0,10),
- 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_tape),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup (Mb)")), $where_tape),
1, new Gtk2::VBox(0, 6),
0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_tape), 200, 20),
),
@@ -2215,7 +2215,7 @@ sub advanced_where_hd {
),
0, new Gtk2::VBox(0, 6),
0, gtkpack_(new Gtk2::HBox(0,10),
- 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup (Mb)")), $where_hd),
1, new Gtk2::VBox(0, 6),
0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
),
@@ -3178,7 +3178,7 @@ sub restore_other_media_hd {
),
0, new Gtk2::VBox(0, 6),
0, gtkpack_(new Gtk2::HBox(0,10),
- 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup (Mb)")), $where_hd),
1, new Gtk2::VBox(0, 6),
0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
),
@@ -4493,7 +4493,8 @@ sub build_backup_ftp_status() {
gtkflush();
}
-sub build_backup_box_see_conf() {
+sub build_backup_box_see_conf {
+ my ($caller) = @_;
my $box2;
my $text = new Gtk2::TextView;
system_state();
@@ -4512,8 +4513,12 @@ sub build_backup_box_see_conf() {
$custom_help = "";
$central_widget = \$box2;
$current_widget = \&build_backup_box_see_conf;
- $previous_widget = \&build_backup_box;
- $up_box->show_all;
+ if ($caller eq "interactive") {
+ $previous_widget = \&interactive_mode_box;
+ } else {
+ $previous_widget = \&build_backup_box;
+ }
+ $up_box->show_all;
}
sub build_backup_box_progress() {
@@ -4599,6 +4604,10 @@ sub interactive_mode_box {
destroy_widget();
advanced_box();
}),
+ 1, gtksignal_connect(new Gtk2::Button(N("View Configuration")), clicked => sub {
+ destroy_widget();
+ build_backup_box_see_conf("interactive");
+ }),
1, gtksignal_connect(new Gtk2::Button(N("Backup Now")), clicked => sub {
if ($cfg_file_exist) {
build_backup_box();