module Data.DOM.HTMLBodyElement
(set'aLink, get'aLink, getm'aLink, set'background, get'background,
getm'background, set'bgColor, get'bgColor, getm'bgColor, set'link,
get'link, getm'link, set'text, get'text, getm'text, set'vLink,
get'vLink, getm'vLink)
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'aLink ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'aLink = setjsProperty "aLink"
get'aLink ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'aLink thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "aLink")
return r
getm'aLink ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'aLink = get'aLink
set'background ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'background = setjsProperty "background"
get'background ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'background thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "background")
return r
getm'background ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'background = get'background
set'bgColor ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'bgColor = setjsProperty "bgColor"
get'bgColor ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'bgColor thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "bgColor")
return r
getm'bgColor ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'bgColor = get'bgColor
set'link ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'link = setjsProperty "link"
get'link ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'link thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "link")
return r
getm'link ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'link = get'link
set'text ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'text = setjsProperty "text"
get'text ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'text thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "text")
return r
getm'text ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'text = get'text
set'vLink ::
(Monad mn, CHTMLBodyElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'vLink = setjsProperty "vLink"
get'vLink ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
get'vLink thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "vLink")
return r
getm'vLink ::
(Monad mn, CHTMLBodyElement this) =>
Expression this -> mn (Expression String)
getm'vLink = get'vLink