diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
| -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 { |