http://qs321.pair.com?node_id=677884


in reply to Tk April Fools

To be propper, you need an exit button. You should bind it to mouse movement.

Replies are listed 'Best First'.
Re^2: Tk April Fools
by zentara (Archbishop) on Apr 02, 2008 at 13:40 UTC
    Well I wanted the Fool to try and chase the window with the mouse, trying to hit the Close icon. Binding exit to mouse movement would preclude that.

    Speaking of non-lameness, have you seen the best prank of the day, by the BBC? Check out this Flash.... Flying Penquins

    I'm not really a human, but I play one on earth. Cogito ergo sum a bum
[reply]
      ier, bind the window movement to mouse movement, not on timer
[reply]
        Yeah, I think I saw a Japh like that, where you couldn't get the mouse over the window without it jumping. Something like: 
        #!/usr/bin/perl
use strict;
use Tk;
my $mw = new MainWindow();
$mw->geometry("100x100+100+100");

my $label1 = $mw->Label(-text => "Catch Me Fool", -bg => 'cyan')->
pack(-fill => 'both', -expand => 1,);

#put stuff here
$mw->bind("<Enter>",sub {
 my $x = int rand 600;
 my $y = int rand 600;
 $mw->geometry("+$x+$y");
 });

MainLoop;

        [download]
        I'm not really a human, but I play one on earth. Cogito ergo sum a bum
[reply]
[d/l]

In Section Code Catacombs