# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256215393 -7200
# Node ID 9b56d0b8c38e7bf7d44c9a9f56e8626187548edf
# Parent  212576a989f35e24e533c133e3d3864bbaad0def
required missing protocol display

diff -r 212576a989f3 -r 9b56d0b8c38e Tools_MethodList.st
--- 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 $'
 ! !