id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc
83	::tol::forallchild	Javier Portugal	Jorge	"Writing this code in Tkcon (for example)

package require Toltcl
proc Tol_HciWriter {msg} {puts $msg}
::tol::initkernel
::tol::initlibrary

#Este archivo actualmente este incluido en initLibrary (en el CVS)
::tol::include ""c:/users/javipor/bsd/tol/initLibrary/_guifunction.tol""

#/////////////////////////////////////////////////////////////////////////////
proc ForAllChildToLstAry {lstVal} {
#
# PURPOSE: Returns output ::tol::forallchild information in ""array get"" form
#
#/////////////////////////////////////////////////////////////////////////////
  set lstNam [list GRAMMAR NAME CONTENT PATH DESC INDEXES ISFILE\
       HASSUBSET SUBTYPE STRUCT]
  for {set i 0} {$i < [llength $lstNam]} {incr i} {
    set inf([lindex $lstNam $i]) [lindex $lstVal $i]
  }
  return [array get inf]
}

proc ReadUserFuncs {args} {
  variable idf
  array set inf [ForAllChildToLstAry $args]
  set idf $inf(INDEXES)
  ::tol::forallchild ""GuiFunction $idf"" ReadUserFunc
}

proc ReadUserFunc {args} {
  variable regFunLst
  variable idf
  array set inf [ForAllChildToLstAry $args]
}

::tol::forallchild GuiFunction ReadUserFuncs


gives next error:
 Tcl_SetIntObj called with shared object
and tkconsole breaks down"	defect	closed	high		Interface	head	critical	fixed