media - Create and manipulate movie (or another media) widgets
SYNOPSIS
media widgetPathName ?options? ?args?
TK STANDARD OPTIONS
-width -height -cursor -background
WIDGET-SPECIFIC OPTIONS
-file
?movieFileName? : file name
string (*.avi *.mov *.mpg)
-dvd ?number?
DESCRIPTION
The
media command creates a media window and load mplayer with movieFileName
gived
by -file option.
WIDGET COMMANDS
widgetPathName playplay start animationwidgetPathName stopstop animationwidgetPathName togglestart or stop animationwidgetPathName volume ?up/down?volume increasing or decreasingwidgetPathName configure ?option? ?arg? ... ?option? ?args?configure one or more options
BINDINGS
No bindings by default.
use
: bind widgetpathName <?event?> {?command
line?}
EXAMPLES
#!/usr/bin/wish -f
package require MPlayerTcl
media .m -file your_file.mpeg -width 160 -height 120 -scale 3
pack .m -expand yes -fill both
(replace your_file.mpeg by a movie file)
#!/usr/bin/wish -f
package require MPlayerTcl
media .m -dvd 1 -width 160 -height 120 -scale 3
pack .m -expand yes -fill both
XanimTcl is 100% Compatible to MPlayerTcl
Replace simply "XanimTcl" requirement by "MPlayerTcl" and all "movie" commands
by "media".
or create a movie proc :
proc movie args { return [media $args] }