1# load remote movie asynchronously 2 3# From using ResEdit on the file "HD:System Folder:Extensions:QuickTime Extensions: 4# QuickTime Channels 5 6# http://stream.qtv.apple.com/favorites/cnn/cnn_fav_ref.mov 7# http://www.apple.com/quicktime/favorites/disney1/disney1.mov 8# http://www.apple.com/quicktime/favorites/warner1/warner1.mov 9# http://www.apple.com/quicktime/favorites/npr1/npr1.mov 10# http://www.apple.com/quicktime/favorites/fox2/fox2.mov 11# http://www.apple.com/quicktime/favorites/bloomberg1/bloomberg1.mov 12# http://www.apple.com/quicktime/favorites/bbc_world1/bbc_world1.mov 13# http://www.apple.com/quicktime/favorites/abc1/abc1.mov 14# http://stream.qtv.apple.com/favorites/mtv/mtv_fav_ref.mov 15# http://stream.qtv.apple.com/favorites/nickelodeon/nick_fav_ref.mov 16# http://www.apple.com/quicktime/favorites/fox1/fox1.mov 17# http://www.apple.com/quicktime/favorites/espn1/espn1.mov 18# http://www.apple.com/quicktime/favorites/hbo1/hbo1.mov 19# http://www.apple.com/quicktime/favorites/wgbh1/wgbh1.mov 20# http://www.apple.com/quicktime/favorites/vh1/vh1.mov 21# http://www.apple.com/quicktime/favorites/rollingstone1/rollingstone1.mov 22# http://www.apple.com/quicktime/favorites/weatherchannel1/weatherchannel1.mov 23# http://stream.qtv.apple.com/favorites/sony/sony_fav_ref.mov 24# http://stream.qtv.apple.com/favorites/zdtv/zdtv_fav_ref.mov 25# http://www.apple.com/quicktime/showcase/qtshowcase.mov 26# http://www.apple.com/quicktime/resources/qtshowcase.mov 27# http://www.apple.com/quicktime/favorites/movietrailers1/trailers.mov 28# http://www.apple.com/quicktime/favorites/cnn1/cnn1.mov 29# http://stream.qtv.apple.com/favorites/cnn/cnn_fav_ref.mov 30# http://stream.qtv.apple.com/favorites/sony/sony_fav_ref.mov 31# http://stream.qtv.apple.com/favorites/zdtv/zdtv_fav_ref.mov 32 33package require QuickTimeTcl 34 35proc MyLoadCheck { w msg {err {}} } { 36 puts "w=$w, msg=$msg, err=$err" 37 if {[llength $err]} { 38 puts "Failed" 39 } elseif {(($msg == "playable") || ($msg == "complete")) && ![winfo ismapped $w]} { 40 pack $w 41 update 42 } 43} 44set f "http://www.apple.com/quicktime/favorites/bbc_world1/bbc_world1.mov" 45movie .m -url $f -loadcommand MyLoadCheck 46