From b710014271b4285b87efaa136ac29f5425816f7f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 16 May 2016 14:04:50 +0000 Subject: 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 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 18 +++++++++++++++++- Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 1 + 2 files changed, 18 insertions(+), 1 deletion(-) 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; -- cgit v1.2.3