RealStudio 2012R2からSystem.KeyScriptがRemoveされてしまった。
このため，OS X 10.5以降を対象足したアプリケーションにおいて，System.KeyScriptを
使用したRoman ←→ Japaneseの切替が出来なくなってしまった。
あれこれ調べたらTISSelectInputSourceを使用すると変更出来ることが判明。
ってことで，以下のコードで変更出来るようになりました。
めでたし，めでたし。
Declare Function TISCopyCurrentASCIICapableKeyboardInputSource Lib “Carbon” () As Integer
Declare Function TISCopyInputSourceForLanguage Lib “Carbon” (InputSource As CFStringRef) As Integer
Declare Sub TISSelectInputSource Lib “Carbon” (source As Integer)
Dim ID As Integer
Dim inputSource As String
if script = 0 Then
// Romanに切り換え
ID = TISCopyCurrentASCIICapableKeyboardInputSource()
TISSelectInputSource(ID)
Return
else
// ja-JPに切り換え
inputSource = “ja”
end if
ID = TISCopyInputSourceForLanguage(inputSource)
TISSelectInputSource(ID)
