module Data.DOM.HTMLBaseFontElement
(set'color, get'color, getm'color, set'face, get'face, getm'face,
set'size, get'size, getm'size)
where
import Data.DOM.Html2
import Control.Monad
import WebBits.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
set'color ::
(Monad mn, CHTMLBaseFontElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'color = setjsProperty "color"
get'color ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression String)
get'color thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "color")
return r
getm'color ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression String)
getm'color = get'color
set'face ::
(Monad mn, CHTMLBaseFontElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'face = setjsProperty "face"
get'face ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression String)
get'face thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "face")
return r
getm'face ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression String)
getm'face = get'face
set'size ::
(Monad mn, CHTMLBaseFontElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'size = setjsProperty "size"
get'size ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression Double)
get'size thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "size")
return r
getm'size ::
(Monad mn, CHTMLBaseFontElement this) =>
Expression this -> mn (Expression Double)
getm'size = get'size