diff options
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/install-tl b/Master/install-tl index a02a65e5eaa..2c6134c1db3 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -401,6 +401,17 @@ if ($opt_profile eq "") { tlwarn("Continuing in text mode...\n"); $opt_gui = 0; } + eval { my $foo = Tk::MainWindow->new; $foo->destroy; }; + if ($@) { + tlwarn("perl/Tk unusable, cannot create main windows.\n"); + if (platform() eq "universal-darwin") { + tlwarn("That could be a consequence of not having X Windows installed!\n"); + } + tlwarn("Error message from creating MainWindow:\n"); + tlwarn(" $@\n"); + tlwarn("Continuing in text mode...\n"); + $opt_gui = 0; + } } if ($opt_gui && !$opt_nogui) { require("installer/install-menu-perltk.pl"); |