Changeset 11073

Timestamp:

03/11/10 12:21:45 (2 years ago)

Author:

szabgab

Message:

move localization code to Padre::Locale

Location:

trunk/Padre/lib/Padre

Files:

• Locale.pm (modified) (1 diff)
• Wx/Menu/View.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Locale.pm

@@ -59 +59 @@
 # simplicity (for now) we list them all as lower-case.
 my %RFC4646;
+
+# taken from gettext translations of the iso-codes package
+# file:///usr/share/locale/*/LC_MESSAGES/iso_639.mo
+# file:///usr/share/xml/iso-codes/iso_639.xml
+# http://pkg-isocodes.alioth.debian.org/
+my %lang_labels = (
+    'de'    => 'Deutsch',
+);
+
+sub label {
+    my $name = shift;
+    return $lang_labels{$name} || $name
+}
 
 BEGIN {

trunk/Padre/lib/Padre/Wx/Menu/View.pm

@@ -28 +28 @@
 );
 
-# taken from gettext translations of the iso-codes package
-# file:///usr/share/locale/*/LC_MESSAGES/iso_639.mo
-# file:///usr/share/xml/iso-codes/iso_639.xml
-# http://pkg-isocodes.alioth.debian.org/
-my %lang_labels = (
-    'de'    => 'Deutsch',
-);
 
 
@@ -302 +295 @@
 
         my $langobj = Padre::Locale::object($name);
-        $label .= ' ('.($lang_labels{$name} || $name).')';
+        $label .= ' (' . Padre::Locale::label($name) . ')';
 
         my $radio = $self->add_radio_menu_item(