I'm in obsessive mode with unicode. Here's the new and improved version:
on mouseUp
put empty into fld "fontList"
put the fontNames into fNames
sort lines of fNames by word 1 of each
put fnames
repeat for each line tLine in fNames
if char 1 of tLine is "#" then
put uniencode(tLine,"Korean") & uniencode(cr,"ANSI") after fld
"fontList"
else
put uniencode(tLine,"Japanese") & uniencode(cr,"ANSI") after
fld "fontList"
end if
end repeat
delete char -2 to -1 of fld "fontList"
set the textFont of line 1 to -1 of fld "fontList" to the textFont
of fld "fontList","Japanese"
set the scroll of fld "fontList" to 0
end mouseUp
There still may be some problems, but since I can't read Chinese or
Japanese, I have to trust that those font names came out properly.
On Mar 8, 2006, at 3:26 PM, Devin Asay wrote:
on mouseUp
put empty into fld "fontList"
repeat with i = 1 to number of lines in the fontNames
put uniencode(line i of the fontNames,"Japanese") & uniencode
(cr,"ANSI") after fld "fontList"
end repeat
set the textFont of line 1 to -1 of fld "fontList" to the
textFont of fld "fontList","Japanese"
end mouseUp
This gets it *mostly* right, I think.
Devin Asay
Humanities Technology and Research Support Center
Brigham Young University
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
