Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker: http://source.squeak.org/VMMaker/VMMakerUI-eem.48.mcz
==================== Summary ====================
Name: VMMakerUI-eem.48 Author: eem Time: 17 October 2021, 12:03:32.740449 pm UUID: e0f79b6c-13da-48bf-81a6-daf20467334e Ancestors: VMMakerUI-eem.47
Make click step work from an initial launch doit.
=============== Diff against VMMakerUI-eem.47 ===============
Item was changed: ----- Method: Cogit>>setClickStepBreakBlock (in category '*VMMakerUI-user interface') ----- setClickStepBreakBlock "Set the break block to present a confirmer, breaking if true, and restoring the previous break block. If an open debugger on the receiver can be found, proceed it." <doNotGenerate> | previousBreakBlock previousAtEachStepBlock previousBreakPC previousSingleStep previousClickConfirm result | (breakBlock isNil or: [breakBlock method ~~ thisContext method]) ifTrue: [previousBreakBlock := breakBlock. previousAtEachStepBlock := coInterpreter atEachStepBlock. previousBreakPC := breakPC. previousSingleStep := singleStep. previousClickConfirm := clickConfirm. breakBlock := [:ign| (processor pc ~= previousBreakPC and: [(result := self promptClickStep) == true]) ifTrue: [false] ifFalse: [breakBlock := previousBreakBlock. coInterpreter atEachStepBlock: previousAtEachStepBlock. breakPC := previousBreakPC == true ifTrue: [false] ifFalse: [previousBreakPC]. singleStep := previousSingleStep. clickConfirm := previousClickConfirm. result ~~ #proceed]]. coInterpreter atEachStepBlock: [previousAtEachStepBlock value. (coInterpreter localIP ~= previousBreakPC and: [(result := self promptClickStep) == true]) ifFalse: [breakBlock := previousBreakBlock. coInterpreter atEachStepBlock: previousAtEachStepBlock. breakPC := previousBreakPC == true ifTrue: [false] ifFalse: [previousBreakPC]. singleStep := previousSingleStep. clickConfirm := previousClickConfirm. self halt]]. singleStep := breakPC := clickConfirm := result ~~ #proceed]. (World submorphs detect: [:m| m model isDebugger and: [(m model interruptedProcess suspendedContext ifNil: [false] "happens if we're debugging this very method..." ifNotNil: [:suspendedContext| suspendedContext findContextSuchThat: [:ctxt| (ctxt receiver == self and: [ctxt selector == #simulateCogCodeAt: or: [ctxt selector == #simulateLeafCallOf:]]) or: [ctxt receiver == coInterpreter + and: [ctxt selector == #interpret or: [ctxt selector == #halt "initial launch doit"]]]]]) notNil]] + ifNone: []) + ifNotNil: + [:debuggerWindow| + WorldState addDeferredUIMessage: + [debuggerWindow model proceed]]! - and: [ctxt selector == #interpret]]]]) notNil]] - ifNone: []) ifNotNil: - [:debuggerWindow| - WorldState addDeferredUIMessage: - [debuggerWindow model proceed]]!
vm-dev@lists.squeakfoundation.org