The Trunk: Morphic-mt.1497.mcz

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

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

Name: Morphic-mt.1497
Author: mt
Time: 4 August 2019, 11:15:17.459314 am
UUID: 83af2cfd-497d-164d-a5bf-38988041a7f9
Ancestors: Morphic-mt.1496

Merges Morphic-ct.1496 (moved to treated inbox due to incompatible ancestry).

Introduce 'debug invocation' of DialogWindow

Also refine context search to reduce displayed stack size.

(After opening debugger, useful applications might be: step over, answer the dialog and continue debugging; return entered value to fake user's response)

=============== Diff against Morphic-mt.1496 ===============

Item was added:
+ ----- Method: DialogWindow>>debugInvocation (in category 'running') -----
+ debugInvocation
+
+ [Processor activeProcess
+ debug: self findInvocationContext
+ title: 'Dialog invocation']
+ ifCurtailed: [self closeDialog].!

Item was changed:
  ----- Method: DialogWindow>>exploreInvocation (in category 'running') -----
  exploreInvocation
 
  | result context |
  self exclusive: false. "We want to explore."
 
  result := OrderedCollection new.
+ context := self findInvocationContext.
- context := thisContext.
 
- [context method selector = #getUserResponse]
- whileFalse: [context := context sender].
-
  [context sender] whileNotNil: [
  result add: context method.
  context := context sender].
  result add: context method.
 
  result explore.!

Item was added:
+ ----- Method: DialogWindow>>findInvocationContext (in category 'running') -----
+ findInvocationContext
+
+ | context |
+ context := thisContext.
+ [context method selector = #getUserResponse and: [context isMethodContext]]
+ whileFalse: [context := context sender].
+ ^ context!

Item was changed:
  ----- Method: DialogWindow>>offerDialogMenu (in category 'running') -----
  offerDialogMenu
 
  | menu |
  menu := MenuMorph new defaultTarget: self.
  menu
  add: (exclusive == true ifTrue: ['<yes>'] ifFalse: ['<no>']), 'be modally exclusive' translated
+ action: #toggleExclusive;
- action: #toggleExclusive;
  addLine;
  add: 'explore dialog invocation' translated
+ action: #exploreInvocation;
+ add: 'debug dialog invocation' translated
+ action: #debugInvocation.
- action: #exploreInvocation.
 
  menu popUpEvent: self currentEvent in: self world.
 
  [menu isInWorld] whileTrue: [self world doOneSubCycle].
  self exclusive ifTrue: [self activeHand newMouseFocus: self].!