--- a/MappedPalette.st	Tue May 06 11:08:37 2003 +0200
+++ b/MappedPalette.st	Tue May 06 20:26:28 2003 +0200
@@ -57,9 +57,6 @@
     "ST-80 compatibility"
 
     ^ self withColors:(Array with:(Color black) with:(Color white))
-
-    "Created: 7.10.1996 / 11:31:08 / cg"
-    "Modified: 14.2.1997 / 17:43:24 / cg"
 !
 
 monochromeDefault
@@ -75,6 +72,10 @@
 
     ^ self withColors:(Array with:(Color white) with:(Color black))
 
+    "
+     self whiteBlack
+    "
+
     "Created: 7.10.1996 / 11:29:01 / cg"
     "Modified: 14.2.1997 / 17:43:31 / cg"
 ! !
@@ -82,5 +83,5 @@
 !MappedPalette class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/MappedPalette.st,v 1.4 2003-05-05 16:23:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/MappedPalette.st,v 1.5 2003-05-06 18:26:22 cg Exp $'
 ! !