summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-26 19:40:35 +0000
committerNorbert Preining <preining@logic.at>2009-01-26 19:40:35 +0000
commit37de37d49473833bdfaaf9d9d4137f44f114ad8b (patch)
treed36e420b54a9f8d15aef4587033099a7d6c61af8
parent5670fbaf6c0f35e7acba17dd3663df1aa2ae9720 (diff)
tlmgr gui: mark application busy/unbusy while doing stuff
git-svn-id: svn://tug.org/texlive/trunk@11984 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index b0d7e1f5b48..dd6dcb0da58 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -492,6 +492,7 @@ sub update_selected_packages {
}
push @args, @_;
execute_action_gui(@args);
+ reinit_local_tlpdb();
if (win32() && $updater_needed) {
my $t = ___"runupdater";
$t =~ s/TEXROOT/$Master/;
@@ -507,7 +508,6 @@ sub update_selected_packages {
# -text => $t,
# -buttons => [ ___"ok" ])->Show;
}
- reinit_local_tlpdb();
# TODO TODO TODO
# we should give a warning window when something didn't work out!!!
}
@@ -531,6 +531,7 @@ sub remove_selected_packages {
}
sub reinit_local_tlpdb {
+ $mw->Busy(-recurse => 1);
$localtlpdb = TeXLive::TLPDB->new ("root" => "$Master");
die("cannot find tlpdb!") unless (defined($localtlpdb));
@alllocalpackages = setup_list(0,$localtlpdb->list_packages);
@@ -538,6 +539,7 @@ sub reinit_local_tlpdb {
@allpackages = setup_list(1,$tlmediatlpdb->list_packages);
}
create_update_list();
+ $mw->Unbusy;
}
sub create_update_list {
@@ -693,8 +695,10 @@ sub execute_action_gui {
# -command => sub { $td->destroy; });
# my $lab = $td->Label(-text => ___("starting") . " @_\n");
# $lab->pack;
+ $mw->Busy(-recurse => 1);
execute_action(@_);
info(___("completed") . "\n");
+ $mw->Unbusy;
# my $labb = $td->Label(-text => ___"finished");
# $labb->pack;
# $ok->pack;