summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:09:20 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:09:20 +0000
commit0db0a420b9935329b00d10e44e861a8e2088f265 (patch)
tree5fe0ea1b0d2b48929cdc6ae3e0903c2a88da3076
parent1729b142b06b9073d069c6b3513a5751a71a13a4 (diff)
Fix cursor problem.
git-svn-id: svn://tug.org/texlive/trunk@17709 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/tetex/texdoctk.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl
index 61df68ca3fe..7d0b2c8c292 100755
--- a/Master/texmf/scripts/tetex/texdoctk.pl
+++ b/Master/texmf/scripts/tetex/texdoctk.pl
@@ -792,14 +792,15 @@ sub mksrch {
sub srchstr {
my $string;
my @reslist;
- $main->configure(-cursor=>'watch');
$string=$srchentry->get();
# search
+ $main->Busy(-recurse => 1);
if ($srchtype == 0) {
@reslist = &srchdb($string);
} else {
@reslist = &srchtd($string);
}
+ $main->Unbusy();
# destroy entry widget and show results
destroy $srchentry;
$srchflag=0;
@@ -814,7 +815,6 @@ sub srchstr {
} else {
&tpslct(-1, $string, @reslist);
}
- $main->configure(-cursor=>$defcursor);
}
# search using texdoc