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 =
[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