diff options
author | Norbert Preining <preining@logic.at> | 2008-12-26 20:41:02 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-12-26 20:41:02 +0000 |
commit | aa1698c6f48ee300b8f3fb4a0be0a9f0eb98ea19 (patch) | |
tree | 24992f0975db846e35fc79ad7760cab982b72fcd /Master | |
parent | a4bded218c801545b887be06f8dffe262f9f6503 (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')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-config2.pl | 83 |
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: |