windows-2.9 test hangs on AIX 5.1 with tk 8.4.14

[ Posted to comp.lang.tcl a few days ago, but no one responded. I've
since rebuilt tcl/tk on AIX 5.2, but the window-2.9 test still hangs.
I'm using the (rather old) vac.C compiler, version 5.0.2.8. Has anyone
out there in AIX land built tcl/tk 8.4.14 on 5.1 or 5.2 and not seen
the hang? ]

Both tcl and tk were built with --enable-threads. Tcl passed all but
two minor tests: clock-10.0 and clock-41.1, which are strftime format
tests. Tk failed many of the font tests, which I think I can live
with, but the windows-2.9 hang troubles me. The code is this:

test window-2.9 {Tk_DestroyWindow, Destroy bindings evaluated after
exit} \
unixOrWin {
set script [makeFile {
toplevel .t1
toplevel .t2
update
bind .t2 <Destroy> {puts "Destroy .t2" ; exit 1}
bind .t1 <Destroy> {puts "Destroy .t1" ; exit 0}
destroy .t2
} script]
set error [catch {exec [interpreter] $script -geometry 10x10+0+0}
msg]
removeFile script
list $error $msg
} {0 {Destroy .t2

Destroy .t1}}

Testing it without the test wrappings, I find that this hangs:

toplevel .t1
toplevel .t2
update
bind .t1 <Destroy> {puts "Destroy .t1" ; exit 0}
destroy .t2

But when I remove the "exit 0" it doesn't:

toplevel .t1
toplevel .t2
update
bind .t1 <Destroy> {puts "Destroy .t1" ; }
destroy .t2

How serious is this, and what might I do to fix it?

John.

.

Relevant Pages

  • Re: windows-2.9 test hangs on AIX 5.1 with tk 8.4.14
    ... test window-2.9 {Tk_DestroyWindow, Destroy bindings evaluated after ... set script [makeFile { ... toplevel .t1 ... list $error $msg ...
    (comp.lang.tcl)
  • windows-2.9 test hangs on AIX 5.1 with tk 8.4.14
    ... test window-2.9 {Tk_DestroyWindow, Destroy bindings evaluated after ... set script [makeFile { ... toplevel .t1 ... list $error $msg ...
    (comp.lang.tcl)
  • Embarassingly simple Tk question
    ... I read everything in and display it in a tablelist which is gridded into a toplevel with a couple of scrollbars. ... I want to write any updates back to the database. ... I've tried binding to <Destroy> on the toplevel. ... The first thing I spotted was that my binding was trigger many times, apparently once for each widget that was being destroyed. ...
    (comp.lang.tcl)
  • Second frame will not display
    ... TCL/Tk 8.5 on Mac OS X ... set gx .form2 ... catch {destroy $gx} ... toplevel $gx ...
    (comp.lang.tcl)