# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1552512204 -3600
# Node ID 636dc9e09d94714724511d33aa7614e38d7ff5b0
# Parent  4d897e8ab9987e9ea2d4833f5c8e1454de17c217
#REFACTORING by cg
class: SCMAbstractCommitDialog
changed: #defaultSubtitle

diff -r 4d897e8ab998 -r 636dc9e09d94 common/SCMAbstractCommitDialog.st
--- 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