--- a/Tools__MethodCategoryList.st Sun Mar 03 23:11:15 2019 +0100
+++ b/Tools__MethodCategoryList.st Sun Mar 03 23:19:51 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -2260,17 +2262,20 @@
!
who
- | savedMclass |
-
- "/ Save mclass here as Method>>who clobbers it!!
- [
- savedMclass := mclass.
- super who
- ] ensure:[
- mclass := savedMclass
- ].
+ ^ Method::MethodWhoInfo class:mclass selector:selector.
+"/ | ret savedMclass |
+"/
+"/ "/ Save mclass here as Method>>who clobbers it!!
+"/ [
+"/ savedMclass := mclass.
+"/ ret := super who
+"/ ] ensure:[
+"/ mclass := savedMclass
+"/ ].
+"/ ^ ret
"Created: / 01-04-2014 / 12:28:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2019 / 19:56:02 / Claus Gittinger"
! !
!MethodCategoryList::MethodStubForTestResult methodsFor:'accessing'!