module Data.DOM.HTMLIsIndexElement
(get'form, getm'form, set'prompt, get'prompt, getm'prompt) where
import Data.DOM.Html2
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
get'form ::
(Monad mn, CHTMLIsIndexElement this, CHTMLFormElement zz) =>
Expression this -> mn (Expression zz)
get'form thisp
= do let et = undefined :: zz
let r = DotRef et (thisp /\ et) (Id et "form")
return r
getm'form ::
(Monad mn, CHTMLIsIndexElement this) =>
Expression this -> mn (Expression THTMLFormElement)
getm'form = get'form
set'prompt ::
(Monad mn, CHTMLIsIndexElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'prompt = setjsProperty "prompt"
get'prompt ::
(Monad mn, CHTMLIsIndexElement this) =>
Expression this -> mn (Expression String)
get'prompt thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "prompt")
return r
getm'prompt ::
(Monad mn, CHTMLIsIndexElement this) =>
Expression this -> mn (Expression String)
getm'prompt = get'prompt