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