dialog kimim {
  title " Yetkili Tanımlama Penceresi"
  size -1 -1 132 148
  option dbu
  radio "Hasan", 2, 41 32 50 10, flat
  radio "Osman", 3, 41 48 50 10, flat
  radio "Süleyman", 1, 41 64 50 10, flat
  radio "Mehmet", 4, 41 80 50 10, flat
  radio "Ahmet", 5, 41 94 50 10, flat
  radio "MavipikSeL", 6, 41 109 50 10, flat
  button "TAMAM", 7, 24 129 75 12, ok
  text "Size ait olan, rumuzu işaretleyin.", 9, 13 14 114 8, center
}

on *:dialog:kimim:*:*: {
  if $devent == sclick {
    if $did == 2 && $did(2).state == 1 { set %kimde Hasan }
    if $did == 3 && $did(3).state == 1 { set %kimde Osman }
    if $did == 4 && $did(4).state == 1 { set %kimde Süleyman }
    if $did == 5 && $did(5).state == 1 { set %kimde Mehmet }
    if $did == 6 && $did(6).state == 1 { set %kimde Ahmet }
    if $did == 7 && $did(7).state == 1 { set %kimde MavipikSeL }
  }
}