summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-08 14:47:11 +0000
committerNorbert Preining <preining@logic.at>2008-05-08 14:47:11 +0000
commitb4095aba71c285e6d611e7e7432dcc106ecfe006 (patch)
treedaa25232b670ddaeed113a5610806ea67a23c241 /Master
parent827cf5621c44c3d315ac95c52c15a23f88d5d44d (diff)
more niceties ...
git-svn-id: svn://tug.org/texlive/trunk@7946 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl17
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl11
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