displaying a grid of images

Hi Robert,
Glad to hear you are making progress.
This reply got posted to the wrong list (beginners) so
I am reposting it here in case you should find it of
use.

Yours in service, --Jerome Peace


displaying a grid of images

>Robert Withers reefedjib at yahoo.com
>Tue Jan 2 23:04:32 UTC 2007 wrote:
>Can anyone demonstrate how I could display a grid of
images within a  
>SystemWindow? <snipped>

Hi Robert,

Why not put a pasteupmorph in a system window.

size the pasteup to be large enough for all the
pictures.
get a collections of centerpoints  (for the images)
get a collection of thumbnails of the appropriate
size.
I would use ImageMorphs or make a subclass to
customize behavior.
paste the thumbs on the pasteup centered at the grid
centers.
overide the mouse down/up behaviors and it should
rock.

doing your own #drawOn: is the long way around.

Below is a workspace doit to get an example.  
In 3.9 there are ThumbnailImageMorphs.
If you tell them an extent they will resize the
picture to fall with in that extent.
The other alternative is to use a SketchMorph.

HTH.

Yours in service, --Jerome Peace

-----
copy all the below into a workspace.
select everything from the first brackett to its
closing brackett and doit.
-----

[

aSide := 3 .

onASide := ( 1 to: aSide ) .


" Here we model the grid "
centers := OrderedCollection new .

onASide do: [ :eachCol |
        onASide do: [ :eachRow |
                centers add: eachCol at eachRow ] ].

biggestExtent :=
ImageMorph new extent .

"Make a place to keep them and put it where it wants
to end up.""

play :=
PasteUpMorph authoringPrototype extent: biggestExtent
* (aSide + 2) .

play openCenteredInWorld .

"Collect the grid positions."

centerPoints :=
centers collect: [ :each |
        play bounds extent // (aSide + 1) * each + play
topLeft ] .

pictures :=
centerPoints collect: [ :each |
        ImageMorph new center:  each ] .

"or
pictures :=
 myImages collect:  [ :each  |
        ImageMorph new image: each ] .
pictures with: centerPoints do: [ :each :eachCenter |

        each center: eachCenter ] . "

play addAllMorphs: pictures .

play embedInWindow .

 ] value .


play removeAllMorphs .

play delete .




__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com 

Jerome Peace puso en su mail :

Edgar