Listeden seçili olan kanala girecek şekilde ayarlamıştım.
Tüm kanallara giriş için ;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog tkgir {
title "Kanallar Gir"
size -1 -1 112 86
option dbu
list 1, 5 10 57 68
button "Gir", 3, 63 41 41 20
button "Kapat", 4, 63 62 41 15, ok
edit "", 2, 63 19 40 10
button "Ekle", 7, 63 30 40 9
text " Kanal ismi", 8, 64 10 28 8
}
on *:dialog:tkgir:*:*:{
if $devent == init {
mdx MarkDialog $dname
var %z = 1
while (%z <= $ulist(*,kanal,0)) {
did -a tkgir 1 $ulist(*,kanal,%z)
inc %z
}
}
if $devent == dclick && $did == 1 {
ruser Kanal $did(1).seltext
did -d $dname 1 $did(1).sel
}
if $devent == sclick && $did == 7 && $did(2) {
auser kanal $did(2)
did -a $dname 1 $did(2)
}
if $devent == sclick && $did == 3 {
var %z = 1
while (%z <= $ulist(*,kanal,0)) {
join $ulist(*,kanal,%z)
}
}
}