Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
use Tk;
...
$c->pack;

MainLoop;
  2. or download this
    my $image = $c->Photo(-file => "cards/ah.gif");
my $card = $c->create('image', 10, 10,
                      -anchor => 'nw',
                      -image  => $image);
  3. or download this
    my $image = $c->Photo(-file => "cards/ah.gif");
$$image{_id} = $c->create('image', 10, 10,
                      -anchor => 'nw',
                      -image  => $image);