Packages October 2023

packages@lists.squeakfoundation.org

1 participants
116 discussions

The Trunk: Network-ul.282.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.282.mcz ==================== Summary ==================== Name: Network-ul.282 Author: ul Time: 7 October 2023, 10:35:23.429297 am UUID: dab39326-1905-4c14-ba14-e93f40747ff1 Ancestors: Network-tpr.281 Ensure that the newly acquired external semaphores are unregistered if the argument block of Socket>>initializeSocketHandleUsing: raises an error. =============== Diff against Network-tpr.281 =============== Item was changed: ----- Method: Socket>>initializeSocketHandleUsing: (in category 'initialize-destroy') ----- initializeSocketHandleUsing: aBlock "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." | semaphoresAndIndexes semaphores indexes | semaphoresAndIndexes := Smalltalk newExternalSemaphores: 3. semaphores := semaphoresAndIndexes at: 1. indexes := semaphoresAndIndexes at: 2. semaphore := semaphores at: 1. readSemaphore := semaphores at: 2. writeSemaphore := semaphores at: 3. + [ + socketHandle := aBlock valueWithArguments: indexes. + self register ] + ensure: [ + socketHandle ifNil: [ "socket creation failed" + semaphore := readSemaphore := writeSemaphore := nil. + Smalltalk unregisterExternalObjects: semaphores ] ]! - (socketHandle := aBlock valueWithArguments: indexes) - ifNotNil: [ self register ] - ifNil: [ - "socket creation failed" - semaphore := readSemaphore := writeSemaphore := nil. - Smalltalk unregisterExternalObjects: semaphores ]!

1 0

The Trunk: Collections-ul.1053.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.1053.mcz ==================== Summary ==================== Name: Collections-ul.1053 Author: ul Time: 7 October 2023, 10:26:41.0275 am UUID: 4eddffe9-ef92-4f02-bc1f-9dc9178f1fd2 Ancestors: Collections-eem.1052 - properly deprecate SequenceableCollection>>copyWithoutFirst - make sort functions copyable (copy their hierachy as well) =============== Diff against Collections-eem.1052 =============== Item was added: + ----- Method: ChainedSortFunction>>postCopy (in category 'as yet unclassified') ----- + postCopy + + super postCopy. + nextFunction := nextFunction copy! Item was added: + ----- Method: ComposedSortFunction>>postCopy (in category 'as yet unclassified') ----- + postCopy + + super postCopy. + baseSortFunction := baseSortFunction copy! Item was removed: - ----- Method: SequenceableCollection>>copyWithoutFirst (in category 'copying') ----- - copyWithoutFirst - "Deprecatd. Return a copy of the receiver which doesn't include - the first element." - - ^ self allButFirst!

1 0

The Trunk: 61Deprecated-ul.9.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-ul.9.mcz ==================== Summary ==================== Name: 61Deprecated-ul.9 Author: ul Time: 7 October 2023, 10:24:59.594858 am UUID: 3c66b9d7-8caa-4690-9b66-641a5eef3c84 Ancestors: 61Deprecated-dtl.8 Properly deprecate SequenceableCollection>>copyWithoutFirst. =============== Diff against 61Deprecated-dtl.8 =============== Item was added: + ----- Method: SequenceableCollection>>copyWithoutFirst (in category '*61Deprecated-Collections') ----- + copyWithoutFirst + "Return a copy of the receiver which doesn't include the first element." + + self deprecated: 'Use allButFirst'. + ^ self allButFirst!

1 0

The Trunk: CollectionsTests-ul.401.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.401.mcz ==================== Summary ==================== Name: CollectionsTests-ul.401 Author: ul Time: 7 October 2023, 10:20:53.836488 am UUID: c18f6621-cbdb-497a-a0d2-2e0e351f7cc4 Ancestors: CollectionsTests-mt.400 Use #allButFirst instead of #copyWithoutFirst. =============== Diff against CollectionsTests-mt.400 =============== Item was changed: ----- Method: LinkedListTest>>firstIndexesOf:in: (in category 'tests - copying with replacement') ----- firstIndexesOf: aSubCollection in: collection " return an OrderedCollection with the first indexes of the occurrences of subCollection in collection " | tmp result currentIndex | tmp:= collection. result:= OrderedCollection new. currentIndex := 1. [tmp isEmpty ]whileFalse: [ (tmp beginsWith: aSubCollection) ifTrue: [ result add: currentIndex. 1 to: aSubCollection size do: [:i | + tmp := tmp allButFirst. - tmp := tmp copyWithoutFirst. currentIndex := currentIndex + 1] ] ifFalse: [ + tmp := tmp allButFirst. - tmp := tmp copyWithoutFirst. currentIndex := currentIndex +1. ] ]. ^ result. ! Item was changed: ----- Method: LinkedListTest>>howMany:in: (in category 'tests - fixture') ----- howMany: aSubCollection in: collection " return an integer representing how many time 'subCollection' appears in 'collection' " | tmp nTime | tmp := collection. nTime:= 0. [tmp isEmpty ]whileFalse: [ (tmp beginsWith: aSubCollection) ifTrue: [ nTime := nTime + 1. + 1 to: aSubCollection size do: [:i | tmp := tmp allButFirst.] - 1 to: aSubCollection size do: [:i | tmp := tmp copyWithoutFirst.] ] + ifFalse: [tmp := tmp allButFirst.] - ifFalse: [tmp := tmp copyWithoutFirst.] ]. ^ nTime. ! Item was changed: ----- Method: LinkedListTest>>testAllButFirst (in category 'tests - subcollections access') ----- testAllButFirst "self debug: #testAllButFirst" + | abf col | col := self moreThan3Elements. abf := col allButFirst. self deny: abf first = col first. + self assert: abf size + 1 = col size. + 1 to: abf size do: [ :i | + self assert: (abf at: i) = (col at: i + 1) ]! - self assert: abf size + 1 = col size! Item was removed: - ----- Method: LinkedListTest>>testCopyWithoutFirst (in category 'tests - copying with or without') ----- - testCopyWithoutFirst - - | result | - result := self nonEmpty copyWithoutFirst. - - self assert: result size = (self nonEmpty size - 1). - - 1 to: result size do: - [:i | - self assert: (result at: i)= (self nonEmpty at: (i + 1))].! Item was changed: ----- Method: LinkedListTest>>testsEndsWith (in category 'tests - begins ends with') ----- testsEndsWith + self assert: (self nonEmpty endsWith: self nonEmpty allButFirst). - self assert: (self nonEmpty endsWith: self nonEmpty copyWithoutFirst). self assert: (self nonEmpty endsWith: self nonEmpty). self deny: (self nonEmpty endsWith: (self nonEmpty copyWith: self nonEmpty first)).!

1 0

The Trunk: Files-ul.206.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.206.mcz ==================== Summary ==================== Name: Files-ul.206 Author: ul Time: 7 October 2023, 10:14:37.49644 am UUID: 3ca897b4-8216-419c-b2be-6ff628652a9e Ancestors: Files-mt.205 Use #allButFirst instead of #copyWithoutFirst. =============== Diff against Files-mt.205 =============== Item was changed: ----- Method: FileDirectory class>>makeRelative: (in category 'platform specific') ----- makeRelative: path "Ensure that path looks like an relative path" ^path first = self pathNameDelimiter + ifTrue: [ path allButFirst ] - ifTrue: [ path copyWithoutFirst ] ifFalse: [ path ]! Item was changed: ----- Method: MacFileDirectory class>>makeAbsolute: (in category 'platform specific') ----- makeAbsolute: path "Ensure that path looks like an absolute path" | absolutePath | (self isAbsolute: path) ifTrue: [ ^path ]. "If a path begins with a colon, it is relative." absolutePath := (path first = $:) + ifTrue: [ path allButFirst ] - ifTrue: [ path copyWithoutFirst ] ifFalse: [ path ]. (self isAbsolute: absolutePath) ifTrue: [ ^absolutePath ]. "Otherwise, if it contains a colon anywhere, it is absolute and the first component is the volume name." ^absolutePath, ':'!

1 0

The Trunk: Installer-Core-ul.454.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.454.mcz ==================== Summary ==================== Name: Installer-Core-ul.454 Author: ul Time: 7 October 2023, 10:14:05.797397 am UUID: a09d594d-266c-4575-b81f-ce88d0eb2779 Ancestors: Installer-Core-ct.453 Use #allButFirst instead of #copyWithoutFirst. =============== Diff against Installer-Core-ct.453 =============== Item was changed: ----- Method: InstallerMantis>>maFiles (in category 'mantis') ----- maFiles | file files bugPage id | files := Dictionary new. bugPage := self maPage. [ id := bugPage upToAll: 'href="file_download.php?file_id='; upTo: $&. file := bugPage upToAll: 'amp;type=bug"' ; upTo: $<. + ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file allButFirst put: id ]. - ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file copyWithoutFirst put: id ]. id notEmpty ] whileTrue. ^files !

1 0

The Trunk: PreferenceBrowser-ul.158.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ul.158.mcz ==================== Summary ==================== Name: PreferenceBrowser-ul.158 Author: ul Time: 7 October 2023, 10:13:39.956188 am UUID: 0b7046af-cbb0-43db-9fd9-f20f58898033 Ancestors: PreferenceBrowser-mt.157 Use #allButFirst instead of #copyWithoutFirst. =============== Diff against PreferenceBrowser-mt.157 =============== Item was changed: ----- Method: PBPreferenceButtonMorph>>removeExtraControls (in category 'extra controls') ----- removeExtraControls + self submorphs allButFirst do: [:ea | ea delete]! - self submorphs copyWithoutFirst do: [:ea | ea delete]!

1 0

The Trunk: Traits-ul.314.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-ul.314.mcz ==================== Summary ==================== Name: Traits-ul.314 Author: ul Time: 7 October 2023, 10:10:32.815801 am UUID: 96584240-d311-4b11-b124-d11cb42936e7 Ancestors: Traits-eem.313 In SequenceableCollection>>asTraitComposition, use #reduce: instead of a combination of #copyWithoutFirst, #first and #inject:into:. =============== Diff against Traits-eem.313 =============== Item was changed: ----- Method: SequenceableCollection>>asTraitComposition (in category '*Traits') ----- asTraitComposition "For convenience the composition {T1. T2 ...} is the same as T1 + T2 + ..." ^self isEmpty ifFalse: [ self size = 1 ifTrue: [self first asTraitComposition] + ifFalse: [self reduce: [:left :right | left + right]]] - ifFalse: [ - self copyWithoutFirst - inject: self first - into: [:left :right | left + right]]] ifTrue: [ClassDescription newTraitComposition]!

1 0

The Trunk: WebClient-Core-ul.133.mcz
by commits＠source.squeak.org 07 Oct '23

07 Oct '23

Levente Uzonyi uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ul.133.mcz ==================== Summary ==================== Name: WebClient-Core-ul.133 Author: ul Time: 7 October 2023, 10:02:11.302663 am UUID: 6d91d8f9-0dc5-434b-95b4-486573f7dde9 Ancestors: WebClient-Core-ul.132 In WebSocket07>>readFrameFrom:, use #reduce: instead of a combination of #allButFirst, #first and #inject:into:. Perhaps a streaming solution would be better if there's a chance of frameData being large to avoid n^2 runtime. =============== Diff against WebClient-Core-ul.132 =============== Item was changed: ----- Method: WebSocket07>>readFrameFrom: (in category 'read/write') ----- readFrameFrom: aStream "Reads one frame worth of data" | byte length final mask opcode payload | byte := (aStream next ifNil:[^nil]) asInteger. final := byte anyMask: 128. opcode := byte bitAnd: 15. byte := (aStream next ifNil:[^nil]) asInteger. mask := byte anyMask: 128. length := byte bitAnd: 127. length = 126 ifTrue:[ length := self nextNumber: 2 from: aStream. ] ifFalse:[ length = 127 ifTrue:[length := self nextNumber: 8 from: aStream]. ]. mask ifTrue:[mask := aStream next: 4] ifFalse:[mask := nil]. payload := ByteArray new: length. aStream next: length into: payload. "Unmask payload" mask ifNotNil:[self xor: payload with: mask]. "First see if this is a control frame which can be inserted into fragmented messages." opcode >= 8 ifTrue:[^self handleControl: payload type: opcode]. "Now see if this is a fragmented message" frameType ifNil:[ frameType := opcode. frameData := Array with: payload. ] ifNotNil:[ frameData := frameData copyWith: payload. ]. final ifTrue:[ "This was the final fragment" frameData size = 1 ifTrue:[ payload := frameData first ] ifFalse:[ + payload := frameData reduce: [ :a :b | a, b ]. - payload := frameData allButFirst - inject: frameData first - into:[:each :next| each, next]. ]. frameType = 1 ifTrue:[payload := payload asString utf8ToSqueak]. self handleMessage: payload type: frameType. frameType := frameData := nil. ]. !

1 0

The Trunk: Tools-mt.1235.mcz
by commits＠source.squeak.org 05 Oct '23

05 Oct '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1235.mcz ==================== Summary ==================== Name: Tools-mt.1235 Author: mt Time: 5 October 2023, 10:28:11.042807 am UUID: 81a8a9b8-417d-9245-827e-0dbb0449c568 Ancestors: Tools-mt.1234 In TreeBrowser, fixes performance issue with "-- all --" class/system category. =============== Diff against Tools-mt.1234 =============== Item was changed: ----- Method: TreeBrowser>>allClassesInCategory (in category 'class tree - support') ----- allClassesInCategory "Answer a list of all class objects in the selected system category." self hasSystemCategorySelected ifFalse: [^ #()]. + self isShowingAllClasses ifTrue: [^ #() "See #classChildren:. No support for #updateTreesIfNeeded."]. self isHierarchy ifTrue: [^ self allClassesForHierarchy]. ^ self class showAllClassesInPackage ifFalse: [self defaultClassList collect: [:className | self environment classNamed: className] thenSelect: [:classOrNil | classOrNil notNil "guard environment"]] ifTrue: [PackageOrganizer default packageNamed: selectedSystemCategory ifPresent: [:pkg | pkg classes] ifAbsent: [self defaultClassList collect: [:className | self environment classNamed: className] thenSelect: [:classOrNil | classOrNil notNil "guard environment"]]]! Item was changed: ----- Method: TreeBrowser>>allClassesInCategoryAndOther (in category 'class tree - support') ----- allClassesInCategoryAndOther "Like #allClassesInCategory, but adds missing inner classes for a complete-looking inheritance tree." | allClasses roots more | + extraClasses := #(). + self hasSystemCategorySelected ifFalse: [^ #()]. + self isShowingAllClasses ifTrue: [^ #() "See #classChildren:. No support for #updateTreesIfNeeded."]. self isHierarchy ifTrue: [^ self allClassesForHierarchy]. + - allClasses := self allClassesInCategory. roots := self classRootsFrom: allClasses. "See #classRoots for the widget callback" more := Set new. "Which inner classes to add?" roots do: [:inner | roots do: [:outer | (inner inheritsFrom: outer) ifTrue: [ | addMore | addMore := true. inner allSuperclassesDo: [:missing | (addMore := addMore and: [missing ~~ outer]) ifTrue: [more add: missing] ]] ]]. self flag: #ugly. "mt: This is an unexpected side effect and clashes with how #updateTreesIfNeeded works... yet, it does not send a superfluous changed event to the view..." extraClasses := more asArray. ^ more ifEmpty: [allClasses] ifNotEmpty: [allClasses, more asArray]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2023