Sub Process_Globals
Dim rv As RemoteViews
End Sub
Sub Service_Create
rv = ConfigureHomeWidget("emergencywidget","rv",0,"F.A.I.T.H Emergency Widget",False)
End Sub
Sub EmergencyWidget_btn_click
If File.Exists(File.DirDefaultExternal, "userdata.db") = False Then
ToastMessageShow("Please Log into F.A.I.T.H and provide Emergency numbers.(GOTO Setting to enter emergency number)",False)
Else
StartActivity("startemergency")
End If
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then Return
End Sub
Sub Service_Destroy
End Sub