David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.1351.mcz

==================== Summary ====================

Name: System-dtl.1351
Author: dtl
Time: 14 May 2022, 11:23:07.834222 am
UUID: fb26b2a7-3279-4fb2-ac69-c2a9f1e87f29
Ancestors: System-eem.1350

Move startUp and shutDown methods back to ImageSegment so they will be evaluated as intended

=============== Diff against System-eem.1350 ===============

Item was added:
+ ----- Method: ImageSegment class>>shutDown (in category 'system startup') -----
+ shutDown
+ 	"Delete segment files that can't be used after this image is saved."
+ 
+ 	"This is Optional.  
+ (1) How tell if saving image now?  Only do if is.
+ (2) NativeImageSegmentRootStub allInstancesDo: 
+ 	If more than one file, delete all but one we are using now.
+ 	Leave files with not stubs (could be out in a segment)
+ 	Must forbid two projects from having the same name!!
+ (3) all Projects do:
+ 	If project is in, delete all files with its name.
+ "
+ 	!

Item was added:
+ ----- Method: ImageSegment class>>startUp (in category 'system startup') -----
+ startUp
+ 	| choice |
+ 	"Minimal thing to assure that a .segs folder is present"
+ 
+ 	(Preferences valueOfFlag: #projectsSentToDisk) ifTrue:
+ 		[(FileDirectory default includesKey: (FileDirectory localNameFor: self folder)) ifFalse:
+ 			[choice := Project uiManager
+ 						chooseOptionFrom: #('Create folder' 'Quit without saving')
+ 						title: 
+ 					'The folder with segments for this image is missing.\' withCRs,
+ 					self folder, '\If you have moved or renamed the image file,\' withCRs,
+ 					'please Quit and rename the segments folder in the same way'.
+ 			choice = 1 ifTrue: [FileDirectory default createDirectory: self folder].
+ 			choice = 2 ifTrue: [Smalltalk snapshot: false andQuit: true]]]
+ 
+ 	!

Item was removed:
- ----- Method: NativeImageSegment class>>shutDown (in category 'fileIn/Out') -----
- shutDown
- 	"Delete segment files that can't be used after this image is saved."
- 
- 	"This is Optional.  
- (1) How tell if saving image now?  Only do if is.
- (2) NativeImageSegmentRootStub allInstancesDo: 
- 	If more than one file, delete all but one we are using now.
- 	Leave files with not stubs (could be out in a segment)
- 	Must forbid two projects from having the same name!!
- (3) all Projects do:
- 	If project is in, delete all files with its name.
- "
- 	!

Item was removed:
- ----- Method: NativeImageSegment class>>startUp (in category 'fileIn/Out') -----
- startUp
- 	| choice |
- 	"Minimal thing to assure that a .segs folder is present"
- 
- 	(Preferences valueOfFlag: #projectsSentToDisk) ifTrue:
- 		[(FileDirectory default includesKey: (FileDirectory localNameFor: self folder)) ifFalse:
- 			[choice := Project uiManager
- 						chooseOptionFrom: #('Create folder' 'Quit without saving')
- 						title: 
- 					'The folder with segments for this image is missing.\' withCRs,
- 					self folder, '\If you have moved or renamed the image file,\' withCRs,
- 					'please Quit and rename the segments folder in the same way'.
- 			choice = 1 ifTrue: [FileDirectory default createDirectory: self folder].
- 			choice = 2 ifTrue: [Smalltalk snapshot: false andQuit: true]]]
- 
- 	!