diff options
author | Norbert Preining <preining@logic.at> | 2016-05-16 14:04:50 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-05-16 14:04:50 +0000 |
commit | b710014271b4285b87efaa136ac29f5425816f7f (patch) | |
tree | 58032dc56033fc6c27a87dcdd30f21bf97de2227 /Master | |
parent | 25b83cb2bf642e7d3fc4496f87d0861311566255 (diff) |
allow for cmd line arguments to gui for font/window etc
git-svn-id: svn://tug.org/texlive/trunk@41187 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 18 | ||||
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 1 |
2 files changed, 18 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index ac972a97605..4be54db0de0 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -187,7 +187,23 @@ my %action_specification = ( "function" => \&action_get_mirror }, "gui" => { - "options" => { "load" => 1 }, + "options" => { + "load" => 1, + # Tk::CmdLine options + "font" => "=s", + "background" => "=s", + "class" => "=s", + "display" => "=s", + "screen" => "=s", + "foreground" => "=s", + "geometry" => "=s", + "name" => "=s", + "title" => "=s", + "xrm" => "=s", + "iconic" => 1, + "motif" => 1, + "synchronous" => 1, + }, "run-post" => 1, "function" => \&action_gui }, diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl index 09b80a6df17..bad08f0f6a2 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl @@ -242,6 +242,7 @@ sub guimain { ############## GUI ######################## sub build_initial_gui { + Tk::CmdLine::SetArguments(@::SAVEDARGV); $mw = MainWindow->new; $mw->title("TeX Live Manager $TeXLive::TLConfig::ReleaseYear"); $mw->withdraw; |