Packages September 2023

packages@lists.squeakfoundation.org

1 participants
17 discussions

The Trunk: System-mt.1425.mcz
by commits＠source.squeak.org 28 Sep '23

28 Sep '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1425.mcz ==================== Summary ==================== Name: System-mt.1425 Author: mt Time: 28 September 2023, 10:22:20.27702 am UUID: c446d3d6-39ea-e74f-84b2-dcf1487575eb Ancestors: System-mt.1424 Complements Collections-mt.1051 =============== Diff against System-mt.1424 =============== Item was changed: ----- Method: SmartRefStream>>next (in category 'read write') ----- next + "Really write three objects: (version, class structure, object). But only when called from the outside. NOTE THAT we do not have to #rehash anything here. See implementors of #comeFullyUpOnReload:. " - "Really write three objects: (version, class structure, object). But only when called from the outside. " | version ss object | ^ topCall == nil ifTrue: [topCall := #marked. version := super next. version class == SmallInteger ifFalse: [^ version]. "version number, else just a regular object, not in our format, " self checkCrLf. ss := super next. ss class == Array ifFalse: [^ ss]. "just a regular object" (ss at: 1) = 'class structure' ifFalse: [^ ss]. + structures := ss at: 2. - structures := (ss at: 2) rehash. superclasses := (ss size > 3 and: [(ss at: 3) = 'superclasses']) + ifTrue: [ss at: 4] "class name -> superclass name" - ifTrue: [(ss at: 4) rehash] "class name -> superclass name" ifFalse: [Dictionary new]. (self verifyStructure = 'conversion method needed') ifTrue: [^ nil]. object := super next. "all the action here" self restoreClassInstVars. "for UniClasses. version 4" topCall := nil. "reset it" object] ifFalse: [super next] !

1 0

The Trunk: Kernel-mt.1527.mcz
by commits＠source.squeak.org 28 Sep '23

28 Sep '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1527.mcz ==================== Summary ==================== Name: Kernel-mt.1527 Author: mt Time: 28 September 2023, 10:21:53.11702 am UUID: d4fc65b6-ef98-b64b-af96-464763affa9d Ancestors: Kernel-mt.1526 Complements Collections-mt.1051 =============== Diff against Kernel-mt.1526 =============== Item was changed: ----- Method: Object>>readDataFrom:size: (in category 'objects from disk') ----- readDataFrom: aDataStream size: varsOnDisk "Fill in the fields of self based on the contents of aDataStream. Return self. Read in the instance-variables written by Object>>storeDataOn:. NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it. Allow aDataStream to have fewer inst vars. See SmartRefStream." | cntInstVars cntIndexedVars | cntInstVars := self class instSize. self class isVariable ifTrue: [cntIndexedVars := varsOnDisk - cntInstVars. cntIndexedVars < 0 ifTrue: [ self error: 'Class has changed too much. Define a convertxxx method']] ifFalse: [cntIndexedVars := 0. cntInstVars := varsOnDisk]. "OK if fewer than now" aDataStream beginReference: self. 1 to: cntInstVars do: [:i | self instVarAt: i put: aDataStream next]. 1 to: cntIndexedVars do: [:i | self basicAt: i put: aDataStream next]. "Total number read MUST be equal to varsOnDisk!!" - self rehash. ^ self "If we ever return something other than self, fix calls on (super readDataFrom: aDataStream size: anInteger)"!

1 0

The Trunk: Collections-mt.1051.mcz
by commits＠source.squeak.org 28 Sep '23

28 Sep '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1051.mcz ==================== Summary ==================== Name: Collections-mt.1051 Author: mt Time: 28 September 2023, 10:21:07.80602 am UUID: a30c75a0-0736-404f-8a8d-88518a1de17c Ancestors: Collections-mt.1050 Always #rehash hashed collections that come from disk. Note that #compact does not always work depending on the current size of the incoming objects. Thanks to Jakob (jr) for the hint! =============== Diff against Collections-mt.1050 =============== Item was changed: ----- Method: HashedCollection>>comeFullyUpOnReload: (in category 'objects from disk') ----- comeFullyUpOnReload: smartRefStream "Symbols have new hashes in this image." + self rehash.! - self compact!

1 0

The Trunk: Morphic-mt.2132.mcz
by commits＠source.squeak.org 27 Sep '23

27 Sep '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2132.mcz ==================== Summary ==================== Name: Morphic-mt.2132 Author: mt Time: 27 September 2023, 3:12:01.629684 pm UUID: bc398f97-66d1-2348-bf3a-f6595dafc0a2 Ancestors: Morphic-mt.2131 Fixes TableLayoutTests and thus #shrinkWrap configuration for ScrollPane, which got broken in Morphic-mt.2129. Sigh. =============== Diff against Morphic-mt.2131 =============== Item was changed: ----- Method: ScrollPane>>submorphBoundsForShrinkWrap (in category 'layout') ----- submorphBoundsForShrinkWrap + "Like #newScrollerBounds but uses the current scroller bounds, which were already shrink-wrapped at this point. See #hResizing: and #vResizing:." + + | inner bottomOffset leftOffset rightOffset | + (retractableScrollBar or: [self vIsScrollbarShowing not]) + ifTrue: [leftOffset := rightOffset := 0] + ifFalse: [ + scrollBarOnLeft + ifTrue: [ + leftOffset := self scrollBarThickness - self borderWidth. + rightOffset := 0.] + ifFalse: [ + leftOffset := 0. + rightOffset := self scrollBarThickness - self borderWidth]]. + + (retractableScrollBar or: [self hIsScrollbarShowing not]) + ifTrue: [bottomOffset := 0] + ifFalse: [bottomOffset := self scrollBarThickness - self borderWidth]. - "No need to consider scrollbars because those are placed outside the #innerBounds like a border. See #resizeScroller." + inner := scroller bounds. + ^ (inner left - leftOffset) @ (inner top "+ topOffset") + corner: (inner right + rightOffset) @ (inner bottom + bottomOffset)! - ^ scroller bounds!

1 0

The Trunk: MorphicTests-mt.93.mcz
by commits＠source.squeak.org 27 Sep '23

27 Sep '23

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.93.mcz ==================== Summary ==================== Name: MorphicTests-mt.93 Author: mt Time: 27 September 2023, 2:35:14.135019 pm UUID: b14d13ff-88ec-ac42-86df-0867be7d6a91 Ancestors: MorphicTests-mt.92 Adds a failing test to document an existing layout bug. =============== Diff against MorphicTests-mt.92 =============== Item was added: + ----- Method: TableLayoutTest>>testHeightForWidthContents (in category 'tests - example layouts') ----- + testHeightForWidthContents + "Combine a height-for-width widget with a too small container. Two-pass layout should be enough." + + | vertical list spacer | + container := Morph new + color: Color blue; + changeTableLayout; + layoutInset: 5; + vResizing: #rigid; + hResizing: #rigid; + yourself. + vertical := Morph new + color: Color green; + changeTableLayout; + layoutInset: 5; + listDirection: #topToBottom; + vResizing: #spaceFill; + hResizing: #spaceFill; + yourself. + list := Morph new + color: Color red; + changeTableLayout; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + layoutInset: 5; cellGap: 5; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + addAllMorphs: (5 timesCollect: [Morph new extent: 20@20; color: Color yellow]); + yourself. + spacer := Morph new + color: Color white; + hResizing: #rigid; + vResizing: #spaceFill; + yourself. + + list width: 30. "1 column, 5 rows" + spacer width: 5. + + vertical extent: 999@999. + container extent: 100@100. "3 columns, 2 rows" + + vertical addMorphBack: list. + vertical addMorphBack: spacer. + container addMorph: vertical. + + self ensureLayout: container. + "container layoutChanged." "--- WORKAROUND" + self assert: 100@100 equals: container fullBounds extent.!

1 0

The Trunk: System-mt.1424.mcz
by commits＠source.squeak.org 27 Sep '23

27 Sep '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1424.mcz ==================== Summary ==================== Name: System-mt.1424 Author: mt Time: 27 September 2023, 1:39:22.934019 pm UUID: d830c5c0-4931-a546-b8ee-fd493ca7b1d3 Ancestors: System-mt.1423 Complement Kernel-mt.1526 =============== Diff against System-mt.1423 =============== Item was changed: ----- Method: SmartRefStream>>next (in category 'read write') ----- next "Really write three objects: (version, class structure, object). But only when called from the outside. " | version ss object | ^ topCall == nil ifTrue: [topCall := #marked. version := super next. version class == SmallInteger ifFalse: [^ version]. "version number, else just a regular object, not in our format, " self checkCrLf. ss := super next. ss class == Array ifFalse: [^ ss]. "just a regular object" (ss at: 1) = 'class structure' ifFalse: [^ ss]. structures := (ss at: 2) rehash. superclasses := (ss size > 3 and: [(ss at: 3) = 'superclasses']) ifTrue: [(ss at: 4) rehash] "class name -> superclass name" ifFalse: [Dictionary new]. (self verifyStructure = 'conversion method needed') ifTrue: [^ nil]. + object := super next. "all the action here" - object := super next rehash. "all the action here" self restoreClassInstVars. "for UniClasses. version 4" topCall := nil. "reset it" object] ifFalse: + [super next] - [super next rehash] !

1 0

The Trunk: Kernel-mt.1526.mcz
by commits＠source.squeak.org 27 Sep '23

27 Sep '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1526.mcz ==================== Summary ==================== Name: Kernel-mt.1526 Author: mt Time: 27 September 2023, 1:38:59.304019 pm UUID: 9bbe749b-d516-e146-8af2-4f5f7962faa0 Ancestors: Kernel-mt.1525 Fixes regression in DataStream from System-tpr.1411 to make SqueakMap catalog update again. Send #rehash only when the object is complete, not in the middle of a #next call that might be incomplete for cyclic dependencies. =============== Diff against Kernel-mt.1525 =============== Item was changed: ----- Method: Object>>readDataFrom:size: (in category 'objects from disk') ----- readDataFrom: aDataStream size: varsOnDisk "Fill in the fields of self based on the contents of aDataStream. Return self. Read in the instance-variables written by Object>>storeDataOn:. NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it. Allow aDataStream to have fewer inst vars. See SmartRefStream." | cntInstVars cntIndexedVars | cntInstVars := self class instSize. self class isVariable ifTrue: [cntIndexedVars := varsOnDisk - cntInstVars. cntIndexedVars < 0 ifTrue: [ self error: 'Class has changed too much. Define a convertxxx method']] ifFalse: [cntIndexedVars := 0. cntInstVars := varsOnDisk]. "OK if fewer than now" aDataStream beginReference: self. 1 to: cntInstVars do: [:i | self instVarAt: i put: aDataStream next]. 1 to: cntIndexedVars do: [:i | self basicAt: i put: aDataStream next]. "Total number read MUST be equal to varsOnDisk!!" + self rehash. ^ self "If we ever return something other than self, fix calls on (super readDataFrom: aDataStream size: anInteger)"!

1 0

The Trunk: Morphic-mt.2131.mcz
by commits＠source.squeak.org 22 Sep '23

22 Sep '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2131.mcz ==================== Summary ==================== Name: Morphic-mt.2131 Author: mt Time: 22 September 2023, 1:55:23.04797 pm UUID: 994a8dfe-6363-9440-a320-07e398585048 Ancestors: Morphic-mt.2130 Speaking of rabbit holes ... fixes another visual regression from Morphic-mt.2129. =============== Diff against Morphic-mt.2130 =============== Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: [ | adornmentWidth | adornmentWidth := (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) px. aCanvas + frameRectangle: self scroller bounds - frameRectangle: self innerBounds width: adornmentWidth color: aColor. aCanvas + frameRectangle: (self scroller bounds insetBy: adornmentWidth) - frameRectangle: (self innerBounds insetBy: adornmentWidth) width: adornmentWidth color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form + at: self scroller bounds topRight - (form width @ 0) - at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]!

1 0

The Trunk: Chronology-Core-mt.88.mcz
by commits＠source.squeak.org 22 Sep '23

22 Sep '23

Marcel Taeumel uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-mt.88.mcz ==================== Summary ==================== Name: Chronology-Core-mt.88 Author: mt Time: 22 September 2023, 1:26:16.55597 pm UUID: 7d6e55e7-b734-8d47-8591-8b9a291cebf2 Ancestors: Chronology-Core-mt.87 Fix for backwards compatibility. =============== Diff against Chronology-Core-mt.87 =============== Item was added: + ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') ----- + offset: aDuration name: aName abbreviation: anAbbreviation + "Backwards compatibility." + + ^ FixedTimeZone offset: aDuration name: aName abbreviation: anAbbreviation!

1 0

The Trunk: Morphic-mt.2130.mcz
by commits＠source.squeak.org 20 Sep '23

20 Sep '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2130.mcz ==================== Summary ==================== Name: Morphic-mt.2130 Author: mt Time: 20 September 2023, 11:11:17.704242 am UUID: 0657f2ee-97b1-3749-bfed-14df20f5379c Ancestors: Morphic-mt.2129 Fixes minor visual regression from Morphic-mt.2129 where the scrollpane's #layoutInset was to set as expected. =============== Diff against Morphic-mt.2129 =============== Item was changed: ----- Method: ScrollPane>>newScrollerBounds (in category 'layout') ----- newScrollerBounds "Answer the new bounds for the receiver's scrolling area. Should be called after a #layoutChanged." | inner bottomOffset leftOffset rightOffset | (retractableScrollBar or: [self vIsScrollbarShowing not]) ifTrue: [leftOffset := rightOffset := 0] ifFalse: [ scrollBarOnLeft ifTrue: [ leftOffset := self scrollBarThickness - self borderWidth. rightOffset := 0.] ifFalse: [ leftOffset := 0. rightOffset := self scrollBarThickness - self borderWidth]]. (retractableScrollBar or: [self hIsScrollbarShowing not]) ifTrue: [bottomOffset := 0] ifFalse: [bottomOffset := self scrollBarThickness - self borderWidth]. + self flag: #todo. "mt: Make layoutInset appear outside all scrollbars, not just the scroller." + inner := self layoutBounds. - inner := self innerBounds. ^ (inner left + leftOffset) @ (inner top "+ topOffset") corner: (inner right - rightOffset) @ (inner bottom - bottomOffset)!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2023