Cees De Groot wrote:

>Hi All,
>
>In my little Squeak's On Fire hack, it shows that ToolBuilder's MVC
>support is everything but complete:
>http://de-1.tric.nl:23000/errors?id=3311968772 and
>http://de-1.tric.nl:23000/failures?id=3311968772 show a large number
>of failing tests, these tests were created by Andreas to, err,
>'highlight' the areas that still need attention :-)
>
>As it would be nice to get the number of failing tests to zero, and as
>I know that there are still people out there who are interested in MVC
>(and probably MVC tools that do better than wrapping Morphic windows
>inside MVC windows), is there anyone out there that wants to pick up
>the challenge of completing ToolBuilder's MVC support? As I understood
>from Andreas, it basically consists of a lot of hard work plus writing
>a tree control, so a juicy chunk of labour for an MVC guru...
>
>Any takers? Any suggestions what we should do if not? Junk MVC? Junk
>ToolBuilder? Junk the tests?
>
>  
>
I notised a morph test failiure and tracked down a send to a method 
which seems to be part of
the Connector package and thus missing from the image.
With this method filed in the MorphTest passes.

karl


-------------- next part --------------
'From Squeakland 3.8-05 of 7 September 2005 [latest update: #501] on 15 December 2005 at 12:09:29 am'!

!Morph methodsFor: '*connectors-geometry' stamp: 'nk 5/19/2003 20:39'!
overlapsShadowForm: itsShadow bounds: itsBounds
	"Answer true if itsShadow and my shadow overlap at all"
	| andForm overlapExtent |
	overlapExtent _ (itsBounds intersect: self fullBounds) extent.
	overlapExtent > (0 @ 0)
		ifFalse: [^ false].
	andForm _ self shadowForm.
	overlapExtent ~= self fullBounds extent
		ifTrue: [andForm _ andForm
						contentsOfArea: (0 @ 0 extent: overlapExtent)].
	andForm _ andForm
				copyBits: (self fullBounds translateBy: itsShadow offset negated)
				from: itsShadow
				at: 0 @ 0
				clippingBox: (0 @ 0 extent: overlapExtent)
				rule: Form and
				fillColor: nil.
	^ andForm bits
		anySatisfy: [:w | w ~= 0]! !