From 1b9f049c2a78fe2c6dccf6a7c4617a004ec14f15 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 25 Jan 2008 08:24:41 +0000 Subject: do not show binary system menu on win32 git-svn-id: svn://tug.org/texlive/trunk@6402 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg') 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 { -- cgit v1.2.3