[etoys-dev] Etoys: ST80-bf.3.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of ST80 to project Etoys:
http://source.squeak.org/etoys/ST80-bf.3.mcz

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

Name: ST80-bf.3
Author: bf
Time: 8 May 2010, 11:30:46 am
UUID: 00625adc-25c6-4aa5-880a-b5bba100937e
Ancestors: ST80-bf.2

- Fix for SQ-489 (Alt-. does not always work): LowSpaceAndInterruptHandler-3-dtl-1

=============== Diff against ST80-bf.2 ===============

Item was changed:
  ----- Method: ControlManager>>interruptName: (in category 'scheduling') -----
  interruptName: labelString
  	"Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller."
- 	| suspendingList newActiveController |
- 	(suspendingList _ activeControllerProcess suspendingList) == nil
- 		ifTrue: [activeControllerProcess == Processor activeProcess
- 					ifTrue: [activeControllerProcess suspend]]
- 		ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[].
- 				activeControllerProcess offList].
  
+ 	^ self interruptName: labelString preemptedProcess: nil
- 	activeController ~~ nil ifTrue: [
- 		"Carefully de-emphasis the current window."
- 		activeController view topView deEmphasizeForDebugger].
- 
- 	newActiveController _
- 		(Debugger
- 			openInterrupt: labelString
- 			onProcess: activeControllerProcess) controller.
- 	newActiveController centerCursorInView.
- 	self activeController: newActiveController.
  !

Item was added:
+ ----- Method: ControlManager>>interruptName:preemptedProcess: (in category 'scheduling') -----
+ interruptName: labelString preemptedProcess: theInterruptedProcess
+ 	"Create a Notifier on the active scheduling process with the given label. Make the Notifier the active controller."
+ 	| suspendingList newActiveController preemptedProcess |
+ 
+ 	preemptedProcess _ theInterruptedProcess ifNil: [Processor preemptedProcess].
+ 	preemptedProcess == activeControllerProcess
+ 		ifFalse: [(suspendingList _ preemptedProcess suspendingList) == nil
+ 				ifTrue: [preemptedProcess suspend]
+ 				ifFalse: [suspendingList remove: preemptedProcess.
+ 						preemptedProcess offList]].
+ 
+ 	(suspendingList _ activeControllerProcess suspendingList) == nil
+ 		ifTrue: [activeControllerProcess == Processor activeProcess
+ 					ifTrue: [activeControllerProcess suspend]]
+ 		ifFalse: [suspendingList remove: activeControllerProcess ifAbsent:[].
+ 				activeControllerProcess offList].
+ 
+ 	activeController ~~ nil ifTrue: [
+ 		"Carefully de-emphasis the current window."
+ 		activeController view topView deEmphasizeForDebugger].
+ 
+ 	newActiveController _
+ 		(Debugger
+ 			openInterrupt: labelString
+ 			onProcess: preemptedProcess) controller.
+ 	newActiveController centerCursorInView.
+ 	self activeController: newActiveController.
+ !