#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#AdditionalJar: xwalk_core_library_java
Sub Globals
End Sub
Sub Process_globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim R As Reflector
Dim thisme As JavaObject = Me
Dim arrParamsobj As JavaObject
Dim arrParams(2) As Object
arrParams(0) = R.GetContext
arrParams(1) = R.Target
arrParamsobj.InitializeNewInstance("org.xwalk.core.XWalkView", Array(GetContext,thisme))
'Activity.AddView(arrParamsobj,0,0,100%x,100%y)
End Sub
Sub GetContext As JavaObject
Return GetBA.GetField("context")
End Sub
Sub GetBA As JavaObject
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetFieldJO("processBA")
End Sub