module Data.DOM.HTMLAreaElement
(set'accessKey, get'accessKey, getm'accessKey, set'alt, get'alt,
getm'alt, set'coords, get'coords, getm'coords, set'href, get'href,
getm'href, set'noHref, get'noHref, getm'noHref, set'shape,
get'shape, getm'shape, set'tabIndex, get'tabIndex, getm'tabIndex,
set'target, get'target, getm'target)
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'accessKey ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'accessKey = setjsProperty "accessKey"
get'accessKey ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
get'accessKey thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "accessKey")
return r
getm'accessKey ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'accessKey = get'accessKey
set'alt ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'alt = setjsProperty "alt"
get'alt ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
get'alt thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "alt")
return r
getm'alt ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'alt = get'alt
set'coords ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'coords = setjsProperty "coords"
get'coords ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
get'coords thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "coords")
return r
getm'coords ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'coords = get'coords
set'href ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'href = setjsProperty "href"
get'href ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
get'href thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "href")
return r
getm'href ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'href = get'href
set'noHref ::
(Monad mn, CHTMLAreaElement zz) =>
Expression Bool -> Expression zz -> mn (Expression zz)
set'noHref = setjsProperty "noHref"
get'noHref ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression Bool)
get'noHref thisp
= do let et = undefined :: Bool
let r = DotRef et (thisp /\ et) (Id et "noHref")
return r
getm'noHref ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression Bool)
getm'noHref = get'noHref
set'shape ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'shape = setjsProperty "shape"
get'shape ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
get'shape thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "shape")
return r
getm'shape ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'shape = get'shape
set'tabIndex ::
(Monad mn, CHTMLAreaElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'tabIndex = setjsProperty "tabIndex"
get'tabIndex ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression Double)
get'tabIndex thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "tabIndex")
return r
getm'tabIndex ::
(Monad mn, CHTMLAreaElement this) =>
Expression this -> mn (Expression Double)
getm'tabIndex = get'tabIndex
set'target ::
(Monad mn, CHTMLAreaElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'target = setjsProperty "target"
get'target ::
(Monad mn, CHTMLAreaElement 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, CHTMLAreaElement this) =>
Expression this -> mn (Expression String)
getm'target = get'target