summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-17 08:02:23 +0000
committerNorbert Preining <preining@logic.at>2008-04-17 08:02:23 +0000
commit0057c38056386ec2fa7171c13972417cd3d01241 (patch)
tree05f3738c4c3ab875f81302e5631919c28fe56719 /Master/tlpkg/installer/install-menu-perltk.pl
parent4384299786a2e06413f870924dd95d2eb2e572fd (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.pl50
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');