# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1566981793 -7200
# Node ID 7e56f18cb39e37824b8e6111aec9397a7c4cfa9d
# Parent  fd8d51dcf9066051e468ed201b35b9df26ebcf35
#REFACTORING by exept
class: AbstractSettingsApplication::HTTPStartServerSettingsApplication
changed: #informationLabel

class: AbstractSettingsApplication::SourceCodeManagementSettingsAppl
changed: #basicSaveSettings

diff -r fd8d51dcf906 -r 7e56f18cb39e AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Wed Aug 28 10:41:21 2019 +0200
+++ b/AbstractSettingsApplication.st	Wed Aug 28 10:43:13 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2451,7 +2453,7 @@
                                extent: (Point 665 22)
                              )
                             (CheckBoxSpec
-                               label: 'Allow Paragraph in Identifiers (§)'
+                               label: 'Allow Paragraph in Identifiers (§)'
                                name: 'CheckBox10'
                                activeHelpKey: allowParagraphInIdentifier
                                uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
@@ -6664,7 +6666,7 @@
 
     self hasHTTPServerClass ifFalse:[
         info := info ,
-                '\\' withCRs,
+                c'\n\n',
                 (resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
     ].
     ^ info
@@ -16852,7 +16854,7 @@
             nm := self sourceCacheDir value.
             nm notEmptyOrNil ifTrue:[
                 (fn := nm asFilename) exists ifFalse:[
-                    (self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
+                    (self confirm:(c'CVS cache directory "%1" does not exist\ncreate ?' bindWith:nm)) ifTrue:[
                         fn recursiveMakeDirectory;
                            makeReadableForAll;
                            makeWritableForAll;
@@ -16862,7 +16864,7 @@
                 (fn isWritableDirectory and:[fn isReadable]) ifTrue:[
                     AbstractSourceCodeManager cacheDirectoryName:nm.
                 ] ifFalse:[
-                    self warn:'Invalid sourceCache directory.'
+                    self warn:'Invalid sourceCache directory (not a read/writable directory).'
                 ]
             ].
         ].