--- a/FixedPaletteWithAlpha.st	Mon Mar 07 00:44:39 2016 +0100
+++ b/FixedPaletteWithAlpha.st	Mon Mar 07 00:49:52 2016 +0100
@@ -10,6 +10,13 @@
 !
 
 
+!FixedPaletteWithAlpha methodsFor:'accessing'!
+
+alphaShift:alphaShiftArg alphaMask:alphaMaskArg 
+    alphaShift := alphaShiftArg.
+    alphaMask := alphaMaskArg.
+! !
+
 !FixedPaletteWithAlpha methodsFor:'printing & storing'!
 
 storeInstVarsOn:aStream