module BgF(changeBackPixel, changeGetBackPixel) where
--import Color
import Command
--import Fudget
--import FudgetIO
--import Message(Message(..))
import Xcommand
--import NullF
import Xtypes
--import HaskellIO
import GCAttrs

--changeGetBackPixel :: ColorName -> Cont (K a b) Pixel
changeGetBackPixel :: a -> (Pixel -> K i o) -> K i o
changeGetBackPixel a
bgcol Pixel -> K i o
f =
    --allocNamedColorDefPixel defaultColormap bgcol "white" $ \bgp ->
    [ColorSpec] -> (Pixel -> K i o) -> K i o
forall a (f :: * -> * -> *) i o.
(ColorGen a, FudgetIO f, Show a) =>
a -> (Pixel -> f i o) -> f i o
convColorK [a -> ColorSpec
forall a. (Show a, ColorGen a) => a -> ColorSpec
colorSpec a
bgcol,[Char] -> ColorSpec
forall a. (Show a, ColorGen a) => a -> ColorSpec
colorSpec [Char]
"white"] ((Pixel -> K i o) -> K i o) -> (Pixel -> K i o) -> K i o
forall a b. (a -> b) -> a -> b
$ \ Pixel
bgp ->
    XCommand -> K i o -> K i o
forall i o. XCommand -> K i o -> K i o
xcommandK ([WindowAttributes] -> XCommand
ChangeWindowAttributes [Pixel -> WindowAttributes
CWBackPixel Pixel
bgp]) (K i o -> K i o) -> K i o -> K i o
forall a b. (a -> b) -> a -> b
$
    XCommand -> K i o -> K i o
forall i o. XCommand -> K i o -> K i o
xcommandK XCommand
clearWindowExpose (K i o -> K i o) -> K i o -> K i o
forall a b. (a -> b) -> a -> b
$
    Pixel -> K i o
f Pixel
bgp

changeBackPixel :: a -> K i o -> K i o
changeBackPixel a
bgcol = a -> (Pixel -> K i o) -> K i o
forall a i o.
(Show a, ColorGen a) =>
a -> (Pixel -> K i o) -> K i o
changeGetBackPixel a
bgcol ((Pixel -> K i o) -> K i o)
-> (K i o -> Pixel -> K i o) -> K i o -> K i o
forall b c a. (b -> c) -> (a -> b) -> a -> c
. K i o -> Pixel -> K i o
forall a b. a -> b -> a
const