some gi update and code cleaning,

remove some unuse functions,
interactive mode without popup windows.
restore mode in same window like interactive mode.

1 files changed, 356 insertions, 723 deletions

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 9b1a3afab..4589c6cd7 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -87,7 +87,6 @@ my $build_floppy = 0;
 my $mode = 0;
 my $conf_file = 0;
 my @list_arg = ();
-my $windows = 0;
 my $central_widget;
 my $previous_widget;
 my $current_widget;
@@ -95,6 +94,7 @@ my $interactive;
 my $up_box;
 my $advanced_box;
 my $box;
+my $box2;
 my $backup_choice = 0;
 my $cfg_file_exist = 0;
 my @user_and_path_list;
@@ -113,6 +113,9 @@ my @user_list_to_restore= ();
 my $retore_box2;
 my $cd_devive_entry;
 my $custom_help;
+my $button_box;
+my $button_box_tmp;
+
 
 # config. FILES -> Default PATH  & Global variables.
 my @sys_files = ("/etc");
@@ -163,16 +166,6 @@ foreach (@ARGV) {
 
 $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode();
 
-
-sub debug {
-    print "SYS_FILES: $_ \n" foreach (@sys_files);
-    print "HOME_FILES: $_ \n" foreach (@user_list);
-    print "OTHER_FILES: $_ \n" foreach (@list_other);
-    print "PATH_TO_SAVE: $save_path \n";
-    print "OPTION_REPLACE: $option_replace \n";
-    print "OPTION_COMP: $comp_mode \n";
-}
-
 sub read_passwd {
     @user_and_path_list = map { (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd'));  
     $DEBUG and print "user_and_path_list: ".$_."\n" foreach (@user_and_path_list);
@@ -296,7 +289,6 @@ sub read_conf_file {
     } 
     else { $cfg_file_exist = 0; }
     close CONF_FILE;    
-    $DEBUG and debug; 
 }
 
 sub backend_mod {
@@ -941,7 +933,6 @@ sub advanced_box{
 				    1, new Gtk::VBox(0, 5),	
 				    ),
 	    );
-    $previous_widget =\&interactive_mode;
     $button_what->add(gtkpack(new Gtk::HBox(0,10),
 			      new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
 			      new Gtk::Label(_(" What ")),
@@ -963,103 +954,12 @@ sub advanced_box{
 			      new Gtk::HBox(0, 5)
 			      ));
     $custom_help = "";
+    $previous_widget =\&interactive_mode_box;
     $current_widget = \&advanced_box;
     $central_widget = \$box_adv;
     $up_box->show_all();
 }
 
-
-sub advanced {
-    my $about_box;
-    my $book_open;
-    my $book_open_mask;
-    my $transparent;
-    my $book_closed;
-    my $book_closed_mask;
-    my $box_tmp;    
-    my $choice_what_sys;
-    my $box2;    
-    read_conf_file();
-
-
-    my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
-    my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
-    my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
-    my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("backup_hd");
-    my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time");
-    my ($pix_net_map, $pix_net_mask) = gtkcreate_png("backup_net");
-    my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options");
-
-    
-    gtkpack($up_box,
-	    $box = gtkpack_(new Gtk::VBox(0, 3),
-		0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
-		    1, gtkpack_(new Gtk::HBox(0, 3),
-			0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
-				1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15),	
-				   1, $box2 =  gtkpack_(new Gtk::HBox(0, 15),	
-					   1, new Gtk::VBox(0, 5),	
-					   1, gtkpack_(new Gtk::VBox(0, 15),	
-						       1, new Gtk::VBox(0, 5),	
-						       1, gtksignal_connect(my $button_what = new Gtk::Button(), clicked => sub { 
-							   $box2->destroy(); advanced_what(); }),
-						       1, gtksignal_connect(my $button_where = new Gtk::Button(), clicked => sub { 
-							   $box2->destroy();  advanced_where(); }),
-						       1, gtksignal_connect(my $button_when = new Gtk::Button(), clicked => sub { 
-							   $box2->destroy();  advanced_when(); }),
-						       1, gtksignal_connect(my $button_options = new Gtk::Button(), clicked => sub {
-							   $box2->destroy(); advanced_options();}),
-						       1, new Gtk::VBox(0, 5),	
-							 ),
-					   1, new Gtk::VBox(0, 5),	
-							),
-							    ),
-				),
-			    0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-			    0, gtkpack_(new Gtk::HButtonBox,
-				       0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => 
-							 sub { ${$central_widget}->destroy(); interactive_mode();  }),
-				       0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => 
-							 sub { ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help );  }),
-				       1, new Gtk::HBox(0, 1),	
-				       0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => 
-							 sub { ${$central_widget}->destroy(); $previous_widget->(); }),
-				       0, gtksignal_connect(new Gtk::Button(_(" Ok ")), clicked => 
-							 sub { ${$central_widget}->destroy();  save_conf_file(); $previous_widget->(); }),
-				       
-				       ),
-			    ),
-	    );
-    $custom_help = "";
-    $central_widget = \$box2;
-    $current_widget = \&advanced_box;
-    $previous_widget =\&interactive_mode;
-
-    $button_what->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
-			      new Gtk::Label(_(" What ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_where->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_net_map, $pix_net_mask),
-			      new Gtk::Label(_(" Where ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_when->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_time_map, $pix_time_mask),
-			      new Gtk::Label(_(" When ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_options->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_options_map, $pix_options_mask),
-			      new Gtk::Label(_(" More Options")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $up_box->show_all();
-}
-
-
-
 sub wizard   {
     my $about_box;
     my $book_open;
@@ -1117,394 +1017,11 @@ sub wizard   {
     $up_box->show_all();
 }
 
-
-
-
-
-
-
-
-
-
-
-sub advanced_bef {
-    my $notebook; 
-    my $notebook_what; 
-    my $notebook_when; 
-    my $notebook_where; 
-    my $notebook_options; 
-    my $about_box;
-    my $book_open;
-    my $book_open_mask;
-    my $transparent;
-    my $book_closed;
-    my $book_closed_mask;
-    my $box_tmp;    
-    my $choice_what_sys;
-    read_conf_file();
-    
-    my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time");
-    my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options");
-    my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
-    my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
-    my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
-    my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("backup_hd");
-    my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time");
-    my ($pix_net_map, $pix_net_mask) = gtkcreate_png("backup_net");
-    my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options");
-
-
-
-my ($label_what, $label_where, $label_when, $label_options, $label_what_sys, $label_what_user, $label_what_other, $label_where_net, $label_where_cd, $label_where_hd) = map { gtkpack($_->[2] ? new Gtk::VBox(0, 2) : new Gtk::HBox(0, 2), gtkpng($_->[0]), $_->[1]) }
-      (['backup_hd', _('What backup.'), 1],
-       ['backup_net', _('Where backup.'), 1],
-       ['backup_time', _("When backup."), 1],
-       ['backup_options', _("Options"), 1],
-       ['bootloader', _('System'), 0],
-       ['user', _('Users'), 0],
-       ['net_u', _('Other'), 0],
-       ['net', _('Network'), 0],
-       ['cdrom', _("CDROM\nDVDROM"), 0],
-       ['hd', _("Hard Drive\n NFS"), 0],
-      );
-
-    my $box_what_sys =  gtkpack_(new Gtk::VBox(0,1),
-				 1, _("\nPlease check all options that you need.\n"),
-				 1, _("This options can backup and restore all files on your /etc directory.\n"),
-				 0, my $check_what_sys = new Gtk::CheckButton( _("Backup your System files. (~ 2Mo)")),
-				 0, my $check_what_cvs = new Gtk::CheckButton( _("Need to restore any versions.(~ 10Mo)") ),
-				 0, _("With this option you will be able to restore any version\n of your /etc directory."),
-				 1, " ",
-				 );
-    my %check_what_user;
-    my $box_what_user =  gtkpack_(new Gtk::VBox(0,0),
-				  0, _("Please check all user that you want to include inb your backup."),
-				  0, new Gtk::HSeparator,
-				  1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
-				      map { my $name = $_;
-					    my @user_list_tmp;
-					    my $b = new Gtk::CheckButton($name); 
-
-					    if (grep /^$name$/, @user_list) {
-						$check_what_user{$_}[1] = 1;
-						gtkset_active($b, 1);
-					    } else {
-						$check_what_user{$_}[1] = 0;
-						gtkset_active($b, 0);
-					    }
-					    $b->signal_connect(toggled => sub { 
-						if ($check_what_user{$name}[1] ) {
-						    $check_what_user{$name}[1] = 0;
-						    @user_list_tmp = grep(!/^$name$/, @user_list);
-						    @user_list = @user_list_tmp;
-						} else { 
-						    $check_what_user{$name}[1] = 1;
-						    if (!member($name, @user_list) ) {push @user_list, $name;}
-						}
-					    });
-					    $b } (@all_user_list) 
-								   ),
-							   ),
-				  0, new Gtk::HSeparator,
-				  0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ),
-				  );
-    
-    $list_other = new Gtk::List();
-    $list_other->set_selection_mode(-extended);
-    $list_other->add(gtkshow(new Gtk::ListItem($_))) foreach (@list_other);
-    my $box_what_other =  gtkpack_(new Gtk::VBox(0,10),
-				   1, gtkpack_(new Gtk::HBox(0,4),
-					       1, createScrolledWindow($list_other),
-					       ),
-				   0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
-					     gtksignal_connect(new Gtk::Button(_("Add")), clicked => sub {filedialog()  }),
- 					     gtksignal_connect(new Gtk::Button(_("Remove Selected")), clicked => \&list_remove, $list_other),
-					     ),
-				   );
-    
-    my $combo_where_net_proto = new Gtk::Combo();
-    $combo_where_net_proto->set_popdown_strings ("scp","ftp", "sftp", "rsync");
-    my $combo_where_net_auth = new Gtk::Combo();
-    $combo_where_net_auth->set_popdown_strings ("ssh/identity.pub with passphrase null",
-						"ssh-agent re ask for password between each end of root session",
-						"ask for passwrod each timer", 
-						"no pass require");
-
-    my $box2 = new Gtk::VBox( 0, 2 );
-    my $radio1 = new Gtk::RadioButton( "  ssh/identity.pub with passphrase null");
-    $box2->add( $radio1);
-    $radio1->set_active(1);
-    my $radio2 = new Gtk::RadioButton( "  ssh-agent ", $radio1);
-    $box2->add( $radio2);
-    my $radio3 = new Gtk::RadioButton( "  ask for passwrod each timer", $radio2);
-    $box2->add( $radio3);
-    gtksignal_connect( $radio1, clicked => sub { $auth_choice = 0 });
-    gtksignal_connect( $radio2, clicked => sub { $auth_choice = 1 });
-    gtksignal_connect( $radio3, clicked => sub { $auth_choice = 2 });
-
-
-    my $box_where_net =  gtkpack_(new Gtk::VBox(0,1),
-				  0, gtkpack_(new Gtk::VBox(0,1),
-					      0, new Gtk::HSeparator,
-					      0, my $check_where_net = new Gtk::CheckButton( _(" Use Network to backup") ),
-					      0, new Gtk::HSeparator,
-					      
-
-							  0, gtkpack_(new Gtk::HBox(0,10),
-								      1, _("please choose your protocol"),
-								      0, $combo_where_net_proto,
-								      0, _(""),
-								      ),
-							  0, _(""),
-							  0, gtkpack_(new Gtk::HBox(0,10),
-								      1, _("please entrer the host name or IP."),
-								      1, my $host_name_entry = new Gtk::Entry(),
-								      0, _(""),
-								      ),
-							  0, _(""),
-							  0, gtkpack_(new Gtk::HBox(0,10),
-								      1, _("please entrer the directory\n to put the backup on this host. "),
-								      1, my $host_path_entry = new Gtk::Entry(),
-								      0, _(""),
-								      ),
-							  0, _(""),
-							  0, gtkpack_(new Gtk::HBox(0,10),
-								      1, _("please entrer your login"),
-								      0, my $login_user_entry = new Gtk::Entry(),
-								      0, _(""),
-								      ),
-							  ),
-
-
-				  1, gtkpack_(new Gtk::VBox(0,1),
-					      0, new Gtk::HSeparator,
-					      1, gtkpack_(new Gtk::HBox(0,3),
-							  0, new Gtk::HBox(0,3),
-							  1, _("please choose your authentifycation method"),
-							  1, new Gtk::Button("Help "),
-							  ),
-					      0, " ", 
-					      1, gtkpack_(new Gtk::HBox(0,10),
-							  1, $box2,
-							  1, gtkpack_(new Gtk::VBox(0,1),
-								      1, new Gtk::Button(" Assistant"),
-								      ),
-							  ),
-					      ),
-#				  0, _("It exists three solutions to authentify with the \n host to backup: "),
-#				  0, _("   - ssh-agent ( correct security)"),
-#				  0, _("   - ssh with empty passphrase. "),
-#				  0, _(" if you are sure\n that nobody can read your\n .ssh/identity.bakup) "),
-#				  0, _("   - ask every time for password. best security "),
-    );
-    $combo_where_net_proto->entry->set_text($net_proto);
-    $combo_where_net_proto->entry->signal_connect( 'changed', sub { $net_proto = $combo_where_net_proto->entry->get_text()});
-    $host_path_entry->set_text( $host_path );
-    $host_name_entry->set_text( $host_name );
-    $login_user_entry->set_text( $login_user );
-    $host_name_entry->signal_connect( 'changed', sub { $host_name = $host_name_entry->get_text()});
-    $host_path_entry->signal_connect( 'changed', sub { $host_path = $host_path_entry->get_text()});
-    $login_user_entry->signal_connect( 'changed', sub { $login_user = $login_user_entry->get_text()});
-
-    my $adj = new Gtk::Adjustment 500.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
-    my $box_where_hd =  gtkpack_(new Gtk::VBox(0,1),
-				 0, new Gtk::HSeparator,
-				 0, my $check_where_hd = new Gtk::CheckButton( _(" Use Hard Disk to backup") ),
-				 0, new Gtk::HSeparator,
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     0, _(" "),
-					     0, _("Please entrer the directory to save: "),
-					     1, my $save_path_entry = new Gtk::Entry(),
-					     0, _(""),
-					     ),
-				 0, _(""),
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     0, _(""),
-					     0, _("Please entrer the maximum size allowed for Drakbackup "),
-					     1, my $spinner = new Gtk::SpinButton( $adj, 0, 0),
-					     0, _(""),
-					     ),
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _(""),
-					     0, my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.") ),
-					     0, _(""),
-					     ),
-				 );
-
-    $save_path_entry->set_text( $save_path );
-    $save_path_entry->signal_connect( 'changed', sub { $save_path = $save_path_entry->get_text()});
-
-    my $combo_where_cd_time = new Gtk::Combo();
-    $combo_where_cd_time->set_popdown_strings ("650","700", "750", "800");    
-    my $box_where_cd =  gtkpack_(new Gtk::VBox(0,1),
-				 0, new Gtk::HSeparator,
-				 0, my $check_where_cd = new Gtk::CheckButton( _(" Use CD/DVDROM to backup") ),
-
-				 0, new Gtk::HSeparator,
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _("please choose your CD space"),
-					     0, $combo_where_cd_time,
-					     0, _(""),
-					     ),
-				 0, _(""),
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _(" Please check if you are using CDRW media"),
-					     0, my $check_cdrw = new Gtk::CheckButton(),
-					     0, _(""),
-					     ),
-				 0, _(""),
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _(" Please check if you want to include install boot on your CD."),
-					     0, my $check_cd_with_install_boot = new Gtk::CheckButton(),
-					     0, _(""),
-					     ),
-				 0, _(""),
-				 0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _("please enter your CD Writer device name\n ex: 0,1,0"),
-					     0, my $cd_devive_entry = new Gtk::Entry(),
-					     0, _(""),
-					     ),
-				 );
-    $cd_devive_entry->set_text( $cd_devive );
-    $cd_devive_entry->signal_connect( 'changed', sub { $cd_devive = $cd_devive_entry->get_text()});
-
-    $combo_where_cd_time->entry->set_text($cd_time);
-    $combo_where_cd_time->entry->signal_connect( 'changed', sub { $cd_time = $combo_where_cd_time->entry->get_text()});	       
-
-    my $box_what = gtkpack(new Gtk::VBox(0,1),
-			   $notebook_what = new Gtk::Notebook,
-			   $notebook_what->insert_page( $box_what_sys, $label_what_sys, 0),
-			   $notebook_what->insert_page( $box_what_user, $label_what_user, 1),
-			   $notebook_what->insert_page( $box_what_other, $label_what_other, 2),
-			   $notebook_what->set_scrollable(1),
-			   );
-    
-    my $box_where =  gtkpack(new Gtk::VBox(0,1),
-			     $notebook_where = new Gtk::Notebook,
-			     $notebook_where->insert_page( $box_where_net, $label_where_net, 0 ),
-			     $notebook_where->insert_page( $box_where_hd, $label_where_hd, 1 ),
-			     $notebook_where->insert_page( $box_where_cd, $label_where_cd, 1 ),
-			     );
-
-    my $combo_when_space = new Gtk::Combo();
-    $combo_when_space->set_popdown_strings (_("hourly"),_("daily"),_("weekly"),_("monthly"));    
-    my $box_when =  gtkpack_(new Gtk::VBox(0,1),
-			     0, gtkpack_(new Gtk::HBox(0,10),
-					     1, _(""),
-					     1, new Gtk::Pixmap($pix_time_map, $pix_time_mask),
-					     0, my $check_when_daemon  = new Gtk::CheckButton( _(" Use daemon")  ), 
-					     1, _(""),
-					     ),
-			     0, new Gtk::HSeparator,
-			     0, gtkpack_(new Gtk::HBox(0,10),
-					 1, _("Please choose interval \nspace between each backup "),
-					 0, $combo_when_space,
-					 0, _(""),
-					 ),
-			     0, _(""),
-			     0, gtkpack_(new Gtk::HBox(0,10),
-					 1, _("Please choose media to backup. "),
-					 0, gtkpack_(new Gtk::VBox(0,10),
-					       0, my $check_where_cd_daemon  = new Gtk::CheckButton( _(" Use CD/DVDROM with daemon")  ),
-					       0, my $check_where_hd_daemon  = new Gtk::CheckButton( _(" Use Hard Drive with daemon") ),
-					       0, my $check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon")    ),
-						     ),
-					 ),
-			     
-			     0, new Gtk::HSeparator,
-			     1, _("Please be careful that cron deamon is include on your services. "),
-			     );
-    $combo_when_space->entry->set_text( $when_space );
-    $combo_when_space->entry->signal_connect( 'changed', sub { $when_space = $combo_when_space->entry->get_text();  print $when_space."\n";});
-    my $box_options = gtkpack_(new Gtk::VBox(0,1),
-			      0, new Gtk::HSeparator,
-			      0, gtkpack_(new Gtk::VBox(0,10),
-					  0, gtkpack_(new Gtk::HBox(0,10),
-						      1, new Gtk::VBox(0,10),
-						      1, new Gtk::Pixmap($pix_options_map, $pix_options_mask),
-						      1, _("Please choose correct options to backup. "),
-						      1, new Gtk::VBox(0,10),
-						      ),
-					  0, new Gtk::HSeparator,
-					  0, gtkpack_(new Gtk::VBox(0,10),
-			      0, my $check_tar_bz2  = new Gtk::CheckButton( _(" Use Tar and bzip2  ( very slow)") ),
-						      0, my $check_replace = new Gtk::CheckButton( _(" Replace (no update backup files)")),
-						      0, my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")),
-						      ),
-					  ),	
-			      );
-    
-    gtkpack($up_box,
-		      $box = gtkpack_(new Gtk::VBox(0, 3),
-			 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
-			    1, gtkpack_(new Gtk::HBox(0, 3),
-			       0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
-				  1, gtkpack_(new Gtk::HBox(0, 15),	
-				     1, new Gtk::HBox(0, 15),	
-				     1, gtkpack_(new Gtk::VBox(0, 15),	
-						 1, new Gtk::VBox(0, 5),	
-						 1, gtksignal_connect(my $button_what = new Gtk::Button(), 
-								      clicked => sub {${$central_widget}->destroy();
-									  advanced(); }),
-						 1, gtksignal_connect(my $button_where = new Gtk::Button(), 
-								      clicked => sub { ${$central_widget}->destroy();
-									  wizard(); }),
-						 1, gtksignal_connect(my $button_when = new Gtk::Button(), 
-								      clicked => sub { ${$central_widget}->destroy();
-								       build_backup_files(); }),
-						 1, gtksignal_connect(my $button_options = new Gtk::Button(), 
-								      clicked => sub {${$central_widget}->destroy(); restore();}),
-						 1, new Gtk::VBox(0, 5),	
-						 ),
-				     1, new Gtk::HBox(0, 15),	
-					      ),
-					),
-				      0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-				      0, gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
-						 gtksignal_connect(new Gtk::Button(_("close")), clicked => 
-								   sub {  Gtk->main_quit() }),
-						   gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => 
-								     sub { ${$central_widget}->destroy(); wizard() }),
-						 ),
-				      ),
-	    );
-
-    $button_what->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
-			      new Gtk::Label(_(" What ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_where->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_net_map, $pix_net_mask),
-			      new Gtk::Label(_(" Where ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_when->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_time_map, $pix_time_mask),
-			      new Gtk::Label(_(" When ")),
-			      new Gtk::HBox(0, 5)
-			      ));
-    $button_options->add(gtkpack(new Gtk::HBox(0,10),
-			      new Gtk::Pixmap($pix_options_map, $pix_options_mask),
-			      new Gtk::Label(_(" More Options")),
-			      new Gtk::HBox(0, 5)
-			      ));
-
-
-
-
-
-    $central_widget = \$about_box;
-    $up_box->show_all();
-}
-
-
 sub find_backup_to_restore {
     my @list_backup_tmp;
     my @user_backuped_tmp;
     @user_backuped = ();
     -d $save_path and my @list_backup = all($save_path);
-    $DEBUG and print $_."\n" foreach @list_backup;
     if (grep /^backup_other_/, @list_backup) {$other_backuped = 1;}
     if (grep /^backup_sys_/, @list_backup) {$sys_backuped = 1;}
     foreach (grep /^backup_user_/, @list_backup) {
@@ -1514,8 +1031,6 @@ sub find_backup_to_restore {
 	s/.tar.bz2$//gi;
 	push @user_backuped ,$_;	
     }
-
-    $DEBUG and print $_."\n" foreach @user_backuped;
 }
 
 sub do_cron {
@@ -1543,7 +1058,8 @@ sub do_restore_backend {
 
 sub do_restore {
     my $do_restore;
-    gtkpack($retore_box2,
+
+    gtkpack($advanced_box,
 	    $do_restore = gtkpack_(new Gtk::VBox(0,10),
 				   1, new Gtk::VBox(0,10),
 				   1, gtkpack(new Gtk::HBox(0,10),
@@ -1567,7 +1083,7 @@ sub do_restore {
 
 sub restore_step_other {
     my $retore_step_other;
-    $DEBUG and print "user list to restore" . $_."\n" foreach (@user_list_to_restore);
+
     gtkpack($retore_box2,
 	    $retore_step_other = gtkpack_(new Gtk::VBox(0,10),
 		     1, new Gtk::VBox(0,10),
@@ -1715,12 +1231,11 @@ sub restore_step2 {
     $up_box->show_all();
 }
 
-sub restore {
+
+
+sub restore_box {
     my $retore_box;
     my $retore_box3;
-    my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
-    my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
-    my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
     my $check_restore_sys;
     my $check_restore_user;
     my $check_restore_other;
@@ -1729,52 +1244,26 @@ sub restore {
 
     @user_list_to_restore = @user_backuped;
     if ($other_backuped || $sys_backuped || @user_backuped) {
-	gtkpack($up_box,
-	      $retore_box = gtkpack_(new Gtk::VBox(0,1),
-		0, gtkpng('backup_title'),
-		1, gtkpack_(new Gtk::HBox(0, 0),
-		     0, gtkpng('backup_left2'),
-		     1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
-			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
-				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
-				     1, _("Please choose that you want to restore."),
-				     0, gtkpack_(new Gtk::HBox(0,10),
-						 1, new Gtk::HBox(0,10),
-						 1, gtkpack_(new Gtk::VBox(0,10),
-							     0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), 
-								 clicked => sub { $retore_box3->destroy(); 
-										  $restore_sys = 1;
-										  $restore_other = 1;
-										  $restore_user = 1;
-										  do_restore(); }),
-							     0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
-								 clicked => sub { $retore_box3->destroy(); restore_step2(); }),
-							     ),
-						 1, new Gtk::HBox(0,10),
-						 ),
+	gtkpack($advanced_box,
+		$retore_box = gtkpack_(new Gtk::VBox(0,1),
 				      1, new Gtk::HBox(0,10),
-						       ),),),),
-		      0, gtkpng('backup_bot2'),
-		      0, new Gtk::HSeparator,
-		      0, gtkpack_(new Gtk::HBox(0, 0),
-				  1, gtkpack_(new Gtk::HButtonBox,
-					      1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { 
-						  ${$central_widget}->destroy(); interactive_mode();  }),
-					      1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
-						  $retore_box->destroy(); restore_help();}),
-					      1, new Gtk::HBox(0, 0),
-					      1, gtksignal_connect(new Gtk::Button(_("     Next      ")), clicked => sub {
-						  $retore_box->destroy(); restore_help();}),
-					      ),
-				  ),
-				   )
-	    );
+				      1, gtkpack_(new Gtk::VBox(0,10),
+						  1, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), 
+								       clicked => sub { $retore_box->destroy(); 
+											$restore_sys = 1;
+											$restore_other = 1;
+											$restore_user = 1;
+											do_restore(); }),
+						  1, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
+								       clicked => sub { $retore_box->destroy(); restore_step2(); }),
+						  ),
+				      1, new Gtk::HBox(0,10),
+				      ),
+		);
     } else {
-	gtkpack($up_box,
-	      $retore_box = gtkpack_(new Gtk::VBox(0,1),
-		0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
+	gtkpack($advanced_box,
+		$retore_box = gtkpack_(new Gtk::VBox(0,1),
 		1, gtkpack_(new Gtk::HBox(0, 0),
-		     0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
 		     1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
 			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
 				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
@@ -1784,16 +1273,6 @@ sub restore {
 						 ),
 				      1, new Gtk::HBox(0,10),
 						       ),),),),
-		      0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-		      0, new Gtk::HSeparator,
-		      0, gtkpack_(new Gtk::HBox(0, 0),
-				  1, gtkpack_(new Gtk::HButtonBox,	
-					      1, gtksignal_connect(new Gtk::Button(_(" Cancel ")),	clicked => sub { 
-						  ${$central_widget}->destroy(); interactive_mode();    }),
-					      1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
-						  $retore_box->destroy(); restore_help();}),
-					      ),
-				  ),
 			   )
 		);
     }
@@ -1801,32 +1280,155 @@ sub restore {
     $up_box->show_all();
 }
 
+# sub restore_box {
+#     my $retore_box;
+#     my $retore_box3;
+#     my $check_restore_sys;
+#     my $check_restore_user;
+#     my $check_restore_other;
+
+#     find_backup_to_restore();
+
+#     @user_list_to_restore = @user_backuped;
+#     if ($other_backuped || $sys_backuped || @user_backuped) {
+# 	gtkpack($advanced_box,
+# 		$retore_box = gtkpack(new Gtk::VBox(0,1),
+# 			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
+# 				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
+# 				     0, gtkpack_(new Gtk::HBox(0,10),
+# 						 1, new Gtk::HBox(0,10),
+# 						 1, gtkpack_(new Gtk::VBox(0,10),
+# 							     0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), 
+# 								 clicked => sub { $retore_box3->destroy(); 
+# 										  $restore_sys = 1;
+# 										  $restore_other = 1;
+# 										  $restore_user = 1;
+# 										  do_restore(); }),
+# 							     0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
+# 								 clicked => sub { $retore_box3->destroy(); restore_step2(); }),
+# 							     ),
+# 						 1, new Gtk::HBox(0,10),
+# 						 ),
+# 				      1, new Gtk::HBox(0,10),
+# 						       ),),),
+# 	    );
+#     } else {
+# 	gtkpack($advanced_box,
+# 		$retore_box = gtkpack_(new Gtk::VBox(0,1),
+# 		1, gtkpack_(new Gtk::HBox(0, 0),
+# 		     1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
+# 			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
+# 				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
+# 				     1, _("Please Build backup before to restore it..."),
+# 				     0, gtkpack_(new Gtk::HBox(0,10),
+# 						 1, new Gtk::HBox(0,10),
+# 						 ),
+# 				      1, new Gtk::HBox(0,10),
+# 						       ),),),),
+# 			   )
+# 		);
+#     }
+#     $central_widget = \$retore_box;
+#     $up_box->show_all();
+# }
+
+
+
+
+
+
+sub adv_button_box {
+
+    $button_box_tmp->destroy();
+    gtkpack($button_box,
+	    $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
+				       0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { 
+					   ${$central_widget}->destroy(); interactive_mode_box();  }),
+				       0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { 
+					   ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help );  }),
+				       1, new Gtk::HBox(0, 1),	
+				       0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => sub { 
+					   ${$central_widget}->destroy(); $previous_widget->(); }),
+				       0, gtksignal_connect(new Gtk::Button(_(" Ok ")), clicked => sub { 
+					   ${$central_widget}->destroy();  save_conf_file(); $previous_widget->(); }),
+				       ),
+	    );
+}
+
+
+sub adv_button_box {
+
+    $button_box_tmp->destroy();
+    gtkpack($button_box,
+	    $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
+					      1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { 
+						  ${$central_widget}->destroy(); interactive_mode_box();  }),
+					      1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
+						  ${$central_widget}->destroy(); restore_help();}),
+					      1, new Gtk::HBox(0, 0),
+					      1, gtksignal_connect(new Gtk::Button(_("     Next      ")), clicked => sub {
+						  ${$central_widget}->destroy(); restore_help();}),
+					      ),
+	    );
+}
+
+
+
+
+sub main_button_box {
+
+    $button_box_tmp->destroy();
+    gtkpack($button_box,
+	    $button_box_tmp = gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
+				      gtksignal_connect(new Gtk::Button(_("close")), clicked => sub {  
+					  Gtk->main_quit() }),
+				      gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { 
+					  ${$central_widget}->destroy(); help(\&interactive_mode_box) }),
+				      ),
+	    );
+}
+
+sub interactive_mode_box {
+
+    $box2->destroy();
+    gtkadd($advanced_box,
+	   $box2 = gtkpack_(new Gtk::VBox(0, 15),	
+			    1, new Gtk::VBox(0, 5),	
+			    1, gtksignal_connect(new Gtk::Button(_(" Advanced Configuration ")), 
+						 clicked => sub { adv_button_box();
+								  ${$central_widget}->destroy();
+								  advanced_box(); }),
+			    1, gtksignal_connect(new Gtk::Button(_(" Wizard Configuration ")), 
+						 clicked => sub { ${$central_widget}->destroy();
+								  wizard(); }),
+			    1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")), 
+						 clicked => sub { ${$central_widget}->destroy();
+								  build_backup_files(); }),
+			    1, gtksignal_connect(new Gtk::Button(_("     Restore      ")), 
+						 clicked => sub {${$central_widget}->destroy(); restore_box();}),
+			    1, new Gtk::VBox(0, 5),	
+			    ),
+	   );
+    main_button_box();
+    $central_widget = \$box2;
+    $up_box->show_all();    
+}
+
+
+
 sub interactive_mode {
     $interactive = 1;
-    my $box_cfg_state;
-    my $box_cgf_state_replace;
-    my $box_cgf_state_comp;
-    my $mask;
-    my $style;
     my $box;
-    my $box_cgf_state_sys = ("");
-    my $text2 = new Gtk::Text(undef, undef);
     my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-
     init Gtk;
-
     $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
     $window1->set_position(1);
     $window1->set_title(_("Drakbackup"));
-    
     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
     my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
-
-#    $mdk_cc and  
-
-    
     read_conf_file();    
+
     gtkadd($window1,
 	   gtkpack(new Gtk::VBox(0,0),
 		   gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420),
@@ -1835,38 +1437,26 @@ sub interactive_mode {
 			    1, gtkpack_(new Gtk::HBox(0, 3),
 			       0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
 				  1, gtkpack_(new Gtk::HBox(0, 15),	
-				     1, new Gtk::HBox(0, 15),	
-				     1, gtkpack_(new Gtk::VBox(0, 15),	
-						 1, new Gtk::VBox(0, 5),	
-						 1, gtksignal_connect(new Gtk::Button(_(" Advanced Configuration ")), 
-								      clicked => sub {${$central_widget}->destroy();
-									  advanced(); }),
-						 1, gtksignal_connect(new Gtk::Button(_(" Wizard Configuration ")), 
-								      clicked => sub { ${$central_widget}->destroy();
-									  wizard(); }),
-						 1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")), 
-								      clicked => sub { ${$central_widget}->destroy();
-								       build_backup_files(); }),
-						 1, gtksignal_connect(new Gtk::Button(_("     Restore      ")), 
-								      clicked => sub {${$central_widget}->destroy(); restore();}),
-						 1, new Gtk::VBox(0, 5),	
-						 ),
-				     1, new Gtk::HBox(0, 15),	
+					      1, new Gtk::HBox(0, 15),	
+					      1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15),	
+									  1, $box2 = gtkpack_(new Gtk::VBox(0, 15),	
+											      ),
+									  ),
+					      1, new Gtk::HBox(0, 15),	
 					      ),
 					),
 				      0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-				      0, gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
-						 gtksignal_connect(new Gtk::Button(_("close")), clicked => 
-								   sub {  Gtk->main_quit() }),
-						   gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => 
-								     sub { ${$central_widget}->destroy(); help(\&interactive_mode) }),
-						 
-						 ),
+				      0, $button_box = gtkpack(new Gtk::VBox(0, 15),	
+							       $button_box_tmp = gtkpack(new Gtk::VBox(0, 0),	
+											 ),
+							       ),
 				      ),
 			   ),
 		   ),
 	   );
-    $central_widget = \$box;
+    interactive_mode_box();
+    main_button_box();
+    $central_widget = \$box2;
     $window1->show_all;
     $window1->realize;
     $window1->show_all();    
@@ -1874,99 +1464,6 @@ sub interactive_mode {
     Gtk->exit(0);
 }
 
-sub after_adv {
-    $interactive = 1;
-    my $box_cfg_state;
-    my $box_cgf_state_replace;
-    my $box_cgf_state_comp;
-    my $mask;
-    my $style;
-    my $box_cgf_state_sys = ("");
-    my $box;
-    init Gtk;
-    my $text2 = new Gtk::Text(undef, undef);
-    my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-    $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
-    $window1->set_position(1);
-    $window1->set_title(_("Drakbackup"));
-    
-    my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
-    my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left");
-    my ($pix_b_map, $pix_b_mask) = gtkcreate_png("backup_bot2");
-    my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom");
-    my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd");
-    my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("quit");
-    
-    my $button_burn_cd = new Gtk::Button();
-    $button_burn_cd->add( gtkpack(new Gtk::HBox( 0, 2),
-				  new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
-				  _("Burn auto\n Install CDROM")
-				  ),
-			  );
-
-    my $button_do_backup = new Gtk::Button();
-    $button_do_backup->add( gtkpack(new Gtk::HBox( 0, 2),
-				    new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask),
-				    _("Build a \nbackupn now")
-				    ),
-			    );
-    
-    my $button_quit = new Gtk::Button();
-    $button_quit->add( gtkpack(new Gtk::HBox( 0, 2),
-			       new Gtk::Pixmap($pix_quit_map, $pix_quit_mask),
-			       _("Quit DrakBackup")
-			       ),
-		       );
-
-    read_conf_file();    
-    $backup_sys or $box_cgf_state_sys = _("Do not include System Files");
-    if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
-    } else { $box_cgf_state_replace = _("Update backups (do not replace)"),  }
-    
-    if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and bzip2 "),
-    } else { $box_cgf_state_comp = _("Backups use tar and gzip"),   }
-    
-    if ($cfg_file_exist) { 
-	my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n");
-	$box_cfg_state =  gtkpack(new Gtk::VBox( 0, 0),
-				  gtkset_justify( $label_cfg_file , 'left'),
-				  ),
-    } else { $box_cfg_state =  gtkpack(new Gtk::VBox(0,1),
-				       _("No configuration please click Wizard or Advanced.") ), }
-    gtkadd($window1,
-	   gtkpack(new Gtk::VBox(0,0),
-		   gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420),
-			   $box = gtkpack_(new Gtk::VBox(0, 3),
-					   0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
-					   1, gtkpack_(new Gtk::HBox(0, 3),
-						       0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
-						       1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
-								  gtkadd(new Gtk::Frame(_("State of configuration file.")),
-									 gtkpack(new Gtk::VBox(0,10),
-										 $box_cfg_state,
-										 ),),),),),
-					   0, new Gtk::Pixmap($pix_b_map, $pix_b_mask),
-					   0, gtkpack_(new Gtk::HBox(0, 0),
-						       1, gtkpack_(new Gtk::HBox(0, 1),	
-								   1, gtksignal_connect($button_quit,  clicked => sub {
-								       Gtk->main_quit() }),
-								   1, gtksignal_connect($button_do_backup, clicked => sub { 
-								       ${$central_widget}->destroy(); }),
-								   1, gtksignal_connect($button_burn_cd, clicked => sub { 
-								       ${$central_widget}->destroy(); }),
-								   ),
-						       ),
-					   ),
-			   ),
-		   ),
-	   );
-    $central_widget = \$box;
-    $window1->show_all;
-    $window1->realize;
-    $window1->show_all();    
-    Gtk->main;
-    Gtk->exit(0);
-}
 
 sub about {
     my $text = new Gtk::Text(undef, undef);
@@ -2004,48 +1501,6 @@ sub about {
     $up_box->show_all();
 }
 
-# sub adv_help {
-#     my $text = new Gtk::Text(undef, undef);
-#     my $about_box;
-#     gtkpack($up_box,
-# 	    $about_box = gtkpack_(new Gtk::VBox(0,10),
-# 				  1, gtkpack_(new Gtk::HBox(0,0),
-# 					      1, gtktext_insert(gtkset_editable($text, 1), _("
-# description:
-
-#  Drakbacup is use to backup system files and user files
-#  Drakbacup allow to restore the system (etc, var files)
-#  from starup or on drakconf utility.
-
-# backup name format: all the time from the / dir.
-
-# 	system backup:
-#                    backup_sys.tar.gz 
-# 	user backup
-# 		   backup_user_james.tar.gz      
-# 		   backup_user_seb.tar.gz
-# 	other directories
-#                    backup_other.tar.gz          
-
-# build iso fs with rescue.
-
-# configuration file:
-
-# 	/etc/drakconf/drakbackup/drakbakup.conf
-
-# ")),
-# 					      0, new Gtk::VScrollbar($text->vadj),
-# 					      ),
-# 				  0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
-# 					    gtksignal_connect(new Gtk::Button(_("OK")), clicked => 
-# 							      sub { ${$central_widget}->destroy(); advanced();  }),
-# 					    ),
-# 				  )
-# 	    );
-#     $central_widget = \$about_box;
-#     $up_box->show_all();
-# }
-
 sub help {
     my ($function) = @_,
     my $text = new Gtk::Text(undef, undef);
@@ -2294,7 +1749,185 @@ Drakbacup allow to restore the system (etc, var files)
     
 # #    $notebook->set_tab_pos( $rotate{ $notebook->tab_pos } );
 
+# sub after_adv {
+#     $interactive = 1;
+#     my $box_cfg_state;
+#     my $box_cgf_state_replace;
+#     my $box_cgf_state_comp;
+#     my $mask;
+#     my $style;
+#     my $box_cgf_state_sys = ("");
+#     my $box;
+#     init Gtk;
+#     my $text2 = new Gtk::Text(undef, undef);
+#     my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
+#     $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
+#     $window1->set_position(1);
+#     $window1->set_title(_("Drakbackup"));
+    
+#     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
+#     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left");
+#     my ($pix_b_map, $pix_b_mask) = gtkcreate_png("backup_bot2");
+#     my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom");
+#     my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd");
+#     my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("quit");
+    
+#     my $button_burn_cd = new Gtk::Button();
+#     $button_burn_cd->add( gtkpack(new Gtk::HBox( 0, 2),
+# 				  new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
+# 				  _("Burn auto\n Install CDROM")
+# 				  ),
+# 			  );
+
+#     my $button_do_backup = new Gtk::Button();
+#     $button_do_backup->add( gtkpack(new Gtk::HBox( 0, 2),
+# 				    new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask),
+# 				    _("Build a \nbackupn now")
+# 				    ),
+# 			    );
+    
+#     my $button_quit = new Gtk::Button();
+#     $button_quit->add( gtkpack(new Gtk::HBox( 0, 2),
+# 			       new Gtk::Pixmap($pix_quit_map, $pix_quit_mask),
+# 			       _("Quit DrakBackup")
+# 			       ),
+# 		       );
+
+#     read_conf_file();    
+#     $backup_sys or $box_cgf_state_sys = _("Do not include System Files");
+#     if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
+#     } else { $box_cgf_state_replace = _("Update backups (do not replace)"),  }
+    
+#     if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and bzip2 "),
+#     } else { $box_cgf_state_comp = _("Backups use tar and gzip"),   }
+    
+#     if ($cfg_file_exist) { 
+# 	my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n");
+# 	$box_cfg_state =  gtkpack(new Gtk::VBox( 0, 0),
+# 				  gtkset_justify( $label_cfg_file , 'left'),
+# 				  ),
+#     } else { $box_cfg_state =  gtkpack(new Gtk::VBox(0,1),
+# 				       _("No configuration please click Wizard or Advanced.") ), }
+#     gtkadd($window1,
+# 	   gtkpack(new Gtk::VBox(0,0),
+# 		   gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420),
+# 			   $box = gtkpack_(new Gtk::VBox(0, 3),
+# 					   0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
+# 					   1, gtkpack_(new Gtk::HBox(0, 3),
+# 						       0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
+# 						       1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
+# 								  gtkadd(new Gtk::Frame(_("State of configuration file.")),
+# 									 gtkpack(new Gtk::VBox(0,10),
+# 										 $box_cfg_state,
+# 										 ),),),),),
+# 					   0, new Gtk::Pixmap($pix_b_map, $pix_b_mask),
+# 					   0, gtkpack_(new Gtk::HBox(0, 0),
+# 						       1, gtkpack_(new Gtk::HBox(0, 1),	
+# 								   1, gtksignal_connect($button_quit,  clicked => sub {
+# 								       Gtk->main_quit() }),
+# 								   1, gtksignal_connect($button_do_backup, clicked => sub { 
+# 								       ${$central_widget}->destroy(); }),
+# 								   1, gtksignal_connect($button_burn_cd, clicked => sub { 
+# 								       ${$central_widget}->destroy(); }),
+# 								   ),
+# 						       ),
+# 					   ),
+# 			   ),
+# 		   ),
+# 	   );
+#     $central_widget = \$box;
+#     $window1->show_all;
+#     $window1->realize;
+#     $window1->show_all();    
+#     Gtk->main;
+#     Gtk->exit(0);
+# }
 
+# sub restore {
+#     my $retore_box;
+#     my $retore_box3;
+#     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
+#     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
+#     my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
+#     my $check_restore_sys;
+#     my $check_restore_user;
+#     my $check_restore_other;
+
+#     find_backup_to_restore();
+
+#     @user_list_to_restore = @user_backuped;
+#     if ($other_backuped || $sys_backuped || @user_backuped) {
+# 	gtkpack($up_box,
+# 	      $retore_box = gtkpack_(new Gtk::VBox(0,1),
+# 		0, gtkpng('backup_title'),
+# 		1, gtkpack_(new Gtk::HBox(0, 0),
+# 		     0, gtkpng('backup_left2'),
+# 		     1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
+# 			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
+# 				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
+# 				     1, _("Please choose that you want to restore."),
+# 				     0, gtkpack_(new Gtk::HBox(0,10),
+# 						 1, new Gtk::HBox(0,10),
+# 						 1, gtkpack_(new Gtk::VBox(0,10),
+# 							     0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), 
+# 								 clicked => sub { $retore_box3->destroy(); 
+# 										  $restore_sys = 1;
+# 										  $restore_other = 1;
+# 										  $restore_user = 1;
+# 										  do_restore(); }),
+# 							     0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
+# 								 clicked => sub { $retore_box3->destroy(); restore_step2(); }),
+# 							     ),
+# 						 1, new Gtk::HBox(0,10),
+# 						 ),
+# 				      1, new Gtk::HBox(0,10),
+# 						       ),),),),
+# 		      0, gtkpng('backup_bot2'),
+# 		      0, new Gtk::HSeparator,
+# 		      0, gtkpack_(new Gtk::HBox(0, 0),
+# 				  1, gtkpack_(new Gtk::HButtonBox,
+# 					      1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { 
+# 						  ${$central_widget}->destroy(); interactive_mode();  }),
+# 					      1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
+# 						  $retore_box->destroy(); restore_help();}),
+# 					      1, new Gtk::HBox(0, 0),
+# 					      1, gtksignal_connect(new Gtk::Button(_("     Next      ")), clicked => sub {
+# 						  $retore_box->destroy(); restore_help();}),
+# 					      ),
+# 				  ),
+# 				   )
+# 	    );
+#     } else {
+# 	gtkpack($up_box,
+# 	      $retore_box = gtkpack_(new Gtk::VBox(0,1),
+# 		0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
+# 		1, gtkpack_(new Gtk::HBox(0, 0),
+# 		     0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
+# 		     1, gtkadd(new Gtk::Frame(_("Restoration Step.")),
+# 			       $retore_box2 = gtkpack(new Gtk::VBox(0,10),
+# 				   $retore_box3 = gtkpack_(new Gtk::VBox(0,10),
+# 				     1, _("Please Build backup before to restore it..."),
+# 				     0, gtkpack_(new Gtk::HBox(0,10),
+# 						 1, new Gtk::HBox(0,10),
+# 						 ),
+# 				      1, new Gtk::HBox(0,10),
+# 						       ),),),),
+# 		      0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
+# 		      0, new Gtk::HSeparator,
+# 		      0, gtkpack_(new Gtk::HBox(0, 0),
+# 				  1, gtkpack_(new Gtk::HButtonBox,	
+# 					      1, gtksignal_connect(new Gtk::Button(_(" Cancel ")),	clicked => sub { 
+# 						  ${$central_widget}->destroy(); interactive_mode();    }),
+# 					      1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
+# 						  $retore_box->destroy(); restore_help();}),
+# 					      ),
+# 				  ),
+# 			   )
+# 		);
+#     }
+#     $central_widget = \$retore_box;
+#     $up_box->show_all();
+# }