[squeak-dev] The Trunk: Morphic-cmm.446.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jun 20 22:16:06 UTC 2010


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!




More information about the Squeak-dev mailing list