diff options
author | Norbert Preining <preining@logic.at> | 2010-05-13 01:25:54 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-05-13 01:25:54 +0000 |
commit | f20ad2111ed477d5d7def9bfde516e130fc88fd8 (patch) | |
tree | b0b0a9708318e89773c9d6f045779d8352deeec6 /Master/texmf/scripts | |
parent | 29dac85257a825e2a9a883954a3f3f44bc6fee52 (diff) |
add button in tlmgr gui for running mkluatexfontdb-sys
git-svn-id: svn://tug.org/texlive/trunk@18218 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl index 8874f83df45..af1f923579e 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui.pl @@ -530,6 +530,21 @@ sub setup_menu_system { } $mw->Unbusy; }); + + if (TeXLive::TLUtils::which("mkluatexfontdb-sys")) { + $menu_actions->add('command', -label => __("Update luaTeX font database"), + -state => $::action_button_state, + -command => sub { + $mw->Busy(-recurse => 1); + info("Running mkluatexfontdb-sys, this may take some time ...\n"); + for my $l (`mkluatexfontdb-sys 2>&1`) { + info($l); + $mw->update; + } + $mw->Unbusy; + }); + + } $menu_actions->add('command', -label => __("Restore packages from backup") . " ...", |