Tk::Dial - An alternative to the Scale widget
$dial = $widget->Dial(-margin => 20,
-radius => 48,
-min => 0,
-max => 100,
-value => 0,
-format => '%d');
margin - blank space to leave around dial
radius - radius of dial
min, max - range of possible values
value - current value
format - printf-style format for displaying format
Values shown above are defaults.
A dial looks like a speedometer: a 3/4 circle with a needle indicating the current value. Below the graphical dial is an entry that displays the current value, and which can be used to enter a value by hand.
The needle is moved by pressing button 1 in the canvas and dragging. The needle will follow the mouse, even if the mouse leaves the canvas, which allows for high precision. Alternatively, the user can enter a value in the entry space and press Return to set the value; the needle will be set accordingly.
Roy Johnson <firstname.lastname@example.org>
Based on a similar widget in XV, a program by John Bradley <email@example.com>
August 1995: Released for critique by pTk mailing list
To install Tk::Dial, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell
For more information on module installation, please visit the detailed CPAN module installation guide.