summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:08:58 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:08:58 +0000
commit1fadc23a29aee57d1a40525fa274f7cef482b49e (patch)
treeabd6cd5db29c277e8037357a70ce6d73ce9cf0b1
parent4476c7d9b82f603eb7a092f822ff200012c64dd1 (diff)
Search buttons now set srchtype correctly.
git-svn-id: svn://tug.org/texlive/trunk@17699 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/tetex/texdoctk.pl14
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',