Tk::MultiMediaControls 1.0

Tk::MultiMediaControls is a Perl module to create media player control buttons.

SYNOPSIS

$mmc = $parent->MultiMediaControls(-option => value, ... );

Create multimedia controls similar to that found on Apple applications like QuickTime, iMovie, iDVD, iTunes, etcetera. This mega-widget accepts a -buttons option that specifies a list of controller buttons, and a series of specialized options that bind callbacks to those buttons.

-buttons

A list of controller buttons: [ qw/ home rewind play stop fastforward / ]. You supply the callbacks that implement the above buttons, which nominally have this effect on the movie:

home - reset movie to first frame
rewind - play movie in fast reverse
play - a toggle: play movie at normal speed / pause movie
stop - stop movie (reset to first frame?)
fastforward - play movie in fast forward

-fastcommand
-fasthighlightcommand
-homecommand
-homehighlightcommand
-leftcommand
-pausecommand
-pausehighlightcommand
-playcommand
-playhighlightcommand
-rewindcommand
-rewindhighlightcommand
-rightcommand
-stopcommand
-stophighlightcommand

Callbacks that are invoked when control buttons are pressed or released. Callbacks that include the string highlight are invoked when Button-1 is pressed and held. With the exception of the -leftcommand and -rightcommand, all other callbacks are invoked when Button-1 is released.

Three keys have special meanings that parallel Apples bindings. The space bar (space) is bound to toggle the play/pause button. The left-arrow (Left) and right-arrow (Right) should, if possible, display the previous or next movie frame. Use -leftcommand and -rightcommand for this.