MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2017 in Berlin, Germany.

Platforms to show: All Mac Windows Linux Cross-Platform

FAQ.How do I get the current languages list?
Feedback.

Answer: Try this code:
Example:
dim p as new CFPreferencesMBS
dim a as CFArrayMBS
dim s as CFStringMBS
dim o as CFObjectMBS
dim sa(-1) as string

o=p.CopyAppValue("AppleLanguages",".GlobalPreferences")

if o<>Nil then
a=CFArrayMBS(o)

dim i,c as Integer

c=a.Count-1
for i=0 to c
o=a.Item(i)

if o isa CFStringMBS then
s=CFStringMBS(o)
sa.Append s.str
end if
next
end if

MsgBox Join(sa,EndOfLine)
Notes:
On Mac OS X you can get the list of current languages like this list:

de
en
ja
fr
es
it
pt
pt-PT
nl
sv
nb
da
fi
ru
pl
zh-Hans
zh-Hant
ko

Which has German (de) on the top for a German user.
This code has been tested on Mac OS X 10.5 only.




Links
MBS FileMaker Plugins