--- a/common/SCMAbstractCommitDialog.st Wed Aug 29 12:46:21 2018 +0200
+++ b/common/SCMAbstractCommitDialog.st Wed Mar 13 22:23:24 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
stx:libscm - a new source code management library for Smalltalk/X
Copyright (C) 2012-2015 Jan Vrany
@@ -467,28 +469,27 @@
!SCMAbstractCommitDialog methodsFor:'accessing'!
defaultSubtitle
- | t packages|
+ | t packages title |
t := self task.
packages := t packages.
- ^packages notEmptyOrNil ifTrue:[
+ packages notEmptyOrNil ifTrue:[
packages size == 1 ifTrue:[
- 'Package: ' , packages anElement name asText allItalic
+ ^ 'Package: ' , packages anElement name allItalic
] ifFalse:[
- 'Packages: ' , ((packages collect:[:e | e name ]) asStringWith: ', ')
+ ^ 'Packages: ' , ((packages collect:[:e | e name ]) asStringWith: ', ')
].
] ifFalse:[
- | title |
-
title := t temporaryWorkingCopy root pathName , ' [' , t temporaryWorkingCopy branch name , ']'.
title size > 70 ifTrue:[
title := '...' , (title copyFrom: title size - 67).
].
- title.
+ ^ title.
]
"Created: / 28-10-2008 / 09:14:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 22-02-2014 / 23:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-03-2019 / 22:06:19 / Claus Gittinger"
!
fileListToCommit