Packages August 2022

packages@lists.squeakfoundation.org

1 participants
47 discussions

The Trunk: Morphic-ct.2031.mcz
by commits＠source.squeak.org 24 Aug '22

24 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2031.mcz ==================== Summary ==================== Name: Morphic-ct.2031 Author: ct Time: 24 August 2022, 12:13:26.793424 pm UUID: c66506c8-e4ae-984d-8c5e-166fc9239dc9 Ancestors: Morphic-ct.2030 Adds missing #cleanUp on SystemProgressMorph. =============== Diff against Morphic-ct.2030 =============== Item was added: + ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + self initialize. + "no reset here - unique instance is updated on instance side"! Item was added: + ----- Method: SystemProgressMorph class>>cleanUp (in category 'class initialization') ----- + cleanUp + + self initialize; reset.!

1 0

The Trunk: Morphic-ct.1617.mcz
by commits＠source.squeak.org 24 Aug '22

24 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1617.mcz ==================== Summary ==================== Name: Morphic-ct.1617 Author: ct Time: 12 January 2020, 3:34:20.453555 am UUID: d75dd5ad-8420-c443-9314-c01d96409fae Ancestors: Morphic-tpr.1616 Fixes #applyUserInterfaceTheme on SystemProgressMorph really! Explanation: Resetting the ProgressMorph from the class side is definively bad, because it deletes the progress morph if currently visible. The current instance-side implementation was not reliable either, because if the UniqueInstance is not in world, it cannot apply the new UI theme. Thus we need to override #canApplyUserInterfaceTheme from Morph. This commit replaces Morphic-ct.1615. See also: http://forum.world.st/SystemProgressMorph-applyUserInterfaceTheme-td5108129… =============== Diff against Morphic-tpr.1616 =============== Item was removed: - ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- - applyUserInterfaceTheme - - self reset.! Item was added: + ----- Method: SystemProgressMorph>>canApplyUserInterfaceTheme (in category 'updating') ----- + canApplyUserInterfaceTheme + + ^ true!

1 0

The Trunk: Morphic-ct.2030.mcz
by commits＠source.squeak.org 24 Aug '22

24 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2030.mcz ==================== Summary ==================== Name: Morphic-ct.2030 Author: ct Time: 24 August 2022, 12:07:05.374424 pm UUID: 4fc95e51-9bec-7b4e-90a6-bedabbf1814e Ancestors: Morphic-ct.2029, Morphic-ct.1617 Merges Morphic-ct.1617: Fixes #applyUserInterfaceTheme on SystemProgressMorph. =============== Diff against Morphic-ct.2029 =============== Item was removed: - ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- - applyUserInterfaceTheme - - self initialize; reset.! Item was added: + ----- Method: SystemProgressMorph>>canApplyUserInterfaceTheme (in category 'updating') ----- + canApplyUserInterfaceTheme + + ^ true!

1 0

The Trunk: Morphic-ct.2029.mcz
by commits＠source.squeak.org 23 Aug '22

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2029.mcz ==================== Summary ==================== Name: Morphic-ct.2029 Author: ct Time: 23 August 2022, 1:44:06.758308 pm UUID: 929c72ba-79de-ca41-bfad-4182ac5f0d3f Ancestors: Morphic-ct.2028 Adds public #updateThumbnail: on ProjectViewMorph. =============== Diff against Morphic-ct.2028 =============== Item was changed: ----- Method: ProjectViewMorph>>on: (in category 'events') ----- on: aProject project := aProject. self addProjectNameMorphFiller. + self updateThumbnail: false.! - lastProjectThumbnail := nil. - project viewSize ifNil: [project viewSize: self extent]. - project thumbnail: project previewImageForm. - self extent: project thumbnail extent.! Item was added: + ----- Method: ProjectViewMorph>>updateThumbnail: (in category 'accessing') ----- + updateThumbnail: forceExtent + "Update the thumbnail of the receiver. If forceExtent is false, keep the extent of the previous thumbnail, if any. After scaling up the receiver, this message should be sent with forceExtent = true." + + lastProjectThumbnail := nil. + (forceExtent or: [project viewSize isNil]) ifTrue: [ + project viewSize: self extent]. + project thumbnail: project previewImageForm. + self extent: project thumbnail extent.!

1 0

The Trunk: Morphic-ct.2028.mcz
by commits＠source.squeak.org 23 Aug '22

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2028.mcz ==================== Summary ==================== Name: Morphic-ct.2028 Author: ct Time: 23 August 2022, 1:14:55.320308 pm UUID: e4fc5959-8c38-f04e-a993-2315a0f6c00c Ancestors: Morphic-ct.2027, Morphic-ct.1687 Merges Morphic-ct.1687: Fixes SystemWindow >> #collapseOrExpand if the window being collapsed is not in world. =============== Diff against Morphic-ct.2027 =============== Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self beKeyWindow. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window' translated]. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters. - self addGrips. (self hasProperty: #applyTheme) ifTrue: [ self removeProperty: #applyTheme. self userInterfaceTheme applyTo: self allMorphs]] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. + self removeCornerGrips. - self removeGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window' translated ]. expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated ]. + self isInWorld ifTrue: [self sendToBack]]. + self layoutChanged.! - self sendToBack]. - self layoutChanged!

1 0

The Trunk: Morphic-ct.2027.mcz
by commits＠source.squeak.org 23 Aug '22

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2027.mcz ==================== Summary ==================== Name: Morphic-ct.2027 Author: ct Time: 23 August 2022, 1:06:20.364308 pm UUID: d042a989-c812-3b4d-b00e-f50e4c387956 Ancestors: Morphic-mt.2025 Improves high-dpi support for SimpleButtonMorph and deduplicates #label:[font:]. =============== Diff against Morphic-mt.2025 =============== Item was changed: ----- Method: SimpleButtonMorph>>label: (in category 'accessing') ----- label: aString + ^ self label: aString font: nil! - | oldLabel m | - (oldLabel := self findA: StringMorph) - ifNotNil: [oldLabel delete]. - m := StringMorph contents: aString font: TextStyle defaultFont. - self extent: m extent + (self borderWidth + 6). - m position: self center - (m extent // 2). - self addMorph: m. - m lock! Item was changed: ----- Method: SimpleButtonMorph>>label:font: (in category 'accessing') ----- label: aString font: aFont | oldLabel m | (oldLabel := self findA: StringMorph) ifNotNil: [oldLabel delete]. + m := StringMorph contents: aString font: (aFont ifNil: [TextStyle defaultFont]). + self extent: m extent + (self borderWidth + 6 px). - m := StringMorph contents: aString font: (aFont ifNil: [Preferences standardButtonFont]). - self extent: (m width + 6) @ (m height + 6). m position: self center - (m extent // 2). self addMorph: m. + m lock.! - m lock - !

1 0

The Treated Inbox: MorphicExtras-ct.324.mcz
by commits＠source.squeak.org 23 Aug '22

23 Aug '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Treated Inbox: http://source.squeak.org/treated/MorphicExtras-ct.324.mcz ==================== Summary ==================== Name: MorphicExtras-ct.324 Author: ct Time: 23 August 2022, 12:39:40.403308 pm UUID: 293d6c50-c8a0-4746-b2aa-3adb1d631288 Ancestors: MorphicExtras-eem.322 Fixes high-dpi support in RecordingControlsMorph. =============== Diff against MorphicExtras-eem.322 =============== Item was changed: ----- Method: RecordingControlsMorph>>addRecordLevelSliderIn: (in category 'other') ----- addRecordLevelSliderIn: aPoint | levelSlider r | levelSlider := SimpleSliderMorph new color: color darker; extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger; target: recorder; actionSelector: #recordLevel:; adjustToValue: recorder recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; + height: aPoint y + 2 px. + r addMorphBack: (StringMorph contents: '0 ' font: TextStyle defaultFont). - height: aPoint y + 2. - r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont). r addMorphBack: levelSlider. + r addMorphBack: (StringMorph contents: ' 10' font: TextStyle defaultFont). + self addMorphBack: r.! - r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont). - self addMorphBack: r. - ! Item was changed: ----- Method: RecordingControlsMorph>>buttonName:action: (in category 'other') ----- buttonName: aString action: aSymbol ^ SimpleButtonMorph new target: self; + label: aString; - label: aString font: Preferences standardButtonFont; actionSelector: aSymbol !

1 0

The Trunk: Graphics-nice.536.mcz
by commits＠source.squeak.org 21 Aug '22

21 Aug '22

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.536.mcz ==================== Summary ==================== Name: Graphics-nice.536 Author: nice Time: 21 August 2022, 5:36:40.736262 pm UUID: a4930d0f-a408-724e-b9e0-4eb4841607e3 Ancestors: Graphics-nice.535 Further accelerate Color creation from 8 bits components. For this we pre-multiply the constants by the destination shift - 8, so as to omit the right shift >> 8 followed by the left shift << Red/GreenShift. - RedShift = 20 bits, 16r403 >> (20-8) = 16r403000 - GreenShift = 10 bits, 16r403 >> (10-8) = 16r100C =============== Diff against Graphics-nice.535 =============== Item was changed: ----- Method: Color>>setRed8:green8:blue8: (in category 'private') ----- setRed8: r green8: g blue8: b "Initialize this color's r, g, and b components to the given values in the range [0..255]. Use an optimized operation rather than a slow division" " self assert: ((0 to: 255) allSatisfy: [:e | (e*1023/255) rounded = (e * 16r403 + 16r81 >> 8)]). " ComponentMax = 1023 ifFalse: [^self setRed: r / 255 green: g / 255 blue: b / 255]. rgb == nil ifFalse: [self attemptToMutateError]. + rgb := (r* 16r403000 + 16r81000 bitAnd: 16r3FF00000 "ComponentMask << RedShift" ) + + (g* 16r100C + 16r204 bitAnd: 16rFFC00 "ComponentMask << GreenShift" ) + + (b* 16r403 + 16r81 >> 8). - rgb := ((r* 16r403 + 16r81 >> 8) bitShift: RedShift) - + ((g* 16r403 + 16r81 >> 8) bitShift: GreenShift) - + ((b* 16r403 + 16r81 >> 8)). cachedDepth := nil. cachedBitPattern := nil.! Item was changed: ----- Method: Color>>setRed:green:blue:range: (in category 'private') ----- setRed: r green: g blue: b range: range "Initialize this color's r, g, and b components to the given values in the range [0..r]." + range = ComponentMax ifTrue: [^self setPrivateRed: r green: g blue: b]. range = 255 ifTrue: [^self setRed8: r green8: g blue8: b]. ^ self setRed: r / range green: g / range blue: b / range! Item was changed: DisplayMedium subclass: #Form instanceVariableNames: 'bits width height depth offset' classVariableNames: 'CompressOnSnapshot' poolDictionaries: '' category: 'Graphics-Display Objects'! + !Form commentStamp: 'nice 5/3/2020 18:04' prior: 0! - !Form commentStamp: 'cbc 5/5/2017 10:07' prior: 0! A rectangular array of pixels, used for holding images. All pictures, including character images are Forms. The depth of a Form is how many bits are used to specify the color at each pixel. The actual bits are held in a Bitmap, whose internal structure is different at each depth. Class Color allows you to deal with colors without knowing how they are actually encoded inside a Bitmap. The supported depths (in bits) are 1, 2, 4, 8, 16, and 32. The number of actual colors at these depths are: 2, 4, 16, 256, 32768, and 16 million. Forms are indexed starting at 0 instead of 1; thus, the top-left pixel of a Form has coordinates 0@0. Forms are combined using BitBlt. See the comment in class BitBlt. Forms that repeat many times to fill a large destination are InfiniteForms. colorAt: x@y Returns the abstract Color at this location displayAt: x@y shows this form on the screen displayOn: aMedium at: x@y shows this form in a Window, a Form, or other DisplayMedium fillColor: aColor Set all the pixels to the color. edit launch an editor to change the bits of this form. pixelValueAt: x@y The encoded color. The encoding depends on the depth. + Details about internal format for Bitmap: + Pixels are organised left to right, top to bottom, that is as a contiguous serie of lines. + Each pixel is made of a fixed quantity of bits (depth). + Thus a Bitmap can be viewed as a rectangular area of size (width*depth x height) in bits. + However, the beginning of each line in the bitmap must fall on a 32-bit word boundary. + Thus the actual bitSize of a line is rounded up to next multiple of 32. + The Bitmap may somehow have unsued bits near the end of each line. + + Note: If you want to hook up other external forms/displayScreens, please look at the (successful) Graphics-External package in http://www.squeaksource.com/Balloon3D. + + ! - Note: If you want to hook up other external forms/displayScreens, please look at the (successful) Graphics-External package in http://www.squeaksource.com/Balloon3D.!

1 0

The Trunk: Graphics-nice.535.mcz
by commits＠source.squeak.org 19 Aug '22

19 Aug '22

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.535.mcz ==================== Summary ==================== Name: Graphics-nice.535 Author: nice Time: 19 August 2022, 3:55:21.336121 pm UUID: 51ad8137-3d54-2a4e-b30b-c30462a833ed Ancestors: Graphics-mt.534 Fix Color mercury (scaled components missing a range spec), provide an accelerated constructor for Color, and use it for some named colors. Comparing these: { [Color r: 16r04/255 g: 16r02/255 b: 16rFF/255] bench. [Color r: 16r04 g: 16r02 b: 16rFF range: 255] bench. } I get near 9x acceleration on Spur64 =============== Diff against Graphics-mt.534 =============== Item was changed: ----- Method: Color class>>aluminum (in category 'named colors - crayons') ----- aluminum + ^ Color r: 153 g: 153 b: 153 range: 255! - ^ Color r: 153/255 g: 153/255 b: 153/255! Item was changed: ----- Method: Color class>>aqua (in category 'named colors - crayons') ----- aqua + ^ Color r: 0 g: 128 b: 255 range: 255! - ^ Color r: 0.0 g: 128/255 b: 1.0! Item was changed: ----- Method: Color class>>asparagus (in category 'named colors - crayons') ----- asparagus + ^ Color r: 128 g: 128 b: 0 range: 255! - ^ Color r: 128/255 g: 128/255 b: 0.0! Item was changed: ----- Method: Color class>>banana (in category 'named colors - crayons') ----- banana + ^ Color r: 255 g: 255 b: 102 range: 255! - ^ Color r: 1.0 g: 1.0 b: 102/255! Item was changed: ----- Method: Color class>>bubblegum (in category 'named colors - crayons') ----- bubblegum + ^ Color r: 255 g: 102 b: 255 range: 255! - ^ Color r: 1.0 g: 102/255 b: 1.0! Item was changed: ----- Method: Color class>>carnation (in category 'named colors - crayons') ----- carnation + ^ Color r: 255 g: 111 b: 207 range: 255! - ^ Color r: 1.0 g: 111/255 b: 207/255! Item was changed: ----- Method: Color class>>cayenne (in category 'named colors - crayons') ----- cayenne + ^ Color r: 128 g: 0 b: 0 range: 255! - ^ Color r: 128/255 g: 0.0 b: 0.0! Item was changed: ----- Method: Color class>>clover (in category 'named colors - crayons') ----- clover + ^ Color r: 0 g: 128 b: 0 range: 255! - ^ Color r: 0.0 g: 128/255 b: 0.0! Item was changed: ----- Method: Color class>>eggplant (in category 'named colors - crayons') ----- eggplant + ^ Color r: 64 g: 0 b: 128 range: 255! - ^ Color r: 64/255 g: 0.0 b: 128/255! Item was changed: ----- Method: Color class>>fern (in category 'named colors - crayons') ----- fern + ^ Color r: 64 g: 128 b: 0 range: 255! - ^ Color r: 64/255 g: 128/255 b: 0.0! Item was changed: ----- Method: Color class>>flora (in category 'named colors - crayons') ----- flora + ^ Color r: 102 g: 255 b: 102 range: 255! - ^ Color r: 102/255 g: 1.0 b: 102/255! Item was changed: ----- Method: Color class>>grape (in category 'named colors - crayons') ----- grape + ^ Color r: 128 g: 0 b: 255 range: 255! - ^ Color r: 128/255 g: 0.0 b: 1.0! Item was changed: ----- Method: Color class>>honeydew (in category 'named colors - crayons') ----- honeydew + ^ Color r: 204 g: 255 b: 102 range: 255! - ^ Color r: 204/255 g: 1.0 b: 102/255! Item was changed: ----- Method: Color class>>ice (in category 'named colors - crayons') ----- ice + ^Color r: 16r99 g: 16rFF b: 16rFF range: 255! - - ^ Color r: 102/255 g: 1.0 b: 1.0! Item was changed: ----- Method: Color class>>iron (in category 'named colors - crayons') ----- iron + ^ Color r: 76 g: 76 b: 76 range: 255! - ^ Color r: 76/255 g: 76/255 b: 76/255! Item was changed: ----- Method: Color class>>lavender (in category 'named colors - crayons') ----- lavender + ^ Color r: 204 g: 102 b: 255 range: 255! - ^ Color r: 204/255 g: 102/255 b: 1.0! Item was changed: ----- Method: Color class>>lead (in category 'named colors - crayons') ----- lead + ^ Color r: 25 g: 25 b: 25 range: 255! - ^ Color r: 25/255 g: 25/255 b: 25/255! Item was changed: ----- Method: Color class>>lime (in category 'named colors - crayons') ----- lime + ^ Color r: 128 g: 255 b: 0 range: 255! - ^ Color r: 128/255 g: 1.0 b: 0.0! Item was changed: ----- Method: Color class>>magnesium (in category 'named colors - crayons') ----- magnesium + ^ Color r: 179 g: 179 b: 179 range: 255! - ^ Color r: 179/255 g: 179/255 b: 179/255! Item was changed: ----- Method: Color class>>maroon (in category 'named colors - crayons') ----- maroon + ^ Color r: 128 g: 0 b: 64 range: 255! - ^ Color r: 128/255 g: 0.0 b: 64/255! Item was changed: ----- Method: Color class>>mercury (in category 'named colors - crayons') ----- mercury + ^ Color r: 230 g: 230 b: 230 range: 255! - ^ Color r: 230.0 g: 230.0 b: 230.0! Item was changed: ----- Method: Color class>>midnight (in category 'named colors - crayons') ----- midnight + ^ Color r: 0 g: 0 b: 128 range: 255! - ^ Color r: 0.0 g: 0.0 b: 128/255! Item was changed: ----- Method: Color class>>mocha (in category 'named colors - crayons') ----- mocha + ^ Color r: 128 g: 64 b: 0 range: 255! - ^ Color r: 128/255 g: 64/255 b: 0.0! Item was changed: ----- Method: Color class>>moss (in category 'named colors - crayons') ----- moss + ^ Color r: 0 g: 128 b: 64 range: 255! - ^ Color r: 0.0 g: 128/255 b: 64/255! Item was changed: ----- Method: Color class>>nickel (in category 'named colors - crayons') ----- nickel + ^ Color r: 128 g: 128 b: 128 range: 255! - ^ Color r: 128/255 g: 128/255 b: 128/255! Item was changed: ----- Method: Color class>>ocean (in category 'named colors - crayons') ----- ocean + ^ Color r: 0 g: 64 b: 128 range: 255! - ^ Color r: 0.0 g: 64/255 b: 128/255! Item was changed: ----- Method: Color class>>orchid (in category 'named colors - crayons') ----- orchid + ^ Color r: 102 g: 102 b: 255 range: 255! - ^ Color r: 102/255 g: 102/255 b: 1.0! Item was changed: ----- Method: Color class>>plum (in category 'named colors - crayons') ----- plum + ^ Color r: 128 g: 0 b: 128 range: 255! - ^ Color r: 128/255 g: 0.0 b: 128/255! Item was changed: ----- Method: Color class>>salmon (in category 'named colors - crayons') ----- salmon + ^ Color r: 255 g: 102 b: 102 range: 255! - ^ Color r: 1.0 g: 102/255 b: 102/255! Item was changed: ----- Method: Color class>>seaFoam (in category 'named colors - crayons') ----- seaFoam + ^ Color r: 0 g: 1 b: 128 range: 255! - ^ Color r: 0.0 g: 1.0 b: 128/255! Item was changed: ----- Method: Color class>>silver (in category 'named colors - crayons') ----- silver + ^ Color r: 204 g: 204 b: 204 range: 255! - ^ Color r: 204/255 g: 204/255 b: 204/255! Item was changed: ----- Method: Color class>>sky (in category 'named colors - crayons') ----- sky + ^ Color r: 102 g: 204 b: 255 range: 255! - ^ Color r: 102/255 g: 204/255 b: 1.0! Item was changed: ----- Method: Color class>>spindrift (in category 'named colors - crayons') ----- spindrift + ^ Color r: 102 g: 255 b: 204 range: 255! - ^ Color r: 102/255 g: 1.0 b: 204/255! Item was changed: ----- Method: Color class>>steel (in category 'named colors - crayons') ----- steel + ^ Color r: 102 g: 102 b: 102 range: 255! - ^ Color r: 102/255 g: 102/255 b: 102/255! Item was changed: ----- Method: Color class>>strawberry (in category 'named colors - crayons') ----- strawberry + ^ Color r: 255 g: 0 b: 128 range: 255! - ^ Color r: 1.0 g: 0.0 b: 128/255! Item was changed: ----- Method: Color class>>tangerine (in category 'named colors - crayons') ----- tangerine + ^ Color r: 255 g: 128 b: 0 range: 255! - ^ Color r: 1.0 g: 128/255 b: 0.0! Item was changed: ----- Method: Color class>>teal (in category 'named colors - crayons') ----- teal + ^ Color r: 0 g: 128 b: 128 range: 255! - ^ Color r: 0.0 g: 128/255 b: 128/255! Item was changed: ----- Method: Color class>>tin (in category 'named colors - crayons') ----- tin + ^ Color r: 127 g: 127 b: 127 range: 255! - ^ Color r: 127/255 g: 127/255 b: 127/255! Item was changed: ----- Method: Color class>>tungsten (in category 'named colors - crayons') ----- tungsten + ^ Color r: 51 g: 51 b: 51 range: 255! - ^ Color r: 51/255 g: 51/255 b: 51/255! Item was changed: ----- Method: Color>>asColorref (in category 'conversions') ----- asColorref + "Convert the receiver into a colorref + See https://docs.microsoft.com/en-us/windows/win32/gdi/colorref" - "Convert the receiver into a colorref" ^ (self red * 255) rounded + ((self green * 255) rounded << 8) + ((self blue * 255) rounded << 16)! Item was added: + ----- Method: Color>>setRed8:green8:blue8: (in category 'private') ----- + setRed8: r green8: g blue8: b + "Initialize this color's r, g, and b components to the given values in the range [0..255]. + Use an optimized operation rather than a slow division" + + " + self assert: ((0 to: 255) allSatisfy: [:e | (e*1023/255) rounded = (e * 16r403 + 16r81 >> 8)]). + " + + ComponentMax = 1023 ifFalse: [^self setRed: r / 255 green: g / 255 blue: b / 255]. + rgb == nil ifFalse: [self attemptToMutateError]. + rgb := ((r* 16r403 + 16r81 >> 8) bitShift: RedShift) + + ((g* 16r403 + 16r81 >> 8) bitShift: GreenShift) + + ((b* 16r403 + 16r81 >> 8)). + cachedDepth := nil. + cachedBitPattern := nil.! Item was changed: ----- Method: Color>>setRed:green:blue:range: (in category 'private') ----- setRed: r green: g blue: b range: range "Initialize this color's r, g, and b components to the given values in the range [0..r]." + range = 255 ifTrue: [^self setRed8: r green8: g blue8: b]. ^ self setRed: r / range green: g / range blue: b / range!

1 0

The Trunk: Collections-nice.1021.mcz
by commits＠source.squeak.org 17 Aug '22

17 Aug '22

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.1021.mcz ==================== Summary ==================== Name: Collections-nice.1021 Author: nice Time: 17 August 2022, 3:55:41.813169 pm UUID: cae7a6c2-091f-6f4a-a1f6-6acc3e5fa59c Ancestors: Collections-cmm.1020 Align WeakIdentityDictionary comment with current implementation. Since Collections-ul.897, the slots corresponding to reclaimed associations (those nilled out) are no longer recycled when scanning for a key. They are recycled only when the dictionary grows, or possibly when we fix some collision after an explicit removal of a key (via removeKey:). =============== Diff against Collections-cmm.1020 =============== Item was changed: IdentityDictionary subclass: #WeakIdentityDictionary instanceVariableNames: 'vacuum' classVariableNames: '' poolDictionaries: '' category: 'Collections-Weak'! + !WeakIdentityDictionary commentStamp: 'nice 8/17/2022 15:45' prior: 0! - !WeakIdentityDictionary commentStamp: 'nice 10/27/2016 20:00' prior: 0! I am a WeakIdentityDictionary, that is a dictionary pointing weakly to its associations of key->value pairs. I am especially usefull for handling undeclared bindings that will be naturally garbage collected without having to scan all the CompiledMethods. Instance variables: vacuum <Object> a unique object used for marking empty slots Due to usage of WeakArray for my own storage, reclaimed slots will be nilled out. + I cannot consider a nil slot as empty because garbage collection does not fix collisions. - I cannot consider a nil slot as empty because of garbage collection does not fix collisions. Thus I need to differentiate empty slots (vacuum) from garbaged collected slots (nil). If I did not reclaim the nil slots and make them vacuum again, then my capacity would grow indefinitely. + I skip those nil slots when growing in order to avoid such unbounded growth (see #growTo:). - My strategy to avoid such growth is to randomly cleanup the garbage collected slot encountered when scanning for a key. - It should mitigate the growth since this method is used when adding a new entry. + Due to those not yet cleaned-up nil slots I might over-estimate my size. See #slowSize to get a more relevant but slower answer.! - Due to those not yet cleaned-up nil slots I might over-estimate my size. Don't take it too literally.!

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