module Data.DOM.HTMLDivElement
(set'align, get'align, getm'align, mkDiv) 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'align ::
(Monad mn, CHTMLDivElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
get'align ::
(Monad mn, CHTMLDivElement this) =>
Expression this -> mn (Expression String)
get'align thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "align")
return r
getm'align ::
(Monad mn, CHTMLDivElement this) =>
Expression this -> mn (Expression String)
getm'align = get'align
mkDiv ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLDivElement)
mkDiv = createElement (StringLit "div" "div")