Private Sub B4XTree1_Click (IDLeaf As String, LeafName As String)
'ToastMessageShow($"ID Leaf:${IDLeaf} LeafName:${LeafName}"$,True)
Dim in As Intent
in = Activity.GetStartingIntent
If in <> Null Then
If in.HasExtra("GetSettings") Then
in.Initialize(in.ACTION_MAIN,"")
in.SetPackage("b4a.requester") ' sent parameter to b4a.requester app (ShopListview app)
in.SetType("text/plain")
in.PutExtra("android.intent.extra.TEXT",LeafName)
in.Action=in.ACTION_SEND
StartActivity(in)
Activity.Finish
End If
End If
End Sub