[squeak-dev] The Trunk: Morphic-ct.2028.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 23 11:15:01 UTC 2022

Christoph Thiede uploaded a new version of Morphic to project The Trunk:

==================== 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') -----
  	"Collapse or expand the window, depending on existing state"
  	| cf |
  			["Expand -- restore panes to morphics structure"
  			isCollapsed := false.
  			self beKeyWindow.  "Bring to frint first"
  			Preferences collapseWindowsInPlace
  					[fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft]
  					[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]]
  			["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!

More information about the Squeak-dev mailing list