alias test { /dialog -m test test }
dialog test {
title "Test Msg Active"
size -1 -1 100 80
option dbu
edit "", 10, 0 0 75 10
button "Add", 20, 75 0 25 10
list 30, 0 10 100 60, size
button "Close", 50, 70 70 30 10, ok
button "Send Top Line", 40, 0 70 50 10
}
on 1:DIALOG:test:INIT:*: {
/did -ra $dname 10
}
on 1:DIALOG:test:SCLICK:20: {
/did -a $dname 30 $did(10)
/did -r $dname 10
}
on 1:DIALOG:test:SCLICK:40: {
/msg $active $did($dname, 30, 1).text
/did -d $dname 30 1
}
Load and type /test in a window
