How do you pass a value to $hour and $minute in the simple 12 clock example at cpan's Tk::Gauge module? I'm only able to get the gauge/dial to show, but not the needles.

#!/usr/bin/perl use strict; use warnings; use Tk; use Tk::Trace; use Tk::Gauge; my $mw = MainWindow->new; $mw->geometry("500x600"); #pretty fancy background for the gauge $mw->title("Hello World!!!"); #I'm learning... my($hour, $minute); $hour = 3; $minute = 45; my $clock = $mw->Gauge( -extent => -359.9, # 360 loses outline -from => 0, -huboutline => 'black', -majortickinterval => 5, -majorticklabelscale => 12.0 / 60.0, -majorticklabelskip => [ 0 ], -minortickinterval => 1, -needles => [ { -radius => 100, -variable => \$minute, }, { -radius => 60, -variable => \$hour, }, ] , -start => 90, -to => 60, )->pack; $hour = 3; $minute = 45; $hour = 4; $minute = 5; #nothing happening ... sad MainLoop;

Ok, I read about the thermo example here http://perlmonks.org/index.pl?node_id=472852 and this solves my issue:

$mw->after( 1000, sub{ $hour = 3 } ); $mw->after( 1000, sub{ $minute = 30 } );
Putting these lines of code just above MainLoop will draw the clock hands/needles

Ok, since I got this far... how do I make the minutes needle to move? I know I'm asking too much, but please help :)


In reply to Using Tk::Gauge by pashanoid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.