#!/usr/bin/perl # Yves Duret # license: GPL use lib qw(/usr/lib/libDrakX); use common; use interactive; my %l = ( 0 => "Welcome To Crackers", 1 => "Poor", 2 => "Low", 3 => "Medium", 4 => "High", 5 => "Paranoid", ); my $in = 'interactive'->vnew(undef, 'default'); my $level = $in->ask_from_list("window title - ask_from_list", "radio button\nexamples of utilisation of ask_from_list", [ values %l ], $l{2} ) or $in->exit(0); print "$level\n"; $in->exit(0); rg/css/mageia-logo-nav-3.png' alt='cgit logo'/> index : rpmdrake
Mageia Graphical Package ManagerThierry Vignaud [tv]
aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2013-10-01 22:01:31 +0100
committerColin Guthrie <colin@mageia.org>2013-10-01 22:01:31 +0100
commit1dd7dba00303fa14bbfcbdd0a8fe05071134754d (patch)
tree424883a49ded79a13ffb90b54f89f4da95dae444
parent6903c9adb33a526ec72f46e483165bff703c0198 (diff)
downloadrpmdrake-1dd7dba00303fa14bbfcbdd0a8fe05071134754d.tar
rpmdrake-1dd7dba00303fa14bbfcbdd0a8fe05071134754d.tar.gz
rpmdrake-1dd7dba00303fa14bbfcbdd0a8fe05071134754d.tar.bz2
rpmdrake-1dd7dba00303fa14bbfcbdd0a8fe05071134754d.tar.xz
rpmdrake-1dd7dba00303fa14bbfcbdd0a8fe05071134754d.zip
i18n: Update po files