From b9e3d206a3552624187f2ab9094adc1113bcaf40 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 22 Feb 2001 01:34:30 +0000
Subject: (ask_from_entries_refW): if no button wanted, don't call
 create_okcancel

---
 perl-install/interactive_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 8cc04ac79..140f25bcc 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -414,7 +414,8 @@ sub ask_from_entries_refW {
 
     my $pack = gtkpack_(create_box_with_title($mainw, @{$common->{messages}}),
 		   1, $create_widgets->(@widgets_always),
-		   0, $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ()));
+		   if_($common->{ok}, 
+		       0, $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ())));
     $advanced_pack = 
       gtkpack_(new Gtk::VBox(0,0),
 	       0, '',
-- 
cgit v1.2.1