summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-25 08:24:41 +0000
committerNorbert Preining <preining@logic.at>2008-01-25 08:24:41 +0000
commit1b9f049c2a78fe2c6dccf6a7c4617a004ec14f15 (patch)
tree0fa52194600a4b25e40b39480172fae1ed32e0ea /Master/tlpkg/installer/install-menu-perltk.pl
parentef8625b224c3c6881329c21ad16ff4fe45537d59 (diff)
do not show binary system menu on win32
git-svn-id: svn://tug.org/texlive/trunk@6402 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl17
1 files changed, 9 insertions, 8 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 7694e40f81e..ea9f3696348 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -7,9 +7,6 @@
# or any later version.
#
#
-# TODO:
-# - does the DoOneEvent *NEVER* hang???
-# - translation into other languages
my $svnrev = '$Revision$';
$svnrev =~ m/: ([0-9]+) /;
@@ -209,10 +206,12 @@ sub run_menu {
$fr->Label(-text => "------- $text{'basicinfo'} -------")->pack;
# binary system line
- my $fbin = $fr->Frame; $fbin->pack;
- $fbin->Label(-text => $labels{'binsys'}, -width => $a, -anchor => 'w')->pack(-side => 'left');
- $bintextbutton = $fbin->Label(-width => $b, -anchor => 'w'); $bintextbutton->pack(-side => 'left');
- $fbin->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_binsystems(); })->pack(-side => 'left');
+ if (!win32()) {
+ my $fbin = $fr->Frame; $fbin->pack;
+ $fbin->Label(-text => $labels{'binsys'}, -width => $a, -anchor => 'w')->pack(-side => 'left');
+ $bintextbutton = $fbin->Label(-width => $b, -anchor => 'w'); $bintextbutton->pack(-side => 'left');
+ $fbin->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_binsystems(); })->pack(-side => 'left');
+ }
# scheme line
my $fscheme = $fr->Frame; $fscheme->pack;
@@ -593,7 +592,9 @@ sub menu_set_schemebutton_text {
}
sub menu_set_binbutton_text {
- menu_set_text($bintextbutton, "$vars{'n_systems_selected'} $text{'outof'} $vars{'n_systems_available'}");
+ if (!win32()) {
+ menu_set_text($bintextbutton, "$vars{'n_systems_selected'} $text{'outof'} $vars{'n_systems_available'}");
+ }
}
sub menu_set_collections_text {