The Trunk: Morphic-mt.793.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.793.mcz

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

Name: Morphic-mt.793
Author: mt
Time: 30 March 2015, 3:57:32.562 pm
UUID: 229243f9-466f-da4c-ac19-b77b846ca678
Ancestors: Morphic-mt.792

Attempt to fix the proceed-bug, which, under certain conditions, caused flickering and slow display update after proceeding a UI process.

=============== Diff against Morphic-mt.792 ===============

Item was changed:
  ----- Method: Debugger>>morphicResumeProcess: (in category '*Morphic-opening') -----
  morphicResumeProcess: aTopView
 
+ | processToResume |
+ processToResume := interruptedProcess.
+ interruptedProcess := nil. "Before delete, so release doesn't terminate it"
+ aTopView delete.
+ World displayWorld. "We have to redraw *before* resuming the old process."
+ Smalltalk installLowSpaceWatcher. "restart low space handler"
+
  savedCursor
  ifNotNil: [Cursor currentCursor: savedCursor].
+ processToResume isTerminated ifFalse: [
- interruptedProcess isTerminated ifFalse: [
  errorWasInUIProcess
+ ifTrue: [Project resumeProcess: processToResume]
+ ifFalse: [processToResume resume]].
- ifTrue: [Project resumeProcess: interruptedProcess]
- ifFalse: [interruptedProcess resume]].
  "if old process was terminated, just terminate current one"
- interruptedProcess := nil. "Before delete, so release doesn't terminate it"
- aTopView delete.
- World displayWorld.
- Smalltalk installLowSpaceWatcher. "restart low space handler"
  errorWasInUIProcess == false
  ifFalse: [Processor terminateActive]!