dialog new_table {
  title "New Project"
  size -1 -1 260 169
  option dbu
  list 1, 7 15 250 145, size
  edit "", 2, 41 3 190 10
  button "Yolla", 3, 233 2 23 12
  combo 4, 7 3 32 10, drop
}
on *:Dialog:new_table:init:*: {
  var %? 1
  while %? <= $query(0) {
    .did -a $dname 4 $query(%?)
    .inc %?
  }
}
alias e dialog -m new_table new_table
on *:Dialog:new_table:sclick:3: {
  msg $did(4) $did(2)
  .did -a $dname 1 $me => $did(2)
  .did -r $dname 2
  .halt
}
on *:text:*:?:{
  .did -a new_table 1 $nick => $1-
}