--- a/AbstractSourceCodeManager.st	Sat Nov 11 16:20:50 1995 +0100
+++ b/AbstractSourceCodeManager.st	Tue Nov 14 19:59:20 1995 +0100
@@ -22,7 +22,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.12 1995-11-11 15:20:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.13 1995-11-14 18:59:18 cg Exp $'
 !
 
 documentation
@@ -64,6 +64,13 @@
     CacheDirectoryName := path , '/stx_sourceCache'.
 ! !
 
+!AbstractSourceCodeManager class methodsFor:'source code administration'!
+
+writeRevisionLogTo:aStream
+    "send revisionlog to aStream - to be implemented by concrete subclasses"
+
+! !
+
 !AbstractSourceCodeManager class methodsFor:'source code access'!
 
 sourceStreamFor:aClass
@@ -126,7 +133,10 @@
 !
 
 checkinClass:aClass
-    |cls sourceInfo tempDir packageDir moduleDir tempFile classFileName|
+    "checkin of a class into the source repository.
+     Return true if ok, false if not."
+
+    |cls sourceInfo tempDir packageDir moduleDir tempFile classFileName ok|
 
     cls := aClass.
     cls isMeta ifTrue:[
@@ -136,7 +146,7 @@
     sourceInfo := cls sourceCodeInfo.
     sourceInfo isNil ifTrue:[
 	'SOURCEMGR: cannot extract classes sourceInfo' infoPrintNL.
-	^ nil
+	^ false
     ].
 
     packageDir := sourceInfo at:#directory.
@@ -158,15 +168,16 @@
 	    module:moduleDir
 	    source:(tempFile name)
     ] valueNowOrOnUnwindDo:[
-	OperatingSystem recursiveRemoveDirectory:tempDir name
+	tempDir recursiveRemove
     ].
+    ^ false
 
     "
      SourceCodeManager checkinClass:Array
     "
 
     "Created: 6.11.1995 / 18:56:00 / cg"
-    "Modified: 6.11.1995 / 20:05:17 / cg"
+    "Modified: 14.11.1995 / 15:15:09 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'private'!