Packages August 2022

packages@lists.squeakfoundation.org

1 participants
47 discussions

The Trunk: Morphic-mt.2025.mcz
by commits＠source.squeak.org 15 Aug '22

15 Aug '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2025.mcz ==================== Summary ==================== Name: Morphic-mt.2025 Author: mt Time: 15 August 2022, 12:50:46.840306 pm UUID: a5e3954c-4e93-fd41-b800-7a3f105682ea Ancestors: Morphic-mt.2024 Minor tweak of previous commit to ensure visibility of empty text morphs. =============== Diff against Morphic-mt.2024 =============== Item was changed: ----- Method: TextMorph>>createParagraph (in category 'private') ----- createParagraph self setProperty: #CreatingParagraph toValue: true. [ self setDefaultContentsIfNil. "...Code here to recreate the paragraph..." paragraph := (self paragraphClass new textOwner: self owner). paragraph wantsColumnBreaks: successor notNil. paragraph compose: text style: textStyle from: self startingIndex in: self container. wrapFlag ifFalse: ["Was given huge container at first... now adjust" + paragraph adjustRightXDownTo: paragraph caretWidth]. - paragraph adjustRightX]. paragraph focused: (self currentHand keyboardFocus == self). paragraph caretColor: self caretColor; selectionColor: self selectionColor; unfocusedSelectionColor: self unfocusedSelectionColor. self fit. ] ensure: [self removeProperty: #CreatingParagraph]. ^ paragraph!

1 0

The Trunk: Morphic-mt.2024.mcz
by commits＠source.squeak.org 15 Aug '22

15 Aug '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2024.mcz ==================== Summary ==================== Name: Morphic-mt.2024 Author: mt Time: 15 August 2022, 12:46:58.334306 pm UUID: 2fd9a707-6be5-514a-8003-d9575eb99687 Ancestors: Morphic-mt.2023 Fixes minimal width of TextMorph. Adds more commentary to the relevant methods. Thanks to Stef (spfa) for pointing this out! I will backport this to Squeak 6.0. =============== Diff against Morphic-mt.2023 =============== Item was changed: ----- Method: TextMorph>>createParagraph (in category 'private') ----- createParagraph self setProperty: #CreatingParagraph toValue: true. [ self setDefaultContentsIfNil. "...Code here to recreate the paragraph..." paragraph := (self paragraphClass new textOwner: self owner). paragraph wantsColumnBreaks: successor notNil. paragraph compose: text style: textStyle from: self startingIndex in: self container. wrapFlag ifFalse: ["Was given huge container at first... now adjust" + paragraph adjustRightX]. - paragraph adjustRightXDownTo: self minCompositionWidth]. paragraph focused: (self currentHand keyboardFocus == self). paragraph caretColor: self caretColor; selectionColor: self selectionColor; unfocusedSelectionColor: self unfocusedSelectionColor. self fit. ] ensure: [self removeProperty: #CreatingParagraph]. ^ paragraph! Item was changed: ----- Method: TextMorph>>minCompositionHeight (in category 'layout') ----- minCompositionHeight + "Answer the minimal height for the receiver's composited contents. Without linebreaks, this height matches the default font's line grid. Note that we cannot use information from paragraph here, as it would require the text composition to have already happened." ^ (textStyle ifNil: [TextStyle default]) lineGrid! Item was changed: ----- Method: TextMorph>>minCompositionWidth (in category 'layout') ----- minCompositionWidth + "Answer the minimal width for the receiver's composited contents. Without specific content, this width could be zero but matches the default font's example text to avoid composition issues. Note that we cannot use information from paragraph here, as it would require the text composition to have already happened." + self flag: #todo. "mt: Fix issues in CompositionScanner to allow for 0 or at least fit a specific character to match the single-line metric in #minCompositionHeight." ^ ((textStyle ifNil: [TextStyle default]) defaultFont widthOf: $x) * 2! Item was changed: ----- Method: TextMorph>>minHeight (in category 'layout') ----- minHeight + "Answer the minimal height of the receiver to be used in Morphic layout policies. Avoid text composition if there is no paragraph yet to speed up overall layouting and avoid cyclic algorithmic dependencies. The minimal height is basically computed from text-composition metrics and extra decoration such as borders and margins." | result | result := (paragraph ifNil: [self minCompositionHeight] ifNotNil: [:para| para lines first lineHeight]) + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [result + margins y + margins y] ifFalse: [result + (2*margins)]]! Item was changed: ----- Method: TextMorph>>minWidth (in category 'layout') ----- minWidth + "Answer the minimal width of the receiver to be used in Morphic layout policies. Avoid text composition if there is no paragraph yet to speed up overall layouting and avoid cyclic algorithmic dependencies. The minimal width is basically computed from text-composition metrics and extra decoration such as borders and margins." + - | result | result := self minCompositionWidth + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins left + margins right] ifFalse: [margins isPoint ifTrue: [result + margins x + margins x] ifFalse: [result + (2*margins)]]!

1 0

The Trunk: Graphics-mt.534.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.534.mcz ==================== Summary ==================== Name: Graphics-mt.534 Author: mt Time: 11 August 2022, 11:52:02.396716 am UUID: 8d928785-9cfa-7f4d-8bc0-6e95a8913a00 Ancestors: Graphics-mt.533 Complements Morphic-mt.2023. =============== Diff against Graphics-mt.533 =============== Item was changed: Object subclass: #AbstractFont instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'ForceNonSubPixelCount' poolDictionaries: '' category: 'Graphics-Fonts'! !AbstractFont commentStamp: '<historical>' prior: 0! AbstractFont defines the generic interface that all fonts need to implement.! Item was removed: - ----- Method: AbstractFont class>>forceNonSubPixelCount (in category 'utilities') ----- - forceNonSubPixelCount - "Answer the force non-subpixel count" - ^ForceNonSubPixelCount ifNil:[ForceNonSubPixelCount := 0]! Item was removed: - ----- Method: AbstractFont class>>forceNonSubPixelDuring: (in category 'utilities') ----- - forceNonSubPixelDuring: aBlock - "Forces all font rendering to suppress subpixel anti-aliasing during the execution of aBlock" - ForceNonSubPixelCount ifNil:[ForceNonSubPixelCount := 0]. - ForceNonSubPixelCount := ForceNonSubPixelCount + 1. - aBlock ensure:[ForceNonSubPixelCount := ForceNonSubPixelCount - 1]!

1 0

The Trunk: Morphic-mt.2023.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2023.mcz ==================== Summary ==================== Name: Morphic-mt.2023 Author: mt Time: 11 August 2022, 11:48:06.254716 am UUID: 97302602-a946-c044-b656-571f5e044af3 Ancestors: Morphic-mt.2022 Remove unused FreeTypePlus-specific hook (and checks) for avoiding sub-pixel-AA in TransformMorph. =============== Diff against Morphic-mt.2022 =============== Item was changed: ----- Method: TransformMorph>>drawSubmorphsOn: (in category 'drawing') ----- drawSubmorphsOn: aCanvas aCanvas transformBy: transform clippingTo: self innerBounds + during: [:myCanvas | submorphs reverseDo: [:m | myCanvas fullDrawMorph: m]] + smoothing: smoothing.! - during: [:myCanvas | - (self angle ~= 0.0 or: [self scale ~= 1.0]) - ifTrue:[ - AbstractFont forceNonSubPixelDuring:[ - submorphs reverseDo:[:m | myCanvas fullDrawMorph: m] ] ] - ifFalse:[ - submorphs reverseDo:[:m | myCanvas fullDrawMorph: m] ] ] - smoothing: smoothing!

1 0

The Trunk: Multilingual-mt.286.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.286.mcz ==================== Summary ==================== Name: Multilingual-mt.286 Author: mt Time: 11 August 2022, 11:07:36.895716 am UUID: 942929f9-099f-914a-925a-4b1eaaf4f425 Ancestors: Multilingual-mt.285 Updates some categories. =============== Diff against Multilingual-mt.285 =============== Item was changed: + ----- Method: GreekEnvironment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: GreekEnvironment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('el' )! Item was changed: + ----- Method: Latin2Environment class>>clipboardInterpreterClass (in category 'accessing') ----- - ----- Method: Latin2Environment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass (#('Win32') includes: Smalltalk platformName) ifTrue: [^CP1250ClipboardInterpreter ]. ^ ISO88592ClipboardInterpreter . ! Item was changed: + ----- Method: Latin2Environment class>>inputInterpreterClass (in category 'accessing') ----- - ----- Method: Latin2Environment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass (#('Win32') includes: Smalltalk platformName) ifTrue: [^CP1250InputInterpreter ]. ^ ISO88592InputInterpreter. ! Item was changed: + ----- Method: Latin2Environment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: Latin2Environment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('cs' 'hu' 'ro' 'hr' 'sk' 'sl') "Sorbian languages don't have two char code?" ! Item was changed: + ----- Method: RussianEnvironment class>>clipboardInterpreterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass ^ UTF8ClipboardInterpreter. ! Item was changed: + ----- Method: RussianEnvironment class>>inputInterpreterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: [^UTF32RussianInputInterpreter]. platformName = 'Mac OS' ifTrue: [^ (((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") and: [(Smalltalk getSystemAttribute: 3) isNil]) ifTrue: [MacUnicodeInputInterpreter] ifFalse: [MacRomanInputInterpreter]]. platformName = 'unix' ifTrue: [^ UTF32RussianInputInterpreter]. ^ MacRomanInputInterpreter! Item was changed: + ----- Method: RussianEnvironment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('ru' )! Item was changed: + ----- Method: RussianEnvironment class>>systemConverterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass ^ UTF8TextConverter!

1 0

The Trunk: Graphics-mt.533.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.533.mcz ==================== Summary ==================== Name: Graphics-mt.533 Author: mt Time: 11 August 2022, 11:03:26.624716 am UUID: b88c0a4b-3f7a-5d49-bc62-9bd70017a75f Ancestors: Graphics-mt.532 Minor fix for "holes" in the xTable of (legacy) StrikeFonts. For example, the "JapaneseEnvironment new installFont" will load a StrikeFont with a lot of glyphs but holes in the xTable. =============== Diff against Graphics-mt.532 =============== Item was changed: ----- Method: StrikeFont>>hasGlyphForCode: (in category 'private') ----- hasGlyphForCode: aCharacterCode "Note that missing glyphs are encoded as -1 in the xTable but to speed up the #widthOf: check, the next offset must be adjacent and thus be duplicated. For example: #(-1 -1 0 24 -1 -1 -1 24 48 -1 ...). Since aCharacterCode is 0-based, that codes offset is at +1 while its width needs to consult +2, too. See #widthOf:." + | here next | (aCharacterCode between: self minAscii and: self maxAscii) ifFalse: [^ false]. + (here := xTable at: aCharacterCode + 1) >= 0 - (xTable at: aCharacterCode + 1) >= 0 ifFalse: [^ false]. + (next := xTable at: aCharacterCode + 2) >= 0 - (xTable at: aCharacterCode + 2) >= 0 ifFalse: [^ false]. + (next - here) > 0 + ifFalse: [^ false]. ^ true!

1 0

The Trunk: Graphics-mt.532.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.532.mcz ==================== Summary ==================== Name: Graphics-mt.532 Author: mt Time: 11 August 2022, 10:50:27.946716 am UUID: 17ac3673-2a80-f14a-8fc0-600139584858 Ancestors: Graphics-mt.531 Fixes (and polishes) font preview for symbol fonts such as "Segoe UI Emoji" or "Wingdings". =============== Diff against Graphics-mt.531 =============== Item was changed: ----- Method: AbstractFont>>symbolSample (in category 'example') ----- symbolSample "Variation of Text class >> #symbolSample, which uses the receiver's available code points. This is important for fonts such as Wingdings." + ^ String streamContents: [:stream | | codePoint lineLength maxLineLength character numLines | + lineLength := numLines := 0. + codePoint := self minCodePoint max: 16r1000. + maxLineLength := (TextStyle defaultFont widthOf: $x) * 45. + [numLines > 20 or: [codePoint > self maxCodePoint]] whileFalse: [ - ^ String streamContents: [:stream | | start lineLength character | - lineLength := 0. - (start := self minCodePoint max: 33) to: (self maxCodePoint min: start + 200) do: [:codePoint | (self hasGlyphOf: (character := Character value: codePoint)) + ifTrue: [ + stream nextPut: character. + ((lineLength := lineLength + (self widthOf: character)) > maxLineLength) ifTrue: [ - ifTrue: [stream nextPut: character. - ((lineLength := lineLength + 1) > 30) ifTrue: [ lineLength := 0. + numLines := numLines + 1. + stream cr]]. + codePoint := codePoint + 1 ]]! - stream cr]]]]!

1 0

The Trunk: Graphics-kfr.528.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.528.mcz ==================== Summary ==================== Name: Graphics-kfr.528 Author: kfr Time: 8 July 2022, 8:58:09.715763 am UUID: 40dbdaff-40b8-544a-8136-c4bc907174ad Ancestors: Graphics-kfr.527 Color>>at: is slow. Speed up by using variable =============== Diff against Graphics-kfr.527 =============== Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result !

1 0

The Trunk: Graphics-kfr.529.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.529.mcz ==================== Summary ==================== Name: Graphics-kfr.529 Author: kfr Time: 8 July 2022, 9:09:08.988763 am UUID: c82ec469-0674-f04c-9123-0b36fb8eb7d6 Ancestors: Graphics-kfr.528 Floyd Steinberg dither for forms of 1 to 8 bit depth. =============== Diff against Graphics-kfr.527 =============== Item was added: + ----- Method: Form>>at:bias: (in category 'processing') ----- + at: aPoint bias: aQuantError + | x y color point oldColor | + x := aPoint x. + y := aPoint y. + + point := (x + 1 min: self width)@ y. + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.4375). "7/16" + self colorAt: point put: color. + + point := (x - 1 max: 0)@ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.1875)."3/16" + self colorAt: point put: color. + + point := x @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.3125 ) ."5/16" + self colorAt: point put: color. + + point := (x + 1 min: self width) @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.0625 ) ."1/16" + self colorAt: point put: color. + ! Item was added: + ----- Method: Form>>dither: (in category 'processing') ----- + dither: aDepth + | newColor oldColor quantError result | + "Floyd Steinberg dithering for depth 1 to 8 bits" + result := self copy. + (0 to: height) do:[:y| + (0 to: width) do:[:x| + oldColor := (result colorAt: x@y). + newColor := Color colorFromPixelValue: (oldColor pixelValueForDepth: aDepth) depth: aDepth. + result colorAt: x@y put: newColor. + quantError := (oldColor - newColor). + result at: x@y bias: quantError]]. + ^result.! Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result !

1 0

The Trunk: Graphics-kfr.530.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.530.mcz ==================== Summary ==================== Name: Graphics-kfr.530 Author: kfr Time: 9 August 2022, 7:12:20.983085 am UUID: ee4a3ab4-fc38-f349-b0bc-f6f109ba9d01 Ancestors: Graphics-kfr.529 Avoid call to allButFirstDo: in Rectangle class>>encompassing: and Rectangle class>>merging:. But keep the call to Rectangle class>>origin: corner: so subclasses can use these methods =============== Diff against Graphics-kfr.527 =============== Item was added: + ----- Method: Form>>at:bias: (in category 'processing') ----- + at: aPoint bias: aQuantError + | x y color point oldColor | + x := aPoint x. + y := aPoint y. + + point := (x + 1 min: self width)@ y. + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.4375). "7/16" + self colorAt: point put: color. + + point := (x - 1 max: 0)@ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.1875)."3/16" + self colorAt: point put: color. + + point := x @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.3125 ) ."5/16" + self colorAt: point put: color. + + point := (x + 1 min: self width) @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.0625 ) ."1/16" + self colorAt: point put: color. + ! Item was added: + ----- Method: Form>>dither: (in category 'processing') ----- + dither: aDepth + | newColor oldColor quantError result | + "Floyd Steinberg dithering for depth 1 to 8 bits" + result := self copy. + (0 to: height) do:[:y| + (0 to: width) do:[:x| + oldColor := (result colorAt: x@y). + newColor := Color colorFromPixelValue: (oldColor pixelValueForDepth: aDepth) depth: aDepth. + result colorAt: x@y put: newColor. + quantError := (oldColor - newColor). + result at: x@y bias: quantError]]. + ^result.! Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result ! Item was changed: ----- Method: Rectangle class>>encompassing: (in category 'instance creation') ----- encompassing: listOfPoints "A number of callers of encompass: should use this method." | topLeft bottomRight | + topLeft := bottomRight := nil. + listOfPoints do: + [:p | topLeft == nil + ifTrue: [topLeft := bottomRight := p] + ifFalse: [topLeft := topLeft min: p. + bottomRight := bottomRight max: p]]. + ^self origin: topLeft corner: bottomRight! - topLeft := bottomRight := listOfPoints first. - listOfPoints allButFirstDo: - [:p |topLeft := topLeft min: p. - bottomRight := bottomRight max: p]. - ^self origin: topLeft corner: bottomRight - ! Item was changed: ----- Method: Rectangle class>>merging: (in category 'instance creation') ----- merging: listOfRects "A number of callers of merge: should use this method." + | minX minY maxX maxY | - | bottomRight topLeft | - topLeft := listOfRects first topLeft. - bottomRight := listOfRects first bottomRight. listOfRects + do: [:r | minX + ifNil: [minX := r topLeft x. minY := r topLeft y. + maxX := r bottomRight x. maxY := r bottomRight y] + ifNotNil: [minX := minX min: r topLeft x. minY := minY min: r topLeft y. + maxX := maxX max: r bottomRight x. maxY := maxY max: r bottomRight y]]. + ^self origin: minX@minY corner: maxX@maxY! - allButFirstDo: [:r | topLeft := topLeft min: r topLeft. - bottomRight := bottomRight max: r bottomRight]. - ^self origin: topLeft corner: bottomRight. - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2022