MethodReference.st
branchjv
changeset 1146 c2a6d052107c
parent 944 7551910bc2e8
--- a/MethodReference.st	Tue May 04 11:31:43 2021 +0100
+++ b/MethodReference.st	Tue May 04 12:45:40 2021 +0100
@@ -1,5 +1,10 @@
+"
+COPYRIGHT (c) 2021 LabWare
+"
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#MethodReference
 	instanceVariableNames:'classSymbol classIsMeta methodSymbol stringVersion category'
 	classVariableNames:''
@@ -18,6 +23,15 @@
 '
 !
 
+!MethodReference class methodsFor:'documentation'!
+
+copyright
+"
+COPYRIGHT (c) 2021 LabWare
+
+
+"
+! !
 
 !MethodReference class methodsFor:'instance creation'!
 
@@ -114,9 +128,10 @@
 !
 
 source
-        ^ (self actualClass sourceCodeAt: methodSymbol) asString asStringWithSqueakLineEndings
+    ^ (self actualClass sourceCodeAt: methodSymbol) asString
 
     "Modified: / 12-09-2010 / 16:06:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 04-05-2021 / 11:51:10 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 timeStamp