#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 09 Nov 2017 09:53:37 +0100
changeset 17732 be40cebb9b93
parent 17724 87f3d255c4e7
child 17733 a6b7dec43ebf
#REFACTORING by cg class: Tools::NewSystemBrowser changed: #sourceOfMethod: common code eliminated
Tools__NewSystemBrowser.st
--- 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