REVO2700 aagRevTwitter 2 P A--> all handlers
on busy
show img "busy"
end busy
on notbusy
hide img "busy"
end notbusy
on opencard
breakpoint
notbusy
start using "libJson"
start using "lib.aag.twitter"
if the uLogin["user"] of btn "preferences" is empty or the uLogin["password"] of btn "preferences" is empty then
send "mouseUp" to btn "preferences"
exit opencard
end if
Twitter.SetUser the uLogin["user"] of btn "preferences"
Twitter.SetPassword the uLogin["password"] of btn "preferences"
end opencard
on stripandship
set the uLogin["user"] of btn "preferences" to empty
set the uLogin["password"] of btn "preferences" to empty
put empty into fld "search"
put empty into fld "tweet"
put empty into fld "result"
save this stack
end stripandship
on errorDialog pErrorContents
answer error pErrorContents as sheet
exit to top
end errorDialog
on outputSearch pArrayA
repeat with x = 1 to pArrayA["total"]
put pArrayA["results"][x] into tA
put tA["profile_image_url"] into tProfile_image_url
replace "\/" with "/" in tProfile_image_url
put format(" %s: %s Reply
", \
tProfile_image_url, tA["from_user"], tA["text"],tA["from_user"]) after tHTML
end repeat
set the htmltext of fld "result" to tHTML
notbusy
end outputSearch
on outputXML pXML
get revCreateXMLTree(pXML,true,true,false)
if it is not a number then
answer error it
end if
put it into tID
put revXMLNumberOfChildren(tID,"statuses","status", 1) into tC
repeat with x = 1 to tC
put revXMLNodeContents(tID,format("/statuses/status[%s]/text",x)) into tText
put revXMLNodeContents(tID,format("/statuses/status[%s]/user/name",x)) into tName
put revXMLNodeContents(tID,format("/statuses/status[%s]/user/screen_name",x)) into tScreenName
put revXMLNodeContents(tID,format("/statuses/status[%s]/user/profile_image_url",x)) into tImage
put format(" %s: %s Reply
", \
tImage, tName, tText, tScreenName) after tHTML
end repeat
set the htmltext of fld "result" to tHTML
notbusy
end outputXML
Y RevTwitter W Lucida Grande U Lucida Grande U Lucida Grande W Lucida Grande
U Lucida Grande
@U Lucida Grande cGLXBreakpoints cGlx2TimeStamp +1238090773 start1238601022 working1238521065 start1238089379 start checksum .O\֡k1nB1238600214 start1238600368 start1238600289 working1239297958 start1238520822 start1238600223 working1238520583 start1238521637 start1238090789 working1238090793 working1238521804 working1238603770 end1238088604 start1238088528 start1238603545 start1238521971 working1238521740 working1238521821 working1238520933 start1238518880 start1238522005 working1238521665 start1238522079 start1238516321 start1238521750 working1238088544 working1238600970 start1238603644 start1238521986 working1238520468 start1238601005 working1238521993 working1238603569 start1239418820 end1238603739 start1238522031 working1238600277 start1238601017 working cREVGeneral breakpointconditions breakpoints breakpointstates stackfileversion 2.7
cGlx2General cScriptChecksum CompilesForArchive 2cExplicitVariables cHscrollScript 0cLocals cHscrollHandlers 0cHtmlScript TmKA_1,DC%jQ+5v9}g^Z-Ѓݝgޞ4DUu:FCTA'A*^Kj}ZuMz)*(G}npq$-AfTEߜYɑ#("¬±`&4b@'@9,G0eK6Ʈ^c#|"36@e[EjxcL閣k:UZXo#rfKT^v B=kZ[yAU͙/KPe"^^[tEZɝ|@[އ22@k=S25kȿhBM.`H6ܭ' GiQɃrJ
xoBvZ+O%8-GTav^րN[J5Jq2Ea
*}QcAr fQ&lLҁ}d&n!V$ շ`p2[Ê=8pP)D6DfM4~GlM(]>n{Ș~\^4\6CxR01a*pJƼN qbO/^~ttEZLV|