diff options
author | Norbert Preining <preining@logic.at> | 2008-05-08 14:47:11 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-08 14:47:11 +0000 |
commit | b4095aba71c285e6d611e7e7432dcc106ecfe006 (patch) | |
tree | daa25232b670ddaeed113a5610806ea67a23c241 | |
parent | 827cf5621c44c3d315ac95c52c15a23f88d5d44d (diff) |
more niceties ...
git-svn-id: svn://tug.org/texlive/trunk@7946 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl | 17 | ||||
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 11 |
2 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl index 3a20c3f5e98..4873af7ab54 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl @@ -171,6 +171,23 @@ sub select_paper { my $prog = shift; my $foo = $back_config->Toplevel(-title => "paper select for $prog"); my $var = $defaultpaper{$prog}; + my $opt = $foo->BrowseEntry(-label => "Default paper for $prog", -variable => \$var); + foreach my $p (sort @{$papers{$prog}}) { + $opt->insert("end",$p); + } + $opt->pack; + my $f = $foo->Frame; + $f->Button(-text => "Ok", -command => sub { change_paper($prog,$var); $foo->destroy; })->pack(-side => "left"); + $f->Button(-text => "Cancel", -command => sub { $foo->destroy; })->pack(-side => "left"); + $f->pack; +} + + + +sub old_select_paper { + my $prog = shift; + my $foo = $back_config->Toplevel(-title => "paper select for $prog"); + my $var = $defaultpaper{$prog}; my @lop = @{$papers{$prog}}; my $nrpercols = 15; my $row = 1; diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index 263c702ba42..ffa8d142afe 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -75,7 +75,18 @@ our $top = $mw->Frame; our $quit = $top->Button(-text => "Quit", -command => sub { $mw->destroy; exit(0); }); + +our $about = $top->Button(-text => "About", + -command => sub { + $mw->Dialog(-title => "About", + -text => "TeX Live Manager GUI +Copyright 2008 Tomasz Luczak, Norbert Preining +License under the GNU General Public License version 2 or higher +In case of problems, please contact: texlive\@tug.org", + -buttons => [ "Ok" ])->Show; + }); +$about->pack(-side => 'right'); $quit->pack(-side => 'right'); # frame .back -borderwidth 2 |