diff options
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl | 1 | ||||
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl index 8cc57fd95d2..699c988a89b 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl @@ -11,6 +11,7 @@ $back_f3 = $back->Frame; if ($^O=~/^MSWin(32|64)$/i) { + # this should not happen!!!! my $lab = $back_f3->Label(-justify => 'left', -text => "Start the TeX Live 2008 Uninstaller?"); diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index 841af7c5f0f..ac2542e893e 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -139,7 +139,10 @@ our $quit = $top->Button(-text => "Quit", # pack .top.b1 .top.b2 -side left $b1->pack(-side => 'left'); $b2->pack(-side => 'left'); -$b3->pack(-side => 'left'); +# uninstllation should not be done via tlmgr on win32 +if (!win32()) { + $b3->pack(-side => 'left'); +} $b4->pack(-side => 'left'); $b5->pack(-side => 'left'); |