summaryrefslogtreecommitdiffstats
path: root/control-center3
diff options
context:
space:
mode:
Diffstat (limited to 'control-center3')
-rwxr-xr-xcontrol-center3116
1 files changed, 63 insertions, 53 deletions
diff --git a/control-center3 b/control-center3
index 833b0183..053064f7 100755
--- a/control-center3
+++ b/control-center3
@@ -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;
@@ -47,7 +55,7 @@ my $window_global = new Gtk::Window -toplevel;
$window_global->set_usize(745, 530);
$window_global->signal_connect ( delete_event => sub { quit_global(); });
$window_global->set_position(1);
-$window_global->set_title("Mandrake Control Center");
+$window_global->set_title(_("Mandrake Control Center"));
$window_global->border_width(0);
#$window_global->realize;
@@ -57,18 +65,18 @@ $window_global->add($vbox_global);
######### menus
my @item_factory_entries = (
- ["/_File", undef, 0, "<Branch>"],
- ["/File/tearoff1", undef, 0, "<Tearoff>"],
+ [_("/_File"), undef, 0, "<Branch>"],
+ [_("/File/tearoff1"), undef, 0, "<Tearoff>"],
{
- '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);
@@ -115,18 +123,18 @@ my $fixed1= new Gtk::Fixed();
$pix_about->set_alignment(10,0);
$fixed1->put($pix_about, 0, 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 ("The 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 (_("The Mandrake Control Center"));
$label_about2->set_alignment(0,0);
$label_about2->set_style($style);
$fixed1->put($pix_splash, 0, 0);
$fixed1->put($label_about2, 50, 130);
-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"));
$fixed1->put($label_about3, 60, 160);
my @revtree;
my @infotree;
-open VERS, "/etc/redhat-release" or die "cannot open this file for read :$!";
+open VERS, "/etc/redhat-release" or die( sprintf _("cannot open this file for read: $!"));
while (<VERS>) {
push (@revtree,$_);
}
@@ -136,30 +144,30 @@ 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 $label_user = new Gtk::Label("User: ");
+my $label_user = new Gtk::Label(_("User: "));
$label_user->set_style($style1);
$fixed1->put($label_user, 50, 190);
my $ld = new Gtk::Label("$username");
$fixed1->put($ld, 170, 190);
-my $label_os = new Gtk::Label("System: ");
+my $label_os = new Gtk::Label(_("System: "));
$label_os->set_style($style1);
$label_os->set_justify('right');
$fixed1->put($label_os, 50, 210);
my $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4] ");
$fixed1->put($ld1, 170, 210);
-my $label_host = new Gtk::Label("Hostname: ");
+my $label_host = new Gtk::Label(_("Hostname: "));
$label_host->set_style($style1);
$fixed1->put($label_host, 50, 230);
my $ld2 = new Gtk::Label("$nodename");
$fixed1->put($ld2, 170, 230);
-my $label_kernel = new Gtk::Label("Kernel Version : ");
+my $label_kernel = new Gtk::Label(_("Kernel Version: "));
$label_kernel->set_style($style1);
$fixed1->put($label_kernel, 50, 260);
my $ld3 = new Gtk::Label("$release $version");
$fixed1->put($ld3, 170, 260);
-my $label_box = new Gtk::Label("Machine: ");
+my $label_box = new Gtk::Label(_("Machine: "));
$label_box->set_style($style1);
$fixed1->put($label_box, 50, 290);
my $ld4 = new Gtk::Label("$machine");
@@ -178,33 +186,34 @@ $tree->set_selection_mode('browse');
$vbox_global_left->pack_start($tree,1,1,0);
map {
create_tree_item($tree, $_->[0] , "$xpm_path_l/$_->[1]",1);
-} (['Boot', 'logo.xpm'] , ['Hardware', 'logo.xpm'] , ['User and Groups','logo.xpm'],
- ['Network & Internet','logo.xpm'] , ['Menu Customization','logo.xpm'] , ['Font Management','logo.xpm']);
+} ([_("Boot"), 'logo.xpm'] , [_("Hardware"), 'logo.xpm'] , [_("User and Groups"),'logo.xpm'],
+ [_("Network & Internet"),'logo.xpm'] , [_("Menu Customization"),'logo.xpm'] , [_("Font Management"),'logo.xpm']);
map {
create_tree_item($treeitem_sub[int($_->[2])],$_->[0], "$xpm_path/$_->[1]",0);
- } (['Boot Loader','item.xpm',5] , ['Boot Disk', 'item.xpm',5] , ['Boot Logo', 'item.xpm',5],
- ['XFDrake','item.xpm',4] , ['Harddrake','item.xpm',4] , ['Mousedrake', 'item.xpm',4] , ['Printerdrake','item.xpm',4] , ['Keyboarddrake', 'item.xpm',4],
- ['Userdrake','item.xpm',3] ,
- ['Draknet' , 'item.xpm',2] , ['Drakgw','item.xpm',2],
- ['Menudrake' , 'item.xpm',1] ,
- ['Drakfont', 'item.xpm', 0]);
+ } ([_("Boot Loader"),'item.xpm',5] , [_("Boot Disk"), 'item.xpm',5] , [_("Boot Logo"), 'item.xpm',5],
+ [_("XFDrake"),'item.xpm',4] , [_("Harddrake"),'item.xpm',4] , [_("Mousedrake"), 'item.xpm',4] , [_("Printerdrake"),'item.xpm',4] , [_("Keyboarddrake"), 'item.xpm',4],
+ [_("Userdrake"),'item.xpm',3] ,
+ [_("Draknet") , 'item.xpm',2] , [_("Drakgw"),'item.xpm',2],
+ [_("Menudrake") , 'item.xpm',1] ,
+ [_("Drakfont"), 'item.xpm', 0]);
-%tree_exec = ("Boot Loader" => " ../bootlookdrake/bootlookdrake", "Boot Disk" => "$_xbindir/drakfloppy",
- "Boot Logo" => "$_xbindir/DrakeLogo" , "XFDrake" => "$_sbindir/XFdrake --expert" ,
- "Harddrake" => "$_bindir/harddrake-auth" , "Mousedrake" => "$_sbindir/mousedrake" ,
- "Printerdrake" => "$_sbindir/printerdrake" , "Keyboarddrake" => "$_sbindir/keyboarddrake" ,
- "Userdrake" => "$_bindir/userdrake" , "Draknet" => "$_sbindir/draknet" ,
- "Drakgw" => "$_sbindir/drakgw" , "Menudrake" => "$_bindir/menudrake" , "Drakfont" => "$_xbindir/drakfont"
+%tree_exec = (_("Boot Loader") => " ../bootlookdrake/bootlookdrake", _("Boot Disk") => "$_xbindir/drakfloppy",
+ _("Boot Logo") => "$_xbindir/DrakeLogo" , _("XFDrake") => "$_sbindir/XFdrake --expert" ,
+ _("Harddrake") => "$_bindir/harddrake-auth" , _("Mousedrake") => "$_sbindir/mousedrake" ,
+ _("Printerdrake") => "$_sbindir/printerdrake" , _("Keyboarddrake") => "$_sbindir/keyboarddrake" ,
+ _("Userdrake") => "$_bindir/userdrake" , _("Draknet") => "$_sbindir/draknet" ,
+ _("Drakgw") => "$_sbindir/drakgw" , _("Menudrake") => "$_bindir/menudrake" , _("Drakfont") => "$_xbindir/drakfont"
);
my @pid_launched;
-%tree_launched = ("Boot Loader" => -1, "Boot Disk" => -1,
- "Boot Logo" => -1 , "XFDrake" => -1 ,
- "Harddrake" => -1 , "Mousedrake" => -1 ,
- "Printerdrake" => -1 , "Keyboarddrake" => -1 ,
- "Userdrake" => -1 , "Draknet" => -1 ,
- "Drakgw" => -1 , "Menudrake" => -1 , "Drakfont" => -1
+%tree_launched = (_("Boot Loader") => -1, _("Boot Disk") => -1,
+ _("Boot Logo") => -1 , _("XFDrake") => -1 ,
+ _("Harddrake") => -1 , _("Mousedrake") => -1 ,
+ _("Printerdrake") => -1 , _("Keyboarddrake") => -1 ,
+ _("Userdrake") => -1 , _("Draknet") => -1 ,
+ _("Drakgw") => -1 , _("Menudrake") => -1 ,
+ _("Drakfont") => -1
);
#exec_treeitem("harddrake-auth",4);
@@ -214,14 +223,14 @@ my $rc = "control-center.rc";
$window_global->show_all;
-print "num : " . $notebook_global->page_num($fixed1) . "\n";
+print "num: " . $notebook_global->page_num($fixed1) . "\n";
$SIG{USR1} = sub { $notebook_global->set_page(0); }; # embedded applications will send me that signal in order to "hide" them
Gtk->main;
sub quit_global
{
- print "Cleaning...\n";
+ print _("Cleaning...\n");
foreach (@pid_launched) {
print "$_\n";
}
@@ -233,17 +242,17 @@ 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);
- 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 );
- $window_about->vbox->pack_start( new Gtk::Label( "Authors :\n\n Daouda Lo <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\n" ), $true, $true, 0 );
+ $window_about->vbox->pack_start( new Gtk::Label( _("Authors: ") . "\n\n Daouda Lo <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\n"), $true, $true, 0 );
$window_about->show_all();
$window_about->set_modal(1);
@@ -323,22 +332,23 @@ sub exec_treeitem
my ($label, $exec_string) = @_;
#exec_treeitem($tree_exec{$label},1);});
if ($exec_string) {
- print "SELECTED\n";
+ print _("SELECTED\n");
if ($tree_launched{$label}==-1) {
- print "yes\n";
+ print _("yes\n");
my $socket = new Gtk::Socket;
$socket->show;
$notebook_global->append_page($socket, "");
$socket->realize;
- print ("The XID of the sockets window n° is [" . $socket->window->XWINDOW . "]\nMy PID is [" . $$ . "]\n");
+ printf (_("The XID of the sockets window nr. %s is [%s]\n"), "", $socket->window->XWINDOW );
+ printf (_("My PID is [%s]\n"), $$ );
my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$;
print "$a\n";
- (my $pid = fork()) ? $pid_launched[$nb_pages] = $pid : exec ($a) or print STDERR "couldn't exec $a: $!";
+ (my $pid = fork()) ? $pid_launched[$nb_pages] = $pid : exec ($a) or print STDERR _("couldn't exec $a: $!");
$nb_pages++;
$tree_launched{$label}=$nb_pages;
$notebook_global->set_page($nb_pages);
} else {
- print "no\n";
+ print _("no\n");
$notebook_global->set_page($tree_launched{$label});
}
}
@@ -374,14 +384,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);
@@ -394,7 +404,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);