summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-18 17:52:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-18 17:52:21 +0000
commit3c449c259f3c6325a00bf542511bb1ccbce55054 (patch)
tree31ff76977b035edd10a498a43cd3abd2ed1861d9 /perl-install/interactive_newt.pm
parent42a56d315a86b9fa19d9330583a26a86c7453ab0 (diff)
downloaddrakx-3c449c259f3c6325a00bf542511bb1ccbce55054.tar
drakx-3c449c259f3c6325a00bf542511bb1ccbce55054.tar.gz
drakx-3c449c259f3c6325a00bf542511bb1ccbce55054.tar.bz2
drakx-3c449c259f3c6325a00bf542511bb1ccbce55054.tar.xz
drakx-3c449c259f3c6325a00bf542511bb1ccbce55054.zip
big renaming of ask_from_entries_refH in ask_from and ask_from_entries_refH_powered in ask_from_
Diffstat (limited to 'perl-install/interactive_newt.pm')
-rw-r--r--perl-install/interactive_newt.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 8e64c539b..3d5beabd0 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -59,7 +59,7 @@ sub separator {
}
sub checkval { $_[0] && $_[0] ne ' ' ? '*' : ' ' }
-sub ask_from_entries_refW {
+sub ask_fromW {
my ($o, $common, $l, $l2) = @_;
my $ignore; #-to handle recursivity
my $old_focus = -2;
@@ -194,7 +194,7 @@ sub ask_from_entries_refW {
$form->FormDestroy;
Newt::PopWindow;
$_->{e}{clicked}();
- return ask_from_entries_refW($o, $common, $l, $l2);
+ return ask_fromW($o, $common, $l, $l2);
}
}
$canceled = $cancel && $$r == $$cancel;