module Data.DOM.HTMLFormElement
(submit, reset, get'elements, getm'elements, get'length,
getm'length, set'name, get'name, getm'name, set'acceptCharset,
get'acceptCharset, getm'acceptCharset, set'action, get'action,
getm'action, set'enctype, get'enctype, getm'enctype, set'method,
get'method, getm'method, set'target, get'target, getm'target,
mkForm)
where
import Data.DOM.Html2
import Control.Monad
import WebBits.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
submit ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression ())
submit thisp
= do let et = undefined :: ()
let r = DotRef et (thisp /\ et) (Id et "submit")
return (CallExpr et r [])
reset ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression ())
reset thisp
= do let et = undefined :: ()
let r = DotRef et (thisp /\ et) (Id et "reset")
return (CallExpr et r [])
get'elements ::
(Monad mn, CHTMLFormElement this, CHTMLCollection zz) =>
Expression this -> mn (Expression zz)
get'elements thisp
= do let et = undefined :: zz
let r = DotRef et (thisp /\ et) (Id et "elements")
return r
getm'elements ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression THTMLCollection)
getm'elements = get'elements
get'length ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression Double)
get'length thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "length")
return r
getm'length ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression Double)
getm'length = get'length
set'name ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
get'name ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'name thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "name")
return r
getm'name ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'name = get'name
set'acceptCharset ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'acceptCharset = setjsProperty "acceptCharset"
get'acceptCharset ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'acceptCharset thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "acceptCharset")
return r
getm'acceptCharset ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'acceptCharset = get'acceptCharset
set'action ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'action = setjsProperty "action"
get'action ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'action thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "action")
return r
getm'action ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'action = get'action
set'enctype ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'enctype = setjsProperty "enctype"
get'enctype ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'enctype thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "enctype")
return r
getm'enctype ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'enctype = get'enctype
set'method ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'method = setjsProperty "method"
get'method ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'method thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "method")
return r
getm'method ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'method = get'method
set'target ::
(Monad mn, CHTMLFormElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'target = setjsProperty "target"
get'target ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
get'target thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "target")
return r
getm'target ::
(Monad mn, CHTMLFormElement this) =>
Expression this -> mn (Expression String)
getm'target = get'target
mkForm ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLFormElement)
mkForm = createElement (StringLit "form" "form")