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!
packages@lists.squeakfoundation.org