Sub InitializeObjects
theReflector.SetOnTouchListener("MapTouch")
theReflector.Target = MoldMapView
strShared = Starter.rp.GetSafeDirDefaultExternal("Settings")
' This is for the KeyValueStore database. It stores a Key and a value.
'---------------------------------------------------------------------
kvs.Initialize(strShared, "Settings")
End Sub
Sub MapTouch_Touch(ViewTag As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
ToastMessageShow("Tapped location x = " & X & " and y = " & Y, True)
Return True
End Sub