The Inbox: Morphic-ct.1687.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Morphic-ct.1687.mcz

commits-2
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1687.mcz

==================== Summary ====================

Name: Morphic-ct.1687
Author: ct
Time: 18 September 2020, 2:56:19.743093 pm
UUID: 60f81d52-6f24-4952-be9d-291a806074bc
Ancestors: Morphic-mt.1683

Fixes SystemWindow >> #collapseOrExpand if the window being collapsed is not in world. Relates to Morphic-ct.1682.

=============== Diff against Morphic-mt.1683 ===============

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 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.
  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!