diff options
author | Norbert Preining <preining@logic.at> | 2008-04-17 08:02:23 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-17 08:02:23 +0000 |
commit | 0057c38056386ec2fa7171c13972417cd3d01241 (patch) | |
tree | 05f3738c4c3ab875f81302e5631919c28fe56719 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 4384299786a2e06413f870924dd95d2eb2e572fd (diff) |
remove the "update from net" stuff, we will not support it but
will add support for adding binaries via tlmgr
git-svn-id: svn://tug.org/texlive/trunk@7464 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 50 |
1 files changed, 3 insertions, 47 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 6e7fb965b7a..bb2efcc8c17 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -19,7 +19,6 @@ our @collections_std; our @collections_lang; our @collections_lang_doc; our $texlive_release; -our $trynet; our $MENU_INSTALL = 0; our $MENU_ABORT = 1; @@ -132,8 +131,6 @@ my %text = ( title => 'TeX Live 2008 Installation', binto => 'binaries to', manto => 'manpages to', infoto => 'info to', - onnet => 'On Net', - ondisk => 'On Disk', selectsys => 'Select arch-os', clicknetbin => 'Click for net bins', outof => 'out of', @@ -553,62 +550,21 @@ sub menu_select_symlink { sub menu_select_binsystems { our $f2r; our $f2; - our @netarchs = (); - sub update_net_archs() { - my $oldnrnetarch = $#netarchs; - $trynet = 1; - set_platforms_supported(); - $trynet=0; - @netarchs = (); - foreach my $key (keys %vars) { - if ($key=~/netbin_(.*)/) { - push @netarchs, $1; - $from_net{"$1"}=1; - } - } - menu_update_texts(); - if ($#netarchs != $oldnrnetarch) { - # we have to destroy the old $f2r frame and make a new one - $f2r->destroy; - do_net_frame(); - } - } - sub do_net_frame { - $f2r = $f2->Frame; - if ($#netarchs >= 0) { - $f2r->Label(-text => $text{'onnet'})->pack; - foreach my $sys (sort @netarchs) { - $f2r->Checkbutton(-variable => \$vars{"netbin_$sys"}, -text => "$sys")->pack(-anchor => 'w'); - } - $f2r->pack(-side => 'right'); - } - $f2->pack; - } my $sw = $mw->Toplevel(-title => $labels{'binsys'}); my @diskarchs = (); foreach my $key (keys %vars) { - if ($key=~/diskbin_(.*)/) { + if ($key=~/binary_(.*)/) { push @diskarchs, $1; - $from_net{"$1"}=0; - } - if ($key=~/netbin_(.*)/) { - push @netarchs, $1; - $from_net{"$1"}=1; } } $sw->Label(-text => $text{'selectsys'})->pack; $f2 = $sw->Frame; my $f2l = $f2->Frame; - $f2l->Label(-text => $text{'ondisk'})->pack; foreach my $sys (sort @diskarchs) { - $f2l->Checkbutton(-variable => \$vars{"diskbin_$sys"}, -text => platform_desc($sys))->pack(-anchor => 'w'); + $f2l->Checkbutton(-variable => \$vars{"binary_$sys"}, -text => platform_desc($sys))->pack(-anchor => 'w'); } $f2l->pack(-side => 'left'); - do_net_frame(); - my $f4 = $sw->Frame; - $f4->pack; - $f4->Button(-text => $text{'clicknetbin'}, - -command => sub { update_net_archs(); })->pack; + $f2->pack; my $f3 = $sw->Frame; $f3->Button(-text => $text{'ok'}, -command => sub { callback_select_systems() ; $sw->destroy })->pack(-side => 'left'); |