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 ->
    forall {a} {f :: * -> * -> *} {i} {o}.
(ColorGen a, FudgetIO f, Show a) =>
a -> (Pixel -> f i o) -> f i o
convColorK [forall {a}. (Show a, ColorGen a) => a -> ColorSpec
colorSpec a
bgcol,forall {a}. (Show a, ColorGen a) => a -> ColorSpec
colorSpec String
"white"] forall a b. (a -> b) -> a -> b
$ \ Pixel
bgp ->
    forall {i} {o}. XCommand -> K i o -> K i o
xcommandK ([WindowAttributes] -> XCommand
ChangeWindowAttributes [Pixel -> WindowAttributes
CWBackPixel Pixel
bgp]) forall a b. (a -> b) -> a -> b
$
    forall {i} {o}. XCommand -> K i o -> K i o
xcommandK XCommand
clearWindowExpose 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 = forall {a} {i} {o}.
(Show a, ColorGen a) =>
a -> (Pixel -> K i o) -> K i o
changeGetBackPixel a
bgcol forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. a -> b -> a
const