~smalltalkers/cuis/base-dev

b'Stop writing non executable preamble that is a special case (no longer supported by squeak/pharo'

b"'!"

b"!ClassDescription methodsFor: 'fileIn/Out' stamp: 'kph 2/24/2010 05:15'!"

b'fileOutOn: aFileStream moveSource: moveSource toFile: fileIndex'

b'\t"File a description of the receiver on aFileStream. If the boolean '

b'\targument, moveSource, is true, then set the trailing bytes to the position '

b'\tof aFileStream and to fileIndex in order to indicate where to find the '

b'\tsource code."'

b'\t"aFileStream nextPut: $!!; nextChunkPut: self definitionPreamble; cr."'

b'\taFileStream nextChunkPut: self definition.'

b'\tself organization'

b'\t\tputCommentOnFile: aFileStream'

b'\t\tnumbered: fileIndex'

b'\t\tmoveSource: moveSource'

b'\t\tforClass: self.'

b'\tself organization categories do: '

b'\t\t[:heading |'

b'\t\tself fileOutCategory: heading'

b'\t\t\ton: aFileStream'

b'\t\t\tmoveSource: moveSource'

b'\t\t\ttoFile: fileIndex]! !'

b'Smalltalk at: #CuisFixes ifAbsent: [ '

b'\tObject subclass: #CuisFixes'

b"\t\tinstanceVariableNames: '' "

b"\t\tclassVariableNames: '' "

b"\t\tpoolDictionaries: '' "

b"\t\tcategory: 'Progress-Cuis2.2' ]. !"

b"!CuisFixes class methodsFor: 'as yet unclassified' stamp: 'kph 3/3/2010 12:30'!"

b'fix0002StopWritingClassDefinitionPreambles'

b"\t<update:  'ClassDescription-stopWritingClassDefinitionPreambles' version: #beta>"

b"\t<project:   'Cuis2.2'   level: 0 series: #fix number: 2>"

b'"'

b'Stop writing non executable preamble that is a special case (no longer supported by squeak/pharo'

b'"'

b'\t^ [ :pkg |'

b'\t\t\t\t'

b'\t\tpkg stampComment.\t'

b'\t\tpkg class: ClassDescription selectors: #(fileOutOn:moveSource:toFile:) '

b'\t].'

b'\\ No newline at end of file'

b'Stop writing non executable preamble that is a special case (no longer supported by squeak/pharo'

b"'!"

b"!ClassDescription methodsFor: 'fileIn/Out' stamp: 'kph 2/24/2010 05:15'!fileOutOn: aFileStream moveSource: moveSource toFile: fileIndex"

b'\t"File a description of the receiver on aFileStream. If the boolean '

b'\targument, moveSource, is true, then set the trailing bytes to the position '

b'\tof aFileStream and to fileIndex in order to indicate where to find the '

b'\tsource code."'

b'\t"aFileStream nextPut: $!!; nextChunkPut: self definitionPreamble; cr."'

b'\taFileStream nextChunkPut: self definition.'

b'\tself organization'

b'\t\tputCommentOnFile: aFileStream'

b'\t\tnumbered: fileIndex'

b'\t\tmoveSource: moveSource'

b'\t\tforClass: self.'

b'\tself organization categories do: '

b'\t\t[:heading |'

b'\t\tself fileOutCategory: heading'

b'\t\t\ton: aFileStream'

b'\t\t\tmoveSource: moveSource'

b'\t\t\ttoFile: fileIndex]! !'

b'Smalltalk at: #CuisFixes ifAbsent: [ '

b'\tObject subclass: #CuisFixes'

b"\t\tinstanceVariableNames: '' "

b"\t\tclassVariableNames: '' "

b"\t\tpoolDictionaries: '' "

b"\t\tcategory: 'Progress-Cuis2.2' ]. !"

b"!CuisFixes class methodsFor: 'as yet unclassified' stamp: 'kph 3/3/2010 12:30'!fix0002StopWritingClassDefinitionPreambles"

b"\t<update:  'ClassDescription-stopWritingClassDefinitionPreambles' version: #beta>"

b"\t<project:   'Cuis2.2'   level: 0 series: #fix number: 2>"

b'"'

b'Stop writing non executable preamble that is a special case (no longer supported by squeak/pharo'

b'"'

b'\t^ [ :pkg |'

b'\t\t\t\t'

b'\t\tpkg stampComment.\t'

b'\t\tpkg class: ClassDescription selectors: #(fileOutOn:moveSource:toFile:) '

b'\t].'

b'\\ No newline at end of file'