Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1741.mcz
==================== Summary ====================
Name: Morphic-mt.1741 Author: mt Time: 15 March 2021, 11:23:13.100586 am UUID: 2e5a5c44-9fab-6d41-ba67-e94d99da9a07 Ancestors: Morphic-mt.1740
Complements Kernel-mt.1381
Fixes for debugger invocation during code simulation. See http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-co...
=============== Diff against Morphic-mt.1740 ===============
Item was added: + ----- Method: DialogWindow>>browseInvocation (in category 'running') ----- + browseInvocation + "Browse the first meaningful invocation method of the receiver." + + self exclusive: false. + + (thisContext findContextSuchThat: self invocationContextPredicate) method browse.!
Item was changed: ----- Method: DialogWindow>>debugInvocation (in category 'running') ----- debugInvocation + "Bring up a debugger on the active process, displaying the invocation of the receiver. Strip off irrelevant stack frames that are an implementation detail of the invocation."
+ self exclusive: false. + + ^ Processor + debugContextThat: self invocationContextPredicate + title: 'Dialog invocation' translated + full: true! - Processor activeProcess - debug: self findInvocationContext - title: 'Dialog invocation'!
Item was removed: - ----- Method: DialogWindow>>exploreInvocation (in category 'running') ----- - exploreInvocation - - self exclusive: false. - (self findInvocationContext stack collect: #method) - explore!
Item was removed: - ----- Method: DialogWindow>>findInvocationContext (in category 'running') ----- - findInvocationContext - - | context | - context := thisContext. - [context method selector = #getUserResponse and: [context isMethodContext]] - whileFalse: [context := context sender]. - ^ context!
Item was added: + ----- Method: DialogWindow>>invocationContextPredicate (in category 'private') ----- + invocationContextPredicate + + | searchPhase hiddenCategories | + self flag: #todo. "ct: Currently, this might cut away a few contexts too much when a dialog window is opened from Morphic code (e.g., SystemWindow>>relabel) directly. With the introduction of UserNotifications, however, this problem will be solved because there will be always an external context between the client and the receiver. See http://forum.world.st/Discussion-Warning-vs-Halt-or-quot-Why-is-a-warning-a-... and others." + + searchPhase := true. + hiddenCategories := #('Morphic-Windows' 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' 'ToolBuilder-Morphic-Tools'). + ^ [:ctx | + searchPhase + ifTrue: [ "search invocation context" + (ctx isMethodContext and: [ctx method selector = #getUserResponse]) + ifTrue: [searchPhase := false]. + false] + ifFalse: [ "filter out irrelevant contexts" + (hiddenCategories includes: ctx receiver class category) not]]!
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; addLine; + add: 'browse invocation' translated + action: #browseInvocation; + add: 'debug invocation' translated - add: 'explore dialog invocation' translated - action: #exploreInvocation; - add: 'debug dialog invocation' translated action: #debugInvocation. menu popUpEvent: self currentEvent in: self world. [menu isInWorld] whileTrue: [self world doOneSubCycle]. self exclusive ifTrue: [self activeHand newMouseFocus: self].!