Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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

by Chady (Priest)
on Oct 02, 2004 at 17:11 UTC ( #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

--- 2004-10-02 20:15:10.000000000 -0300 +++ 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 |
Are you a Linux user in Lebanon? join the Lebanese Linux User Group.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://395905]
[choroba]: but the band is practically dead. We rehearse once in a year, and perform with the same frequency
[ambrus]: `quote
[ambrus]: sorry, typed in the wrong box
[LanX]: Your mother: je ne t'aime plus! ;)
[choroba]: seems lispy
[Your Mother]: Be nice! I speak that much French. Though I also like that song.
[choroba]: So, I joined Pod Černư Vrch some months ago to still have the fun. But I wouldn't call it "punk" anymore...
[LanX]: choroba deaf after one rehearsal per year ?
Discipulus .. per ear!
[LanX]: LOL

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (10)
As of 2017-03-24 12:31 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (301 votes). Check out past polls.