because when I see code like that, it makes me sick!
I wonder also when we migrate to Athens if we will not rewrite all that anyway.

fillRectangle: aRectangle basicFillStyle: aFillStyle
�� �� "Fill the given rectangle with the given, non-composite, fill style."

�� �� | pattern |

�� �� (aFillStyle isKindOf: InfiniteForm) ifTrue: [
�� �� �� �� ^self infiniteFillRectangle: aRectangle fillStyle: aFillStyle
�� �� ].

�� �� (aFillStyle isSolidFill)
�� �� �� �� ifTrue:[^self fillRectangle: aRectangle color: aFillStyle asColor].

�� �� "We have a very special case for filling with infinite forms"
�� �� (aFillStyle isBitmapFill and:[aFillStyle origin = (0@0)]) ifTrue:[
�� �� �� �� pattern := aFillStyle form.
�� �� �� �� (aFillStyle direction = (pattern width @ 0)
�� �� �� �� �� �� and:[aFillStyle normal = (0@pattern height)]) ifTrue:[
�� �� �� �� �� �� �� �� "Can use an InfiniteForm"
�� �� �� �� �� �� �� �� ^self fillRectangle: aRectangle color: (InfiniteForm with: pattern)].
�� �� ].
�� �� "Use a BalloonCanvas instead"
�� �� self balloonFillRectangle: aRectangle fillStyle: aFillStyle.