diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-11 17:35:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-11 17:35:35 +0000 |
| commit | e4f62031c585cbc4a45230714e13821b9bfca34c (patch) | |
| tree | 29ff4480df90ce8b6c0ddf9231a1e567f34ffe2b /perl-install/interactive_gtk.pm | |
| parent | 9ad846cd08f909f760f80bf703b8d4dbe1809c7b (diff) | |
| download | drakx-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.pm | 5 |
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) = @_; |