#DOCUMENTATION by cg
class: Tools::NewSystemBrowser
comment/format in: #findResponseTo:in:
--- a/Tools__NewSystemBrowser.st Sun Feb 12 11:06:00 2017 +0100
+++ b/Tools__NewSystemBrowser.st Sun Feb 12 11:09:08 2017 +0100
@@ -45808,11 +45808,15 @@
!
findResponseTo:selector in:whereWanted
+ "find the response to selector (i.e. when sent to self)
+ and - dependeing on whereWanted - open a new browser or add a buffer on those methods"
+
|where searchClass class implClasses mthd currentMethod|
where := whereWanted.
currentMethod := self theSingleSelectedMethod.
+
searchClass := self theSingleSelectedClass.
searchClass isNil ifTrue:[
searchClass := self classHierarchyTopClass value.
@@ -45874,6 +45878,8 @@
self spawnMethodBrowserFor:(Array with:mthd) in:where
label:(resources string:'Response to %1' with:selector)
]
+
+ "Modified (comment): / 12-02-2017 / 10:54:09 / cg"
!
searchMenuAddToBookmarks