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