Use sourceCodeManagerFromBinaryRevision to access source stream jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 13 Oct 2011 11:55:36 +0100
branchjv
changeset 17886 502a47728238
parent 17885 52f6e6e877e2
child 17887 c9a530f29f7d
Use sourceCodeManagerFromBinaryRevision to access source stream
Class.st
--- a/Class.st	Wed Oct 12 22:06:06 2011 +0100
+++ b/Class.st	Thu Oct 13 11:55:36 2011 +0100
@@ -1748,7 +1748,7 @@
 
     self error:'Cannot find source code manager for source access ' ,
                '(manager yet not loaded or binary revision corrupted)'
-         mayProceed: true.
+        mayProceed: true.           
 
     ^nil
 
@@ -4980,7 +4980,7 @@
     "/ or TryLocalSourceFirst is true,
     "/ look in standard places first
     "/
-    ((sourceCodeManager := self sourceCodeManager) isNil
+    ((sourceCodeManager := self sourceCodeManagerFromBinaryRevision) isNil
     or:[TryLocalSourceFirst == true]) ifTrue:[
         sourceStream := self localSourceStreamFor:source.
     ].
@@ -5087,9 +5087,10 @@
      Autoload sourceStream
     "
 
-    "Created: / 10.11.1995 / 21:05:13 / cg"
-    "Modified: / 22.4.1998 / 19:20:50 / ca"
-    "Modified: / 5.11.2001 / 16:36:30 / cg"
+    "Created: / 10-11-1995 / 21:05:13 / cg"
+    "Modified: / 22-04-1998 / 19:20:50 / ca"
+    "Modified: / 05-11-2001 / 16:36:30 / cg"
+    "Modified: / 13-10-2011 / 10:23:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -5445,5 +5446,5 @@
 !
 
 version_SVN
-    ^ '$Id: Class.st 10713 2011-10-06 09:18:54Z vranyj1 $'
+    ^ '$Id: Class.st 10720 2011-10-13 10:55:36Z vranyj1 $'
 ! !