benjComan

    drawRectOrigin: 50@50 extent: 10@21.

    drawRectOrigin: 50@50 corner: 60@71.

    , otherPoint
        ^ Rectangle origin: self corner: otherPoint.

    drawRect: (50@50),(60@71).

    drawRect: (screenLeft@screenTop),(screenRight@screenBottom).

    Object subclass: #MyTest
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        category: 'MyTest'

    parse
        | data doc entries entry content url |
        "Get the data, you can try and print this, if you want"
        data := 'http://picasaweb.google.com/data/feed/api/all?q=puppy' asUrl retrieveContents.

        "parse it"
        doc := XMLDOMParser parse: data.

        "split up"
        entries := doc
            allNodesSelect: [ :n | n name = 'entry' ].

        "pick one"
        entry := entries anyOne.

        content := entry
            nodesDetect:  [ :n | n name = 'content' ].
         
        url := content attributeAt: 'src'.

    get
        (ZnEasy getGif: url) asMorph openInHand .  "Opens image"

    MyTest new parse get.