alias awaydig {
dialog -m awaydig awaydig
}
dialog awaydig {
title "Dialog"
size -1 -1 170 102
option dbu
box "Reason", 1, 12 12 156 34
edit %awayreason2, 2, 23 29 134 11
check "Use Detailed Info (Date and Time of departure)", 3, 13 56 124 9
button "OK", 4, 11 77 32 12, ok
button "Cancel", 5, 55 77 32 12, cancel
}
alias away { .awaydig }
On *:dialog:setup:sclick:3:{
if $did($did).state == 0 { .set %dinfo Off }
if $did($did).state == 1 { .set %dinfo On }
}
on *dialog:awaydig:4:{
if (%dinfo == on) {
//!away %awayreason2 - away since: $date(dddd) $asctime(HH:nn) ( $+ $date $+ )
}
else { //!away %awayreason2 }
}
