On Mon, Aug 16, 2010 at 2:10 PM, Gary Chambers
<gazzaguru2@btinternet.com> wrote:
Indeed, nice...
Here's an adaptation for Flickr...
| xmlStream xmlDoc photos builder clickBlock |
xmlStream := 'http://api.flickr.com/services/feeds/photos_public.gne?id=12018791@N06&lang=en-us&format=rss_200' asUrl retrieveContents contentStream.
xmlDoc := XMLDOMParser parseDocumentFrom: xmlStream.
photos := OrderedCollection new.
xmlDoc tagsNamed: #item do:
� � � � � � [:item| | title thumbUrl photoUrl |
� � � � � � �title := (item firstTagNamed: #title) characterData.
� � � � � � �thumbUrl := ((item firstTagNamed: #media:thumbnail) attributeAt: #url) asUrl.
� � � � � � �photoUrl := ((item firstTagNamed: #media:content) attributeAt: #url) asUrl.
� � � � � � �photos add: title -> (Form fromBinaryStream: thumbUrl retrieveContents contentStream) -> photoUrl].
clickBlock := [:url :title | | scrollPane |
scrollPane := GeneralScrollPane new
�scrollTarget: (builder
�newImage: (Form fromBinaryStream: url retrieveContents contentStream)).
scrollPane openInWindow
�setLabel: title;
�extent: 600@400.
scrollPane color: Color transparent].
builder := UITheme builder.
((builder
� newRow: (photos collect:
� � � � � � � � � �[:aPhoto|
� � � � � � � � � � (builder
� �newButtonFor: clickBlock
� �getState: nil
� �action: #value:value:
� �arguments: {aPhoto value. aPhoto key key}
� �getEnabled: nil
� �label: ((builder newColumn: {
� � �builder newImage: aPhoto key value.
� � �builder newLabel: aPhoto key key})
� � �cellPositioning: #center;
� � �layoutInset: 10)
� �help: nil)]))
wrapDirection: #topToBottom;
openInWindow)
�setLabel: (xmlDoc firstTagNamed: #title) characterData;
�extent: 700@680.
Regards, Gary
----- Original Message ----- From: "Germ�n Arduino" <garduino@gmail.com>
To: <Pharo-project@lists.gforge.inria.fr>
Cc: "A friendly place where any question about pharo is welcome" <pharo-users@lists.gforge.inria.fr>
Sent: Sunday, August 15, 2010 11:14 PM
Subject: Re: [Pharo-project] Pharocasts: Display Picasa photos