Private Sub TestFocus()
Dim boolean_Focus As Boolean = False
For Each n As Node In mBase.GetAllViewsRecursive
Dim jo_n As JavaObject = n
If jo_n.RunMethodJo("focusedProperty",Null).RunMethod("get",Null) Then
boolean_Focus = True
Exit
End If
Next
If Not(boolean_Focus) Then
If SubExists(mCallBack,mEventName & "_ExitedView") Then
CallSub(mCallBack, mEventName & "_ExitedView")
End If...