summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup16
1 files changed, 13 insertions, 3 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 874849135..f4b30ccf2 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -212,23 +212,33 @@ sub interactive_mode {
my ($pix_l_map, $pix_l_mask) = gtkcreate_png("pixmaps/backup_left.png");
my ($pix_r_map, $pix_r_mask) = gtkcreate_png("pixmaps/backup_bot.png");
+ my $box2 = new Gtk::VBox( 0, 10 );
+
+ my $radio1 = new Gtk::RadioButton( "Backup Wizard");
+ $box2->add( $radio1);
+ $radio1->set_active(1);
+ my $radio2 = new Gtk::RadioButton( "Backup Advanced", $radio1);
+ $box2->add( $radio2);
+ my $radio3 = new Gtk::RadioButton( "Build Backup now", $radio1);
+ $box2->add( $radio3);
+
gtkadd($window1,
gtkpack(new Gtk::VBox(0,0),
gtkpack(new Gtk::VBox(0,0),
new Gtk::Pixmap($pix_u_map, $pix_u_mask),
gtkpack_(new Gtk::HBox(0,0),
0, new Gtk::Pixmap($pix_l_map, $pix_l_mask),
- 1, gtkpack($up_box = new Gtk::VBox(0,5),#gtkset_usize($up_box = new Gtk::VBox(0,5),321, 230),
+ 1, gtkpack($up_box = new Gtk::VBox(0,5),
$box = gtkpack(new Gtk::VBox(0,0),
_("Please choose the method to configure your system backup."),
gtkpack(new Gtk::HBox(0,20),
gtkpack(new Gtk::VBox(0,10),
new Gtk::HBox(0,15),
- my $adv_c_button = new Gtk::RadioButton (_("Advanced")),
-# my $wiz_h_button = new Gtk::RadioButton _("Wizard"), $adv_c_button,
+ $box2,
new Gtk::HBox(0,5),
),
),
+ _("Drakbackup allow you to build a backup of your system. With Drakbackup \n you will be able to save your backups on your Hard-disk or on CD, across the network\n with mandrake-online or other place, it accept ftp, sftp, scp, rsync, nfs. "),
),
),
),