From 2239a84a2a1843d6cf2446b814086b6eee6e193f Mon Sep 17 00:00:00 2001
From: Sebastien Dupont <sdupont@mandriva.com>
Date: Thu, 22 Nov 2001 13:42:07 +0000
Subject: notebook gi.

---
 perl-install/standalone/drakbackup | 69 ++++++++++++++++++++++++++++----------
 1 file changed, 52 insertions(+), 17 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 78d98e932..4b677551a 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -165,8 +165,8 @@ sub build_backup_files {
 }
 
 sub interactive_mode {
-    my $font_box;
-    my $font_sel;
+    my $notebook_box;
+    my $notebook;
     $interactive = 1;
     
     init Gtk;
@@ -174,30 +174,34 @@ sub interactive_mode {
     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(_("Fonts Importation"));
+    $window1->set_title(_("Drakbackup"));
     $window1->set_border_width(5);
     
+    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
+    $checkbutton->set_usize( 100, 75 );
+    $checkbutton->show();
+
+    my $label1 = new Gtk::Label( "What backup." );
+    my $label2 = new Gtk::Label( "Where backup." );
+    my $label3 = new Gtk::Label( "When backup." );
+
+
+
+
+
     gtkadd($window1,
 	   gtkpack_(new Gtk::HBox(0,2),
 		    1, gtkpack_(new Gtk::VBox(0,2),
 				1, new Gtk::VBox(0,0),
-				1, gtkpack(gtkset_usize($font_box = new Gtk::VBox(0,5),500, 350),
-					   $font_sel = new Gtk::FontSelection,
+				1, gtkpack(gtkset_usize($notebook_box = new Gtk::VBox(0,5),500, 350),
+					   $notebook = new Gtk::Notebook,
+					   $notebook->insert_page( $checkbutton, $label1, 2 ),
+					   $notebook->insert_page( $checkbutton, $label2, 2 ),
+					   $notebook->insert_page( $checkbutton, $label3, 2 )
 					   ),
 				1, new Gtk::VBox(0,0)
 				),
 		    0, gtkpack_(new Gtk::VBox(0,5),
-				0, _("DrakFont"),
-				0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
-					  gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked 	=>
-							    sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}),
-					  gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked =>
-							    sub {  ${$central_widget}->destroy(); $windows = 0; license(\&advanced_install)}),
-					  gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => 
-							    sub { ${$central_widget}->destroy(); uninstall() }),
-					  gtksignal_connect(new Gtk::Button(_("Font List")), clicked 	=>
-							    sub { ${$central_widget}->destroy(); create_fontsel()}),
-					  ),
 				1, new Gtk::VBox(0,0),
 				1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
 					  gtksignal_connect(new Gtk::Button(_("             Help           ")), clicked => sub { 
@@ -207,7 +211,7 @@ sub interactive_mode {
 				)
 		    ),
 	   );
-    $central_widget = \$font_sel;
+    $central_widget = \$notebook;
     $window1->show_all;
     $window1->realize;
     $window1->show_all();
@@ -217,3 +221,34 @@ sub interactive_mode {
 }
 
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+#				0, _("DrakFont"),
+#				0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
+# 					  gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked 	=>
+# 							    sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}),
+# 					  gtksignal_connect(new Gtk::Button(_("Configuration")), clicked =>
+# 							    sub {  ${$central_widget}->destroy(); $windows = 0; license(\&advanced_install)}),
+# 					  gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => 
+# 							    sub { ${$central_widget}->destroy(); uninstall() }),
+# 					  gtksignal_connect(new Gtk::Button(_("Font List")), clicked 	=>
+# 							    sub { ${$central_widget}->destroy(); create_fontsel()}),
+#					  ),
-- 
cgit v1.2.1