'From etoys3.0 of 7 March 2008 [latest update: #2059] on 26 July 2008 at 7:44:37 pm'! "Change Set: squeakletDir-bf Date: 26 July 2008 Author: Bert Freudenberg Allow to configure Squeaklet directory location by VM parameter (trac #7624)"! !Project class methodsFor: 'squeaklet on server' stamp: 'bf 7/26/2008 00:42'! squeakletDirectory | squeakletDirectoryName | squeakletDirectoryName := (SugarLauncher isRunningInRainbow ifTrue: [SugarLauncher current parameterAt: 'SQUEAKLETS' ifAbsent: [nil]]) ifNil: ['Squeaklets']. (FileDirectory default directoryExists: squeakletDirectoryName) ifFalse: [ FileDirectory default createDirectory: squeakletDirectoryName ]. ^FileDirectory default directoryNamed: squeakletDirectoryName! ! !SugarLauncher class methodsFor: 'class initialization' stamp: 'bf 7/26/2008 00:37'! shutDown Current ifNotNil: [Current shutDown. Current := nil]! !