From b4095aba71c285e6d611e7e7432dcc106ecfe006 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 8 May 2008 14:47:11 +0000 Subject: more niceties ... git-svn-id: svn://tug.org/texlive/trunk@7946 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/gui-config.pl | 17 +++++++++++++++++ Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 11 +++++++++++ 2 files changed, 28 insertions(+) (limited to 'Master') 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 @@ -168,6 +168,23 @@ sub change_paper { } 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}; 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 -- cgit v1.2.3