[PD-dev] tcl 8.5 help browser bug and a fix

Miller Puckette mpuckett at imusic1.ucsd.edu
Wed Feb 21 20:34:09 CET 2007


Hi all,

I don't know how the help browser works (Hans-Christophe wrote it) and
don't know whether that comment character is in there for some reason
or not.  So I'm scared to fix this without hearing from HC.

I wonder if the old-fashioned idea of just using the file browser should
be available as at least an option...

cheers
Miller

On Sun, Feb 18, 2007 at 10:58:32PM -0500, ico at vt.edu wrote:
> Hi all,
> 
> Tried sending a couple of e-mails not realizing I am not subscribed to dev
> list... DOH! So, please prepare for a small salvo of e-mails :-)
> 
> Topic #1: tcl/tk 8.5 help browser bug
> 
> This help browser bug using CVS and tcl/tk 8.5 has been present since at least
> last fall. After digging through the code, I found the following:
> 
> proc doc_make_listbox {base dir count} {
>     # check for [file readable]?
>     if { [info tclversion] >= 8.5 } {
>         # requires Tcl 8.5 but probably deals with special chars better
> #        destroy {expand}[lrange [winfo children $base] [expr {2 * $count}] end]
>     } else {
> 
> The comment before "destroy" in effect disables destroying of children widgets
> and causes errors whenever I have more than one column open and try to click on
> a column preceding one that is already created. The error reported is that the
> "listbox1-list already exists" and the only way around is to close the help
> browser and reopen it. This obviously prevents going up the file tree once a
> particular subfolder has been opened which obviously means it is a non-lethal
> bug, but nonetheless annoying.
> 
> The fix is obvious, remove the comment from the offending line and everything
> works like a charm:
> 
> proc doc_make_listbox {base dir count} {
>     # check for [file readable]?
>     if { [info tclversion] >= 8.5 } {
>         # requires Tcl 8.5 but probably deals with special chars better
>         destroy {expand}[lrange [winfo children $base] [expr {2 * $count}] end]
>     } else {
> 
> It would be great if one of the devs/maintiners would please commit this change
> (I'd do it but I have not bothered to get the CVS dev access).
> 
> Many thanks!
> 
> Best wishes,
> 
> Ico
> 
> 
> 
> _______________________________________________
> PD-dev mailing list
> PD-dev at iem.at
> http://lists.puredata.info/listinfo/pd-dev




More information about the Pd-dev mailing list