alias ozel { dialog -md new new }
dialog New {
  title "Özel Mesaj Penceresi"
  size -1 -1 295 184
  option dbu
  edit "", 1, 6 16 287 121, multi return vsbar
  edit "", 2, 8 142 242 39
  button "Gonder", 3, 256 141 35 19
  combo 4, 6 3 112 205, size drop
  button "Temizle", 5, 256 163 35 19
}

on *:dialog:new:*:*: { 
  if $devent == sclick { 
    if $did == 5 { 
      did -r $dname 1
    }
    if $did == 3 { 
      msg $did(4) $did(2)
      did -a $dname 1 $crlf
      did -a $dname 1 $me $+ : $did(2)
      did -r $dname 2
    }
  }
  if $devent == init { 
    var %i 1 
    while %i <= $query(0) { 
      did -a $dname 4 $query(%i) 
      inc %i
    }
    did -c $dname 4 1
  }
}