From c3d787031f1d56168c6a3072c85a046fb913427f Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Fri, 23 Nov 2001 23:14:54 +0000 Subject: radio buttons & information message. --- perl-install/standalone/drakbackup | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'perl-install') 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. "), ), ), ), -- cgit v1.2.1