#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Wed, 28 Aug 2019 10:43:13 +0200
changeset 19041 7e56f18cb39e
parent 19040 fd8d51dcf906
child 19042 6e94c9d2faa0
#REFACTORING by exept class: AbstractSettingsApplication::HTTPStartServerSettingsApplication changed: #informationLabel class: AbstractSettingsApplication::SourceCodeManagementSettingsAppl changed: #basicSaveSettings
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).'
                 ]
             ].
         ].