Something

alias mywintex {
  /window -pkodC @WinText -1 -1 450 200
  /texbtn
}
alias -l texbtn {
  /drawrect -rfd @WinText $rgb(100,200,200) 1 340 49 100 100 10 10
  /drawtext @WinText 0 Tahoma 14 375 96 Close
}
menu @WinText {
  sclick: $iif($inroundrect($mouse.x,$mouse.y,349,49,100,100,7,7) == $true, /window -c @WinText, halt)
}
on *:KEYDOWN:@WinText:*: {
  /drawrect -f @WinText 0 1 0 0 300 200
  /drawtext @WinText 1 Tahoma 20 5 90 $keychar
}