From 2a52ec22dfdc103b693110a82cc04a59c1a6075a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Aug 2002 21:02:25 +0000 Subject: handle the setting of 'ok' and 'cancel' --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index b4d41edfb..2e2caf92b 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -548,7 +548,7 @@ sub ask_fromW { gtkpack_($pack, 1, $create_widgets->($always_total_size, @widgets_always), - if_($common->{ok} || $::isWizard, + if_($common->{ok} || !exists $common->{ok}, 0, $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', if_(@$l2, $advanced_button)))); my $has_scroll_always = $has_scroll; my @adv = map { warp_text($_) } @{$common->{advanced_messages}}; -- cgit v1.2.1