Sub Process_Globals
Private notiTimer As Timer, notiCount As Int=0
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
notiTimer.Initialize("notiTimer", 10000)
notiTimer.Enabled=True
End Sub
Sub notiTimer_Tick
Log("noti " & "#" & notiCount)
HighPriority_Notification("Hello" , "#" & notiCount)
notiCount=notiCount+1
End Sub
Sub HighPriority_Notification(title As String, content As String)
Dim n As NB6
n.Initialize("default", Application.LabelName, "HIGH").smallIcon(LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False))
n.Build(title, content, "tag", Me).Notify(1)
End Sub