module Data.DOM.HTMLAppletElement
(set'align, get'align, getm'align, set'alt, get'alt, getm'alt,
set'archive, get'archive, getm'archive, set'code, get'code,
getm'code, set'codeBase, get'codeBase, getm'codeBase, set'height,
get'height, getm'height, set'hspace, get'hspace, getm'hspace,
set'name, get'name, getm'name, set'object, get'object, getm'object,
set'vspace, get'vspace, getm'vspace, set'width, get'width,
getm'width, mkApplet)
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, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
get'align ::
(Monad mn, CHTMLAppletElement 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, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'align = get'align
set'alt ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'alt = setjsProperty "alt"
get'alt ::
(Monad mn, CHTMLAppletElement 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, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'alt = get'alt
set'archive ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'archive = setjsProperty "archive"
get'archive ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'archive thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "archive")
return r
getm'archive ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'archive = get'archive
set'code ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'code = setjsProperty "code"
get'code ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'code thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "code")
return r
getm'code ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'code = get'code
set'codeBase ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'codeBase = setjsProperty "codeBase"
get'codeBase ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'codeBase thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "codeBase")
return r
getm'codeBase ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'codeBase = get'codeBase
set'height ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'height = setjsProperty "height"
get'height ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'height thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "height")
return r
getm'height ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'height = get'height
set'hspace ::
(Monad mn, CHTMLAppletElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'hspace = setjsProperty "hspace"
get'hspace ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression Double)
get'hspace thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "hspace")
return r
getm'hspace ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression Double)
getm'hspace = get'hspace
set'name ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
get'name ::
(Monad mn, CHTMLAppletElement 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, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'name = get'name
set'object ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'object = setjsProperty "object"
get'object ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'object thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "object")
return r
getm'object ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'object = get'object
set'vspace ::
(Monad mn, CHTMLAppletElement zz) =>
Expression Double -> Expression zz -> mn (Expression zz)
set'vspace = setjsProperty "vspace"
get'vspace ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression Double)
get'vspace thisp
= do let et = undefined :: Double
let r = DotRef et (thisp /\ et) (Id et "vspace")
return r
getm'vspace ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression Double)
getm'vspace = get'vspace
set'width ::
(Monad mn, CHTMLAppletElement zz) =>
Expression String -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
get'width ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
get'width thisp
= do let et = undefined :: String
let r = DotRef et (thisp /\ et) (Id et "width")
return r
getm'width ::
(Monad mn, CHTMLAppletElement this) =>
Expression this -> mn (Expression String)
getm'width = get'width
mkApplet ::
(Monad mn, CHTMLDocument a) =>
Expression a -> mn (Expression THTMLAppletElement)
mkApplet = createElement (StringLit "applet" "applet")