diff options
Diffstat (limited to 'control-center3')
-rwxr-xr-x | control-center3 | 116 |
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); |