[etoys-dev] [ANN]EtoysDevMonticello

[Bert Freudenberg]

On 22.02.2010, at 23:47, Karl Ramberg wrote:
> 
> Bert Freudenberg skrev 2010-02-22 23:27:
>> On 22.02.2010, at 22:54, Karl Ramberg wrote:
>>   
>>> Hi,
>>> lacking a better name I made a page on the wiki
>>> http://wiki.squeakland.org/display/sq/EtoysDevMonticello
>>> 
>>> Its a start at packaging the Etoys image so we eventually can merge with Squeak Trunk with block closures and all the other stuff.
>>>     
>> That's a great start!
>> 
>> The changes look good so far, I see only re-categorizations in the current changeset of that image. Except for Bezier2Segment - what's up with that?
>> 
>> Also, it's a good idea to document the steps we did to arrive at any particular image, e.g. in the upper-left workspace.
>> 
>> Re block closures, Eliot has already begun work on bringing the Etoys image up-to-date :)
>> http://tracker.squeakland.org/browse/SQ-653
>> 
>> - Bert -
>>   
> Hi,
> Yes, I should write in the info about the updated image.
> 
> Do you know how the to publish updates with Monticello ?

Yes. However, we'd need a current version of Monticello and MonticelloConfigurations.

> Is it written down somewhere ?

Probably - it at least was explained on squeak-dev when the trunk contribution process was established.

> There are a few packages that can be deleted, so I guess that would be published as a update.

Yes ... looks like we might want to use the update stream at least for a little bit longer. And we need to move it off the Viewpoints server anyway. I'll give it a look tomorrow.

> I have no idea what happened with Bezier2Segment....

A way to check would be to remove the class from the changeset, file out the changeset, and try in a fresh image ...

- Bert -

"this version disregards empty packages ..."
packages := PluggableSet new.
packages equalBlock: [:a :b | a sameAs: b].
packages hashBlock: [:a | a asLowercase hash].
SystemOrganization categories do: [:category |
	(SystemOrganization listAtCategoryNamed: category) notEmpty
		ifTrue: [packages add: (category copyUpTo: $-) asString]].
Smalltalk allClassesDo: [:cls | cls organization categories do: [:protocol |
	(protocol first = $*
		and: [(cls organization listAtCategoryNamed: protocol) notEmpty])
			ifTrue: [packages add: (p := protocol allButFirst copyUpTo: $-)]]].
packages asSortedArray