diff options
Diffstat (limited to 'Master/texmf/scripts/tetex')
-rwxr-xr-x | Master/texmf/scripts/tetex/texdoctk.pl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl index 234303297d7..39fdece9805 100755 --- a/Master/texmf/scripts/tetex/texdoctk.pl +++ b/Master/texmf/scripts/tetex/texdoctk.pl @@ -30,6 +30,7 @@ my @tdcolors; my %butcol; my $srchentry; my $srchflag=0; +my $srchtype; # 0 = database, 1 = texdoc my $tmpfno; # system variables my ($texmfmain,$texmfdist,$texmfdoc,$texmflocal,$texmfhome, @@ -194,12 +195,12 @@ $Qbut->configure(-font=>$deffont); $tlwins{'mainwindow'}{'buttons'}[1]=$cmdframe->Button( -text=>'Database search', -font=>$deffont,%butcol, - -command=>\&mksrch + -command=>[\&mksrch, 0] )->pack(-side=>'left'); $tlwins{'mainwindow'}{'buttons'}[2]=$cmdframe->Button( -text=>'File search', -font=>$deffont,%butcol, - -command=>\&mksrch + -command=>[\&mksrch, 1] )->pack(-side=>'left'); $tlwins{'mainwindow'}{'buttons'}[3]=$cmdframe->Button(-text=>'Help/About', -font=>$deffont,%butcol, @@ -760,9 +761,14 @@ sub showpath { # make or destroy search entry widget sub mksrch { + my ($type) = @_; if ($srchflag == 1) { - destroy $srchentry; - $srchflag=0; + if ($type == $srchtype) { + destroy $srchentry; + $srchflag=0; + } else { + $srchtype = $type; + } } else { # get the search string $srchentry=$cmdframe->Entry(-cursor=>'xterm', |