fix rectangle normalization for Canvas.Fill()

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6356 8c9fc860-2736-0410-a75d-ab315db34111

source/WMGraphics.Mod

@@ -417,6 +417,7 @@ TYPE
 		PROCEDURE Fill*(rect : Rectangle; color : Color; mode : LONGINT);
 		VAR rm : Raster.Mode; pix : Raster.Pixel;
 		BEGIN
+			Rectangles.Normalize(rect);
 			(* convert to super coordinates *)
 			Rectangles.MoveRel(rect, dx, dy);
 			IF ClipRect IN clipMode THEN Rectangles.ClipRect(rect, clipRect) END;