[Pkg] The Trunk: Morphic-mt.471.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 16 11:36:34 UTC 2010


Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.471.mcz

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

Name: Morphic-mt.471
Author: mt
Time: 10 November 2010, 4:18:33.613 pm
UUID: 7391dae6-e8ac-e045-9a1f-f2129d5b561c
Ancestors: Morphic-eem.470

- fixed vertical splitter morphs to work with regular morphs and not only system windows
- horizontal splitter morph already worked the same way

=============== Diff against Morphic-eem.470 ===============

Item was changed:
  ----- Method: ProportionalSplitterMorph>>leftBoundary (in category 'boundaries') -----
  leftBoundary
  	"Answer the leftmost y position the receiver could be moved."
  
  	| splitter morphs |
  	splitter := self splitterLeft.
  	morphs := self commonNeighbours: leftOrTop with: splitter.
  	^ (splitter
+ 		ifNil: [owner isSystemWindow ifTrue: [owner panelRect left]
+ 				ifFalse: [owner innerBounds left]]
- 		ifNil: [self containingWindow panelRect left]
  		ifNotNil: [splitter right])
  		 + (self minimumWidthOf: morphs)!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>rightBoundary (in category 'boundaries') -----
  rightBoundary
  	"Answer the rightmost x position the receiver could be moved to."
  
  	| splitter morphs |
  	splitter := self splitterRight.
  	morphs := self commonNeighbours: rightOrBottom with: splitter.
  	^ (splitter
+ 		ifNil: [owner isSystemWindow ifTrue: [owner panelRect right]
+ 				ifFalse: [owner innerBounds right]]
- 		ifNil: [self containingWindow panelRect right]
  		ifNotNil: [splitter left])
  		- (self minimumWidthOf: morphs)!



More information about the Packages mailing list