dialog tkgir {
  title "Kanallar Gir"
  size -1 -1 112 86
  option dbu
  list 1, 5 10 57 68
  button "Gir", 3, 63 41 41 20
  button "Kapat", 4, 63 62 41 15, ok
  edit "", 2, 63 19 40 10
  button "Ekle", 7, 63 30 40 9
  text " Kanal ismi", 8, 64 10 28 8
}

on *:dialog:tkgir:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) { 
      did -a tkgir 1 $ulist(*,kanal,%z)
      inc %z
    }
  }
  if $devent == dclick && $did == 1 {
    ruser Kanal $did(1).seltext
    did -d $dname 1 $did(1).sel
  }
  if $devent == sclick && $did == 7 && $did(2) {
    auser kanal $did(2)
    did -a $dname 1 $did(2)
  }
  if $devent == sclick && $did == 3 {
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) {
    join $ulist(*,kanal,%z)
    }
  }
}