From e4f62031c585cbc4a45230714e13821b9bfca34c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Oct 1999 17:35:35 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index af0026df4..f8623a206 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -76,10 +76,11 @@ sub ask_many_from_list_refW($$$$$) {
 
 sub ask_from_entries_refW {
     my ($o, $title, $messages, $l, $val, %hcallback) = @_;
+    my ($title_, @okcancel) = ref $title ? @$title : $title;
     my $num_fields = @{$l};
     my $ignore = 0; #-to handle recursivity
 
-    my $w = my_gtk->new($title, %$o);
+    my $w = my_gtk->new($title_, %$o);
     #-the widgets
     my @widgets = map {
 	if ($_->{type} eq "list") {
@@ -99,7 +100,7 @@ sub ask_from_entries_refW {
 	    new Gtk::Entry;
 	}
     } @{$val};
-    my $ok      = $w->create_okcancel;
+    my $ok = $w->create_okcancel(@okcancel);
 
     sub widget {
 	my ($w, $ref) = @_;
-- 
cgit v1.2.1