From 2672210835be02a476aac6e3fb58c21b99d63377 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 11 Jan 2010 15:28:18 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Master/texmf/scripts') 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; -- cgit v1.2.3