[MACTCL] [MACTCL BUG] 8.3.2 Application Error 25

[Ralph H. <rh...@bm...>]

I'm still getting the ApllicationError 25 when I call
the AppleScript package many times....this time I've
changed the script so it runs on any Mac.

Even if I compile the AppleScript and run it from the
handle returned by compile, the problem is the same, so
I'm suspecting a memory leak in the AppleScript mechanism
itself.

The minimal script that will duplicate the problem is at the end
of the message.

It's not meant to be practical, just illustrates a timed procedure firing
off on a regular basis. If I comment out the call to the AppleScript
procedure, then the application runs fine. I suspect a memory leak
somewhere in tclAppleScript....

Hope this bug report is useful...

-------------------------------------------------------------------------------
package require Tclapplescript

set rcvHandlerAID ""
set rcvEvent      ""

proc rcvHandler { } {
  global rcvHandlerAID
  global rcvEvent
  
  set inData [AppleScript run silly]

  puts "Reading in handler $rcvHandlerAID $inData"
  
  set rcvEvent RXDONE
}

AppleScript compile -name silly "current date"

set rcvHandlerAID [after 20 {rcvHandler}]

while { 0 == [regexp {TIMEOUT|EOF} $rcvEvent] } {
   vwait rcvEvent
   puts "Got event $rcvEvent"
   set rcvHandlerAID [after 20 {rcvHandler}]
}
-------------------------------------------------------------------------------