#REFACTORING by exept
class: AbstractSourceCodeManager class
changed: #writeRevisionLogMessagesFrom:withHeader:to:
category of: #repositoryTopDirectoryFromSCMRoot
--- 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.