diff options
author | Norbert Preining <preining@logic.at> | 2008-05-08 05:35:51 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-08 05:35:51 +0000 |
commit | 1fd5765fa60ae5e7598862ed5b7fe37aed29b5f7 (patch) | |
tree | 41efd1f4c9aff8b036fe8962bd381c1abe1ea9aa | |
parent | c799a88ed7e46fb00b2c59aa5bd5c232f13152da (diff) |
fix for win32 without arch
git-svn-id: svn://tug.org/texlive/trunk@7929 c570f23f-e606-0410-a88d-b1316a301751
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; }); |