#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim rv As RemoteViews
End Sub
Sub Service_Create
ToastMessageShow("At the widget service.", True)
rv = ConfigureHomeWidget("Widget", "rv", 0, "my widget")
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then
Return
End If
End Sub
Sub Service_Destroy
End Sub
Sub rv_RequestUpdate
rv.UpdateWidget
End Sub
Sub rv_Disabled
StopService("")
End Sub