Someone

testwin {
  var %@ = $+(@,$me)
  window -pBhdo +dL %@ 500 500 100 100
  !drawrect -nrf %@ 16777215 1 0 0 100 100
  !drawrect -nr %@ 0 0.5 0 0 100 100
  !drawtext -nr %@ 0 Tahoma 14 10 10 test text 1
  !drawtext -nr %@ 0 Tahoma 14 10 30 test text 2
  !drawtext -nr %@ 0 Tahoma 14 10 50 test text 3
  !drawtext -nr %@ 0 Tahoma 14 10 70 test text 4
  window -a %@
  echo $lactive > /window -c %@
}