--- a/Method.st	Wed May 22 16:37:43 1996 +0200
+++ b/Method.st	Wed May 22 16:43:43 1996 +0200
@@ -1534,14 +1534,15 @@
 !
 
 printStringForBrowserWithSelector:selector
-    "return a printString to represent myself to the user in a browser"
+    "return a printString to represent myself to the user in a browser.
+     Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
-    |moreInfo p|
+    |s moreInfo p em|
 
     moreInfo := ''.
 
     (p := self privacy) ~~ #public ifTrue:[
-        moreInfo := '    (* ' , p , ' *)'.
+        moreInfo := Text string:'    (* ' , p , ' *)' emphasis:#italic.
     ].
     self isWrapped ifTrue:[
         (MessageTracer isCounting:self) ifTrue:[
@@ -1558,7 +1559,8 @@
     ].
 
     self isInvalid ifTrue:[
-        moreInfo := '    (** not executable **)'
+        moreInfo := '    (** not executable **)'.
+        em := #color->Color red.
     ].
 
     self isLazyMethod ifTrue:[
@@ -1570,10 +1572,14 @@
     ].
 
     moreInfo size == 0 ifTrue:[^ selector].
-    ^ selector , moreInfo.
+    s := selector , moreInfo.
+    em notNil ifTrue:[
+        ^ Text string:s emphasis:em
+    ].
+    ^ s
 
     "Created: 16.4.1996 / 20:11:12 / cg"
-    "Modified: 22.4.1996 / 16:36:29 / cg"
+    "Modified: 22.5.1996 / 16:43:25 / cg"
 !
 
 whoString
@@ -2108,6 +2114,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.88 1996-04-25 16:49:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.89 1996-05-22 14:43:43 cg Exp $'
 ! !
 Method initialize!