added i18n support

1 files changed, 53 insertions, 44 deletions

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,	"<Branch>"],
-			    ["/File/tearoff1",	undef,	0,	"<Tearoff>"],
-			    #["/File/_Quit",	"<control>Q",	5],
+			    [_("/_File"),	undef,	0,	"<Branch>"],
+			    [_("/File/tearoff1"),	undef,	0,	"<Tearoff>"],
+			    #[_("/File/_Quit"),	"<control>Q",	5],
 			    {
-				'path' => "/File/_Quit", 
-				'accelerator' => "<control>Q",	
+				'path' => _("/File/_Quit"), 
+				'accelerator' => _("<control>Q"),	
 				'action' => 1,
 				'type' => '<Item>'
 				},
-			    ["/_Help",	undef,	0,	"<Branch>"],
-			    ["/Help/_Mandrake Control Center",	undef,	2],
-			    ["/Help/_Report Bug",	undef,	3 ],
-			    ["/Help/_About",  undef,  4 ]
+			    [_("/_Help"),	undef,	0,	"<Branch>"],
+			    [_("/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 (<VERS>) { 
     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 <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\n" );
+    my $label1 = new Gtk::Label( _("Authors: ") . "\n\n Daouda Lo <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\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('<main>'), 0, 0, 0);
 
-	$label = new Gtk::Label "Type\n<alt>\nto start";
+	$label = new Gtk::Label( _("Type\n<alt>\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);