Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: PreferenceBrowser-mt.118.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.118.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.118 Author: mt Time: 25 November 2021, 2:33:45.580354 pm UUID: 074786fb-6425-fe43-8d7d-a37dfdf96e1d Ancestors: PreferenceBrowser-mt.117 Complements Morphic-mt.1802 (and System-mt.1253). =============== Diff against PreferenceBrowser-mt.117 =============== Item was changed: ----- Method: PBClassPreferenceView>>initialize (in category 'initialize-release') ----- initialize super initialize. + styler := (TextStyler for: #Smalltalk) ifNotNil: [:s | s new]. + completionController := (Smalltalk classNamed: #OController) ifNotNil: [:oc | oc model: self].! - styler := (Smalltalk classNamed: 'SHTextStylerST80') ifNotNil: [:s | s new]. - completionController := (Smalltalk classNamed: 'OController') ifNotNil: [:oc | oc model: self].!

1 0

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

25 Nov '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1253.mcz ==================== Summary ==================== Name: System-mt.1253 Author: mt Time: 25 November 2021, 2:32:49.237354 pm UUID: 6ef62b9e-a8df-614a-b378-4c876e2d16a8 Ancestors: System-ct.1252 Complements Morphic-mt.1802. Here is the original comment, I forgot to append to 1802: This changeset complements the refactoring from System-mt.1240 intended to decouple the base system from Shout. In various places, there were still hard-coded references to SHTextStylerST80 that did not use the new TextStyler abstraction. These accesses are redirected correctly with this changeset. Furthermore, the TextStyler interface is updated to not automatically set a styler if it has been set to nil manually. This makes it possible to opt-out to styling via ShoutCore-ct.88. =============== Diff against System-ct.1252 =============== Item was changed: ----- Method: AppRegistry class>>default (in category 'accessing') ----- default + "Maybe interactive. Answer the default app in this registry. Ask the user for a new default if none was set." + ^ default ifNil: [self askForDefault]! Item was changed: ----- Method: TextStyler class>>default (in category 'accessing - Smalltalk') ----- default + "Overwritten to lookup a styler for #Smalltalk syntax. See #defaultFor:. Maybe interactive." ^ self defaultFor: #Smalltalk! Item was changed: ----- Method: TextStyler class>>defaultFor: (in category 'accessing') ----- defaultFor: syntax + "Syntax-specifc version of #default. Still maybe interactive. Answer the default styler for syntax. Ask the user for a new default if no styler was set." ^ default at: syntax ifAbsent: [self askForDefaultFor: syntax]!

1 0

The Trunk: Morphic-mt.1802.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1802.mcz ==================== Summary ==================== Name: Morphic-mt.1802 Author: mt Time: 25 November 2021, 2:31:21.699354 pm UUID: 92780f9e-7b6b-2746-a70f-9175654e24ed Ancestors: Morphic-mt.1801 Merges and revises changeset "decoupleShout.1.cs" from 2021-11-02. =============== Diff against Morphic-mt.1801 =============== Item was changed: ----- Method: SmalltalkEditor>>styleSelection (in category 'do-its') ----- styleSelection | styler | self lineSelectAndEmptyCheck: [^ '']. + styler := self styler ifNil: [(TextStyler for: #Smalltalk) ifNotNil: [:c | c new]]. - styler := self styler ifNil: [(TextStyler for: #Smalltalk) new]. ^ styler styledTextFor: self selection!

1 0

The Treated Inbox: Kernel-ct.1339.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of Kernel to project The Treated Inbox: http://source.squeak.org/treated/Kernel-ct.1339.mcz ==================== Summary ==================== Name: Kernel-ct.1339 Author: ct Time: 4 September 2020, 9:09:14.713421 pm UUID: edc35a82-ce03-014c-85de-13d68c7fc46f Ancestors: Kernel-ct.1338 Implement missing simulation of objects as methods. In the past, it was not possible to debug/simulate code that used objects as methods properly. (Thanks to Marcel for the hint!) This very simple commit adds support of the OaM protocol [1] to the simulation machinery. Now you can debug all tests in TestObjectsAsMethods as you would expect, instead of crashing your image! Update: Uploaded again, this time with additional documentation comment, reformatted code, and multilingual support/fix of typös. Replaces Kernel-ct.1306, which can be moved to the treated inbox. [1] "The [Objects as Methods] contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.". DOI: 10.1145/2991041.2991062. =============== Diff against Kernel-ct.1338 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass + "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." - "Simulate the action of sending a message with selector and arguments - to rcvr. The argument, lookupClass, is the class in which to lookup the - message. This is the receiver's class for normal messages, but for super - messages it will be some specific class related to the source method." | meth primIndex val ctxt | + (meth := lookupClass lookupSelector: selector) ifNil: [ + ^ self + send: #doesNotUnderstand: + to: rcvr + with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} + lookupIn: lookupClass]. + + meth isCompiledMethod ifFalse: [ + "Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." + ^ self send: #run:with:in: + to: meth + with: {selector. arguments. rcvr}]. + + meth numArgs ~= arguments size ifTrue: [ + ^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. + (primIndex := meth primitive) > 0 ifTrue: [ + val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. + (self isPrimFailToken: val) ifFalse: [^ val]]. + + (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: [ + ^ self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. + - (meth := lookupClass lookupSelector: selector) ifNil: - [^self send: #doesNotUnderstand: - to: rcvr - with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} - lookupIn: lookupClass]. - meth numArgs ~= arguments size ifTrue: - [^self error: 'Wrong number of arguments in simulated message ', selector printString]. - (primIndex := meth primitive) > 0 ifTrue: - [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. - (self isPrimFailToken: val) ifFalse: - [^val]]. - (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: - [^self error: 'Simulated message ', arguments first selector, ' not understood']. ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. + (primIndex notNil and: [primIndex > 0]) ifTrue: [ + ctxt failPrimitiveWith: val]. + + ^ ctxt! - primIndex > 0 ifTrue: - [ctxt failPrimitiveWith: val]. - ^ctxt!

1 0

The Trunk: Kernel-ct.1358.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1358.mcz ==================== Summary ==================== Name: Kernel-ct.1358 Author: ct Time: 28 October 2020, 11:37:24.817544 pm UUID: c9af6acb-61cf-af42-b5fa-3afa8451bb24 Ancestors: Kernel-mt.1353 Fixes a simulation bug that occurs when executing ProtoObject >> #doesNotUnderstand:. See KernelTests-ct.388. =============== Diff against Kernel-mt.1353 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: + [selector == #doesNotUnderstand: ifTrue: + [self error: ('Simulated message {1} not understood' translated format: {selector})]. + ^self send: #doesNotUnderstand: - [^self send: #doesNotUnderstand: to: rcvr with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} lookupIn: lookupClass]. meth numArgs ~= arguments size ifTrue: [^self error: 'Wrong number of arguments in simulated message ', selector printString]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. (self isPrimFailToken: val) ifFalse: [^val]]. - (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: - [^self error: 'Simulated message ', arguments first selector, ' not understood']. ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. primIndex > 0 ifTrue: [ctxt failPrimitiveWith: val]. ^ctxt!

1 0

The Trunk: Kernel-ct.1425.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1425.mcz ==================== Summary ==================== Name: Kernel-ct.1425 Author: ct Time: 25 November 2021, 12:09:56.072633 pm UUID: 79791158-a822-1642-ade5-514751d0a407 Ancestors: Kernel-ct.1358, Kernel-mt.1424 Fixes simulation of sending #doesNotUnderstand:. See ContextTest >> #testRecursiveMessageNotUnderstood (KernelTests-ct.410). This revises the implementation from Kernel-eem.1359 which still caused a superfluous simulator error even before #doesNotUnderstand: could arrive at ProtoObject. Also, we now do not hard-code #ProtoObject any longer in the simulator. Merges Kernel-ct.1358. =============== Diff against Kernel-mt.1424 =============== Item was changed: ----- Method: Context>>send:to:with:lookupIn: (in category 'controlling') ----- send: selector to: rcvr with: arguments lookupIn: lookupClass "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: [selector == #doesNotUnderstand: ifTrue: [self error: 'Recursive message not understood!!' translated]. ^self send: #doesNotUnderstand: to: rcvr with: {(Message selector: selector arguments: arguments) lookupClass: lookupClass} lookupIn: lookupClass]. meth isCompiledMethod ifFalse: ["Object as Methods (OaM) protocol: 'The contract is that, when the VM encounters an ordinary object (rather than a compiled method) in the method dictionary during lookup, it sends it the special selector #run:with:in: providing the original selector, arguments, and receiver.'. DOI: 10.1145/2991041.2991062." ^self send: #run:with:in: to: meth with: {selector. arguments. rcvr}]. meth numArgs = arguments size ifFalse: [^ self error: ('Wrong number of arguments in simulated message {1}' translated format: {selector})]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. (self isPrimFailToken: val) ifFalse: [^val]]. - (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: - [^self error: ('Simulated message {1} not understood' translated format: {arguments first selector})]. - ctxt := Context sender: self receiver: rcvr method: meth arguments: arguments. (primIndex isInteger and: [primIndex > 0]) ifTrue: [ctxt failPrimitiveWith: val]. ^ctxt!

1 0

The Trunk: KernelTests-ct.388.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.388.mcz ==================== Summary ==================== Name: KernelTests-ct.388 Author: ct Time: 28 October 2020, 11:36:38.237544 pm UUID: c611de6b-f83d-ac45-a83f-00082a8311b4 Ancestors: KernelTests-ul.386 Adds test for a simulation bug that occurs while executing ProtoObject >> #doesNotUnderstand:. =============== Diff against KernelTests-ul.386 =============== Item was added: + ----- Method: MethodContextTest>>testProtoObjectDoesNotUnderstand (in category 'tests') ----- + testProtoObjectDoesNotUnderstand + + self assert: + [Context runSimulated: + [self + executeShould: [Compiler evaluate: 'super foo' for: Object new] + inScopeOf: MessageNotUnderstood]].!

1 0

The Trunk: KernelTests-ct.410.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.410.mcz ==================== Summary ==================== Name: KernelTests-ct.410 Author: ct Time: 25 November 2021, 11:57:10.610633 am UUID: 38dd07bd-928a-a24f-b3d3-eab992734a0a Ancestors: KernelTests-mt.408, KernelTests-ct.388 Merges and revises KernelTests-ct.388 (simulator tests for #doesNotUnderstand:). =============== Diff against KernelTests-mt.408 =============== Item was added: + ----- Method: ContextTest>>testMessageNotUnderstood (in category 'tests') ----- + testMessageNotUnderstood + + "A simulation error (recursive message not understood) occurs that cannot be handled by the simulated code" + self + should: + [Context runSimulated: + [[TestEmptyClass new foo] + on: Error do: [:ex | ex]]] + raise: Error. + + "The simulator sends #doesNotUnderstand: to the receiver even if the lookup class has no superclass." + self assert: + [Context runSimulated: + [self + executeShould: [ProtoObject new foo] + inScopeOf: MessageNotUnderstood]]. + self assert: + [Context runSimulated: + [self + executeShould: [Compiler evaluate: 'super foo' for: Object new] + inScopeOf: MessageNotUnderstood]].! Item was added: + nil subclass: #TestEmptyClass + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Methods'! + + !TestEmptyClass commentStamp: 'ct 11/25/2021 11:49' prior: 0! + I do not even understand #doesNotUnderstand:!! Sending any non-inlined message to me should crash the executor.!

1 0

The Trunk: Morphic-mt.1801.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1801.mcz ==================== Summary ==================== Name: Morphic-mt.1801 Author: mt Time: 25 November 2021, 11:51:27.763354 am UUID: feacc293-41b9-5940-8615-d5bf4ce5a91a Ancestors: Morphic-mt.1800 Complements Tools-mt.1075 =============== Diff against Morphic-mt.1800 =============== Item was changed: ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile + "Save the receiver's contents string to a file, which usually prompts the user for a file name." - "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." + self paragraph text string + ifEmpty: [self inform: 'Nothing to save.'] + ifNotEmpty: [:stringToSave | + (self model saveContents: stringToSave accessMode: #create) + ifTrue: [ + self flag: #discuss. "mt: Is this correct? Having unaccepted contents means that the model does not know about it. Do we assume that the model will also keep track of the stringToSave?" + self morph hasUnacceptedEdits: false]].! - | stringToSave parentWindow labelToUse suggestedName fileName | - (stringToSave := paragraph text string) isEmpty ifTrue: - [^self inform: 'nothing to save.']. - parentWindow := model dependents - detect: [:dep | dep isSystemWindow] - ifNone: [self error: 'could not find parent window']. - labelToUse := (parentWindow valueOfProperty: #myDir) - ifNil: [parentWindow label] - ifNotNil: [:dir| dir fullNameFor: parentWindow label]. - suggestedName := nil. - "can add more here..." - #(('Decompressed contents of: ' '.gz')) do: - [:pair | - [:leader :trailer| - (labelToUse beginsWith: leader) ifTrue: - [suggestedName := labelToUse allButFirst: leader size. - (labelToUse endsWith: trailer) - ifTrue: - [suggestedName := suggestedName allButLast: trailer size] - ifFalse: - [| lastIndex | - lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. - lastIndex > 1 ifTrue: - [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]] - valueWithArguments: pair]. - suggestedName ifNil: - [suggestedName := (labelToUse includes: $.) - ifTrue: [labelToUse] - ifFalse: [labelToUse, '.text']]. - fileName := UIManager default request: 'File name?' initialAnswer: suggestedName. - fileName isEmptyOrNil ifTrue: [^self]. - ((MultiByteFileStream newFileNamed: fileName) - lineEndConvention: (parentWindow valueOfProperty: #lineConversion); "nil is fine here..." - nextPutAll: stringToSave; - close; - directory) ifNotNil: - [:dir| - dir = FileDirectory default - ifTrue: [parentWindow removeProperty: #myDir] - ifFalse: [parentWindow setProperty: #myDir toValue: dir]. - fileName := dir localNameFor: fileName]. - suggestedName ~= fileName ifTrue: - [parentWindow label: ((fileName endsWith: '.text') ifTrue: [fileName allButLast: 5] ifFalse: [fileName])]. - self morph hasUnacceptedEdits: false!

1 0

The Trunk: Collections-mt.962.mcz
by commits＠source.squeak.org 25 Nov '21

25 Nov '21

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.962.mcz ==================== Summary ==================== Name: Collections-mt.962 Author: mt Time: 25 November 2021, 11:50:55.017354 am UUID: 3826da22-e39d-2a4a-ada1-95f8f67c85fd Ancestors: Collections-pre.961 Tools-mt.1075 =============== Diff against Collections-pre.961 =============== Item was added: + ----- Method: TranscriptStream>>saveContents:accessMode: (in category 'model protocol') ----- + saveContents: stringContents accessMode: accessMode + "Interactive callback from TextEditor. See commentary in Model class." + + ^ (Project uiManager + saveFilenameRequest: 'Save text contents in file...' + initialAnswer: 'Transcript.text') + ifEmpty: [false] + ifNotEmpty: [:fileName | + Model new + saveContents: stringContents + onFileNamed: fileName + accessMode: accessMode].!

1 0

← Newer
1
2
3
4
5
6
7
8
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021