summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
commite4f62031c585cbc4a45230714e13821b9bfca34c (patch)
tree29ff4480df90ce8b6c0ddf9231a1e567f34ffe2b /perl-install/interactive_gtk.pm
parent9ad846cd08f909f760f80bf703b8d4dbe1809c7b (diff)
downloaddrakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.gz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.bz2
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.xz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.zip
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm5
1 files changed, 3 insertions, 2 deletions
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) = @_;