Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict;
...
XEvent=SCALAR(0x113de0c)
Tk::Button=HASH(0xf44d9c)
Tk::Button=HASH(0xf44d9c)
  2. or download this
    $w->activate('@' . $Ev->x.",".$Ev->y);
$w->BeginExtend( $w->index('@' . $Ev->x.",".$Ev->y));