--- a/AbstractSettingsApplication.st Tue Jan 26 09:49:34 2016 +0000
+++ b/AbstractSettingsApplication.st Thu Jan 28 06:50:32 2016 +0100
@@ -16343,31 +16343,31 @@
someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
someRsrcFile isNil ifTrue:[
- someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
- someRsrcFile isNil ifTrue:[
- someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
- ].
+ someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
+ someRsrcFile isNil ifTrue:[
+ someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
+ ].
].
someRsrcFile notNil ifTrue:[
- resourceDir := someRsrcFile asFilename directoryName
+ resourceDir := someRsrcFile asFilename directoryName
] ifFalse:[
- resourceDir := Smalltalk getSystemFileName:'resources'.
- resourceDir isNil ifTrue:[
- self warn:'no styles found (missing ''resources'' directory)'.
- ^ self
- ].
+ resourceDir := Smalltalk getSystemFileName:'resources'.
+ resourceDir isNil ifTrue:[
+ self warn:'no styles found (missing ''resources'' directory)'.
+ ^ self
+ ].
].
[
- styleDirectoryContents := resourceDir asFilename directoryContents.
+ styleDirectoryContents := resourceDir asFilename directoryContents.
] on:FileStream openErrorSignal do:[:ex|
- self warn:'no styles found (unaccessable ''resources'' directory)'.
- ^ self
+ self warn:'no styles found (unaccessible ''resources'' directory)'.
+ ^ self
].
self updateList.
(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
- self showStandardStylesOnly value:false
+ self showStandardStylesOnly value:false
].
self selectedStyle value:(View defaultStyle).
self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.