[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.