summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-11-28 15:18:53 +0000
committerNorbert Preining <preining@logic.at>2008-11-28 15:18:53 +0000
commitc3dcf85129adca0a70d3fd32040fe4a19dbee097 (patch)
tree29088cb8c4fdb562e091bb5326c2fc8119645b73 /Master/texmf
parent592ddd6a663b9c1ba1495bac34e5f6a7ff400912 (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-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl31
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();