alias goster { dialog -m goster goster }

dialog goster {
  title "New Project"
  size -1 -1 150 169
  option dbu
  list 1, 0 20 150 150, size hsbar vsbar
  edit "", 2, 25 5 50 10
  text "Text No", 3, 0 5 25 8
  button "Tamam", 4, 75 5 37 10
}
on *:dialog:goster:*:*: {
  if $devent == edit && $did == 2 { set -e %n $did($did).text } 
  if $devent == sclick && $did == 4 { var %d = $+(%n,.,txt) | var %' 0 |  while %' < $lines(%d) { inc %' | did -a $dname 1 $read(%d,%') }  }
}