From 1ede7a0ee9c7182bb3c0db2c20766638277e74e4 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 18 May 2016 06:04:47 +0000 Subject: tlmgrgui: massage cmd line args to remove = git-svn-id: svn://tug.org/texlive/trunk@41232 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgrgui.pl | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'Master') diff --git a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl index bad08f0f6a2..4d9a626fec5 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgrgui.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgrgui.pl @@ -242,7 +242,20 @@ sub guimain { ############## GUI ######################## sub build_initial_gui { - Tk::CmdLine::SetArguments(@::SAVEDARGV); + # processed @::SAVEDARGV to replace + # --font='foobar' + # with + # --font 'foobar' + # as required by Tk::CmdLine. + my @a; + for my $c (@::SAVEDARGV) { + if ($c =~ m/^--?(font|background|class|display|screen|foreground|geometry|name|title|xrm)=(.*)$/) { + push @a, "--$1", $2; + } else { + push @a, $c; + } + } + Tk::CmdLine::SetArguments(@a); $mw = MainWindow->new; $mw->title("TeX Live Manager $TeXLive::TLConfig::ReleaseYear"); $mw->withdraw; -- cgit v1.2.3