Packages April 2020

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: System-mt.1153.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1153.mcz ==================== Summary ==================== Name: System-mt.1153 Author: mt Time: 17 April 2020, 5:16:44.35686 pm UUID: ed1deacd-13b8-9144-850a-a91589b99e87 Ancestors: System-eem.1152 Adds a query for information about the CI status to the system version. Why? Because the system version shapes that query. =============== Diff against System-eem.1152 =============== Item was added: + ----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') ----- + ciStatusBadgeUrl + + | branch | + branch := 'squeak-{1}{2}{3}' format: { + self isRelease ifTrue: [self majorVersionNumber] ifFalse: ['']. + self isRelease ifTrue: ['.'] ifFalse: ['trunk']. + self isRelease ifTrue: [self minorVersionNumber] ifFalse: [''] }. + + ^ 'https://secure.travis-ci.org/squeak-smalltalk/squeak-app.png?branch=', branch! Item was added: + ----- Method: SystemVersion>>ciStatusPageUrl (in category 'continuous integration') ----- + ciStatusPageUrl + "In a release image, let the user see the overview of branches to choose from. I am not aware of a permanent link for a specific branch. In a trunk image, just let Travis report the state of the main branch, which is usually for trunk builds." + + ^ 'http://travis-ci.org/squeak-smalltalk/squeak-app{1}' format: { + self isRelease ifFalse: [''] ifTrue: ['/branches'] }!

1 0

The Trunk: Morphic-mt.1647.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1647.mcz ==================== Summary ==================== Name: Morphic-mt.1647 Author: mt Time: 17 April 2020, 4:58:43.19286 pm UUID: bd102835-5929-d842-8b91-e06c7a922d7a Ancestors: Morphic-mt.1646 Allow users to copy pieces of text from a dialog window's message. =============== Diff against Morphic-mt.1646 =============== Item was changed: ----- Method: DialogWindow>>createMessage: (in category 'initialization') ----- createMessage: aString + messageMorph := aString asText asMorph. + messageMorph + name: 'Message'; + readOnly: true; + setProperty: #indicateKeyboardFocus toValue: #never. - messageMorph := aString asText asMorph lock. - messageMorph name: 'Message'. self setMessageParameters. ^ messageMorph!

1 0

The Trunk: CollectionsTests-mt.336.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.336.mcz ==================== Summary ==================== Name: CollectionsTests-mt.336 Author: mt Time: 17 April 2020, 4:57:13.61786 pm UUID: d1149030-f619-dc47-a465-3e378aad6f30 Ancestors: CollectionsTests-nice.335 Complements Collections-mt.886 =============== Diff against CollectionsTests-nice.335 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') ----- + test16ImgTag + <timeout: 10> + + | imgUrl imgExpression formFromUrl formFromExpression | + imgUrl := 'https://squeak.org/img/downloads/image.png'. + imgExpression := 'Form dotOfSize: 12@12 color: Color green'. + + self ensureSecureInternetConnection. + + formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | + Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream]. + formFromExpression := Compiler evaluate: imgExpression. + + { + 'Hello <img src="{1}"> World' format: { imgUrl }. + ('Hello {1} World' format: { Character startOfHeader }) asText + addAttribute: formFromUrl asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + + 'Hello <img src="code://{1}"> World' format: { imgExpression }. + ('Hello {1} World' format: { Character startOfHeader }) asText + addAttribute: formFromExpression asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | + expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | + self assert: (expectedAttribute = actualAttribute or: [ + ((expectedAttribute respondsTo: #anchoredMorph) + and: [actualAttribute respondsTo: #anchoredMorph]) + and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) + = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].! Item was changed: + ----- Method: HtmlReadWriterTest>>textWithDoIt (in category 'support') ----- - ----- Method: HtmlReadWriterTest>>textWithDoIt (in category 'tests') ----- textWithDoIt " Version of TextAction>>emphasizeScanner: with a Doit on the third line " | doit | doit := TextDoIt basicNew instVarAt: 1 put: 'Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]].'; yourself. ^ (Text string: 'emphasizeScanner: scanner "Set the emphasis for text display" Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]]. scanner textColor: Purple.' runs: (RunArray runs: #(17 1 7 1 35 1 6 1 6 1 1 6 1 2 1 4 1 18 1 5 1 6 1 1 5 1 2 1 3 1 2 1 3 1 2 1 1 1 1 1 1 7 1 10 1 6 1 ) values: ((Array new: 47) at: 1 put: ((Array new: 1) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); yourself); at: 2 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 3 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 4 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 5 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.5); yourself); yourself); at: 6 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 7 put: ((Array new: 2) at: 1 put: (TextColor ba sicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 8 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 9 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 10 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 11 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 12 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 13 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 14 put: ((Array new : 2) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); at: 2 put: doit; yourself); at: 15 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 16 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 17 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 18 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 19 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 20 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself) ; at: 21 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 22 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 23 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 24 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 25 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 26 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 27 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); a t: 2 put: doit; yourself); at: 28 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 29 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 30 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 31 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 32 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 33 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 34 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 35 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 36 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 37 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 38 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 39 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 40 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 41 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 42 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 43 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 44 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 45 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 46 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); yourself); at: 47 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); yourself)))!

1 0

The Trunk: Collections-mt.886.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.886.mcz ==================== Summary ==================== Name: Collections-mt.886 Author: mt Time: 17 April 2020, 4:56:30.33186 pm UUID: c7d64e56-0d06-e34f-8a61-8f5a7eb9277d Ancestors: Collections-eem.885 To our HTML-to-Text converter, add support for <img> tags. Either download an image (or picture) from the Web or evaluate some code to retrieve either a Form or a Morph. As documented in #httpGetImage:, this complements the support of "code://" in TextURL. =============== Diff against Collections-eem.885 =============== Item was added: + ----- Method: HtmlReadWriter>>httpGetImage: (in category 'private') ----- + httpGetImage: url + "To not add a direct dependency to WebClient, provide this hook for getting am image from an HTTP url. Maybe we can have this via an AppRegistry at some point. Maybe extend WebBrowser." + + (url beginsWith: 'code://') ifTrue: [ + "Same support for Smalltalk expressions as in TextURL >> #actOnClickFor:." + ^ ([Compiler evaluate: (url allButFirst: 7)] ifError: [nil]) + ifNotNil: [:object | object isForm ifTrue: [object] ifFalse: [nil]]]. + + ^ (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | + ([client httpGet: url] ifError: [nil]) ifNotNil: [:response | + response code = 200 ifFalse: [nil] ifTrue: [ + [Form fromBinaryStream: response content asByteArray readStream] + ifError: [nil]]]]! Item was added: + ----- Method: HtmlReadWriter>>mapImgTag: (in category 'mapping') ----- + mapImgTag: aTag + + | result startIndex stopIndex attribute src form | + result := OrderedCollection new. + + "<img src=""https://squeak.org/img/downloads/image.png"">" + attribute := 'src'. + startIndex := aTag findString: attribute. + startIndex > 0 ifTrue: [ + startIndex := aTag findString: '"' startingAt: startIndex+attribute size. + startIndex > 0 + ifTrue: [stopIndex := aTag findString: '"' startingAt: startIndex+1] + ifFalse: [ + "URLs without quotes..." + startIndex := aTag findString: '=' startingAt: startIndex+attribute size. + stopIndex := aTag findString: '>' startingAt: startIndex+1]. + src := aTag copyFrom: startIndex+1 to: stopIndex-1. + form := (self httpGetImage: src) ifNil: [(Form dotOfSize: 12 color: Color veryLightGray)]. + result + add: form asTextAnchor; + add: (TextColor color: Color transparent)]. + ^ result! Item was changed: ----- Method: HtmlReadWriter>>mapTagToAttribute: (in category 'mapping') ----- mapTagToAttribute: aTag aTag = '<b>' ifTrue: [^ {TextEmphasis bold}]. aTag = '<i>' ifTrue: [^ {TextEmphasis italic}]. aTag = '<u>' ifTrue: [^ {TextEmphasis underlined}]. aTag = '<s>' ifTrue: [^ {TextEmphasis struckOut}]. aTag = '<code>' ifTrue: [^ self mapCodeTag]. aTag = '<pre>' ifTrue: [self breakLines: false. ^ {}]. (#('<div' '<span' '<center>' ) anySatisfy: [:ea | aTag beginsWith: ea]) ifTrue: [^(self mapAlignmentTag: aTag) union: (self mapContainerTag: aTag)]. (aTag beginsWith: '<font') ifTrue: [^ self mapFontTag: aTag]. (aTag beginsWith: '<a') ifTrue: [^ self mapATag: aTag]. + (aTag beginsWith: '<img') ifTrue: [^ self mapImgTag: aTag]. "h1, h2, h3, ..." (aTag second = $h and: [aTag third isDigit]) ifTrue: [^ {TextEmphasis bold}]. ^ {}! Item was changed: ----- Method: HtmlReadWriter>>processEmptyTag: (in category 'reading') ----- processEmptyTag: aTag (aTag beginsWith: '<br') ifTrue: [ self addCharacter: Character cr. ^ self]. + (aTag beginsWith: '<img') ifTrue:[ + ^ self processStartTag: aTag]. + (self isTagIgnored: aTag) ifTrue: [^ self]. "TODO... what?"! Item was added: + ----- Method: HtmlReadWriter>>processEndTagEagerly: (in category 'reading') ----- + processEndTagEagerly: aTag + "Not all tags need an end tag. Simulate that here." + + (aTag beginsWith: '<img') + ifTrue: [^ self processEndTag: '</img>'].! Item was changed: ----- Method: HtmlReadWriter>>processStartTag: (in category 'reading') ----- processStartTag: aTag | index | (self isTagIgnored: aTag) ifTrue: [^ self]. index := count - offset. aTag = '<br>' ifTrue: [ self addCharacter: Character cr. ^ self]. + (aTag beginsWith: '<img') ifTrue: [ + self addString: Character startOfHeader asString. + offset := offset + 1. + index := index - 1]. - self addString: '[image]'. - ^ self]. self processRunStackTop. "To add all attributes before the next tag adds some." "Copy attr list and add new attr." runStack push: ({runStack top first copy addAll: (self mapTagToAttribute: aTag); yourself. index + 1 . index + 1}). + + "For tags such as <img>, we should simulate the closing tag because there won't be any." + self processEndTagEagerly: aTag.! - !

1 0

The Trunk: Morphic-mt.1646.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1646.mcz ==================== Summary ==================== Name: Morphic-mt.1646 Author: mt Time: 17 April 2020, 4:53:37.50186 pm UUID: 6ae785a0-37da-9f46-ae73-134ea9c42153 Ancestors: Morphic-mt.1645 Complement Graphics-mt.430. =============== Diff against Morphic-mt.1645 =============== Item was added: + ----- Method: Morph>>asTextAnchor (in category 'text-anchor') ----- + asTextAnchor + "Convert the receiver to be embedded in text." + + ^ TextAnchor new anchoredMorph: self!

1 0

The Trunk: Graphics-mt.430.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.430.mcz ==================== Summary ==================== Name: Graphics-mt.430 Author: mt Time: 17 April 2020, 4:52:36.27086 pm UUID: 1e5eac6b-e758-8445-b60e-7b09db8dcc63 Ancestors: Graphics-nice.429 Adds a simple way to use forms as text anchors without exposing Morphic, where such anchors are currently implemented. =============== Diff against Graphics-nice.429 =============== Item was added: + ----- Method: Form>>asTextAnchor (in category 'converting') ----- + asTextAnchor + "Convert the receiver to be embedded in text." + + self flag: #refactor. "mt: Text anchors should work outside of Morphic, too. Any instance of Form could be embedded in Text." + ^ (Smalltalk classNamed: 'TextAnchor') + ifNil: [TextColor black "Fall back"] + ifNotNil: [:cls | cls new anchoredMorph: self]!

1 0

The Trunk: Tests-mt.430.mcz
by commits＠source.squeak.org 17 Apr '20

17 Apr '20

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.430.mcz ==================== Summary ==================== Name: Tests-mt.430 Author: mt Time: 17 April 2020, 10:00:04.765586 am UUID: f6a52e06-a24a-ca4b-bbea-8cf479934e4a Ancestors: Tests-ul.429 First steps to improve CaseErrorTest: - the faulty #printOn: must be in a separate object so that the instance of TestCase can be printed as usual in logs and views - adds #testCaseErrorMessage, which actually documents another bug, which is that #printString in #caseError is called on the wrong object I suppose that the idea of having "self printString" in #caseError is that the user learns about the actual cases of the receiver *and not* about the outer-context object that is triggering that case-of in the first place. =============== Diff against Tests-ul.429 =============== Item was removed: - ----- Method: CaseErrorTest>>printOn: (in category 'tests') ----- - printOn: aStream - 3 caseOf: - { [1] -> [aStream nextPutAll: 'option 1']. - [2] -> [aStream nextPutAll: 'option 2'] } - "caseError in printOn:"! Item was changed: ----- Method: CaseErrorTest>>testCaseErrorInPrintOn (in category 'tests') ----- testCaseErrorInPrintOn + self should: [ CaseErrorTestObject new printString ] raise: Error! - self should: [ self printString ] raise: Error! Item was added: + ----- Method: CaseErrorTest>>testCaseErrorMessage (in category 'tests') ----- + testCaseErrorMessage + "Check whether the error message actually includes the printString of the object where #caseOf: is sent to. As of April 17, 2020, the error message actually uses the printString of the outer-contxt receiver, which is wrong. Take a look at Object >> #caseOf:. There is no indication of 'self' not being the receiver of #caseOf:." + + ['my message' caseOf: { [1] -> ['option 1'] }] + on: Error + do: [:error | self assert: (error messageText includesSubstring: 'my message' printString)].! Item was added: + Object subclass: #CaseErrorTestObject + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Bugs'! Item was added: + ----- Method: CaseErrorTestObject>>printOn: (in category 'printing') ----- + printOn: aStream + 3 caseOf: + { [1] -> [aStream nextPutAll: 'option 1']. + [2] -> [aStream nextPutAll: 'option 2'] } + "caseError in printOn:"!

1 0

The Trunk: Kernel-eem.1323.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1323.mcz ==================== Summary ==================== Name: Kernel-eem.1323 Author: eem Time: 15 April 2020, 4:46:14.261016 pm UUID: 5ea740f0-f4c6-4808-b7b6-2e3aee87aa91 Ancestors: Kernel-eem.1322 Update the ClassBuilder and instance migration, given the changes in Collections-eem.885. See http://forum.world.st/How-to-become-immediate-objects-td5114931.html. =============== Diff against Kernel-eem.1322 =============== Item was changed: ----- Method: ClassBuilder>>update:to: (in category 'class mutation') ----- update: oldClass to: newClass "Convert oldClass, all its instances and possibly its meta class into newClass, instances of newClass and possibly its meta class. The process is surprisingly simple in its implementation and surprisingly complex in its nuances and potentially bad side effects. We can rely on two assumptions (which are critical): #1: The method #updateInstancesFrom: will not create any lasting pointers to 'old' instances ('old' is quote on quote since #updateInstancesFrom: will do a become of the old vs. the new instances and therefore it will not create pointers to *new* instances before the #become: which are *old* afterwards) #2: The non-preemptive execution of the critical piece of code guarantees that nobody can get a hold by 'other means' (such as process interruption and reflection) on the old instances. Given the above two, we know that after #updateInstancesFrom: there are no pointers to any old instances. After the forwarding become there will be no pointers to the old class or meta class either. Andreas Raab, 2/27/2003 23:42" | meta | meta := oldClass isMeta. "Note: Everything from here on will run without the ability to get interrupted to prevent any other process to create new instances of the old class." ["Note: The following removal may look somewhat obscure and needs an explanation. When we mutate the class hierarchy we create new classes for any existing subclass. So it may look as if we don't have to remove the old class from its superclass. However, at the top of the hierarchy (the first class we reshape) that superclass itself is not newly created so therefore it will hold both the oldClass and newClass in its (obsolete or not) subclasses. Since the #become: below will transparently replace the pointers to oldClass with newClass the superclass would have newClass in its subclasses TWICE. With rather unclear effects if we consider that we may convert the meta-class hierarchy itself (which is derived from the non-meta class hierarchy). Due to this problem ALL classes are removed from their superclass just prior to converting them. Here, breaking the superclass/subclass invariant really doesn't matter since we will effectively remove the oldClass (becomeForward:) just a few lines below." oldClass superclass removeSubclass: oldClass. oldClass superclass removeObsoleteSubclass: oldClass. "make sure that the VM cache is clean" oldClass methodDict do: [:cm | cm flushCache]. "Convert the instances of oldClass into instances of newClass" newClass updateInstancesFrom: oldClass. meta ifTrue: + [{oldClass} elementsForwardIdentityAndHashTo: {newClass}. - [oldClass becomeForward: newClass. oldClass updateMethodBindingsTo: oldClass binding] ifFalse: + [{oldClass. oldClass class} elementsForwardIdentityAndHashTo: {newClass. newClass class}. - [{oldClass. oldClass class} elementsForwardIdentityTo: {newClass. newClass class}. oldClass updateMethodBindingsTo: oldClass binding. oldClass class updateMethodBindingsTo: oldClass class binding]. "eem 5/31/2014 07:22 At this point there used to be a garbage collect whose purpose was to ensure no old instances existed after the becomeForward:. Without the GC it was possible to resurrect old instances using e.g. allInstancesDo:. This was because the becomeForward: updated references from the old objects to new objects but didn't destroy the old objects. But as of late 2013/early 2014 becomeForward: has been modified to free all the old objects."] valueUnpreemptively! Item was changed: ----- Method: ClassDescription>>updateInstances:from:isMeta: (in category 'initialize-release') ----- updateInstances: oldInstances from: oldClass isMeta: isMeta "Recreate any existing instances of the argument, oldClass, as instances of the receiver, which is a newly changed class. Permute variables as necessary, and forward old instances to new instances. Answer nil to defeat old clients that expect an array of old instances. The old behaviour, which necessitated a global GC, exchanged identities and answered the old instances. But no clients used the result. This way we avoid the unnecessary GC," | map variable instSize newInstances | oldInstances isEmpty ifTrue: [^nil]. "no instances to convert" isMeta ifTrue: [(oldInstances size = 1 and: [self soleInstance class == self or: [self soleInstance class == oldClass]]) ifFalse: [^self error: 'Metaclasses can only have one instance']]. map := self instVarMappingFrom: oldClass. variable := self isVariable. instSize := self instSize. newInstances := Array new: oldInstances size. 1 to: oldInstances size do: [:i| newInstances at: i put: (self newInstanceFrom: (oldInstances at: i) variable: variable size: instSize map: map)]. "Now perform a bulk mutation of old instances into new ones" + oldInstances elementsForwardIdentityAndHashTo: newInstances. - oldInstances elementsForwardIdentityTo: newInstances. ^nil!

1 0

The Trunk: Kernel-eem.1322.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1322.mcz ==================== Summary ==================== Name: Kernel-eem.1322 Author: eem Time: 15 April 2020, 4:39:29.367332 pm UUID: 94e874d1-0572-4a1d-9934-edcf87b8ecb5 Ancestors: Kernel-eem.1321 Move the become: methods from ProtoObject to Object. See http://forum.world.st/How-to-become-immediate-objects-td5114931.html =============== Diff against Kernel-eem.1321 =============== Item was added: + ----- Method: Object>>become: (in category 'system primitives') ----- + become: otherObject + "Primitive. Swap the object pointers of the receiver and the argument. + All variables in the entire system that used to point to the receiver now + point to the argument, and vice-versa. Fails if either object is read-only + or is an immediate such as a SmallInteger." + + {self} elementsExchangeIdentityWith: {otherObject}! Item was added: + ----- Method: Object>>becomeForward: (in category 'system primitives') ----- + becomeForward: otherObject + "Primitive. All variables in the entire system that used to point + to the receiver now point to the argument. + Fails if either argument is an immediate such as a SmallInteger, + or if the receiver is read-only." + + {self} elementsForwardIdentityTo: {otherObject}! Item was added: + ----- Method: Object>>becomeForward:copyHash: (in category 'system primitives') ----- + becomeForward: otherObject copyHash: copyHash + "Primitive. All variables in the entire system that used to point to + the receiver now point to the argument. If copyHash is true, the + argument's identity hash bits will be set to those of the receiver. + Fails if + - either argument is an immediate such as a SmallInteger, + - if the receiver is read-only + - otherObject is read-only and copyHash is true." + + {self} + elementsForwardIdentityTo: {otherObject} + copyHash: copyHash! Item was removed: - ----- Method: ProtoObject>>become: (in category 'system primitives') ----- - become: otherObject - "Primitive. Swap the object pointers of the receiver and the argument. - All variables in the entire system that used to point to the receiver - now point to the argument, and vice-versa. - Fails if either object is an immediate such as a SmallInteger." - - {self} elementsExchangeIdentityWith: {otherObject}! Item was removed: - ----- Method: ProtoObject>>becomeForward: (in category 'system primitives') ----- - becomeForward: otherObject - "Primitive. All variables in the entire system that used to point - to the receiver now point to the argument. - Fails if either argument is an immediate such as a SmallInteger." - - {self} elementsForwardIdentityTo: {otherObject}! Item was removed: - ----- Method: ProtoObject>>becomeForward:copyHash: (in category 'system primitives') ----- - becomeForward: otherObject copyHash: copyHash - "Primitive. All variables in the entire system that used to point to - the receiver now point to the argument. If copyHash is true, the - argument's identity hash bits will be set to those of the receiver. - Fails if either argument is an immediate such as a SmallInteger." - - {self} - elementsForwardIdentityTo: {otherObject} - copyHash: copyHash!

1 0

The Trunk: Collections-eem.885.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.885.mcz ==================== Summary ==================== Name: Collections-eem.885 Author: eem Time: 15 April 2020, 4:37:54.800631 pm UUID: 45d219d3-6ed0-4401-a820-44eebe21d71a Ancestors: Collections-eem.883, Collections-dtl.884 Switch elementsForwardIdentityTo: to not copy the hash, see http://forum.world.st/How-to-become-immediate-objects-td5114931.html. Add elementsForwardIdentityAndHashTo: for the old behavior. =============== Diff against Collections-dtl.884 =============== Item was added: + ----- Method: Array>>elementsForwardIdentityAndHashTo: (in category 'converting') ----- + elementsForwardIdentityAndHashTo: otherArray + "This primitive performs a bulk mutation, causing all pointers to the elements of the + receiver to be replaced by pointers to the corresponding elements of otherArray. + The identityHashes remain with the pointers rather than with the objects so that + the objects in this array should still be properly indexed in any existing hashed + structures after the mutation." + <primitive: 72 error: ec> + ec == #'no modification' ifTrue: + [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityAndHashTo:]. + ec == #'bad receiver' ifTrue: + [^self error: 'receiver must be of class Array']. + ec == #'bad argument' ifTrue: + [^self error: (otherArray class == Array + ifTrue: ['arg must be of class Array'] + ifFalse: ['receiver and argument must have the same size'])]. + ec == #'inappropriate operation' ifTrue: + [^self error: 'can''t become immediates such as SmallIntegers or Characters']. + ec == #'object is pinned' ifTrue: + [^self error: 'can''t become pinned objects']. + ec == #'insufficient object memory' ifTrue: + [self error: 'The virtual machine is out-of-date. Please upgrade.']. + self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. + The identityHashes are not copied to the target objects so that the objects in otherArray + should still be properly indexed in any existing hashed structures after the mutation." + <primitive: 248 error: ec> - The identityHashes remain with the pointers rather than with the objects so that - the objects in this array should still be properly indexed in any existing hashed - structures after the mutation." - <primitive: 72 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityTo:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: [self error: 'The virtual machine is out-of-date. Please upgrade.']. self primitiveFailed!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2020