#!/usr/bin/perl -w
use strict;
use Tk;

sub jump_it {
   my ($c, $thing) = @_;
   my ($old_x, $old_y) = $c->coords($thing);
   my $new_pos = $old_x == 10 ? 80 : 10;
   $c->coords($thing, $new_pos, $new_pos);
}

sub slide_it {
   my ($c, $thing) = @_;
   for my $i (10..80) {
      $c->coords($thing, $i, $i);
      for (my $wait=20000; --$wait;){};
   }
}

my $mw = MainWindow->new;
my $c = $mw->Canvas(-relief => 'sunken',
                    -bd     => 2,
                    -width  => 200,
                    -height => 200);
my $image = $c->Photo(-file => "cards/ah.gif");
my $card = $c->create('image', 10, 10,
                      -anchor => 'nw',
                      -image  => $image);
my $j_btn  = $mw->Button(-text    => 'Jump It',
                         -command => [\&jump_it, 
                                      $c, $card] );
my $s_btn = $mw->Button(-text    => 'Slide It',
                        -command => [\&slide_it, 
                                     $c, $card] );
$j_btn->pack;
$s_btn->pack;
$c->pack;

MainLoop;