From e4282b2b128094eb62794c951e125ee4c527cda0 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Thu, 3 Jul 2003 01:20:59 +0000 Subject: Show units for hard-drive allocation. Add "View Configuration" 1st screen. --- perl-install/standalone/drakbackup | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) (limited to 'perl-install/standalone/drakbackup') 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(); -- cgit v1.2.1