Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: KernelTests-nice.422.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.422.mcz ==================== Summary ==================== Name: KernelTests-nice.422 Author: nice Time: 26 April 2022, 1:03:31.73252 pm UUID: e963a1d7-702a-904d-8b40-8dbf96032f0d Ancestors: KernelTests-nice.421 Complex tests associated with that suggestion: complex arithmetic should detect case of overflow in intermediate computations and fallback to securedely scaled operations if it's the case. =============== Diff against KernelTests-nice.421 =============== Item was changed: ----- Method: ComplexTest>>testDivision1 (in category 'tests') ----- testDivision1 "self run: #testDivision1" "self debug: #testDivision1" | c1 c2 quotient | c1 := 2.0e252 + 3.0e70 i. c2 := c1. quotient := c1 / c2. - self deny: (quotient - 1) isZero. + "This used to fail when / was not protected against floating point overflow in intermediate computations + but it should now work correctly if divideSecureBy: is correctly used as fallback case" + self assert: (quotient - 1) isZero - "This test fails due to the wonders of floating point arithmetic. - Please have a look at Complex>>divideSecureBy: and #divideFastAndSecureBy: - how this can be avoided." ! Item was added: + ----- Method: ComplexTest>>testMultiplyDoesNotOverflow (in category 'tests') ----- + testMultiplyDoesNotOverflow + + | c1 c2 product smallProduct scale | + c1 := (1 + 1 i) sqrt * Float fmax sqrt. + product := c1 squared. + self assert: product real isFinite. + self assert: product imaginary isFinite. + self assert: (product real - Float fmax) / Float fmax ulp < 3. + self assert: (product imaginary - Float fmax) / Float fmax ulp < 3. + + "a more tricky case" + c1 := 1.0 + 0.25 i. + c2 := 1.125+ 0.5 i. + smallProduct := c1 * c2. + "check that we will not overflow in precondition" + self assert: smallProduct real abs <= 1. + self assert: smallProduct imaginary abs <= 1. + "now retry with a large scale" + scale := Float fmax. + product := c1 * scale * c2. + self assert: product real isFinite. + self assert: product imaginary isFinite. + self assert: (scale * smallProduct real - product real) / (scale * smallProduct real) ulp < 3. + self assert: (scale * smallProduct imaginary - product imaginary) / (scale * smallProduct imaginary) ulp < 3.! Item was added: + ----- Method: ComplexTest>>testReciprocalDoesNotOverflow (in category 'tests') ----- + testReciprocalDoesNotOverflow + "Note: intermediate overflow might cause the answer to be zero in careless implementation" + + | c scale cScaled cScaledInv expected | + c := (1 + 1i). + scale := Float fmax. + cScaled := c * scale. + cScaledInv := cScaled reciprocal. + expected := c reciprocal real / scale + (c reciprocal imaginary / scale) i. + self assert: (expected real- cScaledInv real) abs / expected real ulp < 3. + self assert: (expected imaginary - cScaledInv imaginary) abs / expected imaginary ulp < 3.!

1 0

The Trunk: Morphic-mt.1975.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1975.mcz ==================== Summary ==================== Name: Morphic-mt.1975 Author: mt Time: 27 April 2022, 5:13:23.928228 pm UUID: 0b03fc07-5c68-1f48-bbaf-c715871f608d Ancestors: Morphic-mt.1974 Fixes font-change issue that occurred with FontChooserTools lasting longer than an instance of TextEditor. Thanks to Nicolas (nice) for reporting this! =============== Diff against Morphic-mt.1974 =============== Item was changed: ----- Method: TextEditor>>changeTextFont (in category 'attributes') ----- changeTextFont "Present a dialog which allows the user to select a font, and if one is chosen, apply it to the current selection. If there is no selection, or the selection is empty, apply it to the whole morph." | curFont startIndex | startIndex := self startIndex. curFont := (paragraph text fontAt: startIndex withStyle: paragraph textStyle). morph openModal: ( Cursor wait showWhile: [ (FontChooserTool default withTitle: 'Change the selected text''s font to...' translated + for: [:newFont | + self flag: #fixme. "mt: This is a workaround because the lifetime/validity of the font-chooser window can be longer than the one of the receiver (i.e., the text editor)." + morph editor changeSelectionFontTo: newFont] + setSelector: #value: - for: self - setSelector: #changeSelectionFontTo: getSelector: curFont) "Do not allow changing the emphasis; we don't know how to deal with a 'pre-emphasized' font here, so bail." offerStyleList: false; open])!

1 0

The Trunk: Morphic-mt.1974.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1974.mcz ==================== Summary ==================== Name: Morphic-mt.1974 Author: mt Time: 27 April 2022, 4:57:27.371228 pm UUID: bbf92ccb-7fe1-7f4b-9ab6-955f0f2ba601 Ancestors: Morphic-mt.1973 For by-word jumping in text fields, adds LF to the literal array of boundary characters. Thanks to Nicolas (nice) for the hint! =============== Diff against Morphic-mt.1973 =============== Item was changed: ----- Method: SmalltalkEditor>>nextWord: (in category 'private') ----- nextWord: position | string index boundaryCharacters | string := self string. index := position - 1. [ (index between: 1 and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index + 1 ]. boundaryCharacters := ')]}''"|^. '. + ((index between: 1 and: string size) and: [ boundaryCharacters includes: (string at: index) ]) ifTrue: [ index := index + 1 ] ifFalse: [ [ (index between: 1 and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index + 1 ] ]. ^ index! Item was changed: ----- Method: SmalltalkEditor>>previousWord: (in category 'private') ----- previousWord: position | string index boundaryCharacters | string := self string. index := position. "First, get out of whitespace." [ (index between: 2 and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index - 1 ]. boundaryCharacters := '([{''"|^. '. + "Are we at a boundary character?" ((index between: 2 and: string size) and: [ boundaryCharacters includes: (string at: index) ]) ifTrue: [ "yes, select it and any following whitespace of this line." index := index - 1 ] ifFalse: [ "no, select to the next boundary character" [ (index between: 1 and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index - 1 ] ]. ^ index + 1!

1 0

The Treated Inbox: Collections-eem.1007.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Collections to project The Treated Inbox: http://source.squeak.org/treated/Collections-eem.1007.mcz ==================== Summary ==================== Name: Collections-eem.1007 Author: eem Time: 25 April 2022, 12:19:59.631943 pm UUID: 6c5fbbd1-320d-44dd-b8d5-ff923f041cd6 Ancestors: Collections-ct.1006 Change beginsWith: and endsWith: to be true for the empty sequence, e.g. 'foo' beginsWith: '' is now true. =============== Diff against Collections-ct.1006 =============== Item was changed: ----- Method: SequenceableCollection>>beginsWith: (in category 'testing') ----- beginsWith: sequence + "Answer if the receiver starts with the argument collection." - "Answer true if the receiver starts with the argument collection." | sequenceSize | + sequenceSize := sequence size. + self size < sequenceSize ifTrue: [ ^false ]. - ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. 1 to: sequenceSize do: [ :index | (sequence at: index) = (self at: index) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: SequenceableCollection>>endsWith: (in category 'testing') ----- endsWith: sequence + "Answer if the receiver ends with the argument collection." - "Answer true if the receiver ends with the argument collection." | sequenceSize offset | + sequenceSize := sequence size. + (offset := self size - sequence size) < 0 ifTrue: [ ^false ]. - ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequence size) < 0 ]) ifTrue: [ ^false ]. 1 to: sequenceSize do: [ :index | (sequence at: index) = (self at: index + offset) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>beginsWith: (in category 'testing') ----- beginsWith: sequence + "Answer if the receiver starts with the argument collection. The comparison is case-sensitive. Overridden for better performance." - "Answer true if the receiver starts with the argument collection. The comparison is case-sensitive. Overridden for better performance." | index sequenceSize | sequence isString ifFalse: [ ^super beginsWith: sequence ]. + sequenceSize := sequence size. + self size < sequenceSize ifTrue: [ ^false ]. - ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. index := 0. [ (index := index + 1) <= sequenceSize ] whileTrue: [ (sequence at: index) == (self at: index) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>endsWith: (in category 'testing') ----- endsWith: sequence + "Answer if the receiver ends with the argument collection. The comparison is case-sensitive." - "Answer true if the receiver ends with the argument collection. The comparison is case-sensitive." | index sequenceSize offset | sequence isString ifFalse: [ ^super endsWith: sequence ]. + sequenceSize := sequence size. - (sequenceSize := sequence size) = 0 ifTrue: [ ^false ]. "old convention" (offset := self size - sequenceSize) < 0 ifTrue: [ ^false ]. index := 0. [ (index := index + 1) <= sequenceSize ] whileTrue: [ (sequence at: index) == (self at: index + offset) ifFalse: [ ^false ] ]. ^true!

1 0

The Trunk: Morphic-lrnp.1972.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-lrnp.1972.mcz ==================== Summary ==================== Name: Morphic-lrnp.1972 Author: lrnp Time: 25 April 2022, 2:12:21.194893 pm UUID: f8603073-659d-41bd-bfc4-bd0062e8b45b Ancestors: Morphic-mt.1971 fix size of text on high-dpi displays Old code was requesting an unscaled 15 pixels tall font. =============== Diff against Morphic-mt.1971 =============== Item was changed: ----- Method: ProjectViewMorph>>fontForName (in category 'drawing') ----- fontForName + ^TextStyle defaultFont emphasized: 1 - ^(TextStyle default fontOfSize: 15) emphasized: 1 !

1 0

The Trunk: Morphic-mt.1973.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1973.mcz ==================== Summary ==================== Name: Morphic-mt.1973 Author: mt Time: 27 April 2022, 4:38:54.597228 pm UUID: 08cae42b-bbf4-7340-bbcb-2552a085e607 Ancestors: Morphic-mt.1972, Morphic-lrnp.1972 Merge Morphic-lrnp.1972 fix size of text on high-dpi displays =============== Diff against Morphic-mt.1972 =============== Item was changed: ----- Method: ProjectViewMorph>>fontForName (in category 'drawing') ----- fontForName + ^TextStyle defaultFont emphasized: 1 - ^(TextStyle default fontOfSize: 15) emphasized: 1 !

1 0

The Trunk: System-lrnp.1346.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-lrnp.1346.mcz ==================== Summary ==================== Name: System-lrnp.1346 Author: lrnp Time: 26 April 2022, 10:04:20.315377 pm UUID: b1292e82-e7a2-4bd1-9b73-a3db6ccbbe42 Ancestors: System-mt.1345 fix order of operations error Was passing boolean is64Bit to #* instead of result of branch. Resolves an MNU on exporting a project. =============== Diff against System-mt.1345 =============== Item was changed: ----- Method: NativeImageSegment>>doSpaceAnalysis (in category 'statistics') ----- doSpaceAnalysis "Capture statistics about the IS and print the number of instances per class and space usage" | is64Bit index instCount instSpace | state == #activeCopy ifFalse:[self errorWrongState]. instCount := Dictionary new. instSpace := Dictionary new. is64Bit := ((segment at: 1) bitAnd: 16rFFFFFF) >= 68000. index := 3. "skip version word" "The Spur image format (in little endian format) is (num bits:fieldName(s))) msb: | 8: numSlots | (on a byte boundary) | 2 bits | (msb,lsb = {isMarked,?}) | 22: identityHash | (on a word boundary) | 3 bits | (msb <-> lsb = {isGrey,isPinned,isRemembered} | 5: format | (on a byte boundary) | 2 bits | (msb,lsb = {isImmutable,?}) | 22: classIndex | (on a word boundary) : LSB" [index > segment size] whileFalse: [| hiWord loWord numSlots bytes classIndex | loWord := segment at: index. hiWord := segment at: index + 1. numSlots := hiWord bitShift: -24. numSlots = 255 ifTrue: "word is an overflow header word. Slot count is in the least significant 56 bits." [numSlots := hiWord = 0 ifTrue: [loWord] ifFalse: [(hiWord bitShift: 32) + loWord bitAnd: 16rFFFFFFFFFFFFFF]. loWord := segment at: index + 2. hiWord := segment at: index + 3. bytes := 16] "two word header" ifFalse: [bytes := 8]. "one word header" + bytes := bytes + (8 * (is64Bit "objects are a multiple of 8 bytes in length, with at leats one slot" - bytes := bytes + (8 * is64Bit "objects are a multiple of 8 bytes in length, with at leats one slot" ifTrue: [numSlots max: 1] + ifFalse: [(numSlots max: 1) + 1 // 2])). - ifFalse: [(numSlots max: 1) + 1 // 2]). classIndex := loWord bitAnd: 16r3FFFFF. (index > 3 or: [classIndex ~~ 33]) ifTrue: "Don't count the initial arrayOfRoots" [instCount at: classIndex put: (instCount at: classIndex ifAbsent:[0]) + 1. instSpace at: classIndex put: (instSpace at: classIndex ifAbsent:[0]) + bytes]. index := index + (bytes / 4)]. ^{instCount. instSpace} collect: [:dict| self copyStatisticsDictionaryWithClassNames: dict]!

1 0

The Treated Inbox: Tools-lrnp.1144.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tools to project The Treated Inbox: http://source.squeak.org/treated/Tools-lrnp.1144.mcz ==================== Summary ==================== Name: Tools-lrnp.1144 Author: lrnp Time: 28 March 2022, 2:14:18.999919 pm UUID: 93cebbab-cdc7-4e8d-97c7-f8e7a099c4da Ancestors: Tools-mt.1143 remove unneeded method in PackagePaneBrowser Browser>>selectedSystemCategory is defined to return nil when nothing is selected, so remove the test in PackagePaneBrowser's version. Removing the test lets us remove the other method entirely. PackagePaneBrowser>>hasSystemCategorySelected was only needed to avoid infinite recursion. =============== Diff against Tools-mt.1143 =============== Item was removed: - ----- Method: PackagePaneBrowser>>hasSystemCategorySelected (in category 'system category list') ----- - hasSystemCategorySelected - ^ super selectedSystemCategory notNil.! Item was changed: ----- Method: PackagePaneBrowser>>selectedSystemCategory (in category 'system category list') ----- selectedSystemCategory "Answer the name of the selected system category or nil." - self hasSystemCategorySelected - ifFalse: [^nil]. packageListIndex = 0 ifTrue: [^ super selectedSystemCategory ]. ^ self package , '-' , super selectedSystemCategory!

1 0

The Treated Inbox: Tools-lrnp.1140.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tools to project The Treated Inbox: http://source.squeak.org/treated/Tools-lrnp.1140.mcz ==================== Summary ==================== Name: Tools-lrnp.1140 Author: lrnp Time: 4 March 2022, 4:45:22.218603 pm UUID: 6a02772e-f08b-471f-8a09-052ccc2c9055 Ancestors: Tools-mt.1139 build system category menu in browser when no category selected =============== Diff against Tools-mt.1139 =============== Item was changed: ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') ----- mainSystemCategoryMenu: aMenu <systemCategoryMenu> aMenu addTranslatedList: #( ('find class... (f)' findClass) ('back... (b)' recent) - ('browse all' browseAllClasses) ('browse' buildSystemCategoryBrowser)). + (Smalltalk isMorphic and: [self selectedSystemCategory notNil] and: [self selectedPackage notNil]) ifTrue: [ - (Smalltalk isMorphic and: [self selectedPackage notNil]) ifTrue: [ aMenu add: ('browse package ''{1}''' translated format: {self selectedPackage name}) subMenu: (self packageMenu: ((Smalltalk isMorphic ifTrue: [MenuMorph new defaultTarget: self; yourself] ifFalse: [CustomMenu new]) yourself)) target: self selector: #yourself argumentList: #()]. aMenu addTranslatedList: #( - ('printOut' printOutSystemCategory) ('fileOut' fileOutSystemCategory) - ('reorganize' editSystemCategories) ('alphabetize' alphabetizeSystemCategories) - ('update' updateSystemCategories) ('add item...' addSystemCategory) ('rename...' renameSystemCategory) ('remove (x)' removeSystemCategory)). ^ aMenu!

1 0

The Trunk: Tests-jar.461.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-jar.461.mcz ==================== Summary ==================== Name: Tests-jar.461 Author: jar Time: 2 May 2021, 2:51:16.847089 pm UUID: 651bce1b-31e0-aa41-8178-47c312752c8b Ancestors: Tests-nice.460 Test #outer in combination with #resignalAs =============== Diff against Tests-nice.460 =============== Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTest (in category 'tests') ----- + doubleOuterResignalAsTest + "ExceptionTester new doubleOuterResignalAsTest" + + [[self doSomething. + MyResumableTestError signal. + self doYetAnotherThing] + on: MyResumableTestError + do: [:ex | ex outer. self doSomethingExceptional]. self doSomethingElse] + on: MyResumableTestError + do: [:ex | ex resignalAs: MyTestNotification] + ! Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTestResults (in category 'tests') ----- + doubleOuterResignalAsTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterResignalAs (in category 'tests - ExceptionTester') ----- + testDoubleOuterResignalAs + self assertSuccess: (ExceptionTester new runTest: #doubleOuterResignalAsTest ) !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2022