Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: 60Deprecated-mt.97.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.97.mcz ==================== Summary ==================== Name: 60Deprecated-mt.97 Author: mt Time: 18 November 2021, 5:00:41.390305 pm UUID: cb131d95-78fd-5c4f-958f-67eb591ac085 Ancestors: 60Deprecated-ul.96 System-mt.1246 =============== Diff against 60Deprecated-ul.96 =============== Item was added: + ----- Method: SystemNavigation>>confirmRemovalOf:on: (in category '*60Deprecated-ui') ----- + confirmRemovalOf: aSelector on: aClass + "Determine if it is okay to remove the given selector. Answer 1 if it should be removed, 2 if it should be removed followed by a senders browse, and 3 if it should not be removed." + + self deprecated: 'Use #confirmAndRemoveSelector:class: instead.'. + self confirmAndRemoveSelector: aSelector class: aClass. + ^ 3 "Nothing useful to do anymore. Might produce UI glitches but better to not carry over the old code any longer"!

1 0

The Trunk: Protocols-mt.82.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-mt.82.mcz ==================== Summary ==================== Name: Protocols-mt.82 Author: mt Time: 18 November 2021, 5:00:01.029305 pm UUID: 8df3746e-a1cd-4d42-94e1-da645bfb383d Ancestors: Protocols-nice.81, Protocols-ct.78 System-mt.1246 =============== Diff against Protocols-nice.81 =============== Item was changed: ----- Method: Lexicon>>removeMessage (in category 'menu commands') ----- removeMessage - "Remove the selected message from the system." + super removeMessage ifFalse: [^ false]. + - messageListIndex = 0 ifTrue: [^ self]. - self okToChange ifFalse: [^ self]. - - super removeMessage. "my #reformulateList method, called from the super #removeMethod method, will however try to preserve the selection, so we take pains to clobber it by the below..." messageListIndex := 0. self changed: #messageList. self changed: #messageListIndex. contents := nil. + self contentsChanged. + + ^ true! - self contentsChanged!

1 0

The Trunk: Tools-mt.1066.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1066.mcz ==================== Summary ==================== Name: Tools-mt.1066 Author: mt Time: 18 November 2021, 4:59:33.802305 pm UUID: 503ae956-95ed-9645-9fc8-f3cb5407b085 Ancestors: Tools-eem.1065, Tools-ct.1028 Complements System-mt.1246 =============== Diff against Tools-eem.1065 =============== Item was changed: ----- Method: Browser>>removeClass (in category 'class functions') ----- removeClass + "Overwritten to update the class list." - "If the user confirms the wish to delete the class, do so" + self hasClassSelected ifFalse: [^ false]. + super removeClass ifFalse: [^ false]. + + self classListIndex: 0. + self changed: #classList. + + ^ true! - super removeClass ifTrue: - [self classListIndex: 0]! Item was changed: ----- Method: Browser>>removeMessage (in category 'message functions') ----- removeMessage + "Overwritten to update the message list." + + self hasMessageSelected ifFalse: [^ false]. + super removeMessage ifFalse: [^ false]. + - "If a message is selected, create a Confirmer so the user can verify that - the currently selected message should be removed from the system. If - so, - remove it. If the Preference 'confirmMethodRemoves' is set to false, the - confirmer is bypassed." - | messageName confirmation | - self hasMessageSelected not - ifTrue: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - confirmation := self systemNavigation confirmRemovalOf: messageName on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: messageName. self selectMessageNamed: nil. self changed: #messageList. + + self setClassOrganizer. "In case organization not cached" + + ^ true! - self setClassOrganizer. - "In case organization not cached" - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: messageName]! Item was changed: ----- Method: Browser>>removeMessageCategory (in category 'message category functions') ----- removeMessageCategory + "Overwritten to update the message category list." - "If a message category is selected, create a Confirmer so the user can - verify that the currently selected message category should be removed - from the system. If so, remove it." + self hasMessageCategorySelected ifFalse: [^ false]. + super removeMessageCategory ifFalse: [^ false]. + + self selectMessageCategoryNamed: nil. + self changed: #classSelectionChanged. "mt: Obsolete?" - | messageCategoryName | - self hasMessageCategorySelected ifFalse: [^ self]. - self okToChange ifFalse: [^ self]. - messageCategoryName := self selectedMessageCategoryName. - (self messageList size = 0 - or: [Project uiManager confirm: ('Are you sure you want to remove\the message category\\ {1}\ in {2}\\and all its {3} methods? Maybe save\your image before doing this.' translated withCRs asText format: { - messageCategoryName asText allBold. - self selectedClassOrMetaClass name. - (self selectedClassOrMetaClass organization listAtCategoryNamed: messageCategoryName) size asString asText allBold - - }) title: 'Remove Message Category' translated]) - ifTrue: - [self selectedClassOrMetaClass removeCategory: messageCategoryName. - self selectMessageCategoryNamed: nil. - self changed: #classSelectionChanged]. self changed: #messageCategoryList. + + ^ true! - ! Item was changed: ----- Method: Browser>>removeSystemCategory (in category 'system category functions') ----- removeSystemCategory + "Overwritten to update system category list." - "If a class category is selected, create a Confirmer so the user can - verify that the currently selected class category and all of its classes - should be removed from the system. If so, remove it." + | nextSelectedCategory | + self hasSystemCategorySelected ifFalse: [^ false]. + + nextSelectedCategory := self systemCategoryList after: self selectedSystemCategory ifAbsent: [nil]. + super removeSystemCategory ifFalse: [^ false]. + + self changed: #systemCategoryList. + self selectSystemCategory: nextSelectedCategory. + + ^ true! - self hasSystemCategorySelected ifFalse: [^ self]. - self okToChange ifFalse: [^ self]. - (self classList size = 0 - or: [Project uiManager - confirm: ('Are you sure you want to remove\the system category\\ {1}\\and all its {2} classes? Maybe save\your image before doing this.' translated withCRs asText - format: { - self selectedSystemCategory asText allBold. - (systemOrganizer listAtCategoryNamed: self selectedSystemCategory) size asString asText allBold}) - title: 'Remove System Category' translated]) - ifTrue: - [| nextSelectedCat | - nextSelectedCat := self systemCategoryList before: self selectedSystemCategory ifAbsent: [nil]. - systemOrganizer removeSystemCategory: self selectedSystemCategory. - self selectSystemCategory: nextSelectedCat. - self changed: #systemCategoryList]! Item was added: + ----- Method: Browser>>systemOrganizer (in category 'accessing') ----- + systemOrganizer + + ^ systemOrganizer! Item was changed: ----- Method: ChangeSorter>>removeMessage (in category 'message list') ----- removeMessage + + ^ super removeMessage + ifTrue: [self update]; + yourself! - "Remove the selected msg from the system. Real work done by the - parent, a ChangeSorter" - | confirmation sel | - self okToChange - ifFalse: [^ self]. - currentSelector - ifNotNil: [confirmation := self systemNavigation confirmRemovalOf: (sel := self selectedMessageName) on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: sel. - self update. - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: sel]]! Item was changed: + ----- Method: CodeHolder>>removeClass (in category 'class functions') ----- - ----- Method: CodeHolder>>removeClass (in category 'commands') ----- removeClass "Remove the selected class from the system, at interactive user request. Make certain the user really wants to do this, since it is not reversible. Answer true if removal actually happened." - | message className classToRemove result | self okToChange ifFalse: [^ false]. + ^ self systemNavigation confirmAndRemoveClass: self selectedClass! - classToRemove := self selectedClassOrMetaClass ifNil: [Beeper beep. ^ false]. - classToRemove := classToRemove theNonMetaClass. - className := classToRemove name. - message := 'Are you sure that you want to remove\the class\\ {1}\\and all its {2} methods? Maybe save\your image before doing this.{3}' translated withCRs asText format: { - className asText allBold. - (classToRemove methodDict size + classToRemove class methodDict size) asString asText allBold. - classToRemove subclasses size > 0 ifFalse: [''] ifTrue: [ - '\\(There are {1} subclasses, whose superclass\must be updated manually after this.)' translated withCRs asText format: { classToRemove subclasses size asString asText allBold }]}. - (result := Project uiManager confirm: message title: 'Remove Class' translated) - ifTrue: - [classToRemove subclasses size > 0 - ifTrue: [(self confirm: 'class has subclasses: ' , message) - ifFalse: [^ false]]. - classToRemove removeFromSystem. - self changed: #classList. - true]. - ^ result! Item was added: + ----- Method: CodeHolder>>removeMessage (in category 'message functions') ----- + removeMessage + "If a message is selected, create a Confirmer so the user can verify that the currently selected message should be removed from the system. If so, remove it. Answer a boolean indicating whether the removal was succesful." + + self okToChange ifFalse: [^ false]. + ^ self systemNavigation + confirmAndRemoveSelector: self selectedMessageName + class: self selectedClassOrMetaClass! Item was added: + ----- Method: CodeHolder>>removeMessageCategory (in category 'message category functions') ----- + removeMessageCategory + "If a message category is selected, create a Confirmer so the user can verify that the currently selected message category should be removed from the system. If so, remove it." + + self okToChange ifFalse: [^ false]. + ^ self systemNavigation + confirmAndRemoveMessageCategory: self selectedMessageCategoryName + class: self selectedClassOrMetaClass! Item was added: + ----- Method: CodeHolder>>removeSystemCategory (in category 'system category functions') ----- + removeSystemCategory + "If a class category is selected, create a Confirmer so the user can verify that the currently selected class category and all of its classes should be removed from the system. If so, remove it." + + self okToChange ifFalse: [^ false]. + ^ self systemNavigation confirmAndRemoveSystemCategory: self selectedSystemCategoryName! Item was changed: ----- Method: CodeHolder>>selectedSystemCategoryName (in category 'categories') ----- selectedSystemCategoryName + ^ self systemOrganizer categoryOfElement: self selectedClass name! - ^ SystemOrganization categoryOfElement: self selectedClass name! Item was added: + ----- Method: CodeHolder>>systemOrganizer (in category 'accessing') ----- + systemOrganizer + + ^ SystemOrganization! Item was changed: ----- Method: Debugger>>removeMessage (in category 'context stack menu') ----- removeMessage + | oldContext method cleanIndex | - | oldContext method cleanIndex confirmation | self okToChange ifFalse: [^ false]. contextStackIndex isZero ifTrue: [^ false]. oldContext := self selectedContext. method := oldContext method. cleanIndex := self findCleanHomeBelow: method. contextStack at: cleanIndex ifAbsent: [ self inform: 'Sender of method not found on stack, can''t remove message'. ^ false]. (self confirm: 'I will have to revert to the sender of this message. Is that OK?') ifFalse: [^ false]. + super removeMessage ifFalse: [^ false]. - confirmation := self systemNavigation - confirmRemovalOf: method selector - on: method methodClass. - confirmation = 3 ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: method selector. - self contextStackIndex: cleanIndex oldContextWas: oldContext; tryRestartFrom: self selectedContext. + + ^ true! - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: method selector].! Item was removed: - ----- Method: FileContentsBrowser>>removeClass (in category 'removing') ----- - removeClass - | class | - self hasClassSelected ifFalse: [^ self]. - class := self selectedClass. - (self confirm:'Are you certain that you - want to delete the class ', class name, '?') ifFalse:[^self]. - self selectedPackage removeClass: class. - self classListIndex: 0. - self changed: #classList.! Item was changed: ----- Method: FileContentsBrowser>>removeMessage (in category 'removing') ----- removeMessage + + self hasMessageSelected ifFalse: [^ false]. + + super removeMessage ifFalse: [^ false]. - | messageName | - self hasMessageSelected - ifFalse: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - (self selectedClass confirmRemovalOf: messageName) - ifFalse: [^ false]. - self selectedClassOrMetaClass removeMethod: self selectedMessageName. self selectMessageNamed: nil. self setClassOrganizer. "In case organization not cached" + self changed: #messageList.! - self changed: #messageList! Item was changed: ----- Method: MessageSet>>removeMessage (in category 'message functions') ----- removeMessage + + self hasMessageSelected ifFalse: [^ false]. + + super removeMessage ifFalse: [^ false]. - "Remove the selected message from the system. 1/15/96 sw" - | messageName confirmation | - self hasMessageSelected - ifFalse: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - confirmation := self systemNavigation confirmRemovalOf: messageName on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: messageName. self deleteFromMessageList: self selection. self reformulateList. + + ^ true! - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: messageName]! Item was changed: ----- Method: MessageTrace>>removeMessage (in category 'actions') ----- removeMessage "Remove the selected messages from the system." self selectedMessages size = 0 ifTrue: [ ^self ]. self selectedMessages size = 1 ifTrue: [ ^super removeMessage ]. + (self confirm: ('Are you certain you want to remove all the {1} selected methods from the image?' translated format: {self selectedMessages size})) ifFalse: [ ^self ]. - (self confirm: 'Are you certain you want to remove all of the selected methods from the image?') ifFalse: [ ^self ]. self selectedMessages do: [ :each | each actualClass removeSelector: each methodSymbol. self deleteFromMessageList: each ]!

1 0

The Trunk: System-mt.1246.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1246.mcz ==================== Summary ==================== Name: System-mt.1246 Author: mt Time: 18 November 2021, 4:58:20.988305 pm UUID: 836f218d-5bda-5146-a978-5f6072893f80 Ancestors: System-eem.1245, System-ct.1221 Merges System-ct.1221. Extracts confirm-and-remove actions from Tools (e.g., Browser, Debugger, MessageSet) to SystemNavigation to - remove code duplication - reduce concept scattering - clarify the variations in tools themselves. See Browser >> #removeClass as an example. =============== Diff against System-eem.1245 =============== Item was added: + ----- Method: SystemNavigation>>confirmAndRemoveClass: (in category 'ui') ----- + confirmAndRemoveClass: aClass + + | allCalls subclasses hasForeignCalls className numberOfMethods allChoices yourChoice remove browse| + allCalls := self allCallsOnClass: aClass. + subclasses := aClass subclasses. + hasForeignCalls := allCalls anySatisfy: [:ea | ea actualClass ~= aClass]. + + className := aClass name. + numberOfMethods := aClass methodDict size + aClass class methodDict size. + + allChoices := OrderedDictionary new. + allChoices at: 'Yes, remove it' translated put: [remove := true. browse := false]. + (allCalls notEmpty or: [subclasses notEmpty]) ifTrue: [ + allChoices at: 'Yes, remove it, then browse references' translated put: [remove := true. browse := true]. + allChoices at: 'No, don''t remove it, but browse references' translated put: [remove := false. browse := true]]. + allChoices at: 'No, don''t remove it' translated put: [remove := false. browse := false]. + + yourChoice := Project uiManager + chooseFromLabeledValues: allChoices + title: ('Are you sure that you want to remove\the class\\ {1}\\and all its {2} methods? Maybe save\your image before doing this.{3}{4}' translated withCRs asText format: { + className asText allBold. + numberOfMethods asString asText allBold. + hasForeignCalls ifFalse: [''] ifTrue: [ + '\\(There are {1} references to this class.)' translated withCRs asText + format: { allCalls size asString asText allBold }]. + subclasses ifEmpty: [''] ifNotEmpty: [ + '\\(There are {1} subclasses, whose superclass\must be updated manually after this.)' translated withCRs asText + format: { subclasses size asString asText allBold }] }). + + remove := browse := false. "Defaults" + yourChoice value. "Supports nil because of defaults above." + + remove ifTrue: [ + aClass removeFromSystem]. + browse ifTrue: [ + hasForeignCalls ifTrue: [ + self browseAllCallsOnClass: aClass]. + subclasses ifNotEmpty: [ + self + browseMessageList: (subclasses collect: [:subclass | MethodReference class: subclass selector: #Definition environment: self environment]) + name: ('Subclasses of {1}' translated format: {className}) + autoSelect: className]]. + + ^ remove! Item was added: + ----- Method: SystemNavigation>>confirmAndRemoveMessageCategory:class: (in category 'ui') ----- + confirmAndRemoveMessageCategory: aCategory class: aClass + + | categoryList | + categoryList := aClass organization listAtCategoryNamed: aCategory. + + (categoryList isEmpty + or: [Project uiManager confirm: ('Are you sure you want to remove\the message category\\ {1}\ from {2}\\and all its {3} methods? Maybe save\your image before doing this.' translated withCRs asText format: { + aCategory asText allBold. + aClass name. + categoryList size asString asText allBold + + }) title: 'Remove Message Category' translated]) + ifFalse: [^ false]. + + aClass removeCategory: aCategory. + ^ true! Item was added: + ----- Method: SystemNavigation>>confirmAndRemoveSelector:class: (in category 'ui') ----- + confirmAndRemoveSelector: selector class: aClass + + | method allCalls remove browse | + method := MethodReference class: aClass selector: selector environment: self environment. + allCalls := self allCallsOn: selector. + + (allCalls anySatisfy: [:ea | ea ~= method]) + ifFalse: [remove := true. browse := false] + ifTrue: [ | allChoices yourChoice | + + allChoices := OrderedDictionary new. + allChoices at: 'Yes, remove it' translated put: [remove := true. browse := false]. + allChoices at: 'Yes, remove it, then browse senders' translated put: [remove := true. browse := true]. + allChoices at: 'No, don''t remove it, but browse senders' translated put: [remove := false. browse := true]. + allChoices at: 'No, don''t remove it' translated put: [remove := false. browse := false]. + + yourChoice := Project uiManager + chooseFromLabeledValues: allChoices + title: ('Are you sure that you want to remove the message\{1} from {2}?\\The message has {3} senders.' withCRs translated asText format: { + selector asText allBold. + aClass name asText allBold. + allCalls size asString asText allBold }). + + remove := browse := false. "Defaults" + yourChoice value. "Supports nil because of defaults above."]. + + remove ifTrue: [ + aClass removeSelector: selector]. + browse ifTrue: [ + self headingAndAutoselectForLiteral: selector do: [ :label :autoSelect | + self + browseMessageList: allCalls + name: label + autoSelect: autoSelect]]. + + ^ remove! Item was added: + ----- Method: SystemNavigation>>confirmAndRemoveSystemCategory: (in category 'ui') ----- + confirmAndRemoveSystemCategory: aCategory + + | systemOrganizer categoryList | + systemOrganizer := self environment organization. + categoryList := systemOrganizer listAtCategoryNamed: aCategory. + + (categoryList isEmpty + or: [Project uiManager + confirm: ('Are you sure you want to remove\the system category\\ {1}\\and all its {2} classes? Maybe save\your image before doing this.' translated withCRs asText + format: { + aCategory asText allBold. + categoryList size asString asText allBold}) + title: 'Remove System Category' translated]) + ifFalse: [^ false]. + systemOrganizer removeSystemCategory: aCategory. + ^ true! Item was removed: - ----- Method: SystemNavigation>>confirmRemovalOf:on: (in category 'ui') ----- - confirmRemovalOf: aSelector on: aClass - "Determine if it is okay to remove the given selector. Answer 1 if it - should be removed, 2 if it should be removed followed by a senders - browse, and 3 if it should not be removed." - | count answer caption allCalls | - allCalls := self allCallsOn: aSelector. - (count := allCalls size) = 0 - ifTrue: [^ 1]. - "no senders -- let the removal happen without warning" - count = 1 - ifTrue: [(allCalls first actualClass == aClass - and: [allCalls first methodSymbol == aSelector]) - ifTrue: [^ 1]]. - "only sender is itself" - caption := 'The message "{1}" has {2} sender{3}.' translated format: {aSelector. count. count > 1 ifTrue: ['s'] ifFalse: ['']}. - - answer := UIManager default - chooseFrom: #('Remove it' - 'Remove, then browse senders' - 'Don''t remove, but show me those senders' - 'Forget it -- do nothing -- sorry I asked') title: caption. - answer = 3 - ifTrue: [self - browseMessageList: allCalls - name: 'Senders of ' , aSelector - autoSelect: aSelector keywords first]. - answer = 0 - ifTrue: [answer := 3]. - "If user didn't answer, treat it as cancel" - ^ answer min: 3!

1 0

The Trunk: KernelTests-mt.408.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-mt.408.mcz ==================== Summary ==================== Name: KernelTests-mt.408 Author: mt Time: 18 November 2021, 10:47:39.0372 am UUID: 43e74627-a769-7c42-8545-9f999e1d21fb Ancestors: KernelTests-mt.407 Complements Kernel-mt.1422 @Christoph(ct): Please simplify the b's and the c's as discussed here: http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/207963.ht… =============== Diff against KernelTests-mt.407 =============== Item was added: + ----- Method: ObjectTest>>testCaseOf (in category 'tests') ----- + testCaseOf + + | a b c dict | + a := Object new. + b := Object new. + c := Object new. + dict := { + [a] -> [b]. + [b] -> [c]. + [c] -> [a] }. + self assert: b equals: (a caseOf: dict). + self assert: c equals: (b caseOf: dict). + self assert: a equals: (c caseOf: dict). + self should: [nil caseOf: dict] raise: Error.! Item was added: + ----- Method: ObjectTest>>testCaseOfInlined (in category 'tests') ----- + testCaseOfInlined + + | a b c | + a := Object new. + b := Object new. + c := Object new. + self assert: b equals: (a caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] }). + self assert: c equals: (b caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] }). + self assert: a equals: (c caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] }). + self should: [nil caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] }] raise: Error.! Item was added: + ----- Method: ObjectTest>>testCaseOfOtherwise (in category 'tests') ----- + testCaseOfOtherwise + + | a b c dict | + a := Object new. + b := Object new. + c := Object new. + dict := { + [a] -> [b]. + [b] -> [c]. + [c] -> [a] }. + + self assert: b equals: (a caseOf: dict otherwise: [self fail]). + self assert: c equals: (b caseOf: dict otherwise: [self fail]). + self assert: a equals: (c caseOf: dict otherwise: [self fail]). + self assert: 42 equals: (nil caseOf: dict otherwise: [42]). + self assert: 42 equals: (6 caseOf: dict otherwise: [:x | x * 7]).! Item was added: + ----- Method: ObjectTest>>testCaseOfOtherwiseInlined (in category 'tests') ----- + testCaseOfOtherwiseInlined + + | a b c | + a := Object new. + b := Object new. + c := Object new. + self assert: b equals: (a caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] } otherwise: [self fail]). + self assert: c equals: (b caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] } otherwise: [self fail]). + self assert: a equals: (c caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] } otherwise: [self fail]). + self assert: 42 equals: (nil caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] } otherwise: [42]). + self assert: 42 equals: (6 caseOf: { [a] -> [b]. [b] -> [c]. [c] -> [a] } otherwise: [:x | x * 7]).!

1 0

The Trunk: Compiler-mt.462.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.462.mcz ==================== Summary ==================== Name: Compiler-mt.462 Author: mt Time: 18 November 2021, 10:45:52.7882 am UUID: 21edd0e3-4506-c14d-a46b-010f38d5bf0e Ancestors: Compiler-eem.461 Complements Kernel-mt.1422 =============== Diff against Compiler-eem.461 =============== Item was changed: ----- Method: MessageNode>>transformCase: (in category 'macro transformations') ----- transformCase: encoder | caseNode | caseNode := arguments first. (caseNode isMemberOf: BraceNode) ifFalse: [^false]. (caseNode blockAssociationCheck: encoder) ifFalse: [^false]. (arguments size = 1 + or: [self checkBlock: arguments last as: 'otherwise arg' from: encoder maxArgs: 1]) ifFalse: - or: [self checkBlock: arguments last as: 'otherwise arg' from: encoder maxArgs: 0]) ifFalse: [^false]. caseNode elements do: [:messageNode | messageNode receiver noteOptimizedIn: self. messageNode arguments first noteOptimizedIn: self]. arguments size = 2 ifTrue: + [| otherwiseBlock | + otherwiseBlock := arguments last noteOptimizedIn: self. + otherwiseBlock numberOfArguments = 1 ifTrue: + [receiver := AssignmentNode new + variable: otherwiseBlock firstArgument + value: receiver. + encoder noteSourceRange: (encoder sourceRangeFor: self) forNode: receiver]]. - [arguments last noteOptimizedIn: self]. ^true!

1 0

The Trunk: Kernel-mt.1422.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1422.mcz ==================== Summary ==================== Name: Kernel-mt.1422 Author: mt Time: 18 November 2021, 10:45:17.4222 am UUID: f0579623-5590-5e47-a848-0569491d6458 Ancestors: Kernel-mt.1421 Adds support for block-arg in caseOf's otherwise clause. See discussions here: - http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-February/207261… - http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/207963.ht… =============== Diff against Kernel-mt.1421 =============== Item was changed: ----- Method: Object>>caseOf:otherwise: (in category 'casing') ----- caseOf: aBlockAssociationCollection otherwise: aBlock + "The elements of aBlockAssociationCollection are associations between blocks. Answer the evaluated value of the first association in aBlockAssociationCollection whose evaluated key equals the receiver. If no match is found, answer the result of evaluating aBlock." - "The elements of aBlockAssociationCollection are associations between blocks. - Answer the evaluated value of the first association in aBlockAssociationCollection - whose evaluated key equals the receiver. If no match is found, answer the result - of evaluating aBlock." aBlockAssociationCollection associationsDo: [:assoc | (assoc key value = self) ifTrue: [^assoc value value]]. + ^ aBlock cull: self - ^ aBlock value "| z | z := {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]" "| z | z := {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]}. #b caseOf: z otherwise: [0]" "The following are compiled in-line:" "#b caseOf: {[#a]->[1+1]. ['b' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]" + "#b caseOf: {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]" + "#b caseOf: {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [:x | x halt]"! - "#b caseOf: {[#a]->[1+1]. ['d' asSymbol]->[2+2]. [#c]->[3+3]} otherwise: [0]"!

1 0

The Trunk: ReleaseBuilder-mt.218.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.218.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.218 Author: mt Time: 18 November 2021, 10:16:36.998448 am UUID: 300238f1-5d04-a54e-94e9-7f349f220b76 Ancestors: ReleaseBuilder-mt.217 Adds commentary about the balloon form. =============== Diff against ReleaseBuilder-mt.217 =============== Item was changed: ----- Method: ReleaseBuilder class>>getBalloonForm (in category 'scripts - ui') ----- getBalloonForm + "Note that the CI will provide the file during image preparation. See: + - https://github.com/squeak-smalltalk/squeak-app/blob/squeak-trunk/icons/ball… + - https://github.com/squeak-smalltalk/squeak-app/actions" ^ (FileDirectory default fileExists: 'balloon.png') ifFalse: [nil] ifTrue: [Form fromFileNamed: 'balloon.png']!

1 0

FFI: FFI-Tools-mt.39.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.39.mcz ==================== Summary ==================== Name: FFI-Tools-mt.39 Author: mt Time: 18 November 2021, 10:11:32.705318 am UUID: bba023f8-43db-724a-918d-03f1eade608b Ancestors: FFI-Tools-mt.38 Fixes regression in Shout that got introduced in May when support for having "function names without quotes" was added to FFI callout signatures. =============== Diff against FFI-Tools-mt.38 =============== Item was changed: ----- Method: SHParserST80>>parseExternalCall (in category '*FFI-Tools') ----- parseExternalCall "0) First keyword of pragma e.g., <cdecl: ... module: ... error: ...>" self addRangeType: #pragmaKeyword. "1) Call flags such as 'threaded' " [self scanNext. ((Smalltalk at: #ExternalFunction) callingConventionModifierFor: currentToken) notNil] whileTrue. "2) Return type" self failUnless: currentToken notNil. currentToken = 'const' ifTrue: [self scanPast: #comment]. self scanPast: #externalCallType. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]. currentToken = '[' ifTrue: ["array types return" self scanPast: #externalCallType. [currentTokenFirst ~= $]] whileTrue: [ self failUnless: currentTokenFirst isDigit. self scanPast: #externalCallType]. self scanPast: #externalCallType]. "3) Function name or index" currentTokenFirst isDigit ifTrue: [self scanPast: #string] ifFalse: [currentTokenFirst == $' ifTrue: [self parseString] + ifFalse: [ + self failUnless: currentToken notNil. + self scanPast: #string]]. - ifFalse: [self scanPast: #string]]. "4) Argument types" self failUnless: currentTokenFirst == $(. self scanPast: #leftParenthesis. [currentTokenFirst ~= $)] whileTrue: [ self failUnless: currentToken notNil. currentToken = 'const' ifTrue: [self scanPast: #comment] ifFalse: [self scanPast: #externalCallType]. currentToken = '*' ifTrue: [self scanPast: #externalCallTypePointerIndicator]]. self scanPast: #rightParenthesis. "5) Module name" currentToken = 'module:' ifTrue: [ self scanPast: #pragmaKeyword. self parseStringOrSymbol ]. "6) Error code" currentToken = 'error:' ifTrue: [ self scanPast: #pragmaKeyword. self currentTokenType == #name ifTrue: [ self parseTemporary: #patternTempVar ] ifFalse: [ self parseStringOrSymbol ] ]. self failUnless: currentToken = '>'. self scanPast: #primitiveOrExternalCallEnd!

1 0

The Trunk: ReleaseBuilder-mt.217.mcz
by commits＠source.squeak.org 16 Nov '21

16 Nov '21

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.217.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.217 Author: mt Time: 16 November 2021, 3:16:47.475795 pm UUID: 83ea78fb-e83f-ce44-97ba-56ba834f320a Ancestors: ReleaseBuilder-mt.216 Do not add non-existent release repositories. Catch new NotFound error, which can be signaled since Monticello-ct.747. =============== Diff against ReleaseBuilder-mt.216 =============== Item was changed: ----- Method: ReleaseBuilder class>>assureReleaseRepositoryReadAccess: (in category 'manual') ----- assureReleaseRepositoryReadAccess: repo self releaseLocally ifTrue: [ (FileDirectory on: repo description) assureExistence. ^ true]. + [repo allFileNames] on: NetworkError, NotFound do: [ - [repo allFileNames] on: NetworkError do: [ self inform: ('Release Builder - Manual Step Required\\Please create the release repository:\{1}\...and ensure that you have global read access to it.' withCRs format: {repo description}). ^ false]. ^ true! Item was changed: ----- Method: ReleaseBuilder class>>releaseRepository (in category 'accessing') ----- releaseRepository (MCRepositoryGroup default repositories detect: [:repo | repo description = self releaseRepositoryUrl] ifNone: [MCRepository location: self releaseRepositoryUrl]) in: [:repo | - MCRepositoryGroup default addRepository: repo. (self assureReleaseRepositoryReadAccess: repo) ifFalse: [ReleaseBuilderFailed signal: 'Could not build the release.']. + MCRepositoryGroup default addRepository: repo. ^ repo]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021