[Newbies] [SCRIPT] Setting up a 3.9 image for developers

Damien Cassou damien.cassou at laposte.net
Wed Jul 12 06:13:32 UTC 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

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
-------------- next part --------------
| 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.

More information about the Beginners mailing list