menu @* {
mouse:ev mouse
sclick:ev sclick
dclick:ev dclick
uclick:ev uclick
rclick:ev rclick
;lbclick:use them if you want...
;leave:
;drop:
}
alias ev {
if ($hget($active)) var %exid = $regsubex($str(a,$hget($v1,0).item),/a/g,$+($isids($mouse.x,$mouse.y,$gettok($hget($v1,\n).data,1-5,32),\n),.))
else return
echo -a event : $1
echo X Y : $mouse.x $mouse.y
var %a $numtok(%exid,46)
while (%a) {
tokenize 32 $gettok(%exid,%a,46)
echo -a Id for X Y : (Control: $2 - Id : $1)
dec %a
}
}
alias isids tokenize 32 $1- | return $iif($inrect($1,$2,$4,$5,$6,$7),$8 $3)
