alias hash { dialog -m hash hash }
dialog hash {
  title "Hash Table Manager 1.0"
  size -1 -1 153 172
  option dbu
  text "Mevcut Hash Tablolar", 1, 6 9 68 8
  list 2, 80 8 67 54, size
  box "Hash Tables", 3, 1 -1 150 82
  button "Özellikleri Ver", 4, 54 65 37 12
  box "Hash Dates", 5, 2 83 149 63
  text "Tablo Adı", 6, 6 92 45 8
  text "Slot Sayısı", 7, 6 104 45 8
  text "Dataları", 8, 6 116 45 8
  text "İtem(s).", 9, 6 129 45 8
  edit "", 10, 56 90 91 10
  edit "", 11, 56 102 91 10
  edit "", 12, 56 114 91 10
  edit "", 13, 56 128 91 10
  button "Kapat", 14, 77 152 37 12
  button "Yenile", 15, 33 152 37 12
}
on *:dialog:hash:init:0:{
  var %hash 1 , %hash2 $hget(0)
  while %hash <= %hash2 {
    did -a hash 2 $hget(%hash)
    inc %hash
  }
}
on *:dialog:hash:sclick:4:{
  did -a hash 10 $hget($did(2).seltext))
  did -a hash 11 $hget($did(2).seltext).size
  did -a hash 12 $hget($did(2).seltext,1).data
  did -a hash 13 $hget($did(2).seltext,1).item
}
on *:dialog:hash:sclick:14:{
  dialog -x hash hash
}
on *:Dialog:hash:sclick:15:{
  did -r hash 10 
  did -r hash 11
  did -r hash 12
  did -r hash 13
}