<div dir="ltr">Okay, this is why I put mine in the Inbox instead of Trunk...   :)<div><br></div><div>I will test this.</div><div><br></div><div>Thank you.</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Tue, Jan 11, 2022 at 2:48 AM <<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-mt.1844.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Morphic-mt.1844.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-mt.1844<br>
Author: mt<br>
Time: 11 January 2022, 9:48:30.418724 am<br>
UUID: 721f3062-f45a-4f5e-8e74-b9871a0269ee<br>
Ancestors: Morphic-ct.1843<br>
<br>
Complements Tools-mt.1101.<br>
<br>
Note that an editor's requestor must be its view/morph because the editor is an implementation detail not to be exposed to the model. A view/morph, however, can have a #name and thus easily be queried -- even without exposing Morphic details and supporting MVC as well. ... this is Morphic only though. TextEditor not that specific to Morphic, though. We might want to improve that in the future. And text editing/rendering in general. It's really not about Morphic but more low-level.<br>
<br>
=============== Diff against Morphic-ct.1843 ===============<br>
<br>
Item was changed:<br>
  ----- Method: TextEditor>>browseIt (in category 'menu messages') -----<br>
  browseIt<br>
        "Launch a browser for the current selection, if appropriate."<br>
<br>
        Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt].<br>
<br>
        self lineSelectAndEmptyCheck: [^ morph flash].<br>
<br>
        "First, try to show all accesses to instance or class variables."<br>
        self selectedInstanceVariable ifNotNil:<br>
                [:nameToClass | self systemNavigation<br>
                        browseAllAccessesTo: nameToClass key<br>
                        from: nameToClass value].<br>
        self selectedClassVariable ifNotNil:<br>
                [:binding | self model browseAllCallsOn: binding].<br>
<br>
        "Then, either browse the class (from a binding) or all implementors of a selector."<br>
        self selectedBinding ifNotNil:<br>
                [:binding | ^ self systemNavigation browseClass: binding].<br>
        self selectedSelector ifNotNil:<br>
+               [:selector | ^ self model browseAllImplementorsOf: selector requestor: morph].<br>
-               [:selector | ^ self model browseAllImplementorsOf: selector].<br>
<br>
        morph flash!<br>
<br>
Item was changed:<br>
  ----- Method: TextEditor>>implementorsOfIt (in category 'menu messages') -----<br>
  implementorsOfIt<br>
        "Open an implementors browser on the selected selector"<br>
<br>
        self lineSelectAndEmptyCheck: [^ self].<br>
        self selectedSelector ifNotNil:<br>
+               [:aSelector| ^self model browseAllImplementorsOf: aSelector requestor: morph].<br>
-               [:aSelector| ^self model browseAllImplementorsOf: aSelector].<br>
        self selectedLiteral ifNotNil:<br>
+               [:aLiteral| ^self model browseAllImplementorsOf: aLiteral requestor: morph].<br>
-               [:aLiteral| ^self model browseAllImplementorsOf: aLiteral].<br>
        morph flash.!<br>
<br>
Item was changed:<br>
  ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') -----<br>
  sendersOfIt<br>
        "Open a senders browser on the selected selector"<br>
<br>
        self lineSelectAndEmptyCheck: [^ self].<br>
        self selectedSelector ifNotNil: [:aSelector |<br>
+               ^ self model browseAllCallsOn: aSelector requestor: morph].<br>
-               ^ self model browseAllCallsOn: aSelector].<br>
        self selectedLiteral ifNotNil: [:aLiteral |<br>
+               ^ self model browseAllCallsOn: aLiteral requestor: morph].<br>
-               ^ self model browseAllCallsOn: aLiteral].<br>
        morph flash.!<br>
<br>
<br>
</blockquote></div>