Squeak-dev May 2023

squeak-dev@lists.squeakfoundation.org

16 participants
109 discussions

The Trunk: Collections-ct.1034.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1034.mcz ==================== Summary ==================== Name: Collections-ct.1034 Author: ct Time: 20 May 2023, 1:33:29.111278 pm UUID: e23dc425-a4b4-de4c-91bc-19772d83f449 Ancestors: Collections-ct.1033 Adds String>>#beginsWith:caseSensitive: and #endsWith:caseSensitive:. =============== Diff against Collections-ct.1033 =============== Item was added: + ----- Method: String>>beginsWith:caseSensitive: (in category 'testing') ----- + beginsWith: sequence caseSensitive: caseSensitive + "Answer if the receiver starts with the argument collection." + + | index sequenceSize | + caseSensitive ifTrue: [^ self beginsWith: sequence]. + sequenceSize := sequence size. + self size < sequenceSize ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + ((sequence at: index) sameAs: (self at: index)) ifFalse: [ ^false ] ]. + ^true! Item was added: + ----- Method: String>>endsWith:caseSensitive: (in category 'testing') ----- + endsWith: sequence caseSensitive: caseSensitive + "Answer if the receiver ends with the argument collection." + + | index sequenceSize offset | + caseSensitive ifTrue: [^ self endsWith: sequence]. + sequence isString ifFalse: [ ^super endsWith: sequence ]. + sequenceSize := sequence size. + (offset := self size - sequenceSize) < 0 ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + ((sequence at: index) sameAs: (self at: index + offset)) ifFalse: [ ^false ] ]. + ^true! Item was changed: ----- Method: String>>linesDo: (in category 'accessing') ----- linesDo: aBlock + "Execute aBlock with each line in the receiver. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock." - "Execute aBlock with each line in this string. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock" self lineIndicesDo: [:start :endWithoutDelimiters :end | aBlock value: (self copyFrom: start to: endWithoutDelimiters)]!

1 0

The Trunk: CollectionsTests-ct.387.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.387.mcz ==================== Summary ==================== Name: CollectionsTests-ct.387 Author: ct Time: 20 May 2023, 1:07:09.075278 pm UUID: dc388405-b9b6-ea40-a634-454f362bfbb7 Ancestors: CollectionsTests-mt.386 Complements Collections-ct.1033 (complements Text protocols). =============== Diff against CollectionsTests-mt.386 =============== Item was added: + ----- Method: TextTest>>testLineCorrespondingToIndex (in category 'tests -lines ') ----- + testLineCorrespondingToIndex + + | sampleText | + sampleText := 'Fred the Bear' asTextFromHtml. + + self flag: #forLater. "do not re- and enable common attributes in HtmlReadWriter" + self assert: 'the' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $h)) + printHtmlString. + self assert: 'Bear' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $B)) + printHtmlString. + self assert: 'Fred' equals: + (sampleText lineCorrespondingToIndex: (sampleText indexOf: $d)) + printHtmlString.! Item was added: + ----- Method: TextTest>>testLineCount (in category 'tests -lines ') ----- + testLineCount + + | sampleText | + sampleText := 'Fred the Bear' asTextFromHtml. + self assert: 3 equals: sampleText lineCount.! Item was added: + ----- Method: TextTest>>testLineNumber (in category 'tests -lines ') ----- + testLineNumber + + | sampleText | + sampleText := 'Fred the Bear' asTextFromHtml. + self flag: #forLater. "do not re- and enable common attributes in HtmlReadWriter" + self assert: 'the' equals: (sampleText lineNumber: 2) printHtmlString.! Item was added: + ----- Method: TextTest>>testLines (in category 'tests -lines ') ----- + testLines + + | html text lines | + html := 'Fred', String cr , 'the' , String lf , 'Bear'. + text := (HtmlReadWriter on: html readStream) + breakLines: false; + nextText. + + lines := text lines. + self + assert: + (#('Fred' 'the' 'Bear') collect: #asTextFromHtml) + equals: lines.!

1 0

The Trunk: Collections-ct.1033.mcz
by commits＠source.squeak.org 20 May '23

20 May '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1033.mcz ==================== Summary ==================== Name: Collections-ct.1033 Author: ct Time: 20 May 2023, 1:04:49.847278 pm UUID: 52d747d7-dbb4-464d-b619-ba629ff9e2ec Ancestors: Collections-mt.1032 Complements Text protocols for #findString:, #lines, #empty, and #withoutTrailingBlanks. Revises #withBlanksTrimmed and #withoutLeadingBlanks to answer an empty text rather than an empty string when no separator was found. See https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfou…. =============== Diff against Collections-mt.1032 =============== Item was added: + ----- Method: Text class>>empty (in category 'instance creation') ----- + empty + + ^ self new! Item was added: + ----- Method: Text>>findString: (in category 'accessing') ----- + findString: subString + "Answer the index of subString within the receiver, starting at start. If the receiver does not contain subString, answer 0." + + ^ self findString: subString startingAt: 1! Item was added: + ----- Method: Text>>lineCorrespondingToIndex: (in category 'accessing') ----- + lineCorrespondingToIndex: anIndex + "Answer a text containing the line at the given character position." + + self lineIndicesDo: [:start :endWithoutDelimiters :end | + anIndex <= end ifTrue: [^ self copyFrom: start to: endWithoutDelimiters]]. + ^ Text empty! Item was added: + ----- Method: Text>>lineIndicesDo: (in category 'accessing') ----- + lineIndicesDo: aBlock + "execute aBlock with 3 arguments for each line: + - start index of line + - end index of line without line delimiter + - end index of line including line delimiter(s) CR, LF or CRLF" + + ^ self string lineIndicesDo: aBlock! Item was added: + ----- Method: Text>>lineNumber: (in category 'accessing') ----- + lineNumber: anIndex + "Answer a text containing the characters in the given line number." + + | lineCount | + lineCount := 0. + self lineIndicesDo: [:start :endWithoutDelimiters :end | + (lineCount := lineCount + 1) = anIndex ifTrue: [ + ^ self copyFrom: start to: endWithoutDelimiters]]. + ^ nil! Item was added: + ----- Method: Text>>lines (in category 'accessing') ----- + lines + "Answer an array of lines composing this receiver without the line ending delimiters." + + ^ Array new: (self size // 60 max: 16) streamContents: [:lines | + self linesDo: [:aLine | lines nextPut: aLine]]! Item was added: + ----- Method: Text>>linesDo: (in category 'accessing') ----- + linesDo: aBlock + "Execute aBlock with each line in the receiver. The terminating line delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock." + + self lineIndicesDo: [:start :endWithoutDelimiters :end | + aBlock value: (self copyFrom: start to: endWithoutDelimiters)].! Item was changed: ----- Method: Text>>withBlanksTrimmed (in category 'converting') ----- withBlanksTrimmed "Return a copy of the receiver from which leading and trailing blanks have been trimmed." | first last | first := string indexOfAnyOf: CharacterSet nonSeparators startingAt: 1. + first = 0 ifTrue: [ ^Text empty ]. "no non-separator character" - first = 0 ifTrue: [ ^'' ]. "no non-separator character" last := string lastIndexOfAnyOf: CharacterSet nonSeparators startingAt: self size ifAbsent: [self size]. (first = 1 and: [ last = self size ]) ifTrue: [ ^self copy ]. ^self copyFrom: first to: last ! Item was changed: ----- Method: Text>>withoutLeadingBlanks (in category 'converting') ----- withoutLeadingBlanks "Return a copy of the receiver from which leading blanks have been trimmed." | first | first := string indexOfAnyOf: CharacterSet nonSeparators startingAt: 1. + first = 0 ifTrue: [ ^Text empty ]. "no non-separator character" - first = 0 ifTrue: [ ^'' ]. "no non-separator character" first = 1 ifTrue: [ ^self copy ]. ^self copyFrom: first to: self size ! Item was added: + ----- Method: Text>>withoutTrailingBlanks (in category 'converting') ----- + withoutTrailingBlanks + "Answer a copy of the receiver from which trailing blanks have been trimmed." + + | last | + last := self findLast: [:c | c isSeparator not]. + last = 0 ifTrue: [^ Text empty]. "no non-separator character" + ^ self copyFrom: 1 to: last!

1 0

The Trunk: Tools-mt.1206.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1206.mcz ==================== Summary ==================== Name: Tools-mt.1206 Author: mt Time: 19 May 2023, 2:38:44.437883 pm UUID: 5656edf0-b59a-e24c-a00e-61abbf874e76 Ancestors: Tools-ct.1205 Fixes sorting in '-- core --' message category. =============== Diff against Tools-ct.1205 =============== Item was changed: ----- Method: TreeBrowser>>messageList (in category 'message list') ----- messageList "Overwritten to show all extensions when the '-- extensions --' category is selected." self selectedMessageCategoryName = self class coreCategory ifTrue: [ + ^ (Array streamContents: [:coreSelectors | - ^ Array streamContents: [:coreSelectors | self classOrMetaClassOrganizer categories reject: [:cat | cat first == $*] + thenDo: [:coreCat | (self classOrMetaClassOrganizer listAtCategoryNamed: coreCat) + do: [:coreSel | coreSelectors nextPut: (self formattedLabel: coreSel)]]]) sort]. - thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) - do: [:extSel | coreSelectors nextPut: (self formattedLabel: extSel)]]]]. ^ self selectedMessageCategoryName = self class extensionCategory ifFalse: [super messageList] ifTrue: [ Array streamContents: [:extensionSelectors | self classOrMetaClassOrganizer categories select: [:cat | cat first == $*] thenDo: [:extCat | (self classOrMetaClassOrganizer listAtCategoryNamed: extCat) do: [:extSel | extensionSelectors nextPut: (self formattedLabel: extSel)]]]]!

1 0

The Trunk: Morphic-ct.2108.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2108.mcz ==================== Summary ==================== Name: Morphic-ct.2108 Author: ct Time: 19 May 2023, 2:12:13.929069 pm UUID: 6a5d7c0a-b332-3a4b-a3e8-d39454db7b07 Ancestors: Morphic-mt.2107 Immediately update ClockMorph contents after changing its configuration. This fixes the issue of seeing a 12hr time in the docking bar during an update stream update which updates the docking bar through a script. =============== Diff against Morphic-mt.2107 =============== Item was changed: ----- Method: ClockMorph>>show24hr: (in category '24hr') ----- show24hr: aBoolean + show24hr := aBoolean. + self step.! - show24hr := aBoolean! Item was changed: ----- Method: ClockMorph>>showSeconds: (in category 'seconds') ----- showSeconds: aBoolean + showSeconds := aBoolean. + self step.! - showSeconds := aBoolean!

1 0

The Trunk: NetworkTests-ct.66.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.66.mcz ==================== Summary ==================== Name: NetworkTests-ct.66 Author: ct Time: 19 May 2023, 1:51:11.776195 pm UUID: 030995f9-d9dc-8b4b-bbbc-8ee972a131be Ancestors: NetworkTests-ct.65 Complements Network-ct.269 (support for ascdate/cdate format in MailMessage headers). =============== Diff against NetworkTests-ct.65 =============== Item was changed: + ClassTestCase subclass: #MailMessageTest - TestCase subclass: #MailMessageTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-RFC822'! !MailMessageTest commentStamp: 'tonyg 9/12/2011 09:17' prior: 0! This is the unit test for the class MailMessage.! Item was changed: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'tests') ----- - ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'testing') ----- testCreateAReplyHasANewSubjectUnlessWasAlreadyReply | replyMail startMail | startMail := self fixtureMail subject: 'Re: Subject'; yourself. replyMail := MailMessage replyFor: startMail. self assert: 'Re: Subject' equals: replyMail subject.! Item was added: + ----- Method: MailMessageTest>>testDate (in category 'tests') ----- + testDate + + #('Thu, 22 Jun 2000 14:17:47 -500' '2000-06-22T14:17:47-0500' + 'Thu, 22 Jun 2000 14:17:47 --500' '2000-06-22T14:17:47+0000' + "'on, 04 apr 2001 14:57:32' '2001-04-04T14:57:32'" + 'Thu, 16 Aug 2007 05:22:36 +0100' '2007-08-16T05:22:36+0100' + 'Sat Jan 28 04:01:00 2012' '2012-01-28T04:01:00+0000' + 'Wed, 1 Feb 2023 09:28:22 0000' '2023-02-01T09:28:22+0000') + pairsDo: [:string :expected | + | date expectedDate | + date := self classToBeTested new + setField: 'date' toString: string; + date. + expectedDate := DateAndTime fromString: expected. + self assert: expectedDate asLocal equals: date].!

1 0

The Trunk: Network-ct.269.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ct.269.mcz ==================== Summary ==================== Name: Network-ct.269 Author: ct Time: 19 May 2023, 1:50:14.181195 pm UUID: f57a07c4-63dc-7442-8bfe-57aeb8de3682 Ancestors: Network-ct.268 Adds support for ascdate/cdate format in MailMessage headers. While this is not covered by RFC822, some mboxes do contain this format, such as the older years of http://lists.squeakfoundation.org/pipermail/squeak-dev/. Also fixes offset of fallback time. =============== Diff against Network-ct.268 =============== Item was changed: ----- Method: MailMessage>>time (in category 'accessing') ----- time | dateField | dateField := (self fieldNamed: 'date' ifAbsent: [ ^0 ]) mainValue. + ^ [self timeFrom: dateField] ifError: [:err :rcvr | (Date today - (Date newDay: 1 year: 1980)) asSeconds].! - ^ [self timeFrom: dateField] ifError: [:err :rcvr | Date today asSeconds]. - ! Item was changed: ----- Method: MailMessage>>timeFrom: (in category 'parsing') ----- timeFrom: aString "Parse the date and time (rfc822) and answer the result as the number of seconds since the start of 1980." | s t rawDelta delta plusOrMinus | s := ReadStream on: aString. "date part" + t := ((self readDateFrom: s) ifNil: [Date today]). + + (aString size > 5 and: [(aString atLast: 5) = $ and: [aString last isDigit and: [(aString atLast: 2) isDigit] and: [(aString atLast: 3) isDigit] and: [(aString atLast: 4) isDigit]]]) ifTrue: [ + "ctime format - not covered by rfc822, but used in mboxes, such as the older years of http://lists.squeakfoundation.org/pipermail/squeak-dev/" + | year | + year := Integer readFrom: (aString last: 4) readStream. + year >= 1900 "not just a timezone without trailing +" ifTrue: + [t := t dayMonthYearDo: [:d :m :y | Date year: year month: m day: d]. + [s peekBack isDigit] whileTrue: [s skip: -1]. + s := (aString allButLast: 5) readStream position: s position; yourself]]. + + t := t asSeconds. + - t := ((self readDateFrom: s) ifNil: [Date today]) asSeconds. - [s atEnd or: [s peek isAlphaNumeric]] whileFalse: [s next]. "time part" s atEnd ifFalse: ["read time part (interpreted as local, regardless of sender's timezone)" (s peek isDigit) ifTrue: [t := t + (Time readFrom: s) asSeconds]. ]. s skipSeparators. "Check for a numeric time zone offset" ('+-' includes: s peek) ifTrue: [plusOrMinus := s next. rawDelta := (s peek isDigit) ifTrue: [Integer readFrom: s] ifFalse: [0]. delta := (rawDelta // 100 * 60 + (rawDelta \\ 100)) * 60. t := plusOrMinus = $+ ifTrue: [t - delta] ifFalse: [t + delta]]. "We ignore text time zone offsets like EST, GMT, etc..." ^ t - (Date newDay: 1 year: 1980) asSeconds "MailMessage new timeFrom: 'Thu, 22 Jun 2000 14:17:47 -500'" "MailMessage new timeFrom: 'Thu, 22 Jun 2000 14:17:47 --500'" "MailMessage new timeFrom: 'on, 04 apr 2001 14:57:32'"!

1 0

The Trunk: NetworkTests-ct.65.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.65.mcz ==================== Summary ==================== Name: NetworkTests-ct.65 Author: ct Time: 19 May 2023, 1:41:20.836195 pm UUID: 36d608e2-8684-9a4a-90aa-fe7f209f3627 Ancestors: NetworkTests-mt.64 Complements Network-ct.268 (fixes parsing of multipart documents). =============== Diff against NetworkTests-mt.64 =============== Item was added: + ----- Method: MIMEDocumentTest>>testParseMultipart (in category 'tests') ----- + testParseMultipart + + | document | + document := MIMEDocument fromPartString: 'Content-Type: multipart/mixed; boundary="example_boundary" + + --example_boundary + Content-Type: text/plain + + first part + --example_boundary + Content-Type: text/plain + + second part + --example_boundary--'. + + self assert: document isMultipart. + self assert: #('text/plain' 'text/plain') equals: (document parts collect: #contentType) asArray. + self assert: #('first part + + ' 'second part + + ') equals: (document parts collect: #content) asArray.!

1 0

The Trunk: Network-ct.268.mcz
by commits＠source.squeak.org 19 May '23

19 May '23

Christoph Thiede uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ct.268.mcz ==================== Summary ==================== Name: Network-ct.268 Author: ct Time: 19 May 2023, 1:40:42.341195 pm UUID: 63ac44a4-d515-6742-bc5e-00724d671c09 Ancestors: Network-tpr.267 Fixes parsing of multipart documents. As per RFC1341, the final separator can - or even should - be extended by two dashes. Note that we do not properly ignore preamble and epilogue for now, simply because of lack of need. =============== Diff against Network-tpr.267 =============== Item was changed: ----- Method: MIMEDocument class>>parseParts:withSeparator: (in category 'instance creation') ----- parseParts: bodyText withSeparator: separator "private -- parse the parts of the message and store them into a collection" | parseStream msgStream messages normalizedSeparator | parseStream := ReadStream on: bodyText. msgStream := LimitingLineStreamWrapper on: parseStream delimiter: separator. normalizedSeparator := separator asLowercase. msgStream limitingBlock: [:aLine | | normalizedLine | normalizedLine := aLine withoutTrailingBlanks asLowercase. normalizedLine = normalizedSeparator or: "Match the separator" + [normalizedLine = ('--',normalizedSeparator)] or: "or the separator after --" + [normalizedLine = (normalizedSeparator, '--')] or: "or the final separator before --" + [normalizedLine = ('--',normalizedSeparator, '--')]]. "or the final separator before and after --" - [normalizedLine = ('--',normalizedSeparator)] or: "or -- and the separator" - [normalizedLine = (normalizedSeparator, '--')]]. "or the final separator with --" "Throw away everything up to and including the first separator" msgStream upToEnd. msgStream skipThisLine. "Extract each of the multi-parts as strings" messages := OrderedCollection new. [parseStream atEnd] whileFalse: [messages add: msgStream upToEnd. msgStream skipThisLine]. ^ messages collect: [:e | MIMEDocument fromPartString: e]!

1 0

Review Request: stylePackageScripts.2.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 18 May '23

18 May '23

Please give me a short feedback on whether you agree with the idea of this change (PackageInfo scripts are no longer instances of StringHolder). If there is no objection, I will try to merge this into the Trunk after a week or so. :-) ["stylePackageScripts.png"] Best, Christoph =============== Summary =============== Change Set: stylePackageScripts Date: 22 November 2021 Author: Christoph Thiede This change set enables syntax highlighting for package scripts ({preamble,postscript}{, of removal}). To achieve this, the instance variables in PackageInfo are converted to hold plain strings or texts rather than StringHolders, and the client (Monticello) is reponsible itself for displaying them to the user and storing them back into the package. Note the postscript which converts all PackageInfo instances in the image. =============== Postscript =============== "Postscript: Eliminate StringHolder script in PackageInfos" PackageInfo allSubInstancesDo: [:packageInfo | #(preamble postscript preambleOfRemoval postscriptOfRemoval) do: [:sel | (packageInfo instVarNamed: sel) ifNotNil: [:stringHolder | packageInfo instVarNamed: sel put: stringHolder contents]]]. =============== Diff =============== MCWorkingCopyBrowser>>editLoadScripts {morphic ui} · ct 11/22/2021 16:05 (changed) editLoadScripts | arg | self hasWorkingCopy ifFalse: [^self]. arg := UIManager default - chooseFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') + chooseFrom: {'edit preamble' translated. 'edit postscript' translated. 'edit preambleOfRemoval' translated. 'edit postscriptOfRemoval' translated} values: #(#preamble #postscript #preambleOfRemoval #postscriptOfRemoval). arg ifNotNil: [ self editScript: arg]. MCWorkingCopyBrowser>>editScript: {morphic ui} · ct 11/22/2021 15:59 (changed) editScript: scriptSymbol - | script | - script := workingCopy packageInfo perform: scriptSymbol. - script openLabel: scriptSymbol asString, ' of the Package ', workingCopy package name. + | script | + script := workingCopy packageInfo perform: scriptSymbol. + Project uiManager + edit: script + label: ('{1} of the Package {2}' translated format: {scriptSymbol asString capitalized. workingCopy package name}) + shouldStyle: true + accept: [:result | workingCopy packageInfo + perform: scriptSymbol asSimpleSetter + with: result] PackageInfo>>isScript:not: {preamble/postscript} · ct 11/22/2021 15:53 (changed) isScript: script not: default ^ script notNil and: [ | contents | - contents := script contents asString withBlanksTrimmed. + contents := script asString withBlanksTrimmed. contents notEmpty and: [contents ~= default and: [contents ~= 'nil']]] PackageInfo>>postscript {preamble/postscript} · ct 11/22/2021 15:53 (changed) postscript + ^ postscript ifNil: [ - postscript := StringHolder new contents: self postscriptDefault] + postscript := self postscriptDefault] PackageInfo>>postscript: {preamble/postscript} · ct 11/22/2021 15:57 (changed) postscript: aString - postscript := StringHolder new contents: aString + postscript := aString PackageInfo>>postscriptOfRemoval {preamble/postscript} · ct 11/22/2021 15:53 (changed) postscriptOfRemoval ^ postscriptOfRemoval ifNil: [ - postscriptOfRemoval := StringHolder new contents: self postscriptOfRemovalDefault] + postscriptOfRemoval := self postscriptOfRemovalDefault] PackageInfo>>postscriptOfRemoval: {preamble/postscript} · ct 11/22/2021 15:57 (changed) postscriptOfRemoval: aString - postscriptOfRemoval := StringHolder new contents: aString + postscriptOfRemoval := aString PackageInfo>>preamble {preamble/postscript} · ct 11/22/2021 15:54 (changed) preamble ^ preamble ifNil: [ - preamble := StringHolder new contents: self preambleDefault] + preamble := self preambleDefault] PackageInfo>>preamble: {preamble/postscript} · ct 11/22/2021 15:56 (changed) preamble: aString - preamble := StringHolder new contents: aString + preamble := aString PackageInfo>>preambleOfRemoval {preamble/postscript} · ct 11/22/2021 15:54 (changed) preambleOfRemoval ^ preambleOfRemoval ifNil: [ - preambleOfRemoval := StringHolder new contents: self preambleOfRemovalDefault] + preambleOfRemoval := self preambleOfRemovalDefault] PackageInfo>>preambleOfRemoval: {preamble/postscript} · ct 11/22/2021 15:56 (changed) preambleOfRemoval: aString - preambleOfRemoval := StringHolder new contents: aString + preambleOfRemoval := aString ["stylePackageScripts.2.cs"]

2 5