Unicode Font List (Was Re: Revolution vs Visual Basic)

[Garrett Hylltun]

But isn't it just easier to filter out the unicode fonts and just list 
the ANSI fonts like I did in my original post?

I'm just not sure of the need to actually list the unicode fonts, unless 
you're providing support in a program for these languages.

-Garrett

Devin Asay wrote:
> 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
> use-revolution at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your 
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>