Smalltalk interchangeVersion: '1.0'! Class named: 'SixxSetting' superclass: 'Object' indexedInstanceVariables: #none instanceVariableNames: '' classVariableNames: '' sharedPools: '' classInstanceVariableNames: 'useCDATA '! Annotation key: 'package' value: 'SIXX-Core'! SixxXmlUtil classMethod! convertWriteXmlText: aString on: aWriteStream | cDict wStr | cDict := self convertCharDict. wStr := aWriteStream. aString do: [:eachChar | | val | val := eachChar asciiValue. val >= 127 ifTrue: [wStr nextPutAll: '&#'; nextPutAll: val printString; nextPut: $;] ifFalse: [| conv | conv := cDict at: val ifAbsent: []. conv isNil ifTrue: [wStr nextPut: eachChar] ifFalse: [wStr nextPutAll: conv]]]. ^wStr! Annotation key: 'category' value: 'private-initialize'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:44'! SixxXmlUtil classMethod! writeXmlText: aString on: aWriteStream SixxSetting useCDATA ifTrue: [aWriteStream nextPutAll: ''] ifFalse: [self convertWriteXmlText: aString on: aWriteStream]! Annotation key: 'category' value: 'actions'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:24'! SixxSetting classMethod! useCDATA useCDATA isNil ifTrue: [useCDATA := false]. ^useCDATA! Annotation key: 'category' value: 'actions'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:26'! SixxSetting classMethod! useCDATA: aBoolean useCDATA := aBoolean! Annotation key: 'category' value: 'actions'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:26'! SixxGeneratingTestCase method! testSixxStringForStringObjectUsingCDATA | originalSetting expectedStr | [originalSetting := SixxSetting useCDATA. SixxSetting useCDATA: true. expectedStr := ' '. self should: ['Hi, I''m String-object. How are you? ' sixxString = expectedStr]] ensure: [SixxSetting useCDATA: originalSetting]! Annotation key: 'category' value: 'tests'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:37'! SixxLoadingTestCase method! testReadSixxForStringObjectUsingCDATA | originalSetting sixxString string | [originalSetting := SixxSetting useCDATA. SixxSetting useCDATA: true. sixxString := ' '. string := Object readSixxFrom: sixxString. self should: [string = 'Hi, I''m String-object. How are you? ']] ensure: [SixxSetting useCDATA: originalSetting]! Annotation key: 'category' value: 'tests'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:43'! Metaclass method! createInstanceOf: aClass withSixxElement: sixxElement ^ aClass isMeta ifTrue: [aClass soleInstance] ifFalse: [aClass]! Annotation key: 'category' value: 'instance creation-sixx'! Annotation key: 'stamp' value: 'MU 9/2/2002 02:46'!