fix minor bugs

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

source/WMGraphicsGfx.Mod

@@ -75,7 +75,6 @@ TYPE Canvas*= OBJECT(WMGraphics.BufferCanvas)
 		PROCEDURE ColorToGfxColor(color:LONGINT):Gfx.Color;
 			VAR gfxcolor:Gfx.Color;
 		BEGIN
-			SetColor^(color);
 			gfxcolor.a := INTEGER(color MOD 100H);
 			gfxcolor.b := INTEGER(color DIV 100H MOD 100H);
 			gfxcolor.g := INTEGER(color DIV 10000H MOD 100H);
@@ -85,7 +84,7 @@ TYPE Canvas*= OBJECT(WMGraphics.BufferCanvas)
 		
 		PROCEDURE GfxColorToColor(gfxColor:Gfx.Color):WMGraphics.Color;
 		BEGIN
-			color:=LONGINT (((HUGEINT(gfxColor.r*100H)+gfxColor.g)*100+gfxColor.b)*100+gfxColor.a)
+			RETURN LONGINT (((HUGEINT(gfxColor.r*100H)+gfxColor.g)*100H+gfxColor.b)*100H+gfxColor.a)
 		END GfxColorToColor;
 		
 		(* ????