Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: CollectionsTests-dtl.375.mcz
by commits＠source.squeak.org 30 Apr '22

30 Apr '22

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-dtl.375.mcz ==================== Summary ==================== Name: CollectionsTests-dtl.375 Author: dtl Time: 30 April 2022, 5:47:10.423283 pm UUID: 5a5a04ca-3618-427d-b61d-66da38ece296 Ancestors: CollectionsTests-ct.374 Test updates to complement Collections-eem.1008 Change beginsWith: and endsWith: to be true for the empty sequence, e.g. 'foo' beginsWith: '' is now true. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-April/220038.ht… =============== Diff against CollectionsTests-ct.374 =============== Item was changed: ----- Method: LinkedListTest>>testsBeginsWithEmpty (in category 'tests - begins ends with') ----- testsBeginsWithEmpty + self assert: (self nonEmpty beginsWith:(self empty)). - self deny: (self nonEmpty beginsWith:(self empty)). self deny: (self empty beginsWith:(self nonEmpty )). ! Item was changed: ----- Method: LinkedListTest>>testsEndsWithEmpty (in category 'tests - begins ends with') ----- testsEndsWithEmpty + self assert: (self nonEmpty endsWith: self empty). - self deny: (self nonEmpty endsWith: self empty). self deny: (self empty endsWith: self nonEmpty). ! Item was changed: ----- Method: SequenceableCollectionTest>>testBeginsWith (in category 'tests - testing') ----- testBeginsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la prefix oc | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 1; add: 2; add: 3. self assert: (la beginsWith: #(1)). + self deny: (la beginsWith: #(2)). self assert: (la beginsWith: #(1 2)). + self deny: (la beginsWith: #(1 1)). + self deny: (la beginsWith: #(2 2)). self assert: (la beginsWith: #(1 2 3)). + self deny: (la beginsWith: #(1 2 2)). self assert: (la beginsWith: oc). + self assert: (la beginsWith: #()). + self assert: (la beginsWith: ''). + self assert: (la beginsWith: OrderedCollection new). - self deny: (la beginsWith: #()). - self deny: (la beginsWith: ''). - self deny: (la beginsWith: OrderedCollection new). self assert: (oc beginsWith: #(1 2)). prefix := OrderedCollection new. + self assert: (oc beginsWith: prefix). - self deny: (oc beginsWith: prefix). prefix add: 1. self assert: (oc beginsWith: prefix). prefix add: 2. self assert: (oc beginsWith: prefix). prefix add: 3. self assert: (oc beginsWith: prefix). prefix add: 4. self deny: (oc beginsWith: prefix).! Item was changed: ----- Method: SequenceableCollectionTest>>testBeginsWithAnyOf (in category 'tests - testing') ----- testBeginsWithAnyOf "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 1; add: 2; add: 3. self assert: (la beginsWithAnyOf: #((17) (1) (42))). self assert: (la beginsWithAnyOf: #((17) (1 2) (42))). self assert: (la beginsWithAnyOf: #((17) (1 2 3) (42))). self deny: (la beginsWithAnyOf: #()). + self assert: (la beginsWithAnyOf: #(())). - self deny: (la beginsWithAnyOf: #(())). self deny: (la beginsWithAnyOf: #((42))). ! Item was changed: ----- Method: SequenceableCollectionTest>>testEndsWith (in category 'tests - testing') ----- testEndsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc suffix | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 4; add: 5; add: 6. self assert: (la endsWith: #(6)). + self deny: (la endsWith: #(5)). self assert: (la endsWith: #(5 6)). + self deny: (la endsWith: #(5 5)). + self deny: (la endsWith: #(6 6 )). self assert: (la endsWith: #(4 5 6)). + self deny: (la endsWith: #(5 5 6)). self assert: (la endsWith: oc). + self assert: (la endsWith: #()). + self assert: (la endsWith: ''). - self deny: (la endsWith: #()). - self deny: (la endsWith: ''). suffix := OrderedCollection new. + self assert: (oc endsWith: suffix). suffix add: 6. self assert: (oc endsWith: suffix). suffix addFirst: 5. self assert: (oc endsWith: suffix). suffix addFirst: 4. self assert: (oc endsWith: suffix). suffix addFirst: 3. self deny: (oc endsWith: suffix).! Item was changed: ----- Method: SequenceableCollectionTest>>testEndsWithAnyOf (in category 'tests - testing') ----- testEndsWithAnyOf "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc | la := #(6 5 4 3 2 1). oc := OrderedCollection new. oc add: 3; add: 2; add: 1. self assert: (la endsWithAnyOf: #((17) (1) (42))). self assert: (la endsWithAnyOf: #((17) (2 1) (42))). self assert: (la endsWithAnyOf: #((17) (3 2 1) (42))). self deny: (la endsWithAnyOf: #()). + self assert: (la endsWithAnyOf: #(())). - self deny: (la endsWithAnyOf: #(())). self deny: (la endsWithAnyOf: #((42))). ! Item was changed: ----- Method: StringTest>>testBeginsWith (in category 'tests - finding') ----- testBeginsWith self assert: ('Elvis' beginsWith: 'Elv'). self assert: ('Elvis' beginsWith: 'Elvis'). self assert: ('Elvis' beginsWith: 'E'). self deny: ('Elvis' beginsWith: 'e'). self deny: ('Elvis' beginsWith: 'Elvis '). + self assert: ('' beginsWith: ''). + self assert: ('abc' beginsWith: '')! - self deny: ('' beginsWith: ''). - self deny: ('abc' beginsWith: '')! Item was changed: ----- Method: StringTest>>testEndsWith (in category 'tests - finding') ----- testEndsWith self assert: ('Elvis' endsWith: 'vis'). self assert: ('Elvis' endsWith: 'Elvis'). self assert: ('Elvis' endsWith: 's'). self deny: ('Elvis' endsWith: 'S'). self deny: ('Elvis' endsWith: ' Elvis'). + self assert: ('' endsWith: ''). + self assert: ('abc' endsWith: '')! - self deny: ('' endsWith: ''). - self deny: ('abc' endsWith: '')! Item was changed: ----- Method: WideStringTest>>testBeginsWith (in category 'tests - beginsWith') ----- testBeginsWith "from johnmci at http://bugs.squeak.org/view.php?id=5331" | w1 w2 | self assert: ('abc' beginsWith: 'ab'). self assert: ('abc' beginsWith: 'ab' asWideString). self assert: ('abc' asWideString beginsWith: 'ab'). self assert: ('abc' beginsWith: 'aX') not . self assert: ('abc' beginsWith: 'AB') not. self assert: ('abc' beginsWith: 'AB' asWideString) not . self assert: ('ABC' asWideString beginsWith: 'ab') not. + self assert: ('' beginsWith: '' asWideString). + self assert: ('abc' beginsWith: '' asWideString). w1 := WideString with: (Unicode value: 402) with: $a with: (Unicode value: 400) with: $b. w2 := WideString with: (Unicode value: 402). w1 beginsWith: w2. + self assert: (w1 beginsWith: '' asWideString). + self assert: (w1 beginsWith: ''). + self assert: ('' asWideString beginsWith: '' asWideString). + self assert: ('' asWideString beginsWith: ''). !

1 0

The Trunk: Compiler-ct.474.mcz
by commits＠source.squeak.org 30 Apr '22

30 Apr '22

Christoph Thiede uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.474.mcz ==================== Summary ==================== Name: Compiler-ct.474 Author: ct Time: 30 April 2022, 7:53:05.514971 pm UUID: 7061d536-1604-0243-a378-f51ae046ff87 Ancestors: Compiler-ul.473 Fixes a parser bug during removal of empty temp declarations. Complements Tests-ct.485. =============== Diff against Compiler-ul.473 =============== Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode | sourceCode madeChanges tempsMarkHolder | sourceCode := cue requestor text asString. tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. madeChanges := false. tempsMarkHolder do: [ :currentBlock | | tempsMarkChar0 tempsMarkChar1 tempsMarkChar2 end start | tempsMarkChar0 := (sourceCode at: currentBlock tempsMark). tempsMarkChar1 := (sourceCode at: currentBlock tempsMark - 1). + tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2 ifAbsent: []). - tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2). (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $| ]) ifTrue: [ end := currentBlock tempsMark. start := end - 1]. (tempsMarkChar0 == $| and: [ tempsMarkChar1 == $ and: [ tempsMarkChar2 == $| ] ]) ifTrue: [ end := currentBlock tempsMark. start := end - 2]. (start notNil and: [ end notNil ]) ifTrue: [ | lineStart lineEnd | lineStart := 1 + (sourceCode lastIndexOf: Character cr startingAt: start - 1). lineEnd := sourceCode indexOf: Character cr startingAt: end + 1 ifAbsent: [ sourceCode size ]. ((sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: lineStart) >= start and: [ (sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: end + 1) > lineEnd ]) ifTrue: [ start := lineStart. end := lineEnd ]. cue requestor correctFrom: start to: end with: ''. madeChanges := true. currentBlock tempsMark: nil ] ]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!

1 0

The Trunk: Tests-ct.485.mcz
by commits＠source.squeak.org 30 Apr '22

30 Apr '22

Christoph Thiede uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.485.mcz ==================== Summary ==================== Name: Tests-ct.485 Author: ct Time: 30 April 2022, 7:50:59.794971 pm UUID: a69bcff7-8786-c948-b8d3-9a0472bebbda Ancestors: Tests-mt.484 Documents a parser bug during removal of empty temp declarations. =============== Diff against Tests-mt.484 =============== Item was added: + ----- Method: CompilerExceptionsTest>>basicCompile:do: (in category 'private') ----- + basicCompile: sourceString do: aBlock + + | result | + originalText := text := sourceString. + previousSelection := originalSelection := 1 to: text size + 1. + selectionInterval := nil. + result := aBlock value. + result ifNil: [^ self]. + selectionInterval := originalSelection.! Item was changed: ----- Method: CompilerExceptionsTest>>compile: (in category 'private') ----- + compile: sourceCode - compile: sourceString + sourceCode isBlock ifTrue: [^ sourceCode value]. + + ^ self basicCompile: sourceCode do: + [self class + compileSilently: text + classified: 'generated' + notifying: self]! - | result | - originalText := text := sourceString. - previousSelection := originalSelection := 1 to: text size + 1. - selectionInterval := nil. - result := self class - compileSilently: text - classified: 'generated' - notifying: self. - result ifNil: [^ self]. - selectionInterval := originalSelection.! Item was added: + ----- Method: CompilerExceptionsTest>>compileNoPattern: (in category 'private') ----- + compileNoPattern: sourceString + + ^ self basicCompile: sourceString do: + [self class newCompiler + compileNoPattern: text + in: self class + notifying: self + ifFail: []]! Item was changed: ----- Method: CompilerExceptionsTest>>testUnusedVariable (in category 'tests') ----- testUnusedVariable self compiling: 'griffle | goo | ^nil' shouldRaise: UnusedVariable andSelect: [self text] testing: { [:ex | ex resume] -> [self assertCanceled]. false -> [self assertSucceeded]. true -> [self assertSucceeded: 'griffle\s*\^nil' asRegex] }. + self + compiling: [self compileNoPattern: '| goo|^ nil' "note there is no space between the variable and the bar"] + shouldRaise: UnusedVariable + andSelect: [self text] + testing: { true -> [self assertSucceeded: '\s*\^ nil' asRegex] }. self compiling: 'griffle ^[ | goo | ]' shouldRaise: UnusedVariable andSelect: [self text] testing: { [:ex | ex resume] -> [self assertCanceled]. false -> [self assertSucceeded]. true -> [self assertSucceeded: 'griffle \^\[\s*\]' asRegex] }.!

1 0

The Trunk: Morphic-ct.1978.mcz
by commits＠source.squeak.org 30 Apr '22

30 Apr '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1978.mcz ==================== Summary ==================== Name: Morphic-ct.1978 Author: ct Time: 30 April 2022, 4:19:14.956924 pm UUID: cc487d75-d97c-8440-a198-83b5e57123ed Ancestors: Morphic-mt.1977 Adds optional model hook #debugExpression:requestor: to TextEditor, allowing models to pass the original requestor to the compiler. Complements Morphic-ct.1893 (#evaluateExpression:requestor:). =============== Diff against Morphic-mt.1977 =============== Item was changed: ----- Method: TextEditor>>debugIt (in category 'do-its') ----- debugIt | receiver context helperProcess | self lineSelectAndEmptyCheck: [^self]. + + (model respondsTo: #debugExpression:requestor:) + ifTrue: [^ model perform: #debugExpression:requestor: with: self selection with: self]. - (model respondsTo: #debugExpression:) ifTrue: [^ model perform: #debugExpression: with: self selection]. + - receiver := (model respondsTo: #doItReceiver) ifTrue: [model doItReceiver] ifFalse: [nil]. context := (model respondsTo: #doItContext) ifTrue: [model doItContext] ifFalse: [nil]. (self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod | helperProcess := context ifNil: [self assert: doItMethod selector = #DoIt. Process forMethod: doItMethod receiver: receiver] ifNotNil: [self assert: doItMethod selector = #DoItIn:. Process forMethod: doItMethod receiver: receiver arguments: {context}]. + helperProcess debugWithTitle: 'Debug it' translated].! - helperProcess debugWithTitle: 'Debug it'].!

1 0

The Trunk: ST80Tools-ct.15.mcz
by commits＠source.squeak.org 30 Apr '22

30 Apr '22

Christoph Thiede uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-ct.15.mcz ==================== Summary ==================== Name: ST80Tools-ct.15 Author: ct Time: 30 April 2022, 4:18:08.682924 pm UUID: 6031d20c-60bf-c341-aaf2-4109e66e0e73 Ancestors: ST80Tools-mt.14 Complements Morphic-ct.1978 (#debugExpression:requestor:). See also: ST80-ct.277. =============== Diff against ST80Tools-mt.14 =============== Item was changed: ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') ----- debugIt | receiver context helperProcess | self lineSelectAndEmptyCheck: [^self]. + + (model respondsTo: #debugExpression:requestor:) + ifTrue: [^ model perform: #debugExpression:requestor: with: self selection with: self]. + (model respondsTo: #debugExpression:) + ifTrue: [^ model perform: #debugExpression: with: self selection]. + - (model respondsTo: #doItReceiver) ifTrue: [receiver := model doItReceiver]. (model respondsTo: #doItContext) ifTrue: [context := model doItContext]. (self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod | helperProcess := context ifNil: [self assert: doItMethod selector = #DoIt. Process forMethod: doItMethod receiver: receiver] ifNotNil: [self assert: doItMethod selector = #DoItIn:. Process forMethod: doItMethod receiver: receiver arguments: {context}]. helperProcess debugWithTitle: 'Debug it' translated].!

1 0

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

28 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1977.mcz ==================== Summary ==================== Name: Morphic-mt.1977 Author: mt Time: 28 April 2022, 2:56:50.140338 pm UUID: 33a7d9ed-8946-a043-a299-464ddd24f41d Ancestors: Morphic-mt.1976 Fixes lock-up regarding #haloTransitions preference. Thanks to Lauren (lrnp) for reporting this! =============== Diff against Morphic-mt.1976 =============== Item was changed: ----- Method: HaloMorph>>delete (in category 'submorphs - add/remove') ----- delete "Delete the halo. Tell the target that it no longer has the halo; accept any pending edits to the name; and then either actually delete myself or start to fade out" self acceptNameEdit. self isMagicHalo: false. Preferences haloTransitions ifFalse: [super delete] ifTrue: [ self + lock; "Just a delete-animation from here on. No interaction." stopStepping; startStepping; startSteppingSelector: #fadeOutFinally]. !

1 0

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

28 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1976.mcz ==================== Summary ==================== Name: Morphic-mt.1976 Author: mt Time: 28 April 2022, 2:40:47.022338 pm UUID: 183b0b58-68ab-1245-8ede-ef180593957b Ancestors: Morphic-mt.1975 Fixes halo bounds after a blue/meta click-drag. Thanks to Tim (tcj) for reporting this issue! =============== Diff against Morphic-mt.1975 =============== Item was added: + ----- Method: HaloMorph>>mouseUp: (in category 'events') ----- + mouseUp: evt + + self endInteraction: evt.!

1 0

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

27 Apr '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.514.mcz ==================== Summary ==================== Name: Graphics-mt.514 Author: mt Time: 27 April 2022, 6:31:33.012285 pm UUID: 9dde8efe-1988-4859-899b-371696b6deec Ancestors: Graphics-mt.513 We must ensure that the GC does not collect our displayBits before we have set up new ones and communicated those to the VM. =============== Diff against Graphics-mt.513 =============== Item was changed: ----- Method: DisplayScreen>>restore (in category 'other') ----- restore + | priorBits | + priorBits := bits. "Must avoid to be GC'ed!!" + self setExtent: self class actualScreenSize depth: self nativeDepth. + self beDisplay. + priorBits := nil. "Documentation only." - self setExtent: self class actualScreenSize depth: self nativeDepth. - self beDisplay. Project current ifNotNil: [:p| p displaySizeChanged].!

1 0

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

27 Apr '22

Marcel Taeumel uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-lrnp.44.mcz ==================== Summary ==================== Name: MultilingualTests-lrnp.44 Author: lrnp Time: 23 April 2022, 3:07:06.551035 pm UUID: 3c234d7a-3c9e-4eb4-9e99-f7401dd66c8f Ancestors: MultilingualTests-mt.43 regression test for strings with Carriage Return =============== Diff against MultilingualTests-mt.43 =============== Item was changed: ----- Method: UTF8TextConverterTest>>testSqueakToUtf8 (in category 'tests') ----- testSqueakToUtf8 "Ensure proper encoding" self assert: '' squeakToUtf8 equals: ''. self assert: 'Hello World' squeakToUtf8 equals: 'Hello World'. self assert: 'Grüß Gott' squeakToUtf8 asByteArray + equals: #[71 114 195 188 195 159 32 71 111 116 116]. + self assert: ('CR', Character cr) squeakToUtf8 asByteArray equals: #[67 82 13]! - equals: #[71 114 195 188 195 159 32 71 111 116 116]! Item was changed: ----- Method: UTF8TextConverterTest>>testUtf8ToSqueak (in category 'tests') ----- testUtf8ToSqueak "Ensure proper encoding" self assert: '' utf8ToSqueak equals: ''. self assert: 'Hello World' utf8ToSqueak equals: 'Hello World'. self assert: #[71 114 195 188 195 159 32 71 111 116 116] asString utf8ToSqueak + equals: 'Grüß Gott'. + self assert: #[67 82 13] asString utf8ToSqueak equals: 'CR', Character cr! - equals: 'Grüß Gott' - - !

1 0

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

27 Apr '22

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1462.mcz ==================== Summary ==================== Name: Kernel-nice.1462 Author: nice Time: 26 April 2022, 1:24:22.90052 pm UUID: e7c0b097-55c5-8e43-9231-9164aa4a8b4e Ancestors: Kernel-nice.1461 Detect case of overflow in intermediate computations of Complex arithmetic (* and /), and fallback to more secured algorithm, with appropriate scaling and careful order of operations. Rationale: the strategy consisting in letting us - programmers - choose our punition, always use slower and less accurate divideSecureBy:, or take the risk of using a faster but potentially flawed #/ is too heavy for our shoulders. This is too high a tribute to prematured optimization. A better strategy is to provide arithmetic operations that will deliver correct results when possible, and let us develop ou own FastComplex specialization if we really want to live at risks for a few CPU cycles. An effort is made here to make the additional cost bearable. Additional cost induced by handling of exceptional cases does not count, because replacing an incorrect result with a correct one is priceless. Additional cost induced by detection of those conditions in non exceptional case is not that high: - isFinite is very cheap for exact arithmetic, - and just 1 op and 1 comparison for Float Note that in #/ implementation, we cannot test case of null denom in precondition because denom might be non null in exact arithmetic, but later vanishing due to underflow in automatic asFloat conversion. We thus have to protect with ZeroDivide handling. Again, a FloatComplex specialization could deal with this kind of optimization if really necessary. =============== Diff against Kernel-nice.1461 =============== Item was changed: ----- Method: Complex>>* (in category 'arithmetic') ----- * anObject "Answer the result of multiplying the receiver by aNumber." + | a b c d x y newReal newImaginary | - | a b c d newReal newImaginary | anObject isComplex ifTrue: [a := self real. b := self imaginary. c := anObject real. d := anObject imaginary. newReal := (a * c) - (b * d). newImaginary := (a * d) + (b * c). + ((newReal isFinite not or: [newImaginary isFinite not]) and: [self isZero not and: [anObject isZero not]]) + ifTrue: + ["intermediate computations do overflow, but the product may be finite, retry with scaling" + x := a abs max: b abs. + y := c abs max: d abs. + a := a / x. + b := b / x. + c := c / y. + d := d / y. + newReal := (a * c) - (b * d) * x * y. + newImaginary := (a * d) + (b * c) * x * y]. ^ Complex real: newReal imaginary: newImaginary] ifFalse: [^ anObject adaptToComplex: self andSend: #*]! Item was changed: ----- Method: Complex>>/ (in category 'arithmetic') ----- / anObject "Answer the result of dividing receiver by aNumber" + | a b c d newReal newImaginary denom | - | a b c d newReal newImaginary | anObject isComplex ifTrue: [a := self real. b := self imaginary. c := anObject real. d := anObject imaginary. + denom := c squared + d squared. + [newReal := ((a * c) + (b * d)) / denom. + newImaginary := ((b * c) - (a * d)) / denom] + on: ZeroDivide do: + [:exc | + "This might be a case of underflow - resume with a value that will result in a secured retry" + exc resume: Float infinity]. + (denom isFinite and: [newReal isFinite and: [newImaginary isFinite]]) + ifFalse: + ["case of overflow, retry securedly" + ^self divideSecureBy: anObject]. - newReal := ((a * c) + (b * d)) / ((c * c) + (d * d)). - newImaginary := ((b * c) - (a * d)) / ((c * c) + (d * d)). ^ Complex real: newReal imaginary: newImaginary]. ^ anObject adaptToComplex: self andSend: #/.!

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