Sub Class_Globals
Private CL As JavaObject
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (context As JavaObject)
#if Release
Dim fabric As JavaObject
CL.InitializeNewInstance("com.crashlytics.android.Crashlytics", Null)
Dim kits As JavaObject
kits.InitializeArray("io.fabric.sdk.android.Kit", Array(CL))
fabric = fabric.InitializeNewInstance("io.fabric.sdk.android.Fabric.Builder", Array(context)) _
.RunMethodJo("kits", Array(kits)) _
.RunMethod("build", Null)
Dim StaticFabric As JavaObject
StaticFabric.InitializeStatic("io.fabric.sdk.android.Fabric").RunMethod("with", Array(fabric))
#end if
End Sub
Public Sub SetKey(Key As String, Value As String)
CL.RunMethod("setString", Array(Key, Value))
End Sub
Public Sub CLog(msg As String)
#If Release
CL.RunMethod("log", Array(msg))
#else
Log(msg)
#End If
End Sub