summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-08 05:35:51 +0000
committerNorbert Preining <preining@logic.at>2008-05-08 05:35:51 +0000
commit1fd5765fa60ae5e7598862ed5b7fe37aed29b5f7 (patch)
tree41efd1f4c9aff8b036fe8962bd381c1abe1ea9aa /Master
parentc799a88ed7e46fb00b2c59aa5bd5c232f13152da (diff)
fix for win32 without arch
git-svn-id: svn://tug.org/texlive/trunk@7929 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl16
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl16
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-install.pl9
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-remove.pl16
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl15
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-update.pl11
6 files changed, 37 insertions, 46 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
index 1d504cbe649..ffcf06b28f6 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-arch.pl
@@ -8,15 +8,13 @@
our $b4 = $top->Button(-text => "Architectures",
- -command => sub {
- $back_f1->packForget;
- $back_f2->packForget;
- $back_f3->packForget;
- $back_config->packForget;
- $back_up->packForget;
- $back_arch->pack;
- });
-
+ -command => sub {
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_arch);
+ }
+ $back_arch->pack;
+ });
$b4->pack(-side => 'left');
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
index 5ef1775310e..aec9606771d 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl
@@ -7,15 +7,13 @@
#
our $b5 = $top->Button(-text => "Configuration",
- -command => sub {
- $back_f1->packForget;
- $back_f2->packForget;
- $back_f3->packForget;
- $back_arch->packForget;
- $back_up->packForget;
- $back_config->pack;
- });
-
+ -command => sub {
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_config);
+ }
+ $back_config->pack;
+ });
$b5->pack(-side => 'left');
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-install.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-install.pl
index a6fd5796ffb..64c6a954274 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-install.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-install.pl
@@ -9,11 +9,10 @@
our $b1 = $top->Button(-text => "Adding packages",
-command => sub {
- $back_f2->packForget;
- $back_f3->packForget;
- $back_arch->packForget;
- $back_config->packForget;
- $back_up->packForget;
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_f1);
+ }
$back_f1->pack;
});
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-remove.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-remove.pl
index a4a06edf9f6..9a2c8811080 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-remove.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-remove.pl
@@ -7,15 +7,13 @@
#
our $b2 = $top->Button(-text => "Removing packages",
- -command => sub {
- $back_f1->packForget;
- $back_f3->packForget;
- $back_arch->packForget;
- $back_config->packForget;
- $back_up->packForget;
- $back_f2->pack;
- });
-
+ -command => sub {
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_f2);
+ }
+ $back_f2->pack;
+ });
$b2->pack(-side => 'left');
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
index ef4a62114ae..70788fdc152 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
@@ -7,14 +7,13 @@
#
our $b3 = $top->Button(-text => "Uninstallation",
- -command => sub {
- $back_f1->packForget;
- $back_f2->packForget;
- $back_arch->packForget;
- $back_config->packForget;
- $back_up->packForget;
- $back_f3->pack;
- });
+ -command => sub {
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_f3);
+ }
+ $back_f3->pack;
+ });
$b3->pack(-side => 'left');
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-update.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-update.pl
index 0c3e50cab73..3c897f80b83 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-update.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-update.pl
@@ -6,12 +6,11 @@
#
our $bu = $top->Button(-text => "Updating packages",
- -command => sub {
- $back_f2->packForget;
- $back_f3->packForget;
- $back_arch->packForget;
- $back_config->packForget;
- $back_f1->packForget;
+ -command => sub {
+ foreach my $f (keys %screens) {
+ $screens{$f}->packForget
+ unless ($screens{$f} eq $back_up);
+ }
$back_up->pack;
});