From 1a6c067bfd5d6d1537f4c2ffd02fc5d04188bafa Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Fri, 16 Feb 2001 15:01:11 +0000 Subject: added i18n support --- relcontrolcenter | 97 +++++++++++++++++++++++++++++++------------------------- 1 file changed, 53 insertions(+), 44 deletions(-) (limited to 'relcontrolcenter') diff --git a/relcontrolcenter b/relcontrolcenter index bf301a04..777fdd68 100755 --- a/relcontrolcenter +++ b/relcontrolcenter @@ -24,6 +24,14 @@ use Gtk; use Config; use POSIX; +# for i18n +use Locale::GetText; + +setlocale (LC_ALL, ""); +Locale::GetText::textdomain ("DrakConf"); + +import Locale::GetText I_; +*_ = *I_; init Gtk; use Data::Dumper; @@ -37,7 +45,7 @@ my $window_global = new Gtk::Window -toplevel; $window_global->set_usize(800, 600); $window_global->signal_connect ( delete_event => sub { Gtk->exit(0); }); $window_global->set_position(1); -$window_global->set_title("Mandrake Control Center"); +$window_global->set_title(_("Mandrake Control Center")); $window_global->border_width(0); $vbox_global = new Gtk::VBox(0, 0); @@ -45,19 +53,19 @@ $window_global->add($vbox_global); ######### menus my @item_factory_entries = ( - ["/_File", undef, 0, ""], - ["/File/tearoff1", undef, 0, ""], - #["/File/_Quit", "Q", 5], + [_("/_File"), undef, 0, ""], + [_("/File/tearoff1"), undef, 0, ""], + #[_("/File/_Quit"), "Q", 5], { - 'path' => "/File/_Quit", - 'accelerator' => "Q", + 'path' => _("/File/_Quit"), + 'accelerator' => _("Q"), 'action' => 1, 'type' => '' }, - ["/_Help", undef, 0, ""], - ["/Help/_Mandrake Control Center", undef, 2], - ["/Help/_Report Bug", undef, 3 ], - ["/Help/_About", undef, 4 ] + [_("/_Help"), undef, 0, ""], + [_("/Help/_Mandrake Control Center"), undef, 2], + [_("/Help/_Report Bug"), undef, 3 ], + [_("/Help/_About..."), undef, 4 ] ); my ($accel_group, $item_factory, $box1, $label, $box2); @@ -102,14 +110,14 @@ my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask); $pix_about->set_alignment(10,0); $hbox1->pack_start($pix_about, 0, 1, 0); my $style = new Gtk::Style; -$style->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1')); -my $label_about2 = new Gtk::Label ("Mandrake Control Center"); +$style->font(Gtk::Gdk::Font->load(_("-adobe-times-bold-r-normal--*-180-100-100-p-*-iso8859-*,*-r-*"))); +my $label_about2 = new Gtk::Label (_("Mandrake Control Center")); $label_about2->set_alignment(0,0); $label_about2->set_style($style); $hbox1->pack_start($label_about2, 0, 1, 0); my $vbox_about = new Gtk::VBox(0,10); $vbox_about->pack_start($hbox1, 0, 1, 0); -my $label_about3 = new Gtk::Label ("The place where you can configure your Mandrake Box"); +my $label_about3 = new Gtk::Label (_("The place where you can configure your Mandrake Box")); $vbox_about->pack_start($label_about3, 0, 0, 0); $table_info1 = new Gtk::Table(6,2,1); @@ -118,7 +126,7 @@ $table_info1->set_col_spacings(10); my @revtree; my @infotree; -open VERS, "/etc/redhat-release" or die "cannot open this file for read :$!"; +open VERS, "/etc/redhat-release" or die "cannot open this file for read: $!"; while () { push (@revtree,$_); } @@ -128,11 +136,11 @@ my ($sysname, $nodename, $release, $version, $machine ) = POSIX::uname(); my $username= POSIX::cuserid(); my $style1 = new Gtk::Style; -$style1->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1')); +$style1->font(Gtk::Gdk::Font->load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*"))); my $ld = new Gtk::Label("$username"); $table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0); -my $label_user = new Gtk::Label("User: "); +my $label_user = new Gtk::Label(_("User: ")); $label_user->set_style($style1); $label_user->set_justify('right'); $table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0); @@ -144,17 +152,17 @@ my $ld3 = new Gtk::Label("$release $version"); $table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0); my $ld4 = new Gtk::Label("$machine"); $table_info1->attach($ld4, 1, 2, 4, 5, 0, 0, 0, 0); -my $label_os = new Gtk::Label("System: "); +my $label_os = new Gtk::Label(_("System: ")); $label_os->set_style($style1); $label_os->set_justify('right'); $table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0); -my $label_host = new Gtk::Label("Hostname: "); +my $label_host = new Gtk::Label(_("Hostname: ")); $label_host->set_style($style1); $table_info1->attach_defaults($label_host, 0, 1, 2, 3); -my $label_kernel = new Gtk::Label("Kernel Version : "); +my $label_kernel = new Gtk::Label(_("Kernel Version: ")); $label_kernel->set_style($style1); $table_info1->attach_defaults($label_kernel, 0, 1, 3, 4); -my $label_box = new Gtk::Label("Machine: "); +my $label_box = new Gtk::Label(_("Machine: ")); $label_box->set_style($style1); $table_info1->attach_defaults($label_box, 0, 1, 4, 5); @@ -173,24 +181,24 @@ $vbox_global_left->pack_start($ctree_parent,1,1,0); map { create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]",0 , 1 , undef , undef); -} (['Boot Configuration', 'logo.xpm'] , ['Hardware Configuration', 'logo.xpm'] , ['User and Groups Management','logo.xpm'], - ['Network and Internet Connection','logo.xpm'] , ['Menu Customization','logo.xpm'] , ['Font Management','logo.xpm']); +} ([_("Boot Configuration"), 'logo.xpm'] , [_("Hardware Configuration"), 'logo.xpm'] , [_("User and Groups Management"),'logo.xpm'], + [_("Network and Internet Connection"),'logo.xpm'] , [_("Menu Customization"),'logo.xpm'] , [_("Font Management"),'logo.xpm']); map { create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]", 1, 0, $_->[2],$_->[3] ); -} (['Drakboot','item.xpm',1,0] , ['Drakfloppy', 'item.xpm',2,0] , ['Drakelogo', 'item.xpm',3,0], - ['XFDrake','item.xpm',4,1] , ['Hardrake','item.xpm',5,1] , ['Mousedrake', 'item.xpm',6,1] , ['Printerdrake','item.xpm',7,1] , ['Keyboarddrake', 'item.xpm',8,1], - ['Userdrake','item.xpm',9,2] , - ['Draknet' , 'item.xpm',10,3] , ['Drakgw','item.xpm',10,3], - ['Menudrake' , 'item.xpm',11,4] , - ['Drakfont', 'item.xpm', 12,5]); - -%tree_exec = (["Drakboot" => "drakeboot"], ["Drakfloppy" => "drakfloppy"], - ["Drakelogo" => "DrakeLogo"] , ["xfdrake" => "XFDrake"] , - ["hardrake" => "harddrake-auth"] , ["Mousedrake" => "mousedrake"] , - ["Printdrake" => "printerdrake"] , ["Kbddrake" => "keyboarddrake"] , - ["Userdrake" => "userdrake"] , ["Draknet" => "draknet"] , - ["Drakgw" => "drakgw"] , ["Menudrake" => "menudrake"] , ["Drakfont" => "drakfont"] +} ([_("Drakboot"),'item.xpm',1,0] , [_("Drakfloppy"), 'item.xpm',2,0] , [_("Drakelogo"), 'item.xpm',3,0], + [_("XFDrake"),'item.xpm',4,1] , [_("Hardrake"),'item.xpm',5,1] , [_("Mousedrake"), 'item.xpm',6,1] , [_("Printerdrake"),'item.xpm',7,1] , [_("Keyboarddrake"), 'item.xpm',8,1], + [_("Userdrake"),'item.xpm',9,2] , + [_("Draknet") , 'item.xpm',10,3] , [_("Drakgw"),'item.xpm',10,3], + [_("Menudrake") , 'item.xpm',11,4] , + [_("Drakfont"), 'item.xpm', 12,5]); + +%tree_exec = ([_("Drakboot") => "drakeboot"], [_("Drakfloppy") => "drakfloppy"], + [_("Drakelogo") => "DrakeLogo"] , ["xfdrake" => "XFDrake"] , + ["hardrake" => "harddrake-auth"] , [_("Mousedrake") => "mousedrake"] , + [_("Printdrake") => "printerdrake"] , ["Kbddrake" => "keyboarddrake"] , + [_("Userdrake") => "userdrake"] , [_("Draknet") => "draknet"] , + [_("Drakgw") => "drakgw"] , [_("Menudrake") => "menudrake"] , [_("Drakfont") => "drakfont"] ); my $rc = "control-center.rc"; @@ -198,7 +206,7 @@ my $rc = "control-center.rc"; $window_global->show_all; -print "num : " . $notebook_global->page_num($vbox_about) . "\n"; +print "num: " . $notebook_global->page_num($vbox_about) . "\n"; #$notebook_global->set_page(0); $SIG{USR1} = sub { $notebook_global->set_page(0); }; # embedded applications will send me that signal in order to "hide" them @@ -208,19 +216,19 @@ sub about_mdk_cc() { my $window_about = new Gtk::Dialog(); $window_about->set_position(1); - my $button = new Gtk::Button("Close"); + my $button = new Gtk::Button(_("Close")); $button->signal_connect_object("clicked",$window_about => destroy); $window_about->action_area->pack_start($button,$true,$true,0); $button->show(); - my $label = new Gtk::Label( "Mandrake Control Center 1.0 \n Copyright (C) 2001 Mandrakesoft SA\n" ); + my $label = new Gtk::Label( _("Mandrake Control Center 1.0 \n Copyright (C) 2001 Mandrakesoft SA\n") ); my $style1 = new Gtk::Style; - $style1->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1')); + $style1->font(Gtk::Gdk::Font->load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*"))); $label->set_style($style1); $window_about->vbox->pack_start( $label, $true, $true, 0 ); $label->show(); - my $label1 = new Gtk::Label( "Authors :\n\n Daouda Lo \n \n Damien Krotkine \n" ); + my $label1 = new Gtk::Label( _("Authors: ") . "\n\n Daouda Lo \n \n Damien Krotkine \n" ); $window_about->vbox->pack_start( $label1, $true, $true, 0 ); $label1->show(); @@ -286,7 +294,8 @@ sub exec_treeitem { $socket->show; $notebook_global->append_page($socket, ""); $socket->realize; - print ("The XID of the sockets window n°$arg is [" . $socket->window->XWINDOW . "]\nMy PID is [" . $$ . "]\n"); + printf (_("The XID of the sockets window nr. %s is [%s]\n"), $arg, $socket->window->XWINDOW ); + printf (_("My PID is [%s]\n"), $$ ); my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$ . "&"; print "$a\n"; system ($a); @@ -323,14 +332,14 @@ sub create_item_factory { $item_factory->create_item($_, \&item_factory_cb); } - $item_factory_window->set_title("Item Factory"); + $item_factory_window->set_title(_("Item Factory")); $item_factory_window->set_border_width(0); $box1 = new Gtk::VBox(0, 0); $item_factory_window->add($box1); $box1->pack_start($item_factory->get_widget('
'), 0, 0, 0); - $label = new Gtk::Label "Type\n\nto start"; + $label = new Gtk::Label( _("Type\n\nto start") ); $label->set_usize(200, 200); $label->set_alignment(0.5, 0.5); @@ -343,7 +352,7 @@ sub create_item_factory { $box2->set_border_width(10); $box1->pack_start($box2, 0, 1, 0); - $button = new Gtk::Button("close"); + $button = new Gtk::Button(_("Close")); $button->signal_connect('clicked', sub {$item_factory_window->destroy;}); $box2->pack_start($button, 1, 1, 0); $button->can_default(1); -- cgit v1.2.1