Play a sound sample from disk.
Synopsis
gnocl::sound fileName <option val>
Description
The gnocl::sound command will play a
sound file from disk. The
filetypes supported are those recognised by libCanberra for which this
command is a binding.
Options
- -onFinished string
(default: "")
- Tcl command
which is executed when the playing of the sound file is complete.
- %f
name of the sample played.
%e errorcode ie. how the play was terminated, 0 =
play completed, -1 play cancelled.
Subcommands
- cancel
- Terminates the playback of the
current audio file.
Example
# basic Tcl/Gnocl Script
#!/bin/sh \
exec tclsh "$0" "$@"
package require Gnocl
set but1 [gnocl::button -text play ]
set but2 [gnocl::button -text stop -sensitive 0 ]
$but1 configure -onClicked \
{
$but2 configure -sensitive 1
%w configure -sensitive 0
gnocl::sound bell.wav \
-onFinished {
$but1 configure -sensitive 1
$but2 configure -sensitive 0
}
}
$but2 configure -onClicked \
{
$but1 configure -sensitive 1
%w configure -sensitive 0
gnocl::sound cancel
}
set box [gnocl::box]
$box add [list $but1 $but2] -fill {1 1 } -expand 1
gnocl::window -child $box -width 200
gnocl::mainLoop
| 