summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-05 17:12:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-05 17:12:51 +0000
commit937943b4502499a9afae32313f47a73352a21a41 (patch)
tree4a9570acd26db16e0acd5094970321e489ab7d2c /perl-install/printerdrake.pm
parent85e3ac6e225bd09cfa913a3a3812335f99cbfd3c (diff)
downloaddrakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.gz
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.bz2
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.xz
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.zip
move to new ask_from's:
- ask_from_entries_ref is deprecated, use ask_from_entries_refH - ask_from_list now calls ask_from_entries_refH_powered still not done: - ask_from_treelist should use ask_from_entries_refH_powered, and lists with no help should use CList (List is bad) - keyboard and mouse binding is still rough - enhance the look
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 4081b9721..0744f0738 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -236,12 +236,11 @@ sub setup_gsdriver_lpr($$$;$) {
do {
$printer->{DBENTRY} ||= $printer::thedb_gsdriver{$printer->{GSDRIVER}}{ENTRY};
eval { $printer->{DBENTRY} = $printer::descr_to_db{
- $in->ask_from_list_with_help_(_("Configure Printer"),
- _("What type of printer do you have?"),
- [ @printer::entry_db_description ],
- { %printer::descr_to_help },
- $printer::db_to_descr{$printer->{DBENTRY}},
- )
+ $in->ask_from_list_(_("Configure Printer"),
+ _("What type of printer do you have?"),
+ [ @printer::entry_db_description ],
+ $printer::db_to_descr{$printer->{DBENTRY}},
+ { %printer::descr_to_help })
};
}; $@ =~ /^ask_from_list cancel/ and return;