diff options
Diffstat (limited to 'logdrake')
| -rwxr-xr-x | logdrake | 24 |
1 files changed, 21 insertions, 3 deletions
@@ -27,10 +27,24 @@ use common qw(:common :file :functional :system); use any; use my_gtk qw(:helpers :wrappers); +# for i18n +use POSIX; +use Locale::GetText; +setlocale (LC_ALL, ""); +Locale::GetText::textdomain ("DrakConf"); +import Locale::GetText I_; + use Gtk; use Config; init Gtk; +# for i18n +sub _ { + my $s = shift @_; my $t = I_($s); + $t && ref $t or return sprintf $t, @_; + my ($T, @p) = @$t; + sprintf $T, @_[@p]; +} $::isInstall and die "Not supported during install.\n"; @@ -45,7 +59,7 @@ my $in = vnew interactive('su'); local $_ = join '', @ARGV; -/-h/ and die "usage: logdrake [--version]\n"; +/-h/ and die sprintf( _("usage: logdrake [--version]\n")); /-version/ and die 'version: $Id$ '."\n"; my $h=`hostname -s`; @@ -90,8 +104,8 @@ my $menubar = get_main_menu( $window ); ########## font and colors -my $n = Gtk::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*"); -my $b = Gtk::Gdk::Font->load("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-*"); +my $n = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*,*")); +my $b = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-*,*")); my $white = my_gtk::gtkcolor(50400, 655, 20000); my $black = my_gtk::gtkcolor(0, 0, 0); @@ -349,6 +363,10 @@ sub destroy_window { # log # $Log$ +# Revision 1.6 2001/07/03 19:40:48 pablo +# updated Danish file, +# i18n'd logdrake +# # Revision 1.5 2001/07/03 08:54:43 yduret # powered by DrakX technologie # |