summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup69
1 files changed, 52 insertions, 17 deletions
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()}),
+# ),