Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.446.mcz
==================== Summary ====================
Name: Morphic-cmm.446 Author: cmm Time: 20 June 2010, 5:14:44.257 pm UUID: 44708e7d-4c85-40cd-a0e9-bef6e36ee0e0 Ancestors: Morphic-ar.445
After minimizing a window, send it to the back of the window list.
=============== Diff against Morphic-ar.445 ===============
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 activate. "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']. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters] 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']. + expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']. + self sendToBack]. - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']]. self layoutChanged!
packages@lists.squeakfoundation.org