Forums Scripts & Popups getting name of window using a hash table with ...

menu $active {
  sclick:if ($active == $hfind(GUI,$active) { window -c $active }
}

alias GUI { 
  window -pkodCfB +b @GUI -1 -1 400 400
  hmake @GUI
  hadd @GUI name @GUI
}
menu $active {
  sclick: { if ($active == $hfind(GUI,$active) == name) { window -c $active } }
}

alias GUI { 
  window -pkodCfB +b @GUI -1 -1 400 400
  $iif($hget(@GUI), hfree @GUI, )
  hmake @GUI
}
menu $active {
  sclick: { if ($hget($active) == $active) { window -c $active } }
}

alias GUI { 
  window -pkodCfB +b @GUI -1 -1 400 400 @MyPopup
  if ($hget(@GUI)) { hfree @GUI }
  hmake @GUI
  hadd @GUI name @GUI
}
menu @MyPopup {
  sclick: {
    if ($active == $hget(@GUI,name)) {
      window -c $active
    }
  }
}

menu * {
  $iif(@* iswm $window($active),GUI):Do something here
}

var %a = $hfind(table,$+($mouse.x,.*),0,w)
while (%a) { echo -a $hfind(table,$+($mouse.x,.*),%a,w) | dec %a }

  uclick: { if ($hget($active) == $active) { 
      var %x $hfind($active,$+($mouse.x,.*),0,w),%y $hfind($active,$+($mouse.y,.*),0,w)
      if (while (%a) { echo -a $hfind($active,$+($mouse.x,.*),%a,w) | dec %a } >= 20) && (while (%a) { echo -a $hfind($active,$+($mouse.x,.*),%a,w) | dec %a } >= 30) {
        window -c $active
        ;if ($inrect($mouse.x,$mouse.y,20,60,180,20)) {
        ;window -c $active
  } } }

var %x $hfind($active,$+($mouse.x,.*),0,w),%y $hfind($active,$+($mouse.y,.*),0,w)

$hfind($active,$+(*.,$mouse.y),0,w)

uclick:{
if ($hget($active)) { 
var %exid = $regsubex($str(a,$hget($v1,0).item),/a/g,$+($isclick($mouse.x,$mouse.y,$gettok($hget($v1,\n).data,2-6,32),\n),.))
 }
}

alias isclick tokenize 32 $1- | return $iif($inrect($1,$2,$3,$4,$5,$6),$7)

uclick:{
if ($hget($active)) { 
var %exid = $regsubex($str(a,$hget($v1,0).item),/a/g,$+($isclick($mouse.x,$mouse.y,$gettok($hget($v1,\n).data,2-6,32),\n),.))
echo -a > %exid
 }
}

alias isclick tokenize 32 $1- | return $iif($inrect($1,$2,$3,$4,$5,$6),$7)

  mouse: { if ($hget($active)) {
      var %exid = $regsubex($str(a,$hget($v1,0).item),/a/g,$+($isclick($mouse.x,$mouse.y,$gettok($hget($v1,\n).data,2-6,32),\n),.))
      if (*... !iswm %exid) {
        gui.draw button @GUI 2 20 25 180 20 Close
      }
      var %exid = $regsubex($str(a,$hget($v1,0).item),/a/g,$+($isclick($mouse.x,$mouse.y,$gettok($hget($v1,\n).data,2-6,32),\n),.))
      if (*... iswm %exid) {
        tokenize 32 button $active 2 20 25 180 20 Close
        drawrect -frn $2 $rgb(247,242,255) 1 $4 $calc($5 + 25) $6 $7
        drawrect -frn $2 $rgb(224,220,250) 1 $calc($4 + 2) $calc($5 + 2 + 25) $calc($6 - 2) $calc($7 - 2)
        drawrect -rn $2 $rgb(191,186,195) 1 $4 $calc($5 + 25) $6 $7
        $iif($8, drawtext -rn $active $rgb(202,197,215) Verdana 12 $calc($4 + $6 / 2 - $width($8-,Verdana,12) / 2 + 1) $calc($5 + $7 / 2 - $height($8-,Verdana,12) / 2 + 1 + 25) $8-, )
        $iif($8, drawtext -rn $active $rgb(26,26,26) Verdana 12 $calc($4 + $6 / 2 - $width($8-,Verdana,12) / 2) $calc($5 + $7 / 2 - $height($8-,Verdana,12) / 2 + 25) $8-, )
        drawdot $active
      }
  } }
  sclick: { if ($hget($active) == $active) { 
      tokenize 32 button $active 2 20 25 180 20 Close
      if ($inrect($mouse.x,$mouse.y,20,55,180,20)) {
        drawrect -frn $active $rgb(202,197,215) 1 $4 $calc($5 + 25) $6 $7
        drawrect -frn $active $rgb(184,180,200) 1 $4 $calc($5 + 25) $calc($6 - 2) $calc($7 - 2)
        drawrect -rn $active $rgb(151,146,155) 1 $4 $calc($5 + 25) $6 $7
        $iif($8, drawtext -rn $active $rgb(202,197,215) Verdana 12 $calc($4 + $6 / 2 - $width($8-,Verdana,12) / 2 + 1) $calc($5 + $7 / 2 - $height($8-,Verdana,12) / 2 + 1 + 25) $8-, )
        $iif($8, drawtext -rn $active $rgb(26,26,26) Verdana 12 $calc($4 + $6 / 2 - $width($8-,Verdana,12) / 2) $calc($5 + $7 / 2 - $height($8-,Verdana,12) / 2 + 25) $8-, )
        drawdot $active
  } } }

if (*... !iswm %exid) {
gui.draw button @GUI 2 20 25 180 20 Close
}

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)