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 BrownPLT.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