Niko Schwarz puso en su mail :

>From a old code, this read the attached file and produce the attached pict.


 
!GreetingMorph methodsFor: 'initialization' stamp: 'edc 9/28/2004 07:37'!
chooseColor
| buttons  b max  maxX x y cuenta |
ColoresCrayon ifEmpty: [self class readColoresCrayonFromFile].
buttons := OrderedCollection new.
paleta := PasteUpMorph new.
paleta layoutPolicy: nil.
paleta hResizing: #rigid.
paleta vResizing: #rigid.
paleta borderWidth: 2.
paleta borderColor: Color black.
paleta color: Color white.
.
maxX := 0.

x := 0.
y := 0.
cuenta := 0.
    
ColoresCrayon keysAndValuesDo: [ :name :rgb|
b := (SimpleButtonMorph new label: name;
                   
                    color:  rgb ;
                     target: self;
 actionSelector: #backColor:;
                   
                    arguments: (Array
                            with:  rgb) ).
buttons add: b].
 
b := (SimpleButtonMorph new label: 'Enough Fun ?';
                    color:  Color white;
                     target: self;
 actionSelector: #killFrontDialog).
buttons add: b.
"Compute the max width"
    max := 0.
    buttons do: [:each | max := each width max: max].
    "Set all widths to the max value"
    buttons do: [:each | each width: max].


    buttons
        reverseDo: [:each |
each position: x at y.
    paleta addMorph: each.
cuenta < 7
ifTrue: [x := x + each width.
cuenta := cuenta + 1]
ifFalse: [y := y + each height.
x > maxX
ifTrue: [maxX := x].
x := 0.
cuenta := 0.
]].
maxX := maxX + 10 .
y := y + 10.
paleta extent: maxX @ y.
paleta position: 30 at 30 .
paleta becomeLikeAHolder.
paleta openInWorld.
[done] whileFalse: [
World doOneCycle]


>>> I left readColoresCrayonFromFile as exercise or you could grab
> 
> Morphic-Greeting.003.pr ( Squeaklets folder) And you could amaze friends and
> foes sending Squeak made cards with picts and music.
> 
> From ftp://elpelotero@201-212-99-13.cab.prima.net.ar/
> password: elpelotero  (on approximate 09:00 to 23:00 GMT, dig and take what
> you like, at your own risk)

Cheers

Edgar

-------------- next part --------------
65535 55705 45875
Apricot
0 58982 58982
Aquamarine
55705 19661 0
Bittersweet
19005 19661 51773
Blue
32768 40632 47185
Blue Gray
0 45219 41287
Blue Green
5898 0 21626
Blue Violet
44564 0 0
Brick
32768 9830 0
Brown
38666 16384 0
Burnt Sienna
65535 49151 49151
Carnation
32768 3277 0
Chinese Red
45875 13107 2621
Copper
41942 37355 65535
Cornflower
0 24248 0
Forest Green
65535 52428 0
Gold
65535 49151 13107
Goldenrod
39321 39321 39321
Gray
22937 36700 40632
Gray Blue
0 53739 0
Green
0 39321 41287
Green Yellow
65535 45875 65535
Lavender
65535 65535 19661
Lemon
65535 0 65535
Magenta
46530 16384 0
Mahogany
65535 49151 6554
Maize
51117 0 17039
Maroon
65535 22937 14418 
Melon
0 5243 26214
Midnight
55049 0 30801
Mulberry
0 0 38010
Navy
55049 55049 17694
Olive
65535 39321 0
Orange
65535 6554 0
Orange Red
65535 49151 0
Orange Yellow
65535 32768 65535
Orchid
65535 52428 42598
Peach
45875 45875 55705
Periwinkle
4587 26869 15728
Pine Green
18350 0 26214
Plum
15728 0 21627
Purple
45219 17694 0
Raw Sienna
21627 5243 0
Raw Umber
57671 0 0
Red
65535 16384 0
Red Orange
57015 0 47841
Red Violet
65535 32768 45875
Rose
65535 39321 32768
Salmon
0 65535 26214
Seafoam
30146 9830 13107
Sepia
42598 42598 42598
Silver
47185 60292 65535
Sky
0 65535 0
Spring Green
57015 18350 0
Swamp Fire
47841 25559 0
Tan
0 52428 52428
Turquoise
13107 0 21627
Violet Blue
58982 0 65535
Violet Red
65535 65535 0
Yellow
45875 65535 0
Yellow Green
65535 42598 0
Yellow Orange
52428 52428 65535	0
Green Blue
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Picture 1.png
Type: application/octet-stream
Size: 37696 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20060730/c8b042f1/Picture1.obj