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
}
