# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1582460720 -3600
# Node ID 9d76940fef4cdd839de9710061f990abe8a3517b
# Parent  2cbcb4f949e6953b619d5ac858b7b988240d8b9e
#REFACTORING by exept
class: AbstractSourceCodeManager class
changed: #writeRevisionLogMessagesFrom:withHeader:to:
category of: #repositoryTopDirectoryFromSCMRoot

diff -r 2cbcb4f949e6 -r 9d76940fef4c AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Sun Feb 23 13:23:18 2020 +0100
+++ b/AbstractSourceCodeManager.st	Sun Feb 23 13:25:20 2020 +0100
@@ -140,16 +140,6 @@
     ].
 ! !
 
-!AbstractSourceCodeManager class methodsFor:'* uncategorized *'!
-
-repositoryTopDirectoryFromSCMRoot
-    "return the top of the repository."
-
-    ^ self subclassResponsibility
-
-    "Created: / 18-05-2018 / 12:30:23 / Stefan Vogel"
-! !
-
 !AbstractSourceCodeManager class methodsFor:'accessing'!
 
 availableManagers
@@ -2005,6 +1995,14 @@
     "Created: / 29-09-2011 / 13:26:29 / cg"
 !
 
+repositoryTopDirectoryFromSCMRoot
+    "return the top of the repository."
+
+    ^ self subclassResponsibility
+
+    "Created: / 18-05-2018 / 12:30:23 / Stefan Vogel"
+!
+
 revisionAfter:aRevisionString
     "generate the next revision number after the given number"
 
@@ -4065,14 +4063,14 @@
         aStream nextPutAll:'  Newest revision: '; nextPutLine:(log at:#newestRevision) printString.
         tags := log at:#symbolicNames ifAbsent:nil.
         tags notNil ifTrue:[
-            aStream nextPutAll:'  Stable revision: '; nextPutAll:(tags at:'stable' ifAbsent:'none'); cr.
-            aStream nextPutAll:'  Symbolic names: '; cr.
+            aStream nextPutAll:'  Stable revision: '; nextPutLine:(tags at:'stable' ifAbsent:'none').
+            aStream nextPutLine:'  Symbolic names: '.
             "sort tags by tag name"
             tags := tags associations sort:[:a :b| (a value compareAsVersionNumberWith:b value) > 0].
             tags do:[:eachAssociation|
                 aStream tab; nextPutAll:eachAssociation key; 
                              nextPutAll:': '; 
-                             nextPutAll:eachAssociation value; cr.
+                             nextPutLine:eachAssociation value.
             ]
         ].
     ].
@@ -4089,7 +4087,7 @@
         aStream nextPutAll:' author: '; 
             show:((entry at:#author ifAbsent:nil) ? '?') allBold; tab.
         aStream nextPutAll:' lines: '; 
-            show:(entry at:#numberOfChangedLines ifAbsent:nil) ? '?'; cr.
+            showCR:(entry at:#numberOfChangedLines ifAbsent:nil) ? '?'.
 
         logMsg := entry at:#logMessage ifAbsent:''.
         color := Color orange.