Re: [MACTCL] poup cascade crashes

[Mats B. <ma...@pr...>]

Mads Linden wrote:
> 
> i get "mac crashes" when using heavyli casceded popups in my app on the mac
> 
> please run the example i have made since i am in big trouble here, hit the
> "hit me" rapidly over and over, and select some sub items of the cascades.
> 
> sometimes it crashes after 5 hits, other times 20 aprox. hits
> 
> would love to know if i am the only one having these problems.
> 

Same problem here. It's a memory manager problem.
In MacsBug I get:
	BowelsOfTheMemoryMgr
	"Unable to acces that address"

However, I can reproduce it TclXML by parsing a simple document,
se below, and then Quit from wish's menu.. 
This is what MacsBug says (can send the StdLog on request).
I've got a faint memory that it worked in the test version I got
from Daniel. Perhaps someone could verify that. If anyone wants
to reproduce it I can help, just let me know.

/Mats

 Return addresses on the stack
  Stack Addr  Frame Addr   ISA   Caller
   0834740C                PPC   19F5A9C4 __UseResFile+000A0
   08347408                68K   18A082C2 Tcl_AppendObjToObj+00162
   083473C8                PPC   18A196DC TclExecuteByteCode+00858
   08347348    08347340    PPC   18A0ED50 Tcl_FindCommand+0012C
   08347328    08347320    PPC   189F16E0 Tcl_Alloc+00018
   0834731A                PPC   0007FFFC
   083472E8    083472E0    PPC   189F2538 Tcl_AppendToObj+0020C
   083472A8    083472A0    PPC   18A0ED50 Tcl_FindCommand+0012C
   0834729A                PPC   0007FFFC
   083470FA                68K   0108FFFE
   083470C8                PPC   002F437C EmToNatEndMoveParams+00014
   083470B8                68K   18A082C2 Tcl_AppendObjToObj+00162
   083470A8    083470A0    PPC   18A2AE70 TclObjInterpProc+000C4
   08347078    08347070    PPC   189F24CC Tcl_AppendToObj+001A0
   08347058    08347050    PPC   189F3008 Tcl_DStringFree+000C0

____________script__________________


# Testing XML parsing
package require xml

proc HandleStart {name attlist} {
    if {[llength $attlist] > 0} {
	puts stderr "Element start ==> $name has attributes $attlist"
    } else {
	puts stderr "Element start ==> $name"
    }
}
proc HandleEnd {name} {
    puts stderr "Element end ==> $name"
}
proc HandleText {data} {
    puts stderr "Character data ==> $data"
}

set myParser [xml::parser]
$myParser configure -elementstartcommand HandleStart  \
  -ignorewhitespace 1   \
  -elementendcommand HandleEnd -characterdatacommand HandleText

set fileName [tk_getOpenFile]
set fd [open $fileName]
set xmldata [read $fd]
$myParser parse $xmldata