--- 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!