Skip to content

Commit

Permalink
Update testMorphSpacing.st
Browse files Browse the repository at this point in the history
fixed coding standards
  • Loading branch information
sinahenning committed Jul 5, 2021
1 parent 734047c commit b7a279d
Showing 1 changed file with 2 additions and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ testMorphSpacing
explorationView defaultMorph: defaultMorph.
explorationView saveCurrentMorph.
explorationView morphBox submorphs do:
[ :aMorph | morphCount := morphCount + (explorationView morphBox submorphs count:
[ :anotherMorph | ((aMorph boundingBoxOfSubmorphs topRight y) = (anotherMorph boundingBoxOfSubmorphs bottomRight y + explorationView class defaultMorphGapSize)) or:
[:aMorph | morphCount := morphCount + (explorationView morphBox submorphs count:
[:anotherMorph | ((aMorph boundingBoxOfSubmorphs topRight y) = (anotherMorph boundingBoxOfSubmorphs bottomRight y + explorationView class defaultMorphGapSize)) or:
((aMorph boundingBoxOfSubmorphs bottomRight y) = (anotherMorph boundingBoxOfSubmorphs topRight y - explorationView class defaultMorphGapSize))])].
self assert: morphCount equals: explorationView defaultMorphs size * 2 - 2

0 comments on commit b7a279d

Please sign in to comment.