# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1005208840 -3600
# Node ID ac0c56736b5dcf4562c04abfd11de9fa1c8c8ba9
# Parent  33d75f51cf2414c3580d68f07d99dd3806d91ec8
*** empty log message ***

diff -r 33d75f51cf24 -r ac0c56736b5d Method.st
--- a/Method.st	Wed Nov 07 10:59:00 2001 +0100
+++ b/Method.st	Thu Nov 08 09:40:40 2001 +0100
@@ -1776,7 +1776,7 @@
     "return a printString to represent myself to the user in a browser.
      Defined here to allow for browsers to deal with nonStandard pseudoMethods"
 
-    |s privInfo moreInfo p i n cls isInChangeSet|
+    |s privInfo moreInfo p i n cls isInChangeSet mthdPackage|
 
     moreInfo := ''.
     privInfo := ''.
@@ -1842,13 +1842,15 @@
         s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
     ].
 
-    (cls isNil or:[self package ~= cls package]) ifTrue:[
-        p := ' [ ' , self package allItalic , ' ] '.
-        p := p asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
-        isInChangeSet ifFalse:[
-            s := s asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+    (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[
+        mthdPackage ~= Project defaultProject package ifTrue:[
+            p := ' [ ' , mthdPackage allItalic , ' ] '.
+            p := p asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+            isInChangeSet ifFalse:[
+                s := s asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage).
+            ].
+            s := s , ' ' , p
         ].
-        s := s , ' ' , p
     ].
 
     moreInfo size == 0 ifTrue:[^ s].
@@ -2855,6 +2857,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.235 2001-11-05 09:49:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.236 2001-11-08 08:40:40 cg Exp $'
 ! !
 Method initialize!