dialog kimim {
  title "Kimim ben ?"
  size -1 -1 113 108
  option dbu
  text "Size ait olan rumuza, işaret bırakınız.", 1, 4 6 105 8, center
  radio "Ahmet", 2, 4 19 50 10
  radio "Mahmut", 3, 4 30 50 10
  radio "Süleyman", 4, 4 41 50 10
  radio "Hakan", 5, 4 52 50 10
  text "Seçilen Yetkili Nick !", 6, 5 66 105 8, center
  button "TAMAM", 8, 31 90 50 12, ok
  edit "", 7, 31 78 50 10
}
on *:dialog:kimim:*:*: {
  if $devent == init {
    if %kimde == Ahmet { did -c $dname 2 }
    elseif %kimde == Mahmut { did -c $dname 3 }
    elseif %kimde == Süleyman { did -c $dname 4 }
    elseif %kimde == Hakan { did -c $dname 5 }
    did -a $dname 7 %kimde
  }
  if $devent == sclick {
    if $did == 2 && $did(2).state == 1 { set %kimde Ahmet | did -ra $dname 7 %kimde }
    if $did == 3 && $did(3).state == 1 { set %kimde Mahmut | did -ra $dname 7 %kimde }
    if $did == 4 && $did(4).state == 1 { set %kimde Süleyman | did -ra $dname 7 %kimde }
    if $did == 5 && $did(5).state == 1 { set %kimde Hakan | did -ra $dname 7 %kimde }
  }
}