'From Squeak6.0alpha of 11 December 2020 [latest update: #20097] on 14 December 2020 at 11:24:33 am'! !Delay class methodsFor: 'snapshotting' stamp: 'mt 12/14/2020 11:21'! startUp "Restart active delay, if any, when resuming a snapshot." DelaySuspended ifFalse:[^self error: 'Trying to activate Delay twice']. DelaySuspended := false. self restoreResumptionTimes. AccessProtect signal. (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit startUpFromDelay ]. ! ! !DoItFirst class methodsFor: 'reevaluate options' stamp: 'mt 12/14/2020 11:22'! reevaluateDebug "The -debug option cannot be evaluated at DoItFirst startUp time, but may be called later in the startUp processing. If -debug was not specified as a command option this method does nothing. May be called from Delay>>startup to invoke a debugger at the earliest possible time." ^ self current evaluateArg: #debug.! ! !DoItFirst class methodsFor: 'system startup' stamp: 'mt 12/14/2020 11:20'! startUpFromDelay "A debugger can first be successfully opened after class Delay has been processed in the startup list." self reevaluateDebug.! ! !DoItFirst class methodsFor: 'system startup' stamp: 'mt 12/14/2020 11:21'! startUpFromFileDirectory "The current working directory (cwd) is accessible only after FileDirectory has been processed in the startup list." self reevaluateCwd.! ! !FileDirectory class methodsFor: 'name utilities' stamp: 'mt 12/14/2020 11:21'! startUp "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 openSourceFiles. (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit startUpFromFileDirectory ]. ! !