Sub Process_Globals
Dim ts As TTS
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
ts.Initialize("ts")
End If
End Sub
Sub ts_Ready (Success As Boolean)
If Success Then
Dim p As Phone
Dim jo As JavaObject
jo.InitializeNewInstance("java.util.HashMap", Null)
jo.RunMethod("put", Array("streamType", "" & p.VOLUME_ALARM))
Dim jts As JavaObject = ts
jts.RunMethod("speak", Array("ABCD", 0, jo)) '0 = QUEUE_FLUSH, 1 = QUEUE_ADD
End If
End Sub