1# Have provoked crashes for qtvr movies.
2package require QuickTimeTcl
3proc testProc { w what {par {}} } {
4    global  myFile2
5
6    puts "testProc:: w=$w, what=$what, par=$par"
7    if {$what == "triggerhotspot"} {
8	#after idle [list .m configure -file $myFile2]
9	.m configure -file $myFile2
10	tk_messageBox -type ok -message {We made .m configure -file $myFile2}
11    }
12}
13wm title . {Tcl Crash}
14tk_messageBox -message {Pick two QTVR (pano) movies}
15set myFile [tk_getOpenFile]
16set myFile2 [tk_getOpenFile]
17if {$myFile != ""} {
18    movie .m -file $myFile -custombutton 1 -mccommand testProc
19    pack .m
20}
21