menu nicklist {
- My Script -: 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 %cvar , 1, 31 110 120 20
button "OK", 100, 96 147 75 25, ok
}
on 1:dialog:mydialog:edit:*:{
;; What??? did -ram mydialog 3 %cvar [color:red]<-- this takes whatever is in %cvar
and puts it in the editbox and disables the editbox so you cant type in it,
what is the point in having an editbox if you cant type in it??[/color]
%bvar = %cvar
set %avar $did(1).text
}
on 1:dialog:mydialog:sclick:100:{
;; pointless if (%avar == $null) || (%bvar == $null) { stuff }
if ($did(mydialog,11).state == 1) { %avar2 = cat }
else { %avar2 = mouse }
if ($did(mydialog,33).state == 1) { %bvar2 = dog }
else { var %bvar2 = elephant }
echo -a editbox -n $active / $+ %bvar2 %bvar %avar2 %avar | /unset %avar2 %bvar %bvar2
unset %cva* %bva* %ava*
}