Yosvany Llerena Rodríguez ha scritto:
  Hi All. I'm using Snack Audio 2.2 and Tcl/Tk to
develop some
 application, I need to record a few seconds of voice but it's
 impossible y record an empty file.
 -- Snack Audio
 -- vtcl(GUI for Tcl/tk)
 -- Suse Linux 10.1
 I use this Tcl code.
 package require snack
 snack :: sound s
 proc ::Record {} {
 global widget
 snack::sound s
 proc sstop {} {
     s stop
     set filename "tmpwave.wav"
     s write $filename
     s destroy
 //     Extract
 }
 after 5000 sstop
 s record
 best regards
 Yosvany
  
Some things relate to the tcl-language not much clear :)
This is a code that would work as you want:
#start example
package require snack
snack::sound s
proc Record {} {
s record
after 5000 sstop
}
proc sstop {} {
     s stop
     set filename "tmpwave.wav"
     s write $filename
     s destroy
puts "this goes well"
exit
}
Record
#end example
hope help
--
Lazzaro