diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-wizard.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index 5048c182d6d..1c716a137de 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -202,7 +202,7 @@ sub ask_path { $fmain->Label(-text => $text{'pathinfo'}, - -justify => "left")->place(-x => 0, -y => 30); + -justify => "left")->place(-x => 0, -y => 20); my $ytmp = 100; $lab->place(-x => 0, -y => $ytmp, -anchor => "w"); @@ -304,6 +304,10 @@ sub ask_options { $_->destroy; } $counter->configure(-text => "3/5"); + + my $inf = $fmain->Label(-text => $text{"optiontitle"}, -justify => "left"); + $inf->place(-x => 0, -y => 20); + my $bletter = $fmain->Checkbutton(-text => $labels{'optletter'}, -variable => \$vars{"option_letter"}); @@ -316,6 +320,9 @@ sub ask_options { my $bpath = $fmain->Checkbutton(-text => $labels{'pathadj'}, -variable => \$vars{"option_path"}); + my $bmulti = $fmain->Checkbutton(-text => $labels{'multiuser'}, + -variable => \$vars{"option_w32_multi_user"}); + calc_depends(); @@ -331,6 +338,11 @@ sub ask_options { $ytmp += 50; $bpath->place(-x => 0, -y => $ytmp); + + if (admin()) { + $ytmp += 50; + $bmulti->place(-x => 0, -y => $ytmp); + } } $prv->configure(-text => $text{'prev'}, -command => \&ask_path ); @@ -351,7 +363,7 @@ sub ask_go { $_->destroy; } $counter->configure(-text => "4/5"); - my $inf = $fmain->Label(-justify => "left", -text => $text{'readyinst'} . "\n\n" . $text{'destfolder'} . ": $dest"); + my $inf = $fmain->Label(-justify => "left", -text => $text{'readyinst'} . "\n\n" . $text{'destfolder'} . " $dest"); $inf->place(-x => 0, -y => 100); |