data Drawable = MyWindow | Pixmap PixmapId | DbeBackBuffer DbeBackBufferId instance Eq Drawable instance Ord Drawable instance Read Drawable instance Show Drawable instance Drawable Window instance Drawable Pixmap instance Drawable DbeBackBufferId instance (Drawable a, Drawable b) => Drawable (a ⊕ b) data BitmapData = BitmapData Size (Maybe Point) [Int] instance Eq BitmapData instance Ord BitmapData instance Read BitmapData instance Show BitmapData instance Graphic BitmapData newtype PropertyMode = PropertyMode Int instance Eq PropertyMode instance Ord PropertyMode instance Read PropertyMode instance Show PropertyMode propModeAppend :: PropertyMode propModePrepend :: PropertyMode propModeReplace :: PropertyMode
