Method.st
changeset 4595 24446fd5d3e1
parent 4581 9b807b6f7265
child 4669 828addb1c376
--- a/Method.st	Thu Aug 12 10:58:36 1999 +0200
+++ b/Method.st	Thu Aug 12 10:59:29 1999 +0200
@@ -1613,7 +1613,7 @@
 
     s := selector.
     self package ~= self containingClass package ifTrue:[
-        s := s , ' { ' , self package , ' }'
+        s := s , ' [' , (self package asText emphasizeAllWith:#italic), ']'
     ].
 
     moreInfo size == 0 ifTrue:[^ s].
@@ -2416,6 +2416,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.173 1999-08-10 17:30:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.174 1999-08-12 08:59:29 cg Exp $'
 ! !
 Method initialize!