diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-04-05 08:09:20 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-04-05 08:09:20 +0000 |
commit | 0db0a420b9935329b00d10e44e861a8e2088f265 (patch) | |
tree | 5fe0ea1b0d2b48929cdc6ae3e0903c2a88da3076 | |
parent | 1729b142b06b9073d069c6b3513a5751a71a13a4 (diff) |
Fix cursor problem.
git-svn-id: svn://tug.org/texlive/trunk@17709 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf/scripts/tetex/texdoctk.pl | 4 |
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 |