[squeak-dev] The Trunk: ST80-mt.196.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 14:42:59 UTC 2016

Marcel Taeumel uploaded a new version of ST80 to project The Trunk:

==================== 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.
  		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
  			"ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"].
- 	Preferences eToyFriendly ifTrue: [World stopRunningAll].
  		openNotifierContents: nil label: aString;

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') -----
  	"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
- !

More information about the Squeak-dev mailing list