From 5fc5b17041a7646d29c7d9a3bc600a854ad15699 Mon Sep 17 00:00:00 2001
From: Sebastien Dupont <sdupont@mandriva.com>
Date: Sat, 24 Nov 2001 01:05:00 +0000
Subject: advanced step.

---
 perl-install/standalone/drakbackup | 142 ++++++++++++++++++++++++++++++++++---
 1 file changed, 132 insertions(+), 10 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index f4b30ccf2..f13bf6517 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -80,6 +80,8 @@ my $central_widget;
 my $interactive;
 my $up_box;
 my $box;
+my $backup_choice = 0;
+
 
 # PATH  & Global variables.
 my $cfg_file = "/etc/drakconf/drakbackup/drakbackup.conf";
@@ -131,6 +133,54 @@ my @xpm_data = ( "16 16 4 1",
 		 " ..         ",
 		 " ");
 
+my @book_open_xpm = (
+"16 16 4 1",
+"       c None s None",
+".      c black",
+"X      c #808080",
+"o      c white",
+"                ",
+"  ..            ",
+" .Xo.    ...    ",
+" .Xoo. ..oo.    ",
+" .Xooo.Xooo...  ",
+" .Xooo.oooo.X.  ",
+" .Xooo.Xooo.X.  ",
+" .Xooo.oooo.X.  ",
+" .Xooo.Xooo.X.  ",
+" .Xooo.oooo.X.  ",
+"  .Xoo.Xoo..X.  ",
+"   .Xo.o..ooX.  ",
+"    .X..XXXXX.  ",
+"    ..X.......  ",
+"     ..         ",
+"                ");
+
+my @book_closed_xpm = (
+"16 16 6 1",
+"       c None s None",
+".      c black",
+"X      c red",
+"o      c yellow",
+"O      c #808080",
+"#      c white",
+"                ",
+"       ..       ",
+"     ..XX.      ",
+"   ..XXXXX.     ",
+" ..XXXXXXXX.    ",
+".ooXXXXXXXXX.   ",
+"..ooXXXXXXXXX.  ",
+".X.ooXXXXXXXXX. ",
+".XX.ooXXXXXX..  ",
+" .XX.ooXXX..#O  ",
+"  .XX.oo..##OO. ",
+"   .XX..##OO..  ",
+"    .X.#OO..    ",
+"     ..O..      ",
+"      ..        ",
+"                ");
+
 
 
 
@@ -192,12 +242,7 @@ sub build_backup_files {
 }
 
 sub interactive_mode {
-    my $fst_choice_box;
-    my $fst_choice_box1;
-    my $pixmap_fst_choice;
     $interactive = 1;
-    my $pixmap;
-    my $pixmapwid;
     my $mask;
     my $style;
     my $box;
@@ -221,7 +266,10 @@ sub interactive_mode {
     $box2->add( $radio2);
     my $radio3 = new Gtk::RadioButton( "Build Backup now", $radio1);
     $box2->add( $radio3);
-
+    gtksignal_connect( $radio1, clicked => sub { $backup_choice = 0 });
+    gtksignal_connect( $radio2, clicked => sub { $backup_choice = 1 });
+    gtksignal_connect( $radio3, clicked => sub { $backup_choice = 2 });
+    
     gtkadd($window1,
 	   gtkpack(new Gtk::VBox(0,0),
 		    gtkpack(new Gtk::VBox(0,0),
@@ -239,6 +287,14 @@ sub interactive_mode {
 									       ),
 								       ),
 							       _("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. "),
+							       gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
+								      gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { 
+									  ${$central_widget}->destroy(); 
+									  $backup_choice == 0  and print "Wizard\n";
+									  $backup_choice == 1  and advanced();
+									  $backup_choice == 2  and print "now\n";
+								      }),
+								      ),
 							       ),
 						),
 				     ),
@@ -247,10 +303,8 @@ sub interactive_mode {
 				   gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
 				   gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { 
 				       ${$central_widget}->destroy(); about() }),
-				   gtksignal_connect(new Gtk::Button(_("           Help            ")), clicked => sub { 
+				   gtksignal_connect(new Gtk::Button(_("                   Help                     ")), clicked => sub { 
 				       ${$central_widget}->destroy(); help() }),
-				   gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { 
-				       ${$central_widget}->destroy(); about() }),
 				   ),
 			    ),
 		   ),
@@ -370,10 +424,78 @@ sub wizard {
 
 
 sub advanced {
-
+    my $notebook; 
+    my $about_box;
+    my $book_open;
+    my $book_open_mask;
+    my $transparent;
+    my $book_closed;
+    my $book_closed_mask;
+    
+    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
+    $checkbutton->set_usize( 100, 75 );
+    $checkbutton->show();
+    my ($pix_net_map, $pix_net_mask) = gtkcreate_png("pixmaps/backup_net.png");
+    my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("pixmaps/backup_hd.png");
+    my ($pix_time_map, $pix_time_mask) = gtkcreate_png("pixmaps/backup_time.png");
+    ($book_open, $book_open_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_open_xpm);
+    ($book_closed, $book_closed_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_closed_xpm);
+
+    my $label1 = gtkpack(new Gtk::HBox(0,10),
+			 new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
+			 _("What backup.")
+			 );
+    my $label2 = gtkpack(new Gtk::HBox(0,10),
+			 new Gtk::Pixmap($pix_net_map, $pix_net_mask),
+			 _("Where backup.")
+			 );
+    my $label3 = gtkpack(new Gtk::HBox(0,10),
+			 new Gtk::Pixmap($pix_time_map, $pix_time_mask),
+			 _("When backup.")
+			 );
+    gtkpack($up_box,
+	    $about_box = gtkpack_(new Gtk::VBox(0,10),
+				  1, gtkpack(new Gtk::HBox(0,0),
+					     gtkpack(my $notebook_box = new Gtk::VBox(0,5),
+						     $notebook = new Gtk::Notebook,
+						     $notebook->insert_page( $checkbutton, $label1, 2 ),
+						     $notebook->insert_page( $checkbutton, $label2, 2 ),
+						     $notebook->insert_page( $checkbutton, $label3, 2 )
+							 ),
+					     ),
+				  0, gtkadd(new Gtk::HButtonBox,
+					    gtksignal_connect(new Gtk::Button(_("Previous")), clicked => sub { Gtk->main_quit() }),
+					    gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { 
+						${$central_widget}->destroy(); 
+						$backup_choice == 0  and print "Wizard\n";
+						$backup_choice == 1  and advanced();
+						$backup_choice == 2  and print "now\n";
+					    }),
+					    ),				  
+				  ),
+	    ),
+    $central_widget = \$about_box;
+    $up_box->show_all();
 }
 
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 #    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
 #    $checkbutton->set_usize( 100, 75 );
 #    $checkbutton->show();
-- 
cgit v1.2.1