module Data.DOM.HTMLFontElement
       (set'color, get'color, getm'color, set'face, get'face, getm'face,
        set'size, get'size, getm'size, mkFont)
       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'color ::
          (Monad mn, CHTMLFontElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'color = setjsProperty "color"
 
get'color ::
          (Monad mn, CHTMLFontElement 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, CHTMLFontElement this) =>
             Expression this -> mn (Expression String)
getm'color = get'color
 
set'face ::
         (Monad mn, CHTMLFontElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'face = setjsProperty "face"
 
get'face ::
         (Monad mn, CHTMLFontElement 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, CHTMLFontElement this) =>
            Expression this -> mn (Expression String)
getm'face = get'face
 
set'size ::
         (Monad mn, CHTMLFontElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'size = setjsProperty "size"
 
get'size ::
         (Monad mn, CHTMLFontElement this) =>
           Expression this -> mn (Expression String)
get'size thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "size")
       return r
 
getm'size ::
          (Monad mn, CHTMLFontElement this) =>
            Expression this -> mn (Expression String)
getm'size = get'size
 
mkFont ::
       (Monad mn, CHTMLDocument a) =>
         Expression a -> mn (Expression THTMLFontElement)
mkFont = createElement (StringLit "font" "font")