#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Sun, 23 Feb 2020 13:25:20 +0100
changeset 4554 9d76940fef4c
parent 4553 2cbcb4f949e6
child 4555 0a9501d12062
#REFACTORING by exept class: AbstractSourceCodeManager class changed: #writeRevisionLogMessagesFrom:withHeader:to: category of: #repositoryTopDirectoryFromSCMRoot
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.