Sub Process_Globals
End Sub
Sub Globals
Dim SelectableWebView1 As SelectableWebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.AddMenuItem("EnableSelection", "MenuItem")
SelectableWebView1.Initialize("SelectableWebView1")
Activity.AddView(SelectableWebView1, 0, 0, 100%x, 100%y)
SelectableWebView1.LoadUrl("http://www.b4x.com/forum/basic4android-updates-questions/14437-highlight-text-webview-long-tap-3.html#post99556")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub MenuItem_Click
SelectableWebView1.EnableSelectionMode
End Sub
Sub SelectableWebView1_SelectionReady(SelectedText As String)
Msgbox(SelectedText, "Selected text:")
End Sub