--- a/MonoMappedPalette.st	Tue May 06 11:08:37 2003 +0200
+++ b/MonoMappedPalette.st	Tue May 06 20:26:28 2003 +0200
@@ -13,11 +13,11 @@
 
 
 
-"{ Package: 'stx:libcompat' }"
+"{ Package: 'stx:libview' }"
 
 MappedPalette subclass:#MonoMappedPalette
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'WhiteBlack BlackWhite'
 	poolDictionaries:''
 	category:'Graphics-Images-Support'
 !
@@ -53,8 +53,30 @@
 "
 ! !
 
+!MonoMappedPalette class methodsFor:'instance creation'!
+
+blackWhite
+    BlackWhite isNil ifTrue:[
+        BlackWhite := super blackWhite
+    ].
+    ^ BlackWhite
+!
+
+whiteBlack
+    WhiteBlack isNil ifTrue:[
+        WhiteBlack := super whiteBlack
+    ].
+    ^ WhiteBlack
+! !
+
+!MonoMappedPalette methodsFor:'accessing'!
+
+at:index put:aColor
+    self error:'this palette cannot be changed'.
+! !
+
 !MonoMappedPalette class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/MonoMappedPalette.st,v 1.2 2003-04-10 14:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/MonoMappedPalette.st,v 1.3 2003-05-06 18:26:28 cg Exp $'
 ! !