--
You received this message because you are subscribed to the Google Groups "Shen" group.
To unsubscribe from this group and stop receiving emails from it, send an email to qilang+un...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/qilang/449982a2-bb48-4bf1-81b5-8a97f5ddd789n%40googlegroups.com.
proc on_close {} {
exit
}
set mainWindow .
# With this line it works, without it wish doesn't exit
wm protocol $mainWindow WM_DELETE_WINDOW on_close
label .label -text "Test"
pack .label
vwait forever