Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 1996 15:01:29 +0100
changeset 882 cb91ec165c55
parent 881 eb44cdaa19af
child 883 78d6c8b2b9f0
*** empty log message ***
CCReader.st file | annotate | diff | comparison | revisions
ClassCategoryReader.st file | annotate | diff | comparison | revisions
Method.st file | annotate | diff | comparison | revisions 
--- a/CCReader.st	Thu Jan 18 01:43:40 1996 +0100
+++ b/CCReader.st	Thu Jan 18 15:01:29 1996 +0100
@@ -171,9 +171,11 @@
 				     install:true
 				     skipIfSame:true.
 
-			makeSourceRef ifTrue:[
-			    method source = aString ifTrue:[
-				method sourceFilename:sourceFile position:pos 
+			(method notNil and:[method ~~ #Error]) ifTrue:[
+			    makeSourceRef ifTrue:[
+				method getSource = aString ifTrue:[
+				    method sourceFilename:sourceFile position:pos 
+				]
 			    ]
 			]
 		    ] ifFalse:[
@@ -238,6 +240,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.25 1996-01-15 23:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.26 1996-01-18 14:01:29 cg Exp $'
 ! !
 ClassCategoryReader initialize!
--- a/ClassCategoryReader.st	Thu Jan 18 01:43:40 1996 +0100
+++ b/ClassCategoryReader.st	Thu Jan 18 15:01:29 1996 +0100
@@ -171,9 +171,11 @@
 				     install:true
 				     skipIfSame:true.
 
-			makeSourceRef ifTrue:[
-			    method source = aString ifTrue:[
-				method sourceFilename:sourceFile position:pos 
+			(method notNil and:[method ~~ #Error]) ifTrue:[
+			    makeSourceRef ifTrue:[
+				method getSource = aString ifTrue:[
+				    method sourceFilename:sourceFile position:pos 
+				]
 			    ]
 			]
 		    ] ifFalse:[
@@ -238,6 +240,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.25 1996-01-15 23:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.26 1996-01-18 14:01:29 cg Exp $'
 ! !
 ClassCategoryReader initialize!
--- a/Method.st	Thu Jan 18 01:43:40 1996 +0100
+++ b/Method.st	Thu Jan 18 15:01:29 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.67 1996-01-17 18:36:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.68 1996-01-18 14:01:26 cg Exp $'
 !
 
 documentation
@@ -349,6 +349,10 @@
     sourcePosition := nil
 !
 
+getSource
+    ^ source
+!
+
 sourceFilename
     "return the sourcefilename if source is extern; nil otherwise"
hg/stx-libbasic