Reduced colour contrast in window trap writer

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

source/WMGraphics.Mod

@@ -20,10 +20,12 @@ CONST
 	Black* = 0FFH; White* = LONGINT(0FFFFFFFFH); Transparent*=0H;
 	Gray*=LONGINT(0777777FFH); 
 	Red* = LONGINT(0FF0000FFH); 
+	DarkRed* = LONGINT(08C0000FFH); 
 	Green* = 000FF00FFH; Blue* = 0FFFFH;
 	Yellow* = LONGINT(0FFFF00FFH); 
 	Magenta* = LONGINT(0FF00FFFFH); 
 	Cyan* = 00FFFFFFH;
+	Gold* = LONGINT(0FFD700FFH);
 
 TYPE
 	Real* = REAL;

source/WMTrapWriter.Mod

@@ -9,11 +9,11 @@ PROCEDURE TrapWriterFactory*(): Streams.Writer;
 BEGIN
 	IF (w = NIL) OR (~w.IsVisible()) THEN
 		NEW(w, "TRAPS", 860, 480, FALSE);
-		w.SetWindowBgColor(WMGraphics.Red);
+		w.SetWindowBgColor(WMGraphics.DarkRed);
 		w.SetWindowIcon(WMGraphics.LoadImage("WMIcons.tar://WMTrapWriter.png", TRUE));
 		w.SetFontName("Courier");
 		w.SetFontSize(12);
-		w.SetFontColor(WMGraphics.Yellow);
+		w.SetFontColor(WMGraphics.Gold);
 		w.window.editor.SetWordWrap(TRUE);
 	END;
 	RETURN w;