dialog ascii_table {
title $amlogo Ascii Table ( special characters)
size -1 -1 218 177
option dbu
list 1, 11 20 26 112, sort
list 2, 54 49 26 104, sort
list 3, 130 49 26 104, sort
list 4, 177 21 26 112, sort
button "Add", 5, 90 73 29 9
button "Close", 6, 87 166 37 9, ok
box "Upper Case", 7, 4 4 41 157
box "Lower Case", 8, 49 35 38 126
box "Numeric", 9, 122 35 40 126
box "Misc", 10, 166 4 50 157
text "A", 11, 68 11 4 8
text "S", 12, 76 13 4 8
text "C", 13, 83 12 4 8
text "I", 14, 90 11 2 8
text "I", 15, 96 13 2 8
text "T", 16, 104 12 4 8
text "A", 17, 111 11 4 8
text "B", 18, 118 13 4 8
text "L", 19, 125 12 3 8
text "E", 20, 132 11 4 8
edit "", 21, 97 86 15 10
text Double Click On Characters, 22, 68 22 68 8
}
on *:dialog:ascii_table:*:*:{
if ($devent == init) {
didtok $dname 1 44 À,Á,Â,Ã,Ä,Å,ß,Ç,Ð,È,É,Ê,Ê,Ë,Ì,Í,Î,Ï,Ñ,Ò,Ó,Ô,Õ,Ö,Ù,Ú,Û,Ü,Ý,¥
didtok $dname 2 44 à,á,â,ã,ä,å,ç,è,é,ê,ë,ì,í,î,ï,ñ,ò,ó,ô,õ,ö,ù,ú,û,ü,ý,ÿ
didtok $dname 3 44 ø,¹,²,³,×,÷,¢,£,¼,½,¾
didtok $dname 4 44 ª,º,°,©,®,¡,¿,¤,§,«,»,¬,±,µ,¶,þ,Þ,Æ,æ,ð,¸,‘,’
}
if ($devent == sclick) {
if ($did == 5) {
did -a acro_test 4 $did(21)
did -r $dname 21
}
}
if ($devent == dclick) {
if $did(1).seltext || $did(2).seltext || $did(3).seltext || $did(4).seltext {
did -ra $dname 21 $v1
did -u $dname 1,2,3,4
}
}
}