summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-24 18:37:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-24 18:37:10 +0000
commitf6737a438f3366c15a5cdf356a6fb0f8277acb60 (patch)
tree70557b59bfca6631598a79d26085a373b4360323 /perl-install
parentd5e0b178f3c85425ecd1d860f87cbd56e5633f78 (diff)
downloaddrakx-backup-do-not-use-f6737a438f3366c15a5cdf356a6fb0f8277acb60.tar
drakx-backup-do-not-use-f6737a438f3366c15a5cdf356a6fb0f8277acb60.tar.gz
drakx-backup-do-not-use-f6737a438f3366c15a5cdf356a6fb0f8277acb60.tar.bz2
drakx-backup-do-not-use-f6737a438f3366c15a5cdf356a6fb0f8277acb60.tar.xz
drakx-backup-do-not-use-f6737a438f3366c15a5cdf356a6fb0f8277acb60.zip
localize level option menu
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm14
1 files changed, 11 insertions, 3 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index b051e75f5..9c3dcf7a2 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -23,6 +23,14 @@ my %perm = ( 'level 1' => $perm_path.'perm.1',
'level 5' => $perm_path.'perm.5',
'editable' => $local_path.'perm.local',
);
+my %perm_l10n = ('level 1' => N("Level 1"),
+ 'level 2' => N("Level 2"),
+ 'level 3' => N("Level 3"),
+ 'level 4' => N("Level 4"),
+ 'level 5' => N("Level 5"),
+ 'editable' => N("Custom settings"),
+ );
+my %rev_perm_l10n = reverse %perm_l10n;
my $editable = 0;
my $modified = 0;
my $prec_txt = $default_perm_level;
@@ -46,7 +54,7 @@ each_index {
#- widgets settings
my $combo_perm = new Gtk2::OptionMenu;
-$combo_perm->set_popdown_strings(sort(keys %perm));
+$combo_perm->set_popdown_strings(sort(values %perm_l10n));
sub add_callback() {
row_setting_dialog();
@@ -94,7 +102,7 @@ sub up_callback() {
$permList->queue_draw;
}
-my $combo_sig = $combo_perm->entry->signal_connect(changed => sub { display_perm($combo_perm->entry->get_text , @_) });
+my $combo_sig = $combo_perm->entry->signal_connect(changed => sub { display_perm($rev_perm_l10n{$combo_perm->entry->get_text} , @_) });
$permList->signal_connect(button_press_event => sub {
return unless $editable;
my (undef, $event) = @_;
@@ -138,7 +146,7 @@ $W->show_all;
$w->{rwindow}->set_position('center') unless $::isEmbedded;
display_perm($default_perm_level);
-$combo_perm->entry->set_text($default_perm_level);
+$combo_perm->entry->set_text($perm_l10n{$default_perm_level});
$permList->get_selection->signal_connect('changed' => sub {
my ($select) = @_;