From b47d1740de5fcd93b39dddf5c8f7793269000493 Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Mon, 10 Dec 2001 09:05:37 +0000 Subject: help button box --- perl-install/standalone/drakbackup | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 837ec5a17..7bff2aa58 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1231,7 +1231,7 @@ sub restore_box { my $check_restore_other; find_backup_to_restore(); - restore_button_box(); + restore_button_box_main(); @user_list_to_restore = @user_backuped; if ($other_backuped || $sys_backuped || @user_backuped) { gtkpack($advanced_box, @@ -1290,6 +1290,20 @@ sub adv_button_box { ); } +sub restore_button_box_main { + + $button_box_tmp->destroy(); + gtkpack($button_box, + $button_box_tmp = gtkpack_(gtkpack(gtkset_layout(new Gtk::HButtonBox, -start), + gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { + ${$central_widget}->destroy(); interactive_mode_box(); }), + gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { + ${$central_widget}->destroy(); adv_help();}), + ), + ), + ); +} + sub restore_button_box { $button_box_tmp->destroy(); @@ -1298,7 +1312,7 @@ sub restore_button_box { 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();}), + ${$central_widget}->destroy(); adv_help();}), 1, new Gtk::HBox(0, 0), 1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub { ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help);}), @@ -1306,6 +1320,7 @@ sub restore_button_box { ); } + sub main_button_box { $button_box_tmp->destroy(); -- cgit v1.2.1