[squeak-dev] The Trunk: ST80-ar.51.mcz

Andreas Raab uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-ar.51.mcz

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

Name: ST80-ar.51
Author: ar
Time: 4 September 2009, 12:16:11 pm
UUID: 114c8a0a-6ee8-ec4a-9079-ef237be6ca53
Ancestors: ST80-ar.50

http://bugs.squeak.org/view.php?id=7321

Change Set: M7321_cleanup_offList_senders-nice
Date: 19 April 2009
Author: nice

#offList is OBSOLETED by AtomicProcessSuspend.1.cs
Senders of #offList must be cleaned up

=============== Diff against ST80-ar.50 ===============

Item was changed:
  ----- 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 suspend.
- 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.
  !