Sub LogInfo(info As String)
LogBase("ℹ️", info)
End Sub
Sub LogBase(emoji As String, info As String)
Dim title As String = ""
Dim emoji As String = "ℹ️"
Dim methodName As String = Starter.getMethodName
Dim linenumber As Int = Starter.getLineNumber
If myActivity.IsInitialized Then
title = myActivity.Title
title = title.ToUpperCase
Else
Dim className As String = Starter.getclassname
title = className.ToUpperCase
End If
' Log("full " & Starter.getFullStackTrace) ' use to print out full stack trace to see the correct call level
Log(emoji & "️ " & title & "/" & methodName & "/" & linenumber& ": " & info)
End Sub
Sub LogOK(info As String)
LogBase("✅️",info)
End Sub
Sub LogNOK(info As String)
LogBase("?️",info)
End Sub
Sub LogIssue(info As String)
LogBase("❌️",info)
End Sub
Sub LogException
LogBase("❌",LastException.Message)
End Sub