one of the final refactorings

Atyanar · Atyanar · commit a3aca3979f54 · 2014-07-20T15:50:47.000+02:00
diff --git a/packages/MorphicTestingFramework-Core.package/MTFMorphWrapper.class/class/forDeepSubMorphsOf.do..st b/packages/MorphicTestingFramework-Core.package/MTFMorphWrapper.class/class/forDeepSubMorphsOf.do..st
@@ -0,0 +1,7 @@
+private-utilities
+forDeepSubMorphsOf: aMorph do: aBlock
+	
+	aMorph submorphs do: [ :subMorph |
+		aBlock value: subMorph.
+		MTFMorphWrapper forDeepSubMorphsOf: subMorph do: aBlock.
+	].
diff --git a/packages/MorphicTestingFramework-Core.package/MTFMorphWrapper.class/instance/covers.position..st b/packages/MorphicTestingFramework-Core.package/MTFMorphWrapper.class/instance/covers.position..st
@@ -0,0 +1,7 @@
+assertion
+covers: aMorph position: aPosition
+
+	^(aMorph position x < aPosition x) and: 
+	[aMorph position y < aPosition y] and: 
+	[aMorph position x + aMorph width > aPosition x] and: 
+	[aMorph position y + aMorph height > aPosition y]
diff --git a/packages/MorphicTestingFramework-Core.package/monticello.meta/version.d/MorphicTestingFramework-Core-PA.30_3c9473c1-b549-de41-bcd0-33ee10bd957d b/packages/MorphicTestingFramework-Core.package/monticello.meta/version.d/MorphicTestingFramework-Core-PA.30_3c9473c1-b549-de41-bcd0-33ee10bd957d
@@ -0,0 +1 @@
+(name 'MorphicTestingFramework-Core-PA.30'message 'one of the final refactorings!'id '3c9473c1-b549-de41-bcd0-33ee10bd957d'date '20 July 2014'time '3:48:09.768 pm'author 'PA'ancestors ((id 'c246e471-79a9-8c4a-9a8d-a46ea0db97ff'))stepChildren ())
diff --git a/packages/MorphicTestingFramework-Tests.package/monticello.meta/version.d/MorphicTestingFramework-Tests-PA.31_680ac742-0ab9-e845-b5fb-7431d23a905e b/packages/MorphicTestingFramework-Tests.package/monticello.meta/version.d/MorphicTestingFramework-Tests-PA.31_680ac742-0ab9-e845-b5fb-7431d23a905e
@@ -0,0 +1 @@
+(name 'MorphicTestingFramework-Tests-PA.31'message 'one of the final refacotrings!'id '680ac742-0ab9-e845-b5fb-7431d23a905e'date '20 July 2014'time '3:47:31.799 pm'author 'PA'ancestors ((id '829cd62b-84cd-4cae-a24f-3c4544957f74'))stepChildren ())

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+(name 'MorphicTestingFramework-Core-PA.30'message 'one of the final refactorings!'id '3c9473c1-b549-de41-bcd0-33ee10bd957d'date '20 July 2014'time '3:48:09.768 pm'author 'PA'ancestors ((id 'c246e471-79a9-8c4a-9a8d-a46ea0db97ff'))stepChildren ())`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+(name 'MorphicTestingFramework-Tests-PA.31'message 'one of the final refacotrings!'id '680ac742-0ab9-e845-b5fb-7431d23a905e'date '20 July 2014'time '3:47:31.799 pm'author 'PA'ancestors ((id '829cd62b-84cd-4cae-a24f-3c4544957f74'))stepChildren ())`