[Pkg] The Trunk: System-dtl.978.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Nov 17 00:58:28 UTC 2017
David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.978.mcz
==================== Summary ====================
Name: System-dtl.978
Author: dtl
Time: 16 November 2017, 7:58:19.05618 pm
UUID: 8f5f2399-537c-49b1-9daa-ae1864d08a1c
Ancestors: System-dtl.977
enterAsActiveSubprojectWithin: is currently meaningful only for Morphic projects, so move it from Project to MorphicProject. Original method stamp preserved.
=============== Diff against System-dtl.977 ===============
Item was removed:
- ----- Method: Project>>enterAsActiveSubprojectWithin: (in category 'enter') -----
- enterAsActiveSubprojectWithin: enclosingWorld
-
- "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."
-
- "Experimental mods for initial multi-project work:
- 1. assume in morphic (this eliminated need for <showZoom>)
- 2. assume <saveForRevert> is false (usual case) - removed <old>
- 3. assume <revertFlag> is false
- 4. assume <revertWithoutAsking> is false - <forceRevert> now auto false <seg> n.u.
- 5. no zooming
- 6. assume <projectsSentToDisk> false - could be dangerous here
- 7. assume no isolation problems (isolationHead ==)
- 8. no closing scripts
- "
-
- self isCurrentProject ifTrue: [^ self].
-
- "guards ifNotNil: [
- guards := guards reject: [:obj | obj isNil].
- guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]]
- ]."
-
- "CurrentProject makeThumbnail."
- "--> Display bestGuessOfCurrentWorld triggerClosingScripts."
- CurrentProject displayDepth: Display depth.
-
- displayDepth == nil ifTrue: [displayDepth := Display depth].
- "Display newDepthNoRestore: displayDepth."
-
- "(world hasProperty: #letTheMusicPlay)
- ifTrue: [world removeProperty: #letTheMusicPlay]
- ifFalse: [Smalltalk at: #ScorePlayer ifPresent: [:playerClass |
- playerClass allSubInstancesDo: [:player | player pause]]]."
-
- "returningFlag
- ifTrue: [nextProject := CurrentProject]
- ifFalse: [previousProject := CurrentProject]."
-
- "CurrentProject saveState."
- "CurrentProject := self."
- "Smalltalk newChanges: changeSet."
- "TranscriptStream newTranscript: transcript."
- "Sensor flushKeyboard."
- "recorderOrNil := Display pauseMorphicEventRecorder."
-
- "Display changeMorphicWorldTo: world." "Signifies Morphic"
- world
- installAsActiveSubprojectIn: enclosingWorld
- titled: self name.
-
- "recorderOrNil ifNotNil: [recorderOrNil resumeIn: world]."
- world triggerOpeningScripts.
- self removeParameter: #exportState.
- "self spawnNewProcessAndTerminateOld: true"!
More information about the Packages
mailing list