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