From 4476c7d9b82f603eb7a092f822ff200012c64dd1 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 5 Apr 2010 08:08:51 +0000 Subject: New buttons for texdoc search. git-svn-id: svn://tug.org/texlive/trunk@17698 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/tetex/texdoctk.pl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'Master/texmf/scripts/tetex/texdoctk.pl') diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl index e1c9658f79c..234303297d7 100755 --- a/Master/texmf/scripts/tetex/texdoctk.pl +++ b/Master/texmf/scripts/tetex/texdoctk.pl @@ -192,15 +192,20 @@ my $deffont=$Qbut->cget(-font); $deffont='Helvetica -16 bold' if &x_resolution > 1200; $Qbut->configure(-font=>$deffont); $tlwins{'mainwindow'}{'buttons'}[1]=$cmdframe->Button( - -text=>'Search texdoctk\'s database', + -text=>'Database search', -font=>$deffont,%butcol, -command=>\&mksrch )->pack(-side=>'left'); -$tlwins{'mainwindow'}{'buttons'}[2]=$cmdframe->Button(-text=>'Help/About', +$tlwins{'mainwindow'}{'buttons'}[2]=$cmdframe->Button( + -text=>'File search', + -font=>$deffont,%butcol, + -command=>\&mksrch + )->pack(-side=>'left'); +$tlwins{'mainwindow'}{'buttons'}[3]=$cmdframe->Button(-text=>'Help/About', -font=>$deffont,%butcol, -command=>\&helptext )->pack(-side=>'right'); -$tlwins{'mainwindow'}{'buttons'}[3]=$cmdframe->Button(-text=>'Settings', +$tlwins{'mainwindow'}{'buttons'}[4]=$cmdframe->Button(-text=>'Settings', -font=>$deffont,%butcol, -command=>\&settings )->pack(-side=>'right'); @@ -237,7 +242,7 @@ if ($special == 0) { } else { $ncat=$nbutt; } -for ($i=0,$j=4; $i<@catg; ++$i,++$j) { +for ($i=0,$j=5; $i<@catg; ++$i,++$j) { $tlwins{'mainwindow'}{'buttons'}[$j]=$catg[$i]; } MainLoop; -- cgit v1.2.3