Dialog Kanal Listesi
 

Bu diyalogda kendinize kanal listesi oluşturabilirsiniz.Kullanımı #kanal yaz ekle :)
================================================== ====================
dialog kanal {
title "Kanal "
size -1 -1 111 82
option dbu
box "Kanal Listesi", 1, 5 5 49 70
box "Kanal Ekle", 2, 56 5 50 70
list 3, 7 12 44 59, size
edit "", 4, 58 13 45 10
button "Ekle", 5, 62 26 37 12
button "Çıkart", 6, 62 42 37 12
button "Kapat", 7, 62 58 37 12, ok
}
on *:dialog:kanal:init:*: {
if ($isfile(kanal.txt) == $false) { write -c kanal.txt }
else { loadbuf -o $dname 3 kanal.txt }
}
on *:dialog:kanal:sclick:*: {
if ($did == 5) { write kanal.txt $did(4) | did -a $dname 3 $did(4) | did -r $dname 4 | did -b $dname 5 }
if ($did == 6) { write -dl $+ $did(3).sel kanal.txt | did -d $dname 3 $did(3).sel | did -b $dname 6 }
if ($did == 3) join $did(3).seltext
}
================================================== =======================