summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2001-02-26 21:32:31 +0000
committerPablo Saratxaga <pablo@mandriva.com>2001-02-26 21:32:31 +0000
commitdb21d78fc01f662b780dcbabbfc597e1304de01a (patch)
tree063e319bd9ffff1c7f0e3e9d261957402a4a6c6f /perl-install
parent40bb969c0384907d53a54218a1618ec6b2bc83cd (diff)
downloaddrakx-backup-do-not-use-db21d78fc01f662b780dcbabbfc597e1304de01a.tar
drakx-backup-do-not-use-db21d78fc01f662b780dcbabbfc597e1304de01a.tar.gz
drakx-backup-do-not-use-db21d78fc01f662b780dcbabbfc597e1304de01a.tar.bz2
drakx-backup-do-not-use-db21d78fc01f662b780dcbabbfc597e1304de01a.tar.xz
drakx-backup-do-not-use-db21d78fc01f662b780dcbabbfc597e1304de01a.zip
changed I_() to _() so xgettext cna find the translatable strings
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm42
1 files changed, 21 insertions, 21 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1c40eee96..062f9add8 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -36,8 +36,8 @@ import Locale::GetText I_;
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~/--embedded (\S*) (\S*)/;
if ($::isEmbedded) {
print "EMBED\n";
- print "XID : $::XID\n";
- print "CCPID : $::CCPID\n";
+ print "XID: $::XID\n";
+ print "CCPID: $::CCPID\n";
}
local $_ = join '', @ARGV;
@@ -50,7 +50,7 @@ my $l_mode = isAutologin();
my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel");
$window->signal_connect( 'delete_event', sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
-$window->set_title( I_("Boot Style Configuration") );
+$window->set_title( _("Boot Style Configuration") );
#$window->set_policy('automatic', 'automatic');
#$window->set_policy(0, 0, 0);
$window->border_width (10);
@@ -72,31 +72,31 @@ my $pixmap = new Gtk::Pixmap( $h_pixmap, $h_mask );
### menus definition
# the menus are not shown
# but they provides shiny shortcut like C-q
-my @menu_items = ( { path => I_("/_File"),
+my @menu_items = ( { path => _("/_File"),
type => '<Branch>' },
- { path => I_("/File/_New"),
- accelerator => I_("<control>N"),
+ { path => _("/File/_New"),
+ accelerator => _("<control>N"),
callback => \&print_hello },
- { path => I_("/File/_Open"),
- accelerator => I_("<control>O"),
+ { path => _("/File/_Open"),
+ accelerator => _("<control>O"),
callback => \&print_hello },
- { path => I_("/File/_Save"),
- accelerator => I_("<control>S"),
+ { path => _("/File/_Save"),
+ accelerator => _("<control>S"),
callback => \&print_hello },
- { path => I_("/File/Save _As") },
- { path => I_("/File/-"),
+ { path => _("/File/Save _As") },
+ { path => _("/File/-"),
type => '<Separator>' },
- { path => I_("/File/_Quit"),
- accelerator => I_("<control>Q"),
+ { path => _("/File/_Quit"),
+ accelerator => _("<control>Q"),
callback => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) } },
- { path => I_("/_Options"),
+ { path => _("/_Options"),
type => '<Branch>' },
- { path => I_("/Options/Test") },
+ { path => _("/Options/Test") },
- { path => I_("/_Help"),
+ { path => _("/_Help"),
type => '<LastBranch>' },
- { path => I_("/Help/_About...") } );
+ { path => _("/Help/_About...") } );
my $menubar = get_main_menu( $window );
@@ -110,7 +110,7 @@ $global_vbox->pack_start (new Gtk::Label(_("Boot style configuration")), 0, 0, 0
my $a_dedans = new Gtk::VBox( 0, 10 );
$a_dedans->border_width (5);
my $a_box = new Gtk::VBox(0, 0 );
-my $a_button = new Gtk::CheckButton( I_("Launch Aurora at boot time") );
+my $a_button = new Gtk::CheckButton( _("Launch Aurora at boot time") );
$a_button->signal_connect( "clicked", sub {
if ($a_mode) {
$a_box->set_sensitive(0); $pixmap->set($t_pixmap, $t_mask);
@@ -239,7 +239,7 @@ sub isXlaunched
{
my $line;
- open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading : $!");
+ open INITTAB, "/etc/inittab" or die _("can not open /etc/inittab for reading: $!");
while (<INITTAB>) {
if (/id:([1-6]):initdefault:/) { $line = $_; last; }
}
@@ -263,7 +263,7 @@ sub isAutologin
{
my $line;
- open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading : $!");
+ open AUTOLOGIN, "/etc/sysconfig/autologin" or die _("can not open /etc/sysconfig/autologin for reading: $!");
while (<AUTOLOGIN>) {
if (/AUTOLOGIN=(yes|no)/) { $line = $_; last; }
}