From 9c4e0788e89157da0ee23503ab9563712c314089 Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 12 Feb 2002 17:20:38 +0000 Subject: bug correction --- perl-install/standalone/drakbackup | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'perl-install/standalone/drakbackup') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 305f378a3..12ff6efc3 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -2421,16 +2421,19 @@ sub button_box_wizard { 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(); }), + ${$central_widget}->destroy(); interactive_mode_box(); }), 1, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub { - ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help); }), + ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help); }), 1, new Gtk::HBox(0, 0), - 0, gtksignal_connect(new Gtk::Button(_("Previous")), clicked => sub { - ${$central_widget}->destroy(); $previous_widget->(); }), - 1, gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { - ${$central_widget}->destroy(); $next_widget->(); - }), - ), + 0, gtksignal_connect(new Gtk::Button($next_widget ? _("Previous") : _("OK")), clicked => sub { + ${$central_widget}->destroy(); + $previous_widget ? $previous_widget->() : $next_widget->(); + }), + if_($next_widget, 1, gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { + ${$central_widget}->destroy(); + $next_widget ? $next_widget->() : $previous_widget->(); + })), + ), ); } -- cgit v1.2.1