Packages February 2021

packages@lists.squeakfoundation.org

1 participants
74 discussions

The Trunk: System-mt.1215.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1215.mcz ==================== Summary ==================== Name: System-mt.1215 Author: mt Time: 17 February 2021, 3:42:18.125168 pm UUID: 5c7faa4b-79dd-c14c-a76e-2d1f9baec59d Ancestors: System-cmm.1214 Fixes a regression caused by not-too-distant change in ReleaseBuilder to reset all pragma preferences in CI. Thanks to Jaromir for pointing this out! =============== Diff against System-cmm.1214 =============== Item was changed: ----- Method: MessageTally class>>showProcesses (in category 'defaults') ----- showProcesses "Indicates whether to show each process separately or cumulatively. For example, compare the spy results of the following with both values: [1000 timesRepeat: [3.14159 printString. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. MessageTally spyAllOn: [ (Delay forMilliseconds: 100) wait] " <preference: 'Show Tally Processes' category: 'debug' description: 'When true, show individual processes in MessageTally' type: #Boolean> + ^ShowProcesses ifNil: [true]! - ^ShowProcesses!

1 0

The Trunk: Morphic-mt.1722.mcz
by commits＠source.squeak.org 16 Feb '21

16 Feb '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1722.mcz ==================== Summary ==================== Name: Morphic-mt.1722 Author: mt Time: 16 February 2021, 10:10:46.500005 am UUID: 5d63cf8f-7e43-4f77-8ab3-fb3239223af2 Ancestors: Morphic-eem.1721 Minor tweaks to icon cache in LazyList: - Flag missing icons with #none to avoid repeated model access - Support no-icon separator items, thus avoiding minor visual glitch (e.g., in Git Browser's list of branches) Note that it felt right to format #iconExtent this way to emphasize the ordered variations of lazy init. =) =============== Diff against Morphic-eem.1721 =============== Item was changed: ----- Method: LazyListMorph>>icon: (in category 'list access - cached') ----- icon: row + "Answer a cached form from the model at a specific row. By flagging nil-icons with #none, only try to fetch an icon once from the model until next #listChanged. Also do inst-var access on listIcons here to initialize it as late as possible." - "Do inst-var access on listIcons here to initialize it as late as possible." self listSource canHaveIcons ifFalse: [^ nil]. listIcons ifNil: [listIcons := Array new: self getListSize]. + + ^ (listIcons at: row) + ifNotNil: [:iconOrNone | iconOrNone == #none ifFalse: [iconOrNone]] + ifNil: [ + | icon | + icon := (self getListIcon: row) ifNotNil: [:form | form scaleIconToDisplay]. + "Update cache for uniform icon extent." + iconExtent ifNil: [iconExtent := icon ifNotNil: [icon extent]]. + listIcons at: row put: (icon ifNil: [#none]). + icon]! - - ^ (listIcons at: row) ifNil: [ - | icon | - icon := (self getListIcon: row) ifNotNil: [:form | form scaleIconToDisplay]. - "Update cache for uniform icon extent." - iconExtent ifNil: [iconExtent := icon ifNotNil: [icon extent]]. - listIcons at: row put: icon. - icon]! Item was changed: ----- Method: LazyListMorph>>iconExtent (in category 'layout') ----- iconExtent + "Answers the uniform icon extent for this lazy list based on sample icons from the list source." + | listSize | + iconExtent ifNil: [ + + self listSource canHaveIcons + ifFalse: [^ iconExtent := 0@0]. + + (listSize := self getListSize) = 0 + ifTrue: [^ iconExtent := ((14@14) * RealEstateAgent scaleFactor) truncated]. + + (self icon: (2 min: listSize)) "mt: Use second item bc. first one might be visual separator w/o icon." + ifNil: [^ iconExtent := 0@0] + ifNotNil: [:form | ^ iconExtent := form extent]]. + + ^ iconExtent! - ^ iconExtent ifNil: [ - self getListSize = 0 - ifTrue: [((14@14) * RealEstateAgent scaleFactor) truncated] - ifFalse: [(self icon: 1) ifNil: [0@0] ifNotNil: [:form | form extent]]]!

1 0

The Trunk: CollectionsTests-dtl.350.mcz
by commits＠source.squeak.org 13 Feb '21

13 Feb '21

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-dtl.350.mcz ==================== Summary ==================== Name: CollectionsTests-dtl.350 Author: dtl Time: 13 February 2021, 4:37:17.676276 pm UUID: c4060470-23b9-4b11-a961-41baeb166af8 Ancestors: CollectionsTests-ul.348 Do not include new test from CollectionsTests-jar.349 because it documents existing behavior that may not necessarily be the expected behavior. Discussion at http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-February/213918… =============== Diff against CollectionsTests-ul.348 ===============

1 0

The Trunk: CollectionsTests-jar.349.mcz
by commits＠source.squeak.org 13 Feb '21

13 Feb '21

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-jar.349.mcz ==================== Summary ==================== Name: CollectionsTests-jar.349 Author: jar Time: 8 February 2021, 8:25:19.407373 pm UUID: f484ba2b-2035-b046-9222-c3e4e42a7ad4 Ancestors: CollectionsTests-ul.348 Test to show differing SharedQueue and SharedQueue2 semantics =============== Diff against CollectionsTests-ul.348 =============== Item was added: + ----- Method: AbstractSharedQueueTest>>testContention2 (in category 'tests') ----- + testContention2 + "and here's a test case that distunguishes SharedQueue from SharedQueue2 semantics: + SharedQueue2 produces a sequence #(5 10 15) while SharedQueue produces #(5 15 10)" + + | q r1 r2 r3 | + q := self queueClass new. + + [ r1 := q next. q nextPut: 15. r3 := q next ] fork. + [ r2 := q next ] fork. + + Processor yield. "let the above two threads block" + + q nextPut: 5. + Processor yield. "let the first thread above proceed" + + q nextPut: 10. + Processor yield. "let the unfinished thread above finish" + + q class = SharedQueue2 ifTrue: [ + self assert: 5 equals: r1. + self assert: 10 equals: r2. + self assert: 15 equals: r3. + self assert: nil equals: q nextOrNil ]. + + q class = SharedQueue ifTrue: [ + self assert: 5 equals: r1. + self assert: 15 equals: r2. + self assert: 10 equals: r3. + self assert: nil equals: q nextOrNil ]. + + "SharedQueue2 implementation using a Monitor checks the queue for available data while + the SharedQueue implementation based on a Semaphore checks for excessSignals > 0, + which results in these two different outcomes"!

1 0

The Trunk: Collections-jar.924.mcz
by commits＠source.squeak.org 13 Feb '21

13 Feb '21

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-jar.924.mcz ==================== Summary ==================== Name: Collections-jar.924 Author: jar Time: 7 February 2021, 9:42:07.649004 am UUID: 073b26bc-8e5e-ba41-9aac-9d424bbe6848 Ancestors: Collections-dtl.923 Fixes SharedQueue >> nextOrNilSuchThat bug to pass the existing test =============== Diff against Collections-dtl.923 =============== Item was changed: ----- Method: SharedQueue>>nextOrNilSuchThat: (in category 'accessing') ----- nextOrNilSuchThat: aBlock "Answer the next object that satisfies aBlock, skipping any intermediate objects. If no object has been sent, answer <nil> and leave me intact. NOTA BENE: aBlock MUST NOT contain a non-local return (^)." ^accessProtect critical: [ | value readPos | value := nil. readPos := readPosition. [ readPos < writePosition and: [ value isNil ] ] whileTrue: [ value := contentsArray at: readPos. readPos := readPos + 1. (aBlock value: value) ifFalse: [ value := nil ] ifTrue: [ readSynch waitIfLocked: [ ^nil ]. "We found the value, but someone else booked it." + readPos-1 to: readPosition+1 by: -1 do: [ :j | contentsArray at: j put: (contentsArray at: j-1) ]. + contentsArray at: readPosition put: nil. + readPosition := readPosition+1 ] ]. - readPosition to: readPos - 1 do: [ :j | contentsArray at: j put: nil ]. - readPosition := readPos ] ]. value ]. "=== q := SharedQueue new. 1 to: 10 do: [ :i | q nextPut: i]. c := OrderedCollection new. [ v := q nextOrNilSuchThat: [ :e | e odd]. v notNil ] whileTrue: [ c add: {v. q size} ]. {c. q} explore ==="!

1 0

The Trunk: Kernel-ct.1368.mcz
by commits＠source.squeak.org 13 Feb '21

13 Feb '21

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1368.mcz ==================== Summary ==================== Name: Kernel-ct.1368 Author: ct Time: 24 January 2021, 3:19:48.003384 pm UUID: c62a6062-b240-9149-a2ed-78fdc1079dfd Ancestors: Kernel-mt.1364 Proposal: Always include process name into its print string. This facilitates debugging/inspecting of multiprocess scenarios. =============== Diff against Kernel-mt.1364 =============== Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') ----- longPrintOn: stream | ctxt | super printOn: stream. + stream + nextPut: $(; + nextPutAll: self name; + nextPut: $). stream cr. ctxt := self suspendedContext. [ctxt == nil] whileFalse: [ stream space. ctxt printOn: stream. stream cr. ctxt := ctxt sender. ]. ! Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + aStream + nextPut: $(; + nextPutAll: self name; + nextPut: $). aStream nextPutAll: ' in '. suspendedContext printOn: aStream!

1 0

The Trunk: Kernel-dtl.1369.mcz
by commits＠source.squeak.org 13 Feb '21

13 Feb '21

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1369.mcz ==================== Summary ==================== Name: Kernel-dtl.1369 Author: dtl Time: 12 February 2021, 6:32:35.918542 pm UUID: 3968e898-9e0c-4f26-a331-74c2353b7e99 Ancestors: Kernel-nice.1368, Kernel-ct.1368 merge Kernel-ct.1368 =============== Diff against Kernel-nice.1368 =============== Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') ----- longPrintOn: stream | ctxt | super printOn: stream. + stream + nextPut: $(; + nextPutAll: self name; + nextPut: $). stream cr. ctxt := self suspendedContext. [ctxt == nil] whileFalse: [ stream space. ctxt printOn: stream. stream cr. ctxt := ctxt sender. ]. ! Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + aStream + nextPut: $(; + nextPutAll: self name; + nextPut: $). aStream nextPutAll: ' in '. suspendedContext printOn: aStream!

1 0

The Trunk: Kernel-nice.1368.mcz
by commits＠source.squeak.org 11 Feb '21

11 Feb '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1368.mcz ==================== Summary ==================== Name: Kernel-nice.1368 Author: nice Time: 11 February 2021, 9:30:07.084854 am UUID: b086833d-ece4-4372-b252-87d2caa59193 Ancestors: Kernel-eem.1367 Rescue setting of Processor highestPriority: anInteger There was a double problem: 1) if reducing the priority, then anyProcessesAbove: did behave as noProcessAbove: because (select:) isEmpty <=> noneSatisfy: It should have been (reject:) empty or (select:) notEmpty, but we have anySatisfy: for expressing this intention 2) if increasing the priority, then the loop did overwrite the last LinkedList in the quiescentProcessLists Those LinkedList are mostly empty in my own image, and we never change the highestPriority, so the bug was probably benign... =============== Diff against Kernel-eem.1367 =============== Item was changed: ----- Method: ProcessorScheduler>>anyProcessesAbove: (in category 'private') ----- anyProcessesAbove: highestPriority + "Do any (sub) instances of Process exist with higher priorities?" - "Do any instances of Process exist with higher priorities?" + ^(Process allSubInstances anySatisfy: [:aProcess | + aProcess priority > highestPriority])! - ^(Process allSubInstances select: [:aProcess | - aProcess priority > highestPriority]) isEmpty - "If anyone ever makes a subclass of Process, be sure to use allSubInstances."! Item was changed: ----- Method: ProcessorScheduler>>highestPriority: (in category 'accessing') ----- highestPriority: newHighestPriority "Change the number of priority levels currently available for use." | newProcessLists | (quiescentProcessLists size > newHighestPriority and: [self anyProcessesAbove: newHighestPriority]) ifTrue: [self error: 'There are processes with priority higher than ' ,newHighestPriority printString]. newProcessLists := Array new: newHighestPriority. + 1 to: (quiescentProcessLists size min: newProcessLists size) do: - 1 to: ((quiescentProcessLists size) min: (newProcessLists size)) do: [:priority | newProcessLists at: priority put: (quiescentProcessLists at: priority)]. + quiescentProcessLists size + 1 to: newProcessLists size do: - (quiescentProcessLists size max: 1) to: newProcessLists size do: [:priority | newProcessLists at: priority put: LinkedList new]. quiescentProcessLists := newProcessLists!

1 0

The Trunk: SUnit-nice.124.mcz
by commits＠source.squeak.org 11 Feb '21

11 Feb '21

Nicolas Cellier uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-nice.124.mcz ==================== Summary ==================== Name: SUnit-nice.124 Author: nice Time: 11 February 2021, 9:14:06.179764 am UUID: f1c47b72-13f3-4690-86c9-b76f3cae6e04 Ancestors: SUnit-pre.123 Use lines rather than subStrings: {Character cr} This is what lines is made for; it is fast and also work whatever CRLF zoo. =============== Diff against SUnit-pre.123 =============== Item was changed: ----- Method: SUnitExtensionsTest>>testAutoAssertFalse (in category 'tests') ----- testAutoAssertFalse | booleanCondition | self assert: self isLogging. self should: [ self assert: 1 = 2 description: 'self assert: 1 = 2' ] raise: TestResult failure. + booleanCondition := (self stream contents lines) last = 'self assert: 1 = 2'. - booleanCondition := (self stream contents subStrings: {Character cr}) last = 'self assert: 1 = 2'. self assert: booleanCondition! Item was changed: ----- Method: SUnitExtensionsTest>>testAutoDenyFalse (in category 'tests') ----- testAutoDenyFalse | booleanCondition | self assert: self isLogging. self should: [ self deny: 1 = 1 description: 'self deny: 1 = 1'.] raise: TestResult failure. + booleanCondition := (self stream contents lines) last = 'self deny: 1 = 1'. - booleanCondition := (self stream contents subStrings: {Character cr}) last = 'self deny: 1 = 1'. self assert: booleanCondition!

1 0

The Trunk: System-cmm.1214.mcz
by commits＠source.squeak.org 06 Feb '21

06 Feb '21

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1214.mcz ==================== Summary ==================== Name: System-cmm.1214 Author: cmm Time: 5 February 2021, 10:09:05.179247 pm UUID: d6f968d9-a638-42ef-89ef-d37af0f31ffd Ancestors: System-mt.1213 Patch the patcher. Smalltalk run: permits the patching of a production system without having to resort to running a custom image, but when the patch.st file has read-only status in the OS, FileStream class>>#fileNamed:do: can't open it, because it tries to open for read/write. But rather htan signal an error, it silently does nothing (wow), leaving the system unpatched. Patch files can and should be read-only anyway, so use DirectoryEntryFile>>#readStreamDo:. =============== Diff against System-mt.1213 =============== Item was changed: ----- Method: SmalltalkImage>>patchSystem (in category 'command line') ----- patchSystem 'patch.st' asDirectoryEntry ifNotNil: [ : patchEntry | patchEntry modificationTime > Smalltalk imageName asDirectoryEntry modificationTime ifTrue: [ Notification signal: 'Patching system...'. + patchEntry readStreamDo: [ : stream | stream fileIn ] ] - FileStream - fileNamed: 'patch.st' - do: - [ : stream | stream fileIn ] ] ifFalse: [ self error: 'patch.st file is older than the image file. Aborting.' ] ]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2021