Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use Tk;
...
 });

MainLoop;

Select or download this

#!/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) )
+;
}