alias chr { if (!$dialog(chr)) { dialog -m chr chr } }
dialog chr {
title " Characters [ /char ]"
size -1 -1 140 180
option dbu
button "&Close",1, 40 160 60 15, ok
box "",2, 1 0 138 179
list 3, 5 8 130 130, size
text "Find:",4, 15 145 15 7
text "Char:",5, 38 145 15 7
edit "",6, 53 143 20 11, limit 1
text "Num:",7, 85 145 15 7, read
edit "",8, 100 143 20 11, limit 3
}
on *:dialog:chr:*:*:{
if ($devent == init) {
var %x = 0
while (%x < 255) {
inc %x
did -a $dname 3 $chr(35) $+ %x $chr(9) $chr(%x)
}
}
if ($devent == sclick) {
if ($did == 3) {
echo -a -> $gettok($did(3).sel,1,48)
}
}
}