diff options
author | Norbert Preining <preining@logic.at> | 2008-11-28 15:18:53 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-11-28 15:18:53 +0000 |
commit | c3dcf85129adca0a70d3fd32040fe4a19dbee097 (patch) | |
tree | 29088cb8c4fdb562e091bb5326c2fc8119645b73 /Master/texmf | |
parent | 592ddd6a663b9c1ba1495bac34e5f6a7ff400912 (diff) |
log window for new tlmgr(gui)2
git-svn-id: svn://tug.org/texlive/trunk@11453 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl index 6ab87dc6107..2fd0910b605 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl @@ -236,10 +236,30 @@ our @allpackages; our $balloon = $mw->Balloon(); +push @::info_hook, + sub { + update_status(join(" ",@_)); + $mw->update; + }; +push @::warn_hook, + sub { + update_status(join(" ",@_)); + $mw->update; + }; + +sub update_status { + my ($p) = @_; + $::progressw->insert("end", "$p\n"); + $::progressw->see("end"); +} + + push @update_function_list, \&check_location_on_ctan; push @update_function_list, \&init_install_media; push @update_function_list, \&create_update_list; + + # wm title . "tlmgr 2008" # frame .top @@ -350,6 +370,17 @@ if (defined($opt_screen)) { $splash->Destroy; $mw->deiconify; + +# create a progress bar window +$::sww = $mw->Toplevel(-title => "log window", + -width => 400); +$::sww->transient($mainwindow); +#$::sww->grab(); +$::sww->Label(-text => "Log output")->pack; +$::progressw = $::sww->Scrolled("ROText", -scrollbars => "e", -height => 16); +$::progressw->pack(-expand => 1, -fill => "both"); + + Tk::MainLoop(); |