[SCRIPT] Setting up a 3.9 image for developers - Beginners

12 Jul 2006

      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%27)#(%27PreferenceBrowser' '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.