Tk::MTDial - A MTDial Tk widget that can turn indefinitely in any direction.
Version 0.001
use Tk; use Tk::MTDial; my $value=0; my $svalue=""; my $mw=Tk::MainWindow->new(-title=>"MTDial test"); my $kf=$mw->Frame->pack; $kf->MTDial( -width=>100, -height=>100, -dialsize=>49, -dialrovariable=>\$v, -dialcommand=>\&cmd, )->pack->createMTDial; sub cmd { $value=$v; $svalue=sprintf "Value: %.2f Hz", $value; $svalue.=" OUT OF RANGE (0-10)", if $value>10 or $value < 0; $value=0 if $value<0; $value=10 if $value > 10; }
Creates a circular MTDial that can be turned continuously and indefinitely in any direction
MTDial Widget that allows the creation of circular dials that can turn indefinitely to produce arbitrary positive or negative values.
Make a MTDial object and pass it initialization parameters. They may also be set and interrogated with Tk's 'configure' and 'cget'.
Displays the dial, sets its initial parameters, binds the callback routines.
Calls the base class initializer
Sets default values for the class parameters.
Routine called when button 1 is pushed
Routine called to rotate dial when the mouse moves
W. Luis Mochán, Instituto de Ciencias Físicas, UNAM, México mochan@fis.unam.mx
mochan@fis.unam.mx
This work was partially supported by DGAPA-UNAM under grants IN108413 and IN113016.
2 POD Errors
The following errors were encountered while parsing the POD:
Unknown directive: =head
'=item' outside of any '=over'
To install Tk::MTDial, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::MTDial
CPAN shell
perl -MCPAN -e shell install Tk::MTDial
For more information on module installation, please visit the detailed CPAN module installation guide.