alias chanlist {
if ($dialog(my_chanlist)) { .dialog -x my_chanlist | halt }
.dialog -mo my_chanlist my_chanlist | list | .window -h "Channels List"
}
dialog -l my_chanlist {
title "My Channels List"
size -1 -1 220 300
option pixels
combo 1, 6 4 208 260, sort, size
button "Button1", 2, 11 268 62 25
button "Button2", 3, 79 268 62 25
button "Button3", 4, 147 268 62 25
}
raw *:*:{
if ($istok(321 323,$numeric,32)) { haltdef }
if ($numeric == 322) { .did -a my_chanlist 1 $2 $+($chr(40),$3,$chr(41)) | haltdef }
}
on *:DIALOG:my_chanlist:sclick:2: echo -a You pressed $did($dname,$did).text
on *:DIALOG:my_chanlist:sclick:3: echo -a You pressed $did($dname,$did).text
on *:DIALOG:my_chanlist:sclick:4: echo -a You pressed $did($dname,$did).text