summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-22 01:34:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-22 01:34:30 +0000
commitb9e3d206a3552624187f2ab9094adc1113bcaf40 (patch)
treef0c7eeb7ca87984204f02beeaed6d620f53825eb /perl-install/interactive_gtk.pm
parentd1d368f30e9ad2a51d093e47dd85074e325990c6 (diff)
downloaddrakx-backup-do-not-use-b9e3d206a3552624187f2ab9094adc1113bcaf40.tar
drakx-backup-do-not-use-b9e3d206a3552624187f2ab9094adc1113bcaf40.tar.gz
drakx-backup-do-not-use-b9e3d206a3552624187f2ab9094adc1113bcaf40.tar.bz2
drakx-backup-do-not-use-b9e3d206a3552624187f2ab9094adc1113bcaf40.tar.xz
drakx-backup-do-not-use-b9e3d206a3552624187f2ab9094adc1113bcaf40.zip
(ask_from_entries_refW): if no button wanted, don't call create_okcancel
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm3
1 files changed, 2 insertions, 1 deletions
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, '',