::tol::forallchild

[Javier Portugal]

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

[Jorge]

this bug is solved:

instead of checking for if ARG_INDEXES 'IsShared' we should only care about
last_index (the only object in the list we modify)