--- a/Tools__NewSystemBrowser.st Sun Oct 29 11:18:46 2017 +0100
+++ b/Tools__NewSystemBrowser.st Thu Nov 09 09:53:37 2017 +0100
@@ -56583,53 +56583,55 @@
!
sourceOfMethod:mthd
- |code|
-
- code := mthd source.
- code notNil ifTrue:[ ^ code].
-
- "/ wrong: even if there is no source, we
- "/ should be able to type in something and accept
- "/ self setNoAcceptAction.
-
- (mthd sourcePosition isNil
- or:[mthd getSource isNil]) ifTrue:[
- ^ '"
-Sorry, but the methods sourceCode is not available.
-
-Probably, the method''s sourceCode-info was stripped from the system.
-"'.
- ].
-
- ^ '"
-Sorry, but the method''s sourceCode is not available or corrupted.
-
-',(Smalltalk isStandAloneApp ifTrue:['If this is a deployed application, this part of the source is probably not
-part of the distribution (only the base Smalltalk/X framework is open-source).
-'] ifFalse:['']),'
-Please check the setting of your packagePath, which contains a collection of pathNames.
-The system searches those directories for a package-subdirectories,
-which should either contain the classes source file.
-Also, check if that directory and/or sourceFile grants read access.
-The packagePath can be accessed via
- Smalltalk packagePath
-
-To fix this (in the running system), evaluate:
- Smalltalk packagePath addFirst:''<<pathOfDirContainingPackageDir>>''.
- Smalltalk flushPathCaches.
-
-You may also want to add those statements to the end of your ''private.rc''
-file - so you will not get this error again and again.
-
-Also, check if you have the sourceCodeManagement (CVS) enabled,
-and (if so) configured correctly.
-
-If all of the above fail, and you know the path of the source file,
-you can workaround the problem, by adding a symbolic link to that sourcefile
-in the ''source'' directory.
-"'.
-
- "Modified: / 24-02-2017 / 17:21:35 / cg"
+ ^ self class sourceOfMethod:mthd
+"/
+"/ |code|
+"/
+"/ code := mthd source.
+"/ code notNil ifTrue:[ ^ code].
+"/
+"/ "/ wrong: even if there is no source, we
+"/ "/ should be able to type in something and accept
+"/ "/ self setNoAcceptAction.
+"/
+"/ (mthd sourcePosition isNil
+"/ or:[mthd getSource isNil]) ifTrue:[
+"/ ^ '"
+"/Sorry, but the method''s sourceCode is not available.
+"/
+"/Probably, the method''s sourceCode-info was stripped from the system.
+"/"'.
+"/ ].
+"/
+"/ ^ '"
+"/Sorry, but the method''s sourceCode is not available or corrupted.
+"/
+"/',(Smalltalk isStandAloneApp ifTrue:['If this is a deployed application, this part of the source is probably not
+"/part of the distribution (only the base Smalltalk/X framework is open-source).
+"/'] ifFalse:['']),'
+"/Please check the setting of your packagePath, which contains a collection of pathNames.
+"/The system searches those directories for a package-subdirectories,
+"/which should either contain the classes source file.
+"/Also, check if that directory and/or sourceFile grants read access.
+"/The packagePath can be accessed via
+"/ Smalltalk packagePath
+"/
+"/To fix this (in the running system), evaluate:
+"/ Smalltalk packagePath addFirst:''<<pathOfDirContainingPackageDir>>''.
+"/ Smalltalk flushPathCaches.
+"/
+"/You may also want to add those statements to the end of your ''private.rc''
+"/file - so you will not get this error again and again.
+"/
+"/Also, check if you have the sourceCodeManagement (CVS) enabled,
+"/and (if so) configured correctly.
+"/
+"/If all of the above fail, and you know the path of the source file,
+"/you can workaround the problem, by adding a symbolic link to that sourcefile
+"/in the ''source'' directory.
+"/"'.
+
+ "Modified: / 09-11-2017 / 08:19:39 / cg"
!
updatePackageInfoBarIfSourceCodeManagersDoesNotMatchForClass: aClass