16341 |
16341 |
16342 super initialize. |
16342 super initialize. |
16343 |
16343 |
16344 someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style'). |
16344 someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style'). |
16345 someRsrcFile isNil ifTrue:[ |
16345 someRsrcFile isNil ifTrue:[ |
16346 someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'. |
16346 someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'. |
16347 someRsrcFile isNil ifTrue:[ |
16347 someRsrcFile isNil ifTrue:[ |
16348 someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'. |
16348 someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'. |
16349 ]. |
16349 ]. |
16350 ]. |
16350 ]. |
16351 someRsrcFile notNil ifTrue:[ |
16351 someRsrcFile notNil ifTrue:[ |
16352 resourceDir := someRsrcFile asFilename directoryName |
16352 resourceDir := someRsrcFile asFilename directoryName |
16353 ] ifFalse:[ |
16353 ] ifFalse:[ |
16354 resourceDir := Smalltalk getSystemFileName:'resources'. |
16354 resourceDir := Smalltalk getSystemFileName:'resources'. |
16355 resourceDir isNil ifTrue:[ |
16355 resourceDir isNil ifTrue:[ |
16356 self warn:'no styles found (missing ''resources'' directory)'. |
16356 self warn:'no styles found (missing ''resources'' directory)'. |
16357 ^ self |
16357 ^ self |
16358 ]. |
16358 ]. |
16359 ]. |
16359 ]. |
16360 |
16360 |
16361 [ |
16361 [ |
16362 styleDirectoryContents := resourceDir asFilename directoryContents. |
16362 styleDirectoryContents := resourceDir asFilename directoryContents. |
16363 ] on:FileStream openErrorSignal do:[:ex| |
16363 ] on:FileStream openErrorSignal do:[:ex| |
16364 self warn:'no styles found (unaccessable ''resources'' directory)'. |
16364 self warn:'no styles found (unaccessible ''resources'' directory)'. |
16365 ^ self |
16365 ^ self |
16366 ]. |
16366 ]. |
16367 |
16367 |
16368 self updateList. |
16368 self updateList. |
16369 (self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[ |
16369 (self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[ |
16370 self showStandardStylesOnly value:false |
16370 self showStandardStylesOnly value:false |
16371 ]. |
16371 ]. |
16372 self selectedStyle value:(View defaultStyle). |
16372 self selectedStyle value:(View defaultStyle). |
16373 self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs. |
16373 self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs. |
16374 ! |
16374 ! |
16375 |
16375 |