Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.196.mcz==================== Summary ====================
Name: ST80-mt.196
Author: mt
Time: 18 February 2016, 3:42:46.029199 pm
UUID: 7614a1de-dafe-40a1-907e-3fbc998ec3c0
Ancestors: ST80-mt.195
Remove some Morphic-specific calls. Clean-up global state im exiting an MVC project.
=============== Diff against ST80-mt.195 ===============
Item was changed:
----- Method: Debugger class>>mvcOpenInterrupt:onProcess: (in category '*ST80-opening') -----
mvcOpenInterrupt: aString onProcess: interruptedProcess
"Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low."
| debugger |
<primitive: 19> "Simulation guard"
debugger := self new.
debugger
process: interruptedProcess
controller: (ScheduledControllers activeControllerProcess == interruptedProcess
ifTrue: [ScheduledControllers activeController]
ifFalse: [nil])
context: interruptedProcess suspendedContext.
debugger externalInterrupt: true.
Preferences logDebuggerStackToFile ifTrue:
[(aString includesSubstring: 'Space') & (aString includesSubstring: 'low')
ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log']
"logging disabled for 4.3 release, see
http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html"
"ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"].
- Preferences eToyFriendly ifTrue: [World stopRunningAll].
^debugger
openNotifierContents: nil label: aString;
yourself
!
Item was added:
+ ----- Method: MVCProject>>finalExitActions (in category 'enter') -----
+ finalExitActions
+
+ self world unCacheWindows.
+ Sensor flushAllButDandDEvents. "Will be reinstalled by World>>install"
+
+ ScheduledControllers := nil.!
Item was changed:
----- Method: MVCProject>>saveState (in category 'enter') -----
saveState
"Save the current state in me prior to leaving this project"
changeSet := ChangeSet current.
thumbnail ifNotNil: [thumbnail hibernate].
world := ScheduledControllers.
- ScheduledControllers unCacheWindows.
- Sensor flushAllButDandDEvents. "Will be reinstalled by World>>install"
transcript := Transcript
!
Item was changed:
----- Method: MVCProject>>setWorldForEnterFrom:recorder: (in category 'enter') -----
setWorldForEnterFrom: old recorder: recorderOrNil
"Prepare world for enter."
+ Smalltalk at: #ScheduledControllers put: world.!
- World := nil. "Signifies MVC"
- Smalltalk at: #ScheduledControllers put: world
- !
Locked
