menu nicklist {
- My Script -
.- Command - : set %cvar $1 | /mydialog
}
alias mydialog { dialog -m mydialog mydialog}
dialog mydialog {
title "This is my dialog"
size -1 -1 245 192
option pixels
text "bla bla bla", 30, 16 22 150 16
edit "", 3, 29 45 120 20
check "dog", 33, 176 51 60 15
text "something something something", 10, 16 87 150 16
check "cat", 11, 178 116 60 15
edit "", 1, 31 110 120 20
button "OK", 100, 96 147 75 25, ok
}
on 1:dialog:mydialog:edit:*:{
if (%cvar == $null) { set %bvar $did(3).text }
else { /did -ram mydialog 3 %cvar | %bvar = %cvar }
set %avar $did(1).text
}
on 1:dialog:mydialog:sclick:100:{ if (%avar == $null) || (%bvar == $null) { goto done }
if ($did(mydialog,11).state == 1) { %avar2 = cat }
else { %avar2 = mouse }
if ($did(xwin,33).state == 1) { %bvar2 = dog }
else { %bvar2 = elephant }
/editbox -n $active / $+ %bvar2 %bvar %avar2 %avar | /unset %avar2 %bvar %bvar2
:done
/unset %cvar %avar
}