summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.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_gtk.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_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm6
1 files changed, 0 insertions, 6 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 381b2546f..7074e6664 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -19,12 +19,6 @@ use my_gtk qw(:helpers :wrappers);
#- $o->SUPER::ask_warn(@_);
#-}
-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) = @_;