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

_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners

To use this script :

- World menu
- Open...
- File List
- Find the file in the directories and select it
- Select all the file content (Alt+a)
- Do-it (Alt+d)


Ask me if there is a problem or if you have a question or anything else.


Bye


--
Damien Cassou
_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners

Hi damien

I have an error for *-all package... that I have too with monticello actually (If I install manually all packages described in the *-all package, then loading all is ok after that step...)
Transcript has the message   (data was late) and I'm obliged to stop the script

do you have an idea ?

Thanks

Cédrick


_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners

Don't stop the script (it took about 30 minutes for me to run off a big
corporate data pipe). I got several hundred data was late messages along
the way.

cdrick wrote:


_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners

yes but this is strange... If I have a previous version of the
packages in relation of the all-package, I do't have the (data was
late) problem...
_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners