David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.1374.mcz==================== Summary ====================
Name: Morphic-dtl.1374
Author: dtl
Time: 24 November 2017, 6:04:14.470996 pm
UUID: 239c9e21-1d05-413f-9f42-9c5267e15696
Ancestors: Morphic-dtl.1373, Morphic-tpr.1373
Merge Morphic-tpr.1373 and Morphic-dtl.1373, and update Debugger>>morphicResumeProcess: to remove global World reference
=============== Diff against Morphic-dtl.1373 ===============
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.
+ Project current world displayWorld. "We have to redraw *before* resuming the old process."
- 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: [
errorWasInUIProcess
ifTrue: [Project resumeProcess: processToResume]
ifFalse: [processToResume resume]].
"if old process was terminated, just terminate current one"
errorWasInUIProcess == false
ifFalse: [Processor terminateActive]!
Item was changed:
----- Method: DialogWindow>>update: (in category 'updating') -----
update: aspect
aspect == #buttons
ifTrue: [self updateButtonExtent].
+ aspect == #flash
+ ifTrue: [self flash].
+
^ super update: aspect!