menu menubar {
.memo mailer:/memomailer
-
}
dialog memomailer {
title "Memo Mailer - By DeathfireD"
size -1 -1 137 148
option dbu
edit "", 1, 1 2 135 10
list 2, 1 15 135 111, size vsbar
button "Write", 3, 1 127 37 9, flat
button "Del", 4, 1 138 37 9, flat
button "Info", 5, 104 127 30 7, flat
button "Look for new mail", 6, 84 136 50 7, flat
}
alias memomailer { dialog -md memomailer memomailer }
on *:dialog:memomailer:sclick:*:{
if $did == 3 { /writememo }
if $did == 4 { /memoserv del %num }
if $did == 5 { /infomemo }
[color:red] if $did == 6 { /memoserv list | put something here to show memos on the list } [/color]
}
on *:dialog:memomailer:edit:*:{
[color:red] if $did == 1 { put something here to display whoits from } [/color]
}
on *:dialog:memomailer:init:0:{ did -a memomailer 1 }
dialog writememo {
title "Write New Memo"
size -1 -1 117 123
option dbu
edit "", 1, 2 7 110 10
box "Nick", 2, 0 0 114 22
box "Group Box", 3, 0 24 115 91
edit "", 4, 2 31 111 81, multi autovs
button "Send", 5, 0 116 25 7, flat
}
alias writememo { dialog -md writememo writememo }
on *:dialog:writememo:sclick:*:{
if $did == 5 { /memoserv send %nickmemo %messagememo }
}
on *:dialog:writememo:edit:*:{
if $did == 1 { set %nickmemo $did(1) }
if $did == 4 { set %messagememo $did(4) }
}
