#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim resulturl As String
resulturl = ""
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private rssView As CustomRSSView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LDysplay")
rssView.Initialize(Activity, Me, "rssView", 1dip, 100%y-50dip)
Activity.Title = "BBC feeds"
ProgressDialogShow("Fetching...")
rssView.ParseRSS("http://feeds.bbci.co.uk/news/world/rss.xml")
Main.result=""
End Sub
Sub rssView_FinishedLoading
ProgressDialogHide
End Sub
Sub rssView_ItemClicked(URL As String)
'On this even you will get the URL of a clicked item and process it as you wish
Msgbox(URL, "Item Clicked")
resulturl=URL
StartActivity(AWebV)
End Sub
Sub rssView_ErrorMessage(Message As String)
ProgressDialogHide
Msgbox(Message, "Oops!")
End Sub
Sub Activity_KeyPress(KeyCode As Int) As Boolean
If rssView.IsOpen = True Then
rssView.HideCustomRSSView
Return True
End If
End Sub
