summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-01-11 15:28:18 +0000
committerNorbert Preining <preining@logic.at>2010-01-11 15:28:18 +0000
commit2672210835be02a476aac6e3fb58c21b99d63377 (patch)
treed3ccabc978be972a1b692a389455df0b5f8a3029 /Master/texmf
parentf502b86d70a70edb8b7cafadbf0a8c6f06a10765 (diff)
make several more strings (some window titles, and a4/letter) translatable
git-svn-id: svn://tug.org/texlive/trunk@16672 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index 8bc8890d48b..116c25a57a3 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -179,7 +179,7 @@ sub guimain {
if (!$::we_can_save) {
- my $no_write_warn = $mw->Dialog(-title => "warning",
+ my $no_write_warn = $mw->Dialog(-title => __("Warning"),
-text => __("You don't have permissions to change the installation in any way,\nspecifically, the directory %s is not writable.\nPlease run this program as administrator, or contact your local admin.\n\nMost buttons will be disabled.", "$Master/tlpkg/"),
-buttons => [ __("Ok") ])->Show();
}
@@ -864,7 +864,7 @@ sub check_on_removal {
if (!$archs{$a} && $a eq $currentarch) {
# removal not supported
$archs{$a} = 1;
- $arch_frame->Dialog(-title => "info",
+ $arch_frame->Dialog(-title => __("Warning"),
-text => __("Removals of the main architecture not possible!"),
-buttons => [ __("Ok") ])->Show;
}
@@ -1132,9 +1132,9 @@ sub do_paper_settings {
my $back_config_pap_l1 = $back_config_pap->Label(-text => __("Default paper for all"), -anchor => "w");
- my $back_config_pap_m1 = $back_config_pap->Button(-text => "a4",
+ my $back_config_pap_m1 = $back_config_pap->Button(-text => __("a4"),
-command => sub { change_paper("all", "a4"); });
- my $back_config_pap_r1 = $back_config_pap->Button(-text => "letter",
+ my $back_config_pap_r1 = $back_config_pap->Button(-text => __("letter"),
-command => sub { change_paper("all", "letter"); });
$back_config_pap_l1->grid( $back_config_pap_m1, $back_config_pap_r1,
@@ -1344,7 +1344,7 @@ sub init_install_media {
$mw->Unbusy;
if (!defined($tlmediasrc)) {
# something went badly wrong, maybe the newroot is wrong?
- $mw->Dialog(-title => "warning",
+ $mw->Dialog(-title => __("Warning"),
-text => __("Could not load the TeX Live Database from %s\nIf you want to install or update packages, please try with a different package repository!\n\nFor configuration and removal you don\'t have to do anything.", $newroot),
-buttons => [ __("Ok") ])->Show;
$tlmediatlpdb = undef;
@@ -1804,7 +1804,7 @@ sub execute_action_gui {
sub give_warning_window {
my ($act, @args) = @_;
- my $sw = $mw->DialogBox(-title => __("Warning Window"), -buttons => [ __("Ok") ]);
+ my $sw = $mw->DialogBox(-title => __("Warning"), -buttons => [ __("Ok") ]);
$sw->add("Label", -text => __("Running %s failed.\nPlease consult the log window for details.", "$act @args")
)->pack(@p_iii);
$sw->Show;