flush
authorClaus Gittinger <cg@exept.de>
Fri, 30 Sep 2011 13:34:17 +0200
changeset 2550 5b7103e4b5fb
parent 2549 e1089263d812
child 2551 baaf89f420fa
flush
AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Fri Sep 30 13:18:59 2011 +0200
+++ b/AbstractSourceCodeManager.st	Fri Sep 30 13:34:17 2011 +0200
@@ -581,13 +581,14 @@
                 eachFile recursiveRemove
             ]
         ].
-    ]
+    ].
+    Method flushSourceStreamCache.
 
     "
      self flushSourceCache
     "
 
-    "Modified: / 29-08-2006 / 11:25:47 / cg"
+    "Modified: / 30-09-2011 / 13:33:33 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'obsolete backward compatibility'!
@@ -2020,7 +2021,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.262 2011-09-29 20:03:08 cg Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.263 2011-09-30 11:34:17 cg Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3209,11 +3210,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.262 2011-09-29 20:03:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.263 2011-09-30 11:34:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.262 2011-09-29 20:03:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.263 2011-09-30 11:34:17 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!