Help for this page

Select Code to Download

Select or download this

#!/perl

...
   sub {items_drag shift, $Tk::event->x, $Tk::event->y, \%iinfo});

MainLoop;

Select or download this

# aperl canvas.pl
$af: Tk::Photo=HASH(0x19f4fbc)
$af = bless( {}, 'Tk::Photo' );