module Data.DOM.HTMLObjectElement
       (get'form, getm'form, set'code, get'code, getm'code, set'align,
        get'align, getm'align, set'archive, get'archive, getm'archive,
        set'border, get'border, getm'border, set'codeBase, get'codeBase,
        getm'codeBase, set'codeType, get'codeType, getm'codeType, set'data,
        get'data, getm'data, set'declare, get'declare, getm'declare,
        set'height, get'height, getm'height, set'hspace, get'hspace,
        getm'hspace, set'name, get'name, getm'name, set'standby,
        get'standby, getm'standby, set'tabIndex, get'tabIndex,
        getm'tabIndex, set'type, get'type, getm'type, set'useMap,
        get'useMap, getm'useMap, set'vspace, get'vspace, getm'vspace,
        set'width, get'width, getm'width, get'contentDocument,
        getm'contentDocument, mkObject)
       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, CHTMLObjectElement 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, CHTMLObjectElement this) =>
            Expression this -> mn (Expression THTMLFormElement)
getm'form = get'form
 
set'code ::
         (Monad mn, CHTMLObjectElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'code = setjsProperty "code"
 
get'code ::
         (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
            Expression this -> mn (Expression String)
getm'code = get'code
 
set'align ::
          (Monad mn, CHTMLObjectElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
set'archive ::
            (Monad mn, CHTMLObjectElement zz) =>
              Expression String -> Expression zz -> mn (Expression zz)
set'archive = setjsProperty "archive"
 
get'archive ::
            (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
               Expression this -> mn (Expression String)
getm'archive = get'archive
 
set'border ::
           (Monad mn, CHTMLObjectElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'border = setjsProperty "border"
 
get'border ::
           (Monad mn, CHTMLObjectElement this) =>
             Expression this -> mn (Expression String)
get'border thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "border")
       return r
 
getm'border ::
            (Monad mn, CHTMLObjectElement this) =>
              Expression this -> mn (Expression String)
getm'border = get'border
 
set'codeBase ::
             (Monad mn, CHTMLObjectElement zz) =>
               Expression String -> Expression zz -> mn (Expression zz)
set'codeBase = setjsProperty "codeBase"
 
get'codeBase ::
             (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
                Expression this -> mn (Expression String)
getm'codeBase = get'codeBase
 
set'codeType ::
             (Monad mn, CHTMLObjectElement zz) =>
               Expression String -> Expression zz -> mn (Expression zz)
set'codeType = setjsProperty "codeType"
 
get'codeType ::
             (Monad mn, CHTMLObjectElement this) =>
               Expression this -> mn (Expression String)
get'codeType thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "codeType")
       return r
 
getm'codeType ::
              (Monad mn, CHTMLObjectElement this) =>
                Expression this -> mn (Expression String)
getm'codeType = get'codeType
 
set'data ::
         (Monad mn, CHTMLObjectElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'data = setjsProperty "data"
 
get'data ::
         (Monad mn, CHTMLObjectElement this) =>
           Expression this -> mn (Expression String)
get'data thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "data")
       return r
 
getm'data ::
          (Monad mn, CHTMLObjectElement this) =>
            Expression this -> mn (Expression String)
getm'data = get'data
 
set'declare ::
            (Monad mn, CHTMLObjectElement zz) =>
              Expression Bool -> Expression zz -> mn (Expression zz)
set'declare = setjsProperty "declare"
 
get'declare ::
            (Monad mn, CHTMLObjectElement this) =>
              Expression this -> mn (Expression Bool)
get'declare thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "declare")
       return r
 
getm'declare ::
             (Monad mn, CHTMLObjectElement this) =>
               Expression this -> mn (Expression Bool)
getm'declare = get'declare
 
set'height ::
           (Monad mn, CHTMLObjectElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'height = setjsProperty "height"
 
get'height ::
           (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
              Expression this -> mn (Expression String)
getm'height = get'height
 
set'hspace ::
           (Monad mn, CHTMLObjectElement zz) =>
             Expression Double -> Expression zz -> mn (Expression zz)
set'hspace = setjsProperty "hspace"
 
get'hspace ::
           (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
              Expression this -> mn (Expression Double)
getm'hspace = get'hspace
 
set'name ::
         (Monad mn, CHTMLObjectElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
 
get'name ::
         (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
            Expression this -> mn (Expression String)
getm'name = get'name
 
set'standby ::
            (Monad mn, CHTMLObjectElement zz) =>
              Expression String -> Expression zz -> mn (Expression zz)
set'standby = setjsProperty "standby"
 
get'standby ::
            (Monad mn, CHTMLObjectElement this) =>
              Expression this -> mn (Expression String)
get'standby thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "standby")
       return r
 
getm'standby ::
             (Monad mn, CHTMLObjectElement this) =>
               Expression this -> mn (Expression String)
getm'standby = get'standby
 
set'tabIndex ::
             (Monad mn, CHTMLObjectElement zz) =>
               Expression Double -> Expression zz -> mn (Expression zz)
set'tabIndex = setjsProperty "tabIndex"
 
get'tabIndex ::
             (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
                Expression this -> mn (Expression Double)
getm'tabIndex = get'tabIndex
 
set'type ::
         (Monad mn, CHTMLObjectElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'type = setjsProperty "type"
 
get'type ::
         (Monad mn, CHTMLObjectElement this) =>
           Expression this -> mn (Expression String)
get'type thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "type")
       return r
 
getm'type ::
          (Monad mn, CHTMLObjectElement this) =>
            Expression this -> mn (Expression String)
getm'type = get'type
 
set'useMap ::
           (Monad mn, CHTMLObjectElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'useMap = setjsProperty "useMap"
 
get'useMap ::
           (Monad mn, CHTMLObjectElement this) =>
             Expression this -> mn (Expression String)
get'useMap thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "useMap")
       return r
 
getm'useMap ::
            (Monad mn, CHTMLObjectElement this) =>
              Expression this -> mn (Expression String)
getm'useMap = get'useMap
 
set'vspace ::
           (Monad mn, CHTMLObjectElement zz) =>
             Expression Double -> Expression zz -> mn (Expression zz)
set'vspace = setjsProperty "vspace"
 
get'vspace ::
           (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
              Expression this -> mn (Expression Double)
getm'vspace = get'vspace
 
set'width ::
          (Monad mn, CHTMLObjectElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
 
get'width ::
          (Monad mn, CHTMLObjectElement 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, CHTMLObjectElement this) =>
             Expression this -> mn (Expression String)
getm'width = get'width
 
get'contentDocument ::
                    (Monad mn, CHTMLObjectElement this, CDocument zz) =>
                      Expression this -> mn (Expression zz)
get'contentDocument thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "contentDocument")
       return r
 
getm'contentDocument ::
                     (Monad mn, CHTMLObjectElement this) =>
                       Expression this -> mn (Expression TDocument)
getm'contentDocument = get'contentDocument
 
mkObject ::
         (Monad mn, CHTMLDocument a) =>
           Expression a -> mn (Expression THTMLObjectElement)
mkObject = createElement (StringLit "object" "object")