Packages August 2020

packages@lists.squeakfoundation.org

1 participants
22 discussions

The Trunk: Graphics-kfr.436.mcz
by commits＠source.squeak.org 22 Aug '20

22 Aug '20

Karl Ramberg uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.436.mcz ==================== Summary ==================== Name: Graphics-kfr.436 Author: kfr Time: 22 August 2020, 11:47:40.557622 am UUID: 50875d76-6a37-3c49-a0b7-97d9186fb2d6 Ancestors: Graphics-mt.433 I wanted to subclass Rectangle with a instance variable to carry some state, but these methodes indirected to Point>>corner: so it broke the override and returned a ordinary Rectangle instead of my fancy new subclass SuperRectangle Updated to use #first to get the first element and #allButFirstDo: to iterate over the rest. (Suggested by Levente Uzonyi) =============== Diff against Graphics-mt.433 =============== Item was changed: ----- Method: Rectangle class>>encompassing: (in category 'instance creation') ----- encompassing: listOfPoints "A number of callers of encompass: should use this method." | topLeft bottomRight | + topLeft := bottomRight := listOfPoints first. + listOfPoints allButFirstDo: + [:p |topLeft := topLeft min: p. + bottomRight := bottomRight max: p]. + ^self origin: topLeft corner: bottomRight + ! - topLeft := bottomRight := nil. - listOfPoints do: - [:p | topLeft == nil - ifTrue: [topLeft := bottomRight := p] - ifFalse: [topLeft := topLeft min: p. - bottomRight := bottomRight max: p]]. - ^ topLeft corner: bottomRight! Item was changed: ----- Method: Rectangle class>>merging: (in category 'instance creation') ----- merging: listOfRects "A number of callers of merge: should use this method." + | bottomRight topLeft | + topLeft := listOfRects first topLeft. + bottomRight := listOfRects first bottomRight. - | minX minY maxX maxY | listOfRects + allButFirstDo: [:r | topLeft := topLeft min: r topLeft. + bottomRight := bottomRight max: r bottomRight]. + ^self origin: topLeft corner: bottomRight. + ! - do: [:r | minX - ifNil: [minX := r topLeft x. minY := r topLeft y. - maxX := r bottomRight x. maxY := r bottomRight y] - ifNotNil: [minX := minX min: r topLeft x. minY := minY min: r topLeft y. - maxX := maxX max: r bottomRight x. maxY := maxY max: r bottomRight y]]. - ^ minX@minY corner: maxX@maxY!

1 0

The Trunk: Network-eem.241.mcz
by commits＠source.squeak.org 20 Aug '20

20 Aug '20

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.241.mcz ==================== Summary ==================== Name: Network-eem.241 Author: eem Time: 20 August 2020, 11:39:42.945514 am UUID: ec190e68-dd59-42c7-9b6a-5afd53adc703 Ancestors: Network-dtl.240 Add a primitive error code to primSocketReceiveDataAvailable:/primitiveSocketReceiveDataAvailable to attempt to shed light on persistent primitive failures when runing unit tests on MacOS. =============== Diff against Network-dtl.240 =============== Item was changed: ----- Method: Socket>>primSocketReceiveDataAvailable: (in category 'primitives') ----- primSocketReceiveDataAvailable: socketID + "Answer if data may be available for reading from the current socket." - "Return true if data may be available for reading from the current socket." + <primitive: 'primitiveSocketReceiveDataAvailable' module: 'SocketPlugin' error: ec> - <primitive: 'primitiveSocketReceiveDataAvailable' module: 'SocketPlugin'> self primitiveFailed !

1 0

The Trunk: Tests-pre.436.mcz
by commits＠source.squeak.org 20 Aug '20

20 Aug '20

Patrick Rein uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-pre.436.mcz ==================== Summary ==================== Name: Tests-pre.436 Author: pre Time: 20 August 2020, 10:20:39.808828 am UUID: 19d0bec2-5710-1a42-9dda-8bb0cadbf1b0 Ancestors: Tests-mt.435 Adds regression tests for a parser issue with pragma parsing matching a string or symbol literal with an angle bracket as an opening pragma bracket and correspondingly a closing string or symbol literal as a closing pragma. =============== Diff against Tests-mt.435 =============== Item was added: + TestCase subclass: #ParserTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Compiler'! Item was added: + ----- Method: ParserTest>>testRegressionPragmasParsing (in category 'tests - pragmas') ----- + testRegressionPragmasParsing + + self + shouldnt: [Parser new + parse: 'methodHeader + <first>' + class: ParserTest] + raise: SyntaxErrorNotification! Item was added: + ----- Method: ParserTest>>testRegressionPragmasParsingClosingToken (in category 'tests - pragmas') ----- + testRegressionPragmasParsingClosingToken + + self + should: [Parser new + parse: 'methodHeader + <first''>''' + class: ParserTest] + raise: SyntaxErrorNotification! Item was added: + ----- Method: ParserTest>>testRegressionPragmasParsingIsTooPossessive (in category 'tests - pragmas') ----- + testRegressionPragmasParsingIsTooPossessive + "The parser might interpret angle bracket literals as opening pragmas" + + self + shouldnt: [Parser new + parse: 'methodHeader + ''<'' asciiValue' + class: ParserTest] + raise: SyntaxErrorNotification. + + self + shouldnt: [Parser new + parse: 'methodHeader + #< asciiValue' + class: ParserTest] + raise: SyntaxErrorNotification. + + self + shouldnt: [Parser new + parse: 'methodHeader + $< asciiValue' + class: ParserTest] + raise: SyntaxErrorNotification!

1 0

The Trunk: Compiler-pre.441.mcz
by commits＠source.squeak.org 20 Aug '20

20 Aug '20

Patrick Rein uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-pre.441.mcz ==================== Summary ==================== Name: Compiler-pre.441 Author: pre Time: 20 August 2020, 10:19:13.607828 am UUID: 25de8b68-cea6-db46-9d6a-f400bd5f8b82 Ancestors: Compiler-eem.440 Fixes an issue with pragma parsing matching a string or symbol literal with an angle bracket as an opening pragma bracket and correspondingly a closing string or symbol literal as a closing pragma. =============== Diff against Compiler-eem.440 =============== Item was changed: ----- Method: Parser>>pragmaSequence (in category 'pragmas') ----- pragmaSequence "Parse a sequence of method pragmas." + [ (hereType == #binary and: [self matchToken: #<]) - [ - (self matchToken: #<) ifFalse: [ ^ self ]. self pragmaStatement. + (hereType == #binary and: [self matchToken: #>]) - (self matchToken: #>) ifFalse: [ ^ self expected: '>' ] ] repeat!

1 0

The Trunk: Kernel-dtl.1336.mcz
by commits＠source.squeak.org 19 Aug '20

19 Aug '20

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1336.mcz ==================== Summary ==================== Name: Kernel-dtl.1336 Author: dtl Time: 19 August 2020, 2:41:12.037984 pm UUID: 1a934e94-87e5-4af3-b6c7-0d1caa848121 Ancestors: Kernel-eem.1335 Remove obsolete Classbuilder>>format:variable:words:pointers:weak: which was replaced by Classbuilder>>format:variable:bitsUnitSize:pointers:weak: a few years ago. This is effectively a private method and does not require deprecation. =============== Diff against Kernel-eem.1335 =============== Item was removed: - ----- Method: ClassBuilder>>format:variable:words:pointers:weak: (in category 'class format') ----- - format: nInstVars variable: isVar words: is32BitWords pointers: isPointers weak: isWeak - "Compute the format for the given instance specfication. - Above Cog Spur the class format is - <5 bits inst spec><16 bits inst size> - where the 5-bit inst spec is - 0 = 0 sized objects (UndefinedObject True False et al) - 1 = non-indexable objects with inst vars (Point et al) - 2 = indexable objects with no inst vars (Array et al) - 3 = indexable objects with inst vars (Context BlockClosure AdditionalMethodState et al) - 4 = weak indexable objects with inst vars (WeakArray et al) - 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) - 6 = unused - 7 = immediates (SmallInteger, Character) - 8 = unused - 9 = reserved for 64-bit indexable - 10-11 = 32-bit indexable (Bitmap) - 12-15 = 16-bit indexable - 16-23 = 8-bit indexable - 24-31 = compiled methods (CompiledMethod)" - | instSpec | - instSpec := isWeak - ifTrue: - [isVar - ifTrue: [4] - ifFalse: [5]] - ifFalse: - [isPointers - ifTrue: - [isVar - ifTrue: [nInstVars > 0 ifTrue: [3] ifFalse: [2]] - ifFalse: [nInstVars > 0 ifTrue: [1] ifFalse: [0]]] - ifFalse: - [isVar - ifTrue: [is32BitWords ifTrue: [10] ifFalse: [16]] - ifFalse: [7]]]. - ^(instSpec bitShift: 16) + nInstVars!

1 0

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

17 Aug '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1169.mcz ==================== Summary ==================== Name: System-mt.1169 Author: mt Time: 17 August 2020, 12:54:05.667289 pm UUID: dfd26c6f-79f7-f146-95c1-78751d5f8f13 Ancestors: System-eem.1168 Clarify implementation of method timestamps. Note that #hhmm24 cannot be used here, because it has no colon separator. =============== Diff against System-eem.1168 =============== Item was changed: ----- Method: Utilities class>>changeStamp (in category 'identification') ----- changeStamp "Answer a string to be pasted into source code to mark who changed it and when." ^ self authorInitials , ' ' , Date today mmddyyyy, ' ', + (String streamContents: [:s | Time now print24: true showSeconds: false on: s])! - ((String streamContents: [:s | Time now print24: true on: s]) copyFrom: 1 to: 5)!

1 0

The Trunk: Morphic-mt.1674.mcz
by commits＠source.squeak.org 14 Aug '20

14 Aug '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1674.mcz ==================== Summary ==================== Name: Morphic-mt.1674 Author: mt Time: 14 August 2020, 1:35:28.120535 pm UUID: 9b6b3a33-4993-437b-b180-606d9be16223 Ancestors: Morphic-mt.1673 Fixes test12CustomEventDispatcher as reported: - https://smalltalk.tech.blog/2020/08/10/smalltalks-successor/ - http://forum.world.st/A-Sad-Day-tp5120519.html This also increases the robustess when loading code that overrides #processEvent: or #processEvent:using: without returning an event object but self. =============== Diff against Morphic-mt.1673 =============== Item was changed: ----- Method: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: (in category 'support') ----- dispatchEvent: anEvent toSubmorphsOf: aMorph "Dispatch the given event to the submorphs of the given morph. For coordinate transformations, work only with copies. Either return the given event or a copy of any filtered event to employ immutability to some extent. --- PRIVATE!!" | localEvent filteredEvent | aMorph submorphsDo: [:child | localEvent := anEvent transformedBy: (child transformedFrom: aMorph). + filteredEvent := child processEvent: localEvent. + filteredEvent == #rejected ifFalse: [ "some event or #rejected symbol or any other object" + filteredEvent isMorphicEvent ifFalse: [filteredEvent := localEvent]. - filteredEvent := child - processEvent: localEvent - using: self. "use same dispatcher" - filteredEvent == #rejected ifFalse: [ "some event or #rejected symbol" self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" ^ self nextFromOriginal: anEvent local: localEvent filtered: filteredEvent]]. ^ #rejected!

1 0

The Trunk: MorphicTests-mt.64.mcz
by commits＠source.squeak.org 14 Aug '20

14 Aug '20

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.64.mcz ==================== Summary ==================== Name: MorphicTests-mt.64 Author: mt Time: 14 August 2020, 1:26:13.995535 pm UUID: b4766a80-6197-4c67-bbdf-063e0bbb2d23 Ancestors: MorphicTests-nice.63 Adds test about custom Morphic event dispatcher. =============== Diff against MorphicTests-nice.63 =============== Item was changed: Morph subclass: #MorphForEventTests + instanceVariableNames: 'eventsDuringCapture eventsDuringBubble eventsRejected eventsFiltered handlesMouseDown keyStrokesReceived fullFocusDispatch eventDispatcher' - instanceVariableNames: 'eventsDuringCapture eventsDuringBubble eventsRejected eventsFiltered handlesMouseDown keyStrokesReceived fullFocusDispatch' classVariableNames: '' poolDictionaries: '' category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphForEventTests>>defaultEventDispatcher (in category 'events-processing') ----- + defaultEventDispatcher + + ^ self eventDispatcher ifNil: [super defaultEventDispatcher]! Item was added: + ----- Method: MorphForEventTests>>eventDispatcher (in category 'accessing') ----- + eventDispatcher + + ^ eventDispatcher! Item was added: + ----- Method: MorphForEventTests>>eventDispatcher: (in category 'accessing') ----- + eventDispatcher: anEventDispatcher + + eventDispatcher := anEventDispatcher.! Item was added: + MorphicEventDispatcher subclass: #MorphicEventDispatcherForEventTests + instanceVariableNames: 'eventsSeen morphsSeen' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Events'! Item was added: + ----- Method: MorphicEventDispatcherForEventTests>>dispatchEvent:with: (in category 'dispatching') ----- + dispatchEvent: anEvent with: aMorph + + self eventsSeen add: anEvent copy. + self morphsSeen add: aMorph. + ^ super dispatchEvent: anEvent with: aMorph! Item was added: + ----- Method: MorphicEventDispatcherForEventTests>>eventsSeen (in category 'accessing') ----- + eventsSeen + + ^ eventsSeen ifNil: [eventsSeen := OrderedCollection new]! Item was added: + ----- Method: MorphicEventDispatcherForEventTests>>morphsSeen (in category 'accessing') ----- + morphsSeen + + ^ morphsSeen ifNil: [morphsSeen := OrderedCollection new]! Item was added: + ----- Method: MorphicEventDispatcherTests>>test12CustomEventDispatcher (in category 'tests') ----- + test12CustomEventDispatcher + "Each morph can choose to use a custom event dispatcher." + + | m1 m2 | + m1 := MorphForEventTests new. + m1 eventDispatcher: MorphicEventDispatcherForEventTests new. + + m2 := MorphForEventTests new. + m2 eventDispatcher: MorphicEventDispatcherForEventTests new. + + m2 bounds: m1 bounds. + m1 addMorph: m2. "full overlap" + + m1 openInWorld: world. + + self deny: (m1 eventDispatcher eventsSeen anySatisfy: [:ea | ea isMouseDown]). + self deny: (m2 eventDispatcher eventsSeen anySatisfy: [:ea | ea isMouseDown]). + + hand handleEvent: (self redMouseDownAt: m2 center). + + self assert: (m1 eventDispatcher eventsSeen anySatisfy: [:ea | ea isMouseDown]). + self assert: (m2 eventDispatcher eventsSeen anySatisfy: [:ea | ea isMouseDown]).!

1 0

The Trunk: Collections-eem.907.mcz
by commits＠source.squeak.org 06 Aug '20

06 Aug '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.907.mcz ==================== Summary ==================== Name: Collections-eem.907 Author: eem Time: 6 August 2020, 12:51:46.481296 pm UUID: 4ea594f7-b7bf-4d48-9e7e-2e7cb3af5e70 Ancestors: Collections-mt.906 2.7x faster ByteArray>>readHexFrom: =============== Diff against Collections-mt.906 =============== Item was changed: ----- Method: ByteArray>>readHexFrom: (in category 'initialize') ----- readHexFrom: aStream "Initialize the receiver from a hexadecimal string representation" + + 1 to: self size do: + [:i| | n v1 v2 | + n := aStream next asInteger. + v1 := n > 57 "$9 asInteger = 57" + ifTrue: + [n > 96 "$a asInteger 97" + ifTrue: [n - 87] + ifFalse: [n > 64 "$A asInteger = 65" + ifTrue: [n - 55] + ifFalse: [-1]]] + ifFalse: [n - 48]. "$0 asInteger = 48" + (v1 between: 0 and: 15) ifFalse: [^self error: 'Hex digit expected']. + n := aStream next asInteger. + v2 := n > 57 "$9 asInteger = 57" + ifTrue: + [n > 96 "$a asInteger 97" + ifTrue: [n - 87] + ifFalse: [n > 64 "$A asInteger = 65" + ifTrue: [n - 55] + ifFalse: [-1]]] + ifFalse: [n - 48]. "$0 asInteger = 48" + (v2 between: 0 and: 15) ifFalse: [^self error: 'Hex digit expected']. + self at: i put: (v1 bitShift: 4) + v2] + + "Proof that our filter selects only hexadecimal characters: + (0 to: 255) + select: + [:n| + (n > 57 + ifTrue: + [n > 96 + ifTrue: [n - 87] + ifFalse: [n > 64 + ifTrue: [n - 55] + ifFalse: [-1]]] + ifFalse: [n - 48]) between: 0 and: 15] + thenCollect: + [:n| Character value: n]"! - | map v ch value | - map := '0123456789abcdefABCDEF'. - 1 to: self size do:[:i| - ch := aStream next. - v := (map indexOf: ch) - 1. - ((v between: 0 and: 15) or: [((v:= v - 6) between: 0 and: 15)]) ifFalse:[^self error: 'Hex digit expected']. - value := v bitShift: 4. - ch := aStream next. - v := (map indexOf: ch) - 1. - ((v between: 0 and: 15) or: [((v:= v - 6) between: 0 and: 15)]) ifFalse:[^self error: 'Hex digit expected']. - value := value + v. - self at: i put: value. - ]. - !

1 0

The Trunk: Collections-mt.906.mcz
by commits＠source.squeak.org 06 Aug '20

06 Aug '20

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.906.mcz ==================== Summary ==================== Name: Collections-mt.906 Author: mt Time: 6 August 2020, 10:09:38.701052 am UUID: 97d0d39c-6fe1-914b-bb0b-6a1b9a2b9715 Ancestors: Collections-eem.905 Adds shortcuts for remove/replace text attributes using a predicate. =============== Diff against Collections-eem.905 =============== Item was added: + ----- Method: Text>>removeAttributesThat: (in category 'converting') ----- + removeAttributesThat: removalBlock + "Enumerate all attributes in the receiver. Remove those passing removalBlock." + + self + removeAttributesThat: removalBlock + replaceAttributesThat: [:att | false] + by: nil.! Item was added: + ----- Method: Text>>replaceAttributesThat:by: (in category 'converting') ----- + replaceAttributesThat: replaceBlock by: convertBlock + "Enumerate all attributes in the receiver. Replace those passing replaceBlock after converting it through convertBlock." + + self + removeAttributesThat: [:att | false] + replaceAttributesThat: replaceBlock + by: convertBlock.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2020