Help for this page
#!/usr/bin/perl use Tk; ... }); MainLoop;
#!/usr/bin/perl use warnings; ... print "(x,y) = ", $canv->canvasx($x), ", ", $canv->canvasy($y), "\n" +; printf "%6.6X\n", $img->get($canv->canvasx($x), $canv->canvasy($y) ) +; }
www.com | www.net | www.org
No recent polls found