class: Tools::MethodList
changed: #listEntryForMethod:selector:class:showClass:showCategory:classFirst:suppressInheritanceInfo: (send #displayString instead of #name)
Use class displayString instead of class name (works fine with Java classes too)
--- a/Tools__MethodList.st Wed Apr 09 17:33:56 2014 +0200
+++ b/Tools__MethodList.st Wed Apr 09 17:34:51 2014 +0200
@@ -1748,7 +1748,7 @@
showClass ifTrue:[
showClassFirst ifFalse:[
- s := s , ' [' , cls name allBold , ']'.
+ s := s , ' [' , cls displayString allBold , ']'.
]
].
(showCategory and:[aMethod mclass notNil and:[aMethod mclass supportsMethodCategories]]) ifTrue:[
@@ -1843,7 +1843,7 @@
"Created: / 22-10-1996 / 19:51:00 / cg"
"Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 07-03-2012 / 19:06:09 / cg"
- "Modified: / 05-03-2014 / 10:31:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 09-04-2014 / 15:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MethodList methodsFor:'private-watching'!
@@ -1893,10 +1893,10 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.101 2014-03-24 09:09:21 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.102 2014-04-09 15:34:51 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.101 2014-03-24 09:09:21 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.102 2014-04-09 15:34:51 vrany Exp $'
! !