From c3dcf85129adca0a70d3fd32040fe4a19dbee097 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 28 Nov 2008 15:18:53 +0000 Subject: log window for new tlmgr(gui)2 git-svn-id: svn://tug.org/texlive/trunk@11453 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 31 ++++++++++++++++++++++ 1 file changed, 31 insertions(+) (limited to 'Master/texmf') 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(); -- cgit v1.2.3