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


in reply to Re: Tk April Fools
in thread Tk April Fools

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

Replies are listed 'Best First'.
Re^3: Tk April Fools
by Anonymous Monk on Apr 02, 2008 at 13:47 UTC
    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]

        The mouse shy window trick has been around at least since the Mac+.

        Perl is environmentally friendly - it saves trees
[reply]

In Section Code Catacombs