Sub wallet1_Appear
Log("Wallet Appear")
tempWalletList.Initialize
Main.hd.ProgressDialogShow("Fetching Details...")
Dim j As HttpJob
j.Initialize("transaction", Me)
j.Download2(Main.parentURL, Array As String("action","transaction_history","access_token",Main.accessToken,"user_id",Main.userID))
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Log(Job.GetString)
TableView1.AddSingleLine(Job.JobName)
Select Job.JobName
Case "allRunningContest"
Main.hd.ProgressDialogHide
Log(Job.GetString)
Dim JSON As JSONParser
Dim map1 As Map
JSON.Initialize(Job.GetString)
map1=JSON.NextObject
currentContests.Initialize
currentContests=map1.Get("posts")
initialiseView
Case "transaction"
Dim JSON As JSONParser
Dim map1 As Map
JSON.Initialize(Job.GetString)
map1=JSON.NextObject