Dialog widget hangs in BWidget 1.7

From: Scott Gamon (sgamon_at_yahoo.com)
Date: 12/31/03

Date: 31 Dec 2003 01:01:13 -0800

When I issue the "draw" command to a Dialog widget in
BWidget 1.7, the entire application hangs.

I am using ActiveTcl 8.4.5 on WinXP Pro.

The code below illustrates the error. Switching to
BWidget 1.6 makes it work.

# DialogTest.tcl
#
# A test of the BWidget Dialog widget.

package require -exact BWidget 1.7

button .b -text "Dialog" -command {ShowDialog}
pack .b

proc ShowDialog {args} {
Dialog .prompt \
-title {???} \
-parent .b \
-place above

label .prompt.label -text "This is a dialog!\nDid it
work?"

pack .prompt.label

.prompt add -text Okay -command {.prompt enddialog Okay}
.prompt add -text Cancel -command {.prompt enddialog
Cancel}

set Prompt [.prompt draw]

destroy .prompt
}

Any advice?

Thanks,
Scott