diff options
author | Norbert Preining <preining@logic.at> | 2008-05-04 18:56:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-04 18:56:16 +0000 |
commit | 186ef31173a88d807eda21d6f848961e09659a9e (patch) | |
tree | 9e9587dcdeb21f344ebbfa8ba527499bf72f113f /Master | |
parent | 44d12fbf328b7003160a47ab3fcf5b21f9fcfa3c (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.pl | 6 |
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'}); |