1 files changed, 24 insertions, 2 deletions
diff --git a/userdrake2 b/userdrake2
index 10e3764..1752820 100755
--- a/userdrake2
+++ b/userdrake2
@@ -36,7 +36,29 @@ my $conffile = '/etc/sysconfig/userdrake';
 my $secfile = '/etc/sysconfig/msec';
 my $pixdir = '/usr/share/userdrake/pixmaps/';
 
-my $in = interactive->vnew('su', 'default');
+c::bind_textdomain_codeset('userdrake', 'UTF8');
+sub translate {
+    my ($s) = @_;
+    my $r = '';
+    if ($s) {
+        $r = c::dgettext('userdrake', $s);
+        $r eq $s and $r = Locale::gettext::iconv(c::dgettext('urpmi', $s), undef, "UTF-8");
+        c::set_tagged_utf8($r);
+    }
+    $r;
+}
+sub sprintf_fixutf8 {
+    my $need_upgrade;
+    $need_upgrade |= to_bool(c::is_tagged_utf8($_)) + 1 foreach @_;
+    if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ };
+    sprintf shift, @_;
+}
+sub N {
+    my $s = shift @_; my $t = translate($s);
+    sprintf_fixutf8 $t, @_;
+}
+
+my $in = interactive->vnew('su');
 
 my $us = {} ;
 $us->{VERSION} = 0.92;
@@ -792,7 +814,7 @@ sub NewDialog {
     gtkset_modal($dialog, 1);
 }
 sub About {
-    my $window_about = NewDialog(N("Userdrake2"));
+    my $window_about = NewDialog(N("Userdrake"));
     my $tree_model = Gtk2::TreeStore->new(Gtk2::GType->STRING, Gtk2::GType->STRING, Gtk2::GType->STRING);
     my $list = Gtk2::TreeView->new_with_model($tree_model);
     $list->can_focus(0);