The Trunk: System-mt.813.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.813.mcz

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

Name: System-mt.813
Author: mt
Time: 12 April 2016, 6:26:51.673201 pm
UUID: 2291ee1b-1840-7a4f-8236-470c181b8b07
Ancestors: System-mt.812

Let projects decide how to clean-up their processes.

=============== Diff against System-mt.812 ===============

Item was changed:
  ----- Method: Project>>enter:revert:saveForRevert: (in category 'enter') -----
  enter: returningFlag revert: revertFlag saveForRevert: saveForRevert
  "Install my ChangeSet, Transcript, and scheduled views as current globals. If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case.
  If saveForRevert is true, save the ImageSegment of the project being left.
  If revertFlag is true, make stubs for the world of the project being left.
  If revertWithoutAsking is true in the project being left, then always revert."
 
  | showZoom recorderOrNil old forceRevert response seg |
 
  self isIncompletelyLoaded ifTrue:
  [^self loadFromServer: true "try to get a fresh copy"].
  self isCurrentProject ifTrue: [^ self].
  "Check the guards"
  guards ifNotNil:
  [guards := guards reject: [:obj | obj isNil].
  guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]]].
  CurrentProject world triggerEvent: #aboutToLeaveWorld.
  forceRevert := false.
  CurrentProject rawParameters
  ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to' translated]]
  ifNotNil: [saveForRevert ifFalse: [
  forceRevert := CurrentProject projectParameters
  at: #revertWithoutAsking ifAbsent: [false]]].
  forceRevert not & revertFlag ifTrue: [
  response := (UIManager default chooseFrom: {
  'Revert to saved version' translated.
  'Cancel' translated.
  } title: 'Are you sure you want to destroy this Project\ and revert to an older version?\\(From the parent project, click on this project''s thumbnail.)' translated withCRs) = 1.
  response ifFalse: [^ self]].
 
  revertFlag | forceRevert
  ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [
  ^ self inform: 'nothing to revert to' translated]]
  ifFalse: [
  CurrentProject makeThumbnail.
  returningFlag == #specialReturn
  ifTrue:
  [ProjectHistory forget: CurrentProject. "this guy is irrelevant"
  Project forget: CurrentProject]
  ifFalse:
  [ProjectHistory remember: CurrentProject]].
 
  (revertFlag | saveForRevert | forceRevert) ifFalse:
  [(Preferences valueOfFlag: #projectsSentToDisk) ifTrue:
  [self storeToMakeRoom]].
 
  CurrentProject abortResourceLoading.
  CurrentProject triggerClosingScripts.
  CurrentProject saveProjectPreferences.
 
  "Update the display depth and make a thumbnail of the current project"
  CurrentProject displayDepth: Display depth.
  old := CurrentProject. "for later"
 
  "Show the project transition.
  Note: The project zoom is run in the context of the old project,
  so that eventual errors can be handled accordingly"
  displayDepth == nil ifTrue: [displayDepth := Display depth].
  self installNewDisplay: Display extent depth: displayDepth.
  (showZoom := self showZoom) ifTrue: [
  self displayZoom: CurrentProject parent ~~ self].
 
  CurrentProject pauseSoundPlayers.
 
  returningFlag == #specialReturn ifTrue: [
  old removeChangeSetIfPossible. "keep this stuff from accumulating"
  nextProject := nil
  ] ifFalse: [
  returningFlag
  ifTrue: [nextProject := CurrentProject]
  ifFalse: [previousProject := CurrentProject].
  ].
 
  recorderOrNil := old pauseEventRecorder.
 
  CurrentProject saveState.
  CurrentProject finalExitActions.
 
  "Now I am the current project."
  CurrentProject := self.
  self installProjectPreferences.
  ChangeSet  newChanges: changeSet.
  TranscriptStream newTranscript: transcript.
  Sensor flushKeyboard.
  ProjectHistory remember: CurrentProject.
  self setWorldForEnterFrom: old recorder: recorderOrNil.
 
  saveForRevert ifTrue: [
  Smalltalk garbageCollect. "let go of pointers"
  old storeSegment.
  "result :=" old world isInMemory
  ifTrue: ['Can''t seem to write the project.']
  ifFalse: [old projectParameters at: #revertToMe put:
  old world xxxSegment clone].
  'Project written.'].
  "original is for coming back in and continuing."
 
  revertFlag | forceRevert ifTrue: [
  seg clone revert]. "non-cloned one is for reverting again later"
  self removeParameter: #exportState.
 
  "Complete the enter: by launching a new process"
  self finalEnterActions.
+ self scheduleProcessForEnter: showZoom.
+ old terminateProcessForLeave.
- self scheduleProcessForEnter: showZoom
  !

Item was added:
+ ----- Method: Project>>terminateProcessForLeave (in category 'enter') -----
+ terminateProcessForLeave
+ "Clean-up processes that this project uses."
+
+ self subclassResponsibility.!