--- a/Tools_MethodList.st Thu Oct 22 14:41:58 2009 +0200
+++ b/Tools_MethodList.st Thu Oct 22 14:43:13 2009 +0200
@@ -1367,6 +1367,11 @@
doHighLight doHighLightRed emp cat l redefIcon
metrics complexity complexityString complexityIcon mark|
+ aMethod isNil ifTrue:[
+ "/ a non-existing (pseudo) method (such as required protocol)
+ ^ selector colorizeAllWith:Color red.
+ ].
+
aMethod isAssociation ifTrue:[
self halt:'should not happen'.
].
@@ -1385,7 +1390,7 @@
"/ wrap icons (i.e. break- or trace points)
"/ have higher prio ...
"/
- aMethod isWrapped ifTrue:[
+ (aMethod notNil and:[aMethod isWrapped]) ifTrue:[
(s endsWith:' !!') ifTrue:[
s := s copyWithoutLast:2
].
@@ -1580,9 +1585,9 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.38 2009-10-20 08:39:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.39 2009-10-22 12:43:13 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.38 2009-10-20 08:39:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.39 2009-10-22 12:43:13 cg Exp $'
! !