Christoph Thiede uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ct.189.mcz
==================== Summary ====================
Name: Files-ct.189 Author: ct Time: 31 January 2022, 8:03:16.983876 pm UUID: 6c263b96-030b-d044-934f-7e8c75af61f6 Ancestors: Files-mt.188
FileDirectory: Extracts idempotent #startUpDefaultDirectory from #startUp, which is not idempotent when the host system is Windows, where the source files must not be opened multiple times. Clients only interested in refreshing the default directory should send the new extracted message.
See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218179.h...
=============== Diff against Files-mt.188 ===============
Item was changed: + ----- Method: FileDirectory class>>startUp (in category 'system start up') ----- - ----- Method: FileDirectory class>>startUp (in category 'name utilities') ----- startUp - "Establish the platform-specific FileDirectory subclass. Do any platform-specific startup." - self setDefaultDirectoryClass.
+ self startUpDefaultDirectory. + Smalltalk openSourceFiles.! - self setDefaultDirectory: (self dirPathFor: Smalltalk imageName). - - Preferences startInUntrustedDirectory - ifTrue:[ "The SecurityManager may override the default directory to prevent unwanted write access etc." - self setDefaultDirectory: SecurityManager default untrustedUserDirectory. - "Make sure we have a place to go to" - DefaultDirectory assureExistence]. - Smalltalk openSourceFiles. - (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateCwd ]. - !
Item was added: + ----- Method: FileDirectory class>>startUpDefaultDirectory (in category 'system start up') ----- + startUpDefaultDirectory + "Establish the platform-specific FileDirectory subclass. Do any platform-specific startup." + + self setDefaultDirectoryClass. + self setDefaultDirectory: (self dirPathFor: Smalltalk imageName). + + Preferences startInUntrustedDirectory + ifTrue:[ "The SecurityManager may override the default directory to prevent unwanted write access etc." + self setDefaultDirectory: SecurityManager default untrustedUserDirectory. + "Make sure we have a place to go to" + DefaultDirectory assureExistence]. + + (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateCwd ].!