dialog away {
title "Away Manager"
size -1 -1 130 128
option dbu
button "Go Away", 1, 7 5 53 12
button "Come back", 2, 70 5 53 12
combo 4, 7 21.5 85 50, size edit drop
button "Add", 5, 94 20 14 12
button "Del", 6, 109 20 14 12
text %stat, 7, 7 35 60 8,
}
alias aways {
var %stat = Status:
if ($away) {
%stat = %stat $+ $chr(32) $+ Away For $+ $chr(32) $+ $duration($awaytime)
}
else {
%stat = %stat $+ $chr(32) $+ Active
}
dialog -m away away
Away
.Away:aways
}
on *:dialog:away:sclick:1:{
if (!$away) {
if ($did(4) != $null) {
away $did(4)
}
}
}