to relax

to relax I started to curve out projectHistory and I found that. So  
for sure pharo will be cool.

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."
        | recorderOrNil old forceRevert response seg |
        (world isKindOf: StringMorph)
                ifTrue: [self inform: 'This project is not all here. I will try to  
load a complete version.' translated.
                        ^ true].
        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 := self
                                                confirm: '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.
                        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: [
                                        Project forget: CurrentProject]
                                ifFalse: []].
        revertFlag | saveForRevert | forceRevert
                ifFalse: [(Preferences valueOfFlag: #projectsSentToDisk)
                                ifTrue: [self storeToMakeRoom]].
        CurrentProject abortResourceLoading.
        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.
        (self showZoom)
                ifTrue: [self displayZoom: CurrentProject parent ~~ self].
        (world isMorph
                        and: [world hasProperty: #letTheMusicPlay])
                ifTrue: [world removeProperty: #letTheMusicPlay]
                ifFalse: [Smalltalk
                                at: #ScorePlayer
                                ifPresentAndInMemory: [:playerClass | playerClass
                                                allSubInstancesDo: [:player | player pause]]].
        returningFlag == #specialReturn
                ifTrue: [old removeChangeSetIfPossible.
                        "keep this stuff from accumulating"
                        nextProject := nil]
                ifFalse: [returningFlag
                                ifTrue: [nextProject := CurrentProject]
                                ifFalse: [previousProject := CurrentProject]].
        CurrentProject saveState.
        CurrentProject isolationHead == self isolationHead
                ifFalse: [self invokeFrom: CurrentProject].
        CurrentProject := self.
        self installProjectPreferences.
        ChangeSet newChanges: changeSet.
        TranscriptStream newTranscript: transcript.
        Sensor flushKeyboard.
        recorderOrNil := World pauseEventRecorder.
        ProjectHistory remember: CurrentProject.
        World := world.
        "Signifies Morphic"
        world install.
       
        "(revertFlag | saveForRevert | forceRevert) ifFalse: [
        (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [
        self storeSomeSegment]]."
        recorderOrNil
                ifNotNil: [recorderOrNil resumeIn: world].

        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"
        world triggerEvent: #aboutToEnterWorld.
        Project spawnNewProcessAndTerminateOld: true





_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project