Sub Globals
Dim wv As WebView
Dim Reflector1 As Reflector
End Sub
Sub Activity_Create(FirstTime As Boolean)
wv.Initialize("wv")
Reflector1.Target = wv
Activity.AddView(wv, 10dip, 10dip, 300dip, 300dip)
End Sub
Sub StopLoading
Reflector1.RunMethod("stopLoading")
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
If action = Activity.ACTION_DOWN Then
wv.LoadUrl("http://www.b4x.com")
Else If action = Activity.ACTION_UP Then
StopLoading
End If
End Sub