summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-03 18:29:54 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-03 18:29:54 +0000
commit05da12f9c8801b36ec0834f5126deb79656790e6 (patch)
tree3076e795b0233ff6010768f76a0671c1a49aadbc /perl-install/interactive_newt.pm
parentd48d8570000ed98e72d8dc7827167741e5142a4f (diff)
downloaddrakx-05da12f9c8801b36ec0834f5126deb79656790e6.tar
drakx-05da12f9c8801b36ec0834f5126deb79656790e6.tar.gz
drakx-05da12f9c8801b36ec0834f5126deb79656790e6.tar.bz2
drakx-05da12f9c8801b36ec0834f5126deb79656790e6.tar.xz
drakx-05da12f9c8801b36ec0834f5126deb79656790e6.zip
no_comment
Diffstat (limited to 'perl-install/interactive_newt.pm')
-rw-r--r--perl-install/interactive_newt.pm6
1 files changed, 0 insertions, 6 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index b6d5823a3..254e27eb1 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -14,12 +14,6 @@ my $n = Term::Newt->new;
$n->init;
$n->cls;
-#sub ask_from_entryW {
-# my ($o, $title, $messages, $def) = @_;
-# my $w = my_gtk->new($title, %$o);
-# $w->_ask_from_entry(@$messages);
-# $w->main;
-#}
sub ask_from_listW {
my ($o, $title_, $messages, $l, $def) = @_;
my ($title, @okcancel) = ref $title_ ? @$title_ : ($title_, _("Ok"), _("Cancel"));