summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-12-26 20:41:02 +0000
committerNorbert Preining <preining@logic.at>2008-12-26 20:41:02 +0000
commitaa1698c6f48ee300b8f3fb4a0be0a9f0eb98ea19 (patch)
tree24992f0975db846e35fc79ad7760cab982b72fcd /Master/texmf
parenta4bded218c801545b887be06f8dffe262f9f6503 (diff)
use grid in a more useful way ;-) thanks Perl/Tk book
git-svn-id: svn://tug.org/texlive/trunk@11729 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl83
1 files changed, 14 insertions, 69 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl
index f160c993431..80e62bff6be 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl
@@ -53,42 +53,18 @@ my $back_config_set_r6 = $back_config_set->Button(-text => ___"change",
-command => sub { info("Not implemented!\n"); return; change_autobackup(); });
-$back_config_set_l1->grid(-row => 1, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m1->grid(-row => 1, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r1->grid(-row => 1, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_l2->grid(-row => 2, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m2->grid(-row => 2, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r2->grid(-row => 2, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_l3->grid(-row => 3, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m3->grid(-row => 3, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r3->grid(-row => 3, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_l4->grid(-row => 4, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m4->grid(-row => 4, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r4->grid(-row => 4, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_l5->grid(-row => 5, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m5->grid(-row => 5, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r5->grid(-row => 5, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_l6->grid(-row => 6, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_m6->grid(-row => 6, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
-$back_config_set_r6->grid(-row => 6, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l1->grid( $back_config_set_m1, $back_config_set_r1,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l2->grid( $back_config_set_m2, $back_config_set_r2,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l3->grid( $back_config_set_m3, $back_config_set_r3,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l4->grid( $back_config_set_m4, $back_config_set_r4,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l5->grid( $back_config_set_m5, $back_config_set_r5,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
+$back_config_set_l6->grid( $back_config_set_m6, $back_config_set_r6,
+ -padx => "2m", -pady => "2m", -sticky => "nwe");
#############
@@ -104,11 +80,7 @@ my $back_config_pap_m1 = $back_config_pap->Button(-text => "A4",
my $back_config_pap_r1 = $back_config_pap->Button(-text => "letter",
-command => sub { change_paper("all", "letter"); });
-$back_config_pap_l1->grid(-row => 1, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nswe");
-$back_config_pap_m1->grid(-row => 1, -column => 2,
- -padx => "2m", -pady => "2m", -sticky => "nswe");
-$back_config_pap_r1->grid(-row => 1, -column => 3,
+$back_config_pap_l1->grid( $back_config_pap_m1, $back_config_pap_r1,
-padx => "2m", -pady => "2m", -sticky => "nswe");
my %papers;
@@ -159,7 +131,6 @@ sub init_all_papers {
init_all_papers();
-my $row = 2;
my (%l,%m,%r);
foreach my $p (sort keys %papers) {
if (($p eq "context") && !defined($localtlpdb->get_package("bin-context"))) {
@@ -169,13 +140,8 @@ foreach my $p (sort keys %papers) {
$m{$p} = $back_config_pap->Label(-textvariable => \$defaultpaper{$p}, -anchor => "w");
$r{$p} = $back_config_pap->Button(-text => ___"change",
-command => sub { select_paper($p); }, -anchor => "w");
- $l{$p}->grid(-row => $row, -column => 1,
- -padx => "2m", -pady => "2m", -sticky => "nsw");
- $m{$p}->grid(-row => $row, -column => 2,
+ $l{$p}->grid( $m{$p}, $r{$p},
-padx => "2m", -pady => "2m", -sticky => "nsw");
- $r{$p}->grid(-row => $row, -column => 3,
- -padx => "2m", -pady => "2m", -sticky => "nsw");
- $row++;
}
$back_config_pap->pack(-side => 'left', -fill => "both", -padx => "2m", -pady => "2m");
@@ -286,27 +252,6 @@ sub select_paper {
}
-
-sub old_select_paper {
- my $prog = shift;
- my $foo = $back_config->Toplevel(-title => ___("paperfor") . " $prog");
- my $var = $defaultpaper{$prog};
- my @lop = @{$papers{$prog}};
- my $nrpercols = 15;
- my $row = 1;
- my $col = 1;
- foreach my $p (sort @{$papers{$prog}}) {
- $foo->Radiobutton(-variable => \$var, -value => $p, -text => $p, -anchor => "w")->grid(-row => $row, -column => $col, -padx => "2m", -pady => "2m", -sticky => "nsw");
- $row++;
- if ($row > $nrpercols) {
- $col++;
- $row = 1;
- }
- }
- $foo->Button(-text => ___"ok", -command => sub { change_paper($prog,$var); $foo->destroy; })->grid(-row => $nrpercols+1, -column => 1);
- $foo->Button(-text => ___"cancel", -command => sub { $foo->destroy; })->grid(-row => $nrpercols+1, -column => 2);
-}
-
1;
### Local Variables: