dialog Away {
title "Away"
size -1 -1 115 85
option dbu
text "Away", 10, 60 5 50 10, center
text "Active", 20, 5 5 50 10, center
list 30, 5 15 50 50, size
list 40, 60 15 50 50, size
button "OK", 50, 5 70 50 10, ok default
button "Cancel", 60, 60 70 50 10, cancel
}
menu * {
.Away: .dialog -md Away Away
}
on *:dialog:Away:init:*:{
var %networks = $scon(0)
var %a = 1
while %a <= %networks {
did -a $dname $iif($scon(%a).away == $false,30,40) $scon(%a).network
inc %a
}
}
on *:dialog:Away:sclick:30,40:{
did -a $dname $iif($did == 30,40,30) $did($dname,$did).seltext
set %network $did($dname,$did).seltext
did -d $dname $iif($did == 30,30,40) $did($dname,$did).sel
var %c = 1
while $scon(%c).network {
if ($v1 == %network) {
.scon %c away $iif($did == 30,away message)
echo -a $iif($did == 30,Now,No longer) away on $scon(%c).network
var %c = $scon(0)
}
inc %c
}
}