#REFACTORING by exept
class: AbstractSettingsApplication::HTTPStartServerSettingsApplication
changed: #informationLabel
class: AbstractSettingsApplication::SourceCodeManagementSettingsAppl
changed: #basicSaveSettings
--- 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).'
]
].
].