diff options
| author | Norbert Preining <preining@logic.at> | 2008-01-25 08:24:41 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-01-25 08:24:41 +0000 |
| commit | 1b9f049c2a78fe2c6dccf6a7c4617a004ec14f15 (patch) | |
| tree | 0fa52194600a4b25e40b39480172fae1ed32e0ea /Master/tlpkg | |
| parent | ef8625b224c3c6881329c21ad16ff4fe45537d59 (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')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 17 |
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 { |