Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^2: A Perl/Tk version of the 3-card trick

by Chady (Priest)
on Oct 02, 2004 at 17:11 UTC ( [id://395905]=note: print w/replies, xml ) Need Help??


in reply to Re: A Perl/Tk version of the 3-card trick
in thread A Perl/Tk version of the 3-card trick

and here's a patch for the start button

--- card.pl 2004-10-02 20:15:10.000000000 -0300 +++ fixed.pl 2004-10-02 20:14:51.000000000 -0300 @@ -7,6 +7,7 @@ use constant COS => cos(3.14159265/18); my $color = 'darkolivegreen'; +my $rotating; my $score = 0; my @delay = (30, 20, @@ -68,6 +69,8 @@ -height => 2, -padx => 10, -command => sub { + if (! $rotating) { + $rotating = 1; $c->itemconfigure($_, -state => 'hidden') for $arrow, $ms +g; for (1 .. 10) { @@ -76,8 +79,11 @@ push @s => splice @ids, int(rand @ids), 1 for 1 .. 2; rotate(@s, $delay[$score]); } + $rotating = 0; $topText = "Click on the correct box."; $selFlag = 1; + } + })->pack(qw/-side right/); MainLoop;

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.
Chady | http://chady.net/
Are you a Linux user in Lebanon? join the Lebanese Linux User Group.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://395905]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2024-03-19 14:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found