summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-04 18:56:16 +0000
committerNorbert Preining <preining@logic.at>2008-05-04 18:56:16 +0000
commit186ef31173a88d807eda21d6f848961e09659a9e (patch)
tree9e9587dcdeb21f344ebbfa8ba527499bf72f113f /Master
parent44d12fbf328b7003160a47ab3fcf5b21f9fcfa3c (diff)
write warning message in red
git-svn-id: svn://tug.org/texlive/trunk@7847 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index d8a178f7a76..dfc7ad12ca5 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -577,7 +577,7 @@ sub menu_select_binsystems {
sub menu_set_text {
my $w = shift;
my $t = shift;
- $w->configure(-text => $t);
+ $w->configure(-text => $t, @_);
}
sub menu_set_symlink_text {
@@ -602,7 +602,7 @@ sub menu_set_pathes_text {
if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) {
menu_set_text($texdirtext, "$vars{'TEXDIR'}");
} else {
- menu_set_text($texdirtext, $text{'notwritable'});
+ menu_set_text($texdirtext, $text{'notwritable'}, -foreground => "red");
}
menu_set_text($texmflocaltext, "$vars{'TEXMFLOCAL'}");
if ((-w $vars{'TEXMFSYSVAR'}) || (-w dirname($vars{'TEXMFSYSVAR'}))) {
@@ -611,7 +611,7 @@ sub menu_set_pathes_text {
if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) {
menu_set_text($texmfsysvartext, "$vars{'TEXMFSYSVAR'}");
} else {
- menu_set_text($texmfsysvartext, $text{'changetexdir'});
+ menu_set_text($texmfsysvartext, $text{'changetexdir'}, -foreground => "red");
}
} else {
menu_set_text($texmfsysvartext, $text{'notwritable'});