diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 69 |
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()}), +# ), |