module BgF(changeBackPixel, changeGetBackPixel) where
import Command
import Xcommand
import Xtypes
import GCAttrs
changeGetBackPixel :: a -> (Pixel -> K i o) -> K i o
changeGetBackPixel a
bgcol Pixel -> K i o
f =
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