home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / Snack / play.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  373 b   |  19 lines
  1. #!/bin/sh
  2. # the next line restarts using tclsh \
  3. exec tclsh8.3 "$0" "$@"
  4.  
  5. package require -exact sound 2.1
  6. # Try to load optional file format handlers
  7. catch { package require snacksphere }
  8. catch { package require snackogg }
  9.  
  10. if {[llength $argv] == 0} {
  11.   puts {Usage: play.tcl file}
  12.   exit
  13. } else {
  14.   set file [lindex $argv 0]
  15. }
  16.  
  17. snack::sound s -file $file
  18. s play -block 1
  19.