Bug 59256

Summary:	wrong/missing dependency tetex texdoctk perl-tk
Product:	Gentoo Linux	Reporter:	Johannes Brügmann <johannes>
Component:	Current packages	Assignee:	Text-Markup Team (OBSOLETE) <text-markup+disabled>
Status:	RESOLVED FIXED
Severity:	normal	CC:	mips
Priority:	High
Version:	unspecified
Hardware:	All
OS:	Linux
Whiteboard:
Package list:		Runtime testing required:	---
Attachments:	patch to get texdoctk work with >=dev-perl/perl-tk-804.025

Description Johannes Brügmann 2004-08-03 06:04:13 UTC

texdoctk is shipped with tetex. texdoctk requires Perl/Tk 8.x. It is known to work with perl-tk-800.015 by the author (see /usr/share/texmf/doc/texdoctk/README). 

After starting texdoctk and browsing the documentation items a special selection leads to a popup-message saying "No selection was made."

# emerge -pv --emptytree | grep perl-tk is empty.
# emerge -pv perl-tk selects dev-perl/perl-tk-804.027

Debugging the perl-script shows that the variable $docselect isn't set. This variable is given to the subroutine viewslc. $docselect is through a perl-tk call. For me it seems, that there is no return value from this perl-tk call.

A downgrade to perl-tk-800.025-r1 works fine.

Reproducible: Always
Steps to Reproduce:
1. emerge =app-text/tetex-2.0.2-r3
2. emerge =dev-perl/perl-tk-804.027
3. texdoctk &

Actual Results:  
popupmessage "No selection was made."

Expected Results:  
The specified viewer should have been opened with the selected documentation.

Comment 1 Mamoru KOMACHI (RETIRED) gentoo-dev

2004-09-08 02:02:55 UTC

Sorry for the delay. I confirmed the problem. I added "tcltk" USE flag to tetex.eclass,
and force <dev-perl/perl-tk-804.027. If you find a way to run perldoctk with
perl-tk-804.027, that would be great. Thanks for the bug report.

Comment 2 Johannes Brügmann 2004-09-08 11:24:59 UTC

Created attachment 39210 [details]
patch to get texdoctk work with >=dev-perl/perl-tk-804.025 

This patch works on my machine. Since i'm not a perl programmer, confirmation
of correctness wouldn't be a bad thing ;-).

Since Change 3060 of perl-tk (introduced with 804.025) the call
$listbox->curselection returns always "a list containing the numerical indices
of all of the elements in the listbox that are currently selected" (man
Tk::Listbox, Change.log).  The index is returned by the appropriate
$listbox->index() call (man Tk::Listbox). Simply changing the call
$tplist->curselection() into $tplist->index($tplist->curselection()) should do
the job.

Comment 3 Mamoru KOMACHI (RETIRED) gentoo-dev

2004-09-08 13:13:43 UTC

Thank you so much! This fixes the problem. I made a patch from yours and
applied it to tetex.eclass. In doing so I don't need to patch app-text/ptex
and app-text/cstex ;-) 

To mips team: please emerge dev-perl/perl-tk and app-text/tetex-2.0.2-r3,
and test texdoctk. perl-tk needs to be keyworded on mips to add tcltk USE
flag to tetex (mr_bones_ told me).