From 37de37d49473833bdfaaf9d9d4137f44f114ad8b Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 26 Jan 2009 19:40:35 +0000 Subject: tlmgr gui: mark application busy/unbusy while doing stuff git-svn-id: svn://tug.org/texlive/trunk@11984 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Master/texmf') 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; -- cgit v1.2.3