[SCRIPT] Setting up a 3.9 image for developers

Attached to this email, you will find a script that installs a
ready-to-use image for the developer. It's for 3.9 based images.

Installed packages are:

Refactoring Engine
RoelTyper
Shout
eCompletion
Seaside
Scriptaculous
Magritte
Pier

It changes the color of the insert point too because the default color
is difficult to see in Squeak (at least for me).


--
Damien Cassou

| map |
Transcript openLabel: 'Transcript'.
map := SMSqueakMap default.
map loadUpdates.

#('AST' 'Refactoring Engine' 'DynamicBindings' 'KomServices' 'KomHttpServer' 'RoelTyper' 'Shout' 'ShoutWorkspace' 'ShoutOmniBrowser' 'ShoutMonticello' 'eCompletion' 'eCompletionOmniBrowser') do:
        [ :package |
                map installPackageRelease: (map packageWithNameBeginning: package) lastPublishedRelease].

#( #('Shout.3.15' 'http://www.squeaksource.com/shout')#('PreferenceBrowser' 'http://www.squeaksource.com/PreferenceBrowser') #('Seaside2.6b1' 'http://www.squeaksource.com/Seaside') #('Scriptaculous' 'http://www.squeaksource.com/Seaside') #('Magritte-All' 'http://mc.lukas-renggli.ch/magritte') #('Pier-All' 'http://mc.lukas-renggli.ch/pier')) do:
        [:package | | repository version url fileToLoad sortMczs userString passwordString|
        fileToLoad _ nil.
        userString _ ''.
        passwordString _ ''.
        url _ package second asUrl asString.
       
        repository _ MCHttpRepository location: url user: userString password: passwordString.
        sortMczs _ [:a :b |
                [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger]
                on: Error do: [:ex | false]].
        fileToLoad _ (repository readableFileNames asSortedCollection: sortMczs) detect:
                        [:file | file beginsWith: package first].

        version _ repository versionFromFileNamed: fileToLoad.
        version workingCopy repositoryGroup addRepository: repository.
        repository creationTemplate: 'MCHttpRepository
        location: ''', url, '''
        user: ''', userString, '''
        password: ''', passwordString, ''''.
        version load].

Preferences insertionPointColor: (TranslucentColor r: 0.0 g: 0.8 b: 0.0 alpha: 0.8).
Transcript cr; show: 'Everything installed'; cr.

Hi

I have a problem when using this kind of script. When loading, pier or
magritte (*-all packages) I have the message "data was late" in the
transcript. It's the same if I try to load directly from monticello
except if I do it manually once.

Do you have an idea of where it could come from ?


Thanks

Cédrick