Packages October 2022

packages@lists.squeakfoundation.org

1 participants
58 discussions

The Trunk: Regex-Tests-Core-ct.31.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-ct.31.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ct.31 Author: ct Time: 11 October 2022, 3:09:23.668455 pm UUID: 51089b71-6a6f-e946-bed5-3ca4a2c5c44e Ancestors: Regex-Tests-Core-ct.30 Adds regression test for lookarounds with branches. Fixed via Regex-Core-ct.79. =============== Diff against Regex-Tests-Core-ct.30 =============== Item was added: + ----- Method: RxParserTest>>testLookaroundBranch (in category 'tests') ----- + testLookaroundBranch + + self assert: ('(?=a|b).' asRegex matches: 'a'). + self assert: ('(?=a|b).' asRegex matches: 'b'). + self assert: ('.(?<=a|b)' asRegex matches: 'a'). + self assert: ('.(?<=a|b)' asRegex matches: 'b').!

1 0

The Trunk: Files-ct.198.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ct.198.mcz ==================== Summary ==================== Name: Files-ct.198 Author: ct Time: 13 September 2022, 2:09:02.615711 pm UUID: 022ceb10-85c8-fa42-8461-2a09bbacd572 Ancestors: Files-ct.197 Fixes FileDirectory>>#exists for files again, which must answer true for and only for directories. These "false negatives" led to spurious errors (MessageNotUnderstood: DosFileDirectory>>readOnlyStream) on Windows in the recent past when dragging a host system file into the image (see FileDirectory class>>#dropFilesAndDirectories:). This seems to be a regression from Files-eem.195. Note that when given a non-directory path, primitiveDirectoryEntry fails on Linux but answers a valid tuple on Windows. =============== Diff against Files-ct.197 =============== Item was changed: ----- Method: FileDirectory>>exists (in category 'testing') ----- exists "Answer whether the directory exists" ^self class currentDirectoryNickname ifNotNil: [:me| (self primLookupEntryIn: pathName asVmPathName name: me asVmPathName) ifNil: [false] + ifNotNil: [:entryArray | entryArray ~~ #primFailed + and: [(entryArray at: 4) "dirFlag"]]] - ifNotNil: [:maybeErr| maybeErr ~~ #primFailed]] ifNil: [(self primLookupEntryIn: pathName asVmPathName index: 1) ~~ #badDirectoryPath]!

1 0

The Trunk: MonticelloConfigurations-ct.180.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-ct.180.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ct.180 Author: ct Time: 11 October 2022, 1:35:54.212414 pm UUID: bb10dbdf-1dd6-ea47-937b-d7afd8a4a10c Ancestors: MonticelloConfigurations-mt.179 Merges vm-update-reminder: To the 'update completed' dialog, adds a short reminder if a newer OSVM release is available. For different VMs, the reminder will not appear. The latest release number is stored in SystemVersion>>#recommendedVMBuildNumber and should be updated after each VM release. See http://lists.squeakfoundation.org/pipermail/vm-dev/2022-September/038412.ht…. Revision: Fixes small UI glitch in the text. Thanks to Marcel (mt) for the review! =============== Diff against MonticelloConfigurations-mt.179 =============== Item was changed: ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- updateMessageFor: previousUpdateLevel + ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</{10}> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}{11}' translated format: { - ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</{10}> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}' translated format: { SystemVersion current version. SystemVersion current highestUpdate. previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']. self repository. MCMcmUpdater updateMapName. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' {1}' format: { d. Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize. }]. SystemVersion current ciStatusBadgeUrl. SystemVersion current ciStatusPageUrl. SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated]. "mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…" 'a'. + SystemVersion current recommendedVMUpdateInfo ifNil: [''] ifNotNil: [:info | + ' A newer VM is recommended ({1} -> {2})!! Visit the <a href="{3}">project page</{4}> to download it.' translated + format: { + info key. + info value. + SystemVersion current vmUpdateURL. + 'a'. "avoid Windows Defender again" + Preferences standardButtonFont familyName. + Preferences standardButtonFont pointSize + }] }) asTextFromHtml!

1 0

The Trunk: System-ct.1372.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1372.mcz ==================== Summary ==================== Name: System-ct.1372 Author: ct Time: 11 October 2022, 1:35:45.477414 pm UUID: 9f008d2c-1e56-aa43-814d-adc9df0e4f3b Ancestors: System-ct.1371 Complements MonticelloConfigurations-ct.180 (reminder to update the OSVM). Provides interface on SmalltalkImage for accessing the current build number and stores the recommend build number in SystemVersion. =============== Diff against System-ct.1371 =============== Item was added: + ----- Method: SmalltalkImage>>isRunningOpenSmalltalkVM (in category 'system attributes') ----- + isRunningOpenSmalltalkVM + + ^ [#('CoInterpreter' 'StackInterpreter') includes: (self interpreterClass copyUpTo: Character space)] + on: Error "unsupported primitives" + do: [:ex | false]! Item was added: + ----- Method: SmalltalkImage>>openSmalltalkVMBuildNumber (in category 'system attributes') ----- + openSmalltalkVMBuildNumber + + | matcher | + self isRunningOpenSmalltalkVM ifFalse: [^ nil]. + + matcher := 'VM\: (\d+).*' asRegex. + (matcher matches: self platformSourceVersion) ifFalse: [^ nil]. + ^ (matcher subexpression: 2) asNumber! Item was added: + ----- Method: SystemVersion>>recommendedVMBuildNumber (in category 'accessing') ----- + recommendedVMBuildNumber + + ^ 202206021410! Item was added: + ----- Method: SystemVersion>>recommendedVMUpdateInfo (in category 'accessing') ----- + recommendedVMUpdateInfo + + | currentNumber | + currentNumber := Smalltalk openSmalltalkVMBuildNumber ifNil: [^ nil]. + currentNumber >= self recommendedVMBuildNumber ifTrue: [^ nil]. + ^ currentNumber -> self recommendedVMBuildNumber! Item was added: + ----- Method: SystemVersion>>vmUpdateURL (in category 'accessing') ----- + vmUpdateURL + + ^ 'https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/202206021410'!

1 0

The Trunk: SystemReporter-ct.63.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-ct.63.mcz ==================== Summary ==================== Name: SystemReporter-ct.63 Author: ct Time: 11 October 2022, 1:35:29.960414 pm UUID: 27231051-f070-4d49-ae28-26156bd50619 Ancestors: SystemReporter-ct.62 Complements System-ct.1372 (interface on SmalltalkImage for testing OSVM). =============== Diff against SystemReporter-ct.62 =============== Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream | howToBuild | self header: 'Virtual Machine' on: aStream. aStream nextPutAll: Smalltalk vm vmFileName; cr; nextPutAll: Smalltalk vm vmVersion; cr. Smalltalk vm buildDate ifNotNil: [:string | aStream nextPutAll: string; cr]. [Smalltalk vm platformSourceVersion ifNotNil: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion ifNotNil: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterClass ifNotNil: [:string | aStream nextPutAll: string; cr]. Smalltalk vm cogitClass ifNotNil: [:string | aStream nextPutAll: string; cr] ] on: Error do: ["unsupported primitives"]. + Smalltalk vm isRunningOpenSmalltalkVM ifTrue: - self vmIsOpenSmalltalkVM ifTrue: [howToBuild := 'Visit https://github.com/OpenSmalltalk/opensmalltalk-vm; follow the\"Clone or download" instructions, then read the top-level README.md\and HowToBuild files in the top-level build directory for your\platform(s), build.macos64x64/HowToBuild, build.win32x86/HowToBuild, etc.' withCRs]. howToBuild ifNil: [^self]. aStream cr. self header: 'To Build A Similar Virtual Machine' on: aStream. aStream nextPutAll: howToBuild; cr! Item was removed: - ----- Method: SystemReporter>>vmIsOpenSmalltalkVM (in category 'private') ----- - vmIsOpenSmalltalkVM - ^[#('CoInterpreter' 'StackInterpreter') includes: (Smalltalk vm interpreterClass copyUpTo: Character space)] - on: Error "unsupported primitives" - do: [:ex| false]!

1 0

The Trunk: 61Deprecated-ct.3.mcz
by commits＠source.squeak.org 11 Oct '22

11 Oct '22

Christoph Thiede uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-ct.3.mcz ==================== Summary ==================== Name: 61Deprecated-ct.3 Author: ct Time: 11 October 2022, 1:35:26.771414 pm UUID: fa6b4dce-12fe-5840-ba90-5f75334fd806 Ancestors: 61Deprecated-ct.2 Complements SystemReporter-ct.63. =============== Diff against 61Deprecated-ct.2 =============== Item was added: + ----- Method: SystemReporter>>vmIsOpenSmalltalkVM (in category '*61Deprecated-private') ----- + vmIsOpenSmalltalkVM + + self deprecated. + ^ Smalltalk vm isRunningOpenSmalltalkVM!

1 0

The Trunk: Morphic-ct.2048.mcz
by commits＠source.squeak.org 10 Oct '22

10 Oct '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2048.mcz ==================== Summary ==================== Name: Morphic-ct.2048 Author: ct Time: 10 October 2022, 3:13:21.840054 pm UUID: c9b105e6-27ff-4247-b606-c6414ecbdfe6 Ancestors: Morphic-ct.2047 Makes ScrollPane and MenuItemMorph high-dpi-sensitive. This also fixes some toolbuilding issues for huge scale factors (even though most default values (e.g., ScrollPane>>#defaultExtent) will be overridden by the ToolBuilder, they are still present before a morph is finally layouted). =============== Diff against Morphic-ct.2047 =============== Item was changed: ----- Method: MenuItemMorph>>contentString: (in category 'accessing') ----- contentString: aString + self flag: #ct. "Can we deprecate this?" aString ifNil: [self removeProperty: #contentString] ifNotNil: [self setProperty: #contentString toValue: aString]! Item was changed: ----- Method: MenuItemMorph>>defaultBounds (in category 'initialization') ----- defaultBounds "answer the default bounds for the receiver" + ^ 0 @ 0 extent: 10 px @ 10 px! - ^ 0 @ 0 extent: 10 @ 10! Item was changed: ----- Method: MenuItemMorph>>drawLabelOn: (in category 'drawing') ----- drawLabelOn: aCanvas | stringBounds | stringBounds := self bounds. self hasIcon ifTrue: [ + stringBounds := stringBounds left: stringBounds left + self iconForm width + 2 px ]. - stringBounds := stringBounds left: stringBounds left + self iconForm width + 2 ]. self hasMarker ifTrue: [ + stringBounds := stringBounds left: stringBounds left + self submorphBounds width + 8 px ]. - stringBounds := stringBounds left: stringBounds left + self submorphBounds width + 8 ]. aCanvas drawString: self contents at: stringBounds left @ (stringBounds center y - (self fontToUse height // 2)) font: self fontToUse color: self colorToUse.! Item was changed: ----- Method: MenuItemMorph>>minHeight (in category 'layout') ----- minHeight | iconHeight | iconHeight := self hasIcon + ifTrue: [self icon height + 2 px] - ifTrue: [self icon height + 2] ifFalse: [0]. ^ self fontToUse lineGridForMorphs max: iconHeight! Item was changed: ----- Method: MenuItemMorph>>minWidth (in category 'layout') ----- minWidth | subMenuWidth iconWidth markerWidth | subMenuWidth := self hasSubMenu ifTrue: [ 10 ] ifFalse: [ 0 ]. iconWidth := self hasIcon + ifTrue: [ self icon width + 2 px ] - ifTrue: [ self icon width + 2 ] ifFalse: [ 0 ]. markerWidth := self hasMarker + ifTrue: [ self submorphBounds width + 8 px ] - ifTrue: [ self submorphBounds width + 8 ] ifFalse: [ 0 ]. ^(self fontToUse widthOfString: contents) + subMenuWidth + iconWidth + markerWidth + self stringMargin! Item was changed: ----- Method: ScrollPane>>defaultExtent (in category 'initialization') ----- defaultExtent + ^150 px @ 120 px! - ^150@120 - ! Item was changed: ----- Method: ScrollPane>>scrollDeltaHeight (in category 'geometry') ----- scrollDeltaHeight "Return the increment in pixels which this pane should be scrolled (normally a subclass responsibility)." + ^ 10 px! - ^ 10 - ! Item was changed: ----- Method: ScrollPane>>scrollDeltaWidth (in category 'geometry') ----- scrollDeltaWidth "Return the increment in pixels which this pane should be scrolled (normally a subclass responsibility)." + ^ 10 px! - - ^10 - !

1 0

The Trunk: MorphicExtras-ct.335.mcz
by commits＠source.squeak.org 10 Oct '22

10 Oct '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.335.mcz ==================== Summary ==================== Name: MorphicExtras-ct.335 Author: ct Time: 10 October 2022, 2:51:35.932054 pm UUID: 6a9a3e42-5303-7046-aaec-3e51bfe9cc77 Ancestors: MorphicExtras-ct.334 Makes MagnifierMorph high-dpi-sensitive =============== Diff against MorphicExtras-ct.334 =============== Item was changed: ----- Method: MagnifierMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. trackPointer := true. showPointer := false. magnification := 2. + self extent: 128 px @ 128 px.! - self extent: 128 @ 128!

1 0

The Trunk: EToys-ct.484.mcz
by commits＠source.squeak.org 10 Oct '22

10 Oct '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.484.mcz ==================== Summary ==================== Name: EToys-ct.484 Author: ct Time: 10 October 2022, 2:48:26.079054 pm UUID: 3c420302-a1c2-644c-9fab-1b330f2e8006 Ancestors: EToys-ct.483 [nit] Fixes a plenk. =============== Diff against EToys-ct.483 =============== Item was changed: ----- Method: String>>fromCamelCase (in category '*Etoys-Squeakland-converting') ----- fromCamelCase + "convert 'anExampleString' to 'an example string'" - "convert 'anExampleString' to 'an example string'" | upper nextWord start | upper := ($A to: $Z) asCharacterSet. nextWord := self indexOfAnyOf: upper. nextWord = 0 ifTrue: [^self]. start := 1. ^String streamContents: [:strm | [ strm nextPutAll: (self copyFrom: start to: nextWord-1). strm space; nextPut: (self at: nextWord) asLowercase. start := nextWord+1. nextWord := self indexOfAnyOf: upper startingAt: start. nextWord = 0 ] whileFalse. strm nextPutAll: (self copyFrom: start to: self size). ].!

1 0

The Trunk: Regex-Core-ct.66.mcz
by commits＠source.squeak.org 10 Oct '22

10 Oct '22

Christoph Thiede uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.66.mcz ==================== Summary ==================== Name: Regex-Core-ct.66 Author: ct Time: 23 August 2021, 7:05:38.221768 pm UUID: 3ede3098-6d93-0049-bd36-5dd0461903d2 Ancestors: Regex-Core-mt.61 Adds convenience selectors for accessing subexpressions (#allSubexpressions and #subexpressionRanges:). The other changes contain some minor refactorings only. =============== Diff against Regex-Core-mt.61 =============== Item was added: + ----- Method: RxMatcher>>allSubexpressions (in category 'accessing') ----- + allSubexpressions + + ^ (1 to: self subexpressionCount) collect: [:index | + self subexpressions: index]! Item was changed: ----- Method: RxMatcher>>hookBranchOf:onto: (in category 'private') ----- hookBranchOf: regexNode onto: endMarker + "Private - Recurse down the chain of regexes starting at regexNode, compiling their branches and hooking their tails to the endMarker node." - "Private - Recurse down the chain of regexes starting at - regexNode, compiling their branches and hooking their tails - to the endMarker node." + | next rest | + next := (regexNode branch dispatchTo: self) + pointTailTo: endMarker; + yourself. + regexNode regex ifNil: [ + "Avoid creating a branch without an alternative." + ^ next]. + + rest := self hookBranchOf: regexNode regex onto: endMarker. + ^ RxmBranch new + next: next; + alternative: rest; + yourself! - ^regexNode regex - ifNil: [ "Avoid creating a branch without an alternative." - ^(regexNode branch dispatchTo: self) - pointTailTo: endMarker; - yourself ] - ifNotNil: [ :regex | - | rest | - rest := self hookBranchOf: regex onto: endMarker. - ^RxmBranch new - next: ((regexNode branch dispatchTo: self) - pointTailTo: endMarker; - yourself); - alternative: rest; - yourself ] - ! Item was changed: ----- Method: RxMatcher>>subBeginning: (in category 'accessing') ----- subBeginning: subIndex subIndex = 1 ifTrue: [ + "beginning of root node" + ^ (markerPositions at: 1) + ifNil: [#()] + ifNotNil: [:mp | {mp}] ]. + + ^ markerPositions at: subIndex * 2 - 1! - (markerPositions at: 1) - ifNil: [ ^#()] - ifNotNil: [ :mp | ^{ mp } ] ]. - ^markerPositions at: subIndex * 2 - 1! Item was changed: ----- Method: RxMatcher>>subEnd: (in category 'accessing') ----- subEnd: subIndex subIndex = 1 ifTrue: [ + "end of root node" + ^ (markerPositions at: 2) + ifNil: [#()] + ifNotNil: [:mp | {mp}] ]. + + ^ markerPositions at: subIndex * 2! - (markerPositions at: 2) - ifNil: [ ^#()] - ifNotNil: [ :mp | ^{ mp } ] ]. - ^markerPositions at: subIndex * 2! Item was changed: ----- Method: RxMatcher>>subexpression: (in category 'accessing') ----- subexpression: subIndex "Answer a string that matched the subexpression at the given index. If there are multiple matches, answer the last one. If there are no matches, answer nil. (NB: it used to answer an empty string but I think nil makes more sense)." + ^ (self subexpressions: subIndex) + ifNotEmpty: [:expressions | expressions last] + ifEmpty: [nil]! - | matches | - matches := self subexpressions: subIndex. - ^matches isEmpty ifTrue: [nil] ifFalse: [matches last]! Item was added: + ----- Method: RxMatcher>>subexpressionRanges: (in category 'accessing') ----- + subexpressionRanges: subIndex + "Answer an array of all match ranges of the subexpression at the given index." + + ^ (self subBeginning: subIndex) + with: (self subEnd: subIndex) + collect: [:start :stop | start to: stop - 1]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2022