basit autojoin menu kurulumu

alias AutoJoin { dialog -m autoJaneR autoJaneR }
dialog autoJaneR {
title “AutoJoin Menu”
size -1 -1 106 87
option dbu
button “Tamam”, 1, 59 53 37 13, ok
combo 2, 7 8 45 71, sort size
button “Ekle”, 3, 59 13 37 13
button “Sil”, 4, 59 33 37 13
box “”, 5, 3 1 53 81
}

on *:dialog:ajoin:sclick:3: {
did -a $dname 2 $did(2) | set %AutoJoin $didtok($dname,2,44)
}
on *:dialog:ajoin:INIT:*:didtok $dname 2 44 %AutoJoin
on *:dialog:ajoin:sclick:4:{
did -d $dname 2 $did($dname,2).sel
}
on *:dialog:ajoin:sclick:1:{
set %AutoJoin $didtok($dname,2,44)
}
on *:connect:{ join %AutoJoin }