| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 |
- Smalltalk current createPackage: 'TwitterWall'!
- Widget subclass: #Tweet
- instanceVariableNames: 'json'
- package: 'TwitterWall'!
- !Tweet methodsFor: 'not yet classified'!
- json
- ^json
- !
- json: aJson
- json := aJson
- !
- renderOn: tr
- | tdUser tdMessage img a pMessage pDate |
- tdUser := HTMLCanvas new td.
- tdUser element id: 'user'.
- tdMessage := HTMLCanvas new td.
- tdMessage element id: 'messageBox'.
- tr append: tdUser.
- tr append: tdMessage.
- img := HTMLCanvas new img src: (json at: 'profile_image_url') .
- img element title: (json at: 'from_user').
- img element longDesc: ('http://twitter.com/', (json at: 'from_user')).
- a := HTMLCanvas new a href: ('http://twitter.com/', (json at: 'from_user')).
- a append: img.
- tdUser append: a.
- pMessage := HTMLCanvas new p.
- pMessage element id: 'message'.
- pMessage append: (json at: 'text').
- tdMessage append: pMessage.
- pDate := HTMLCanvas new p.
- pDate element id: 'date'.
- pDate append: (json at: 'created_at').
- tdMessage append: pDate.
- ! !
- !Tweet class methodsFor: 'not yet classified'!
- openAt: tr with: aJson
- | tweet |
- tweet := self new.
- tweet json: aJson.
- tweet renderOn: tr.
- ^tr
- ! !
- Object subclass: #TwitterSearch
- instanceVariableNames: ''
- package: 'TwitterWall'!
- !TwitterSearch methodsFor: 'not yet classified'!
- query
- | result queryString |
- queryString := ('#searchQuery' asJQuery val) replace: '#' with: '%23'.
- result := jQuery
- ajax: 'http://search.twitter.com/search.json?rpp=5&q=', queryString
- options: #{
- 'type' -> 'GET'.
- 'success' -> [ :tmp | self success: (tmp results)].
- 'error' -> [window alert: 'error'].
- 'dataType' -> 'jsonp'
- }.
- !
- success: tweets
- | playground table tr |
- playground := '#playground' asJQuery.
- playground empty.
- [:html |
- table := html table.
- table element id: 'twitterwall'.
- tweets do: [ :tweet |
- tr := html tr.
- table append: tr.
- Tweet openAt: tr with: tweet
- ]
- ] appendToJQuery: playground.
- ! !
|
