module Data.DOM.HTMLIFrameElement
       (set'align, get'align, getm'align, set'frameBorder,
        get'frameBorder, getm'frameBorder, set'height, get'height,
        getm'height, set'longDesc, get'longDesc, getm'longDesc,
        set'marginHeight, get'marginHeight, getm'marginHeight,
        set'marginWidth, get'marginWidth, getm'marginWidth, set'name,
        get'name, getm'name, set'scrolling, get'scrolling, getm'scrolling,
        set'src, get'src, getm'src, set'width, get'width, getm'width,
        get'contentDocument, getm'contentDocument)
       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, CHTMLIFrameElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLIFrameElement 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, CHTMLIFrameElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
set'frameBorder ::
                (Monad mn, CHTMLIFrameElement zz) =>
                  Expression String -> Expression zz -> mn (Expression zz)
set'frameBorder = setjsProperty "frameBorder"
 
get'frameBorder ::
                (Monad mn, CHTMLIFrameElement this) =>
                  Expression this -> mn (Expression String)
get'frameBorder thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "frameBorder")
       return r
 
getm'frameBorder ::
                 (Monad mn, CHTMLIFrameElement this) =>
                   Expression this -> mn (Expression String)
getm'frameBorder = get'frameBorder
 
set'height ::
           (Monad mn, CHTMLIFrameElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'height = setjsProperty "height"
 
get'height ::
           (Monad mn, CHTMLIFrameElement 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, CHTMLIFrameElement this) =>
              Expression this -> mn (Expression String)
getm'height = get'height
 
set'longDesc ::
             (Monad mn, CHTMLIFrameElement zz) =>
               Expression String -> Expression zz -> mn (Expression zz)
set'longDesc = setjsProperty "longDesc"
 
get'longDesc ::
             (Monad mn, CHTMLIFrameElement this) =>
               Expression this -> mn (Expression String)
get'longDesc thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "longDesc")
       return r
 
getm'longDesc ::
              (Monad mn, CHTMLIFrameElement this) =>
                Expression this -> mn (Expression String)
getm'longDesc = get'longDesc
 
set'marginHeight ::
                 (Monad mn, CHTMLIFrameElement zz) =>
                   Expression String -> Expression zz -> mn (Expression zz)
set'marginHeight = setjsProperty "marginHeight"
 
get'marginHeight ::
                 (Monad mn, CHTMLIFrameElement this) =>
                   Expression this -> mn (Expression String)
get'marginHeight thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "marginHeight")
       return r
 
getm'marginHeight ::
                  (Monad mn, CHTMLIFrameElement this) =>
                    Expression this -> mn (Expression String)
getm'marginHeight = get'marginHeight
 
set'marginWidth ::
                (Monad mn, CHTMLIFrameElement zz) =>
                  Expression String -> Expression zz -> mn (Expression zz)
set'marginWidth = setjsProperty "marginWidth"
 
get'marginWidth ::
                (Monad mn, CHTMLIFrameElement this) =>
                  Expression this -> mn (Expression String)
get'marginWidth thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "marginWidth")
       return r
 
getm'marginWidth ::
                 (Monad mn, CHTMLIFrameElement this) =>
                   Expression this -> mn (Expression String)
getm'marginWidth = get'marginWidth
 
set'name ::
         (Monad mn, CHTMLIFrameElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
 
get'name ::
         (Monad mn, CHTMLIFrameElement 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, CHTMLIFrameElement this) =>
            Expression this -> mn (Expression String)
getm'name = get'name
 
set'scrolling ::
              (Monad mn, CHTMLIFrameElement zz) =>
                Expression String -> Expression zz -> mn (Expression zz)
set'scrolling = setjsProperty "scrolling"
 
get'scrolling ::
              (Monad mn, CHTMLIFrameElement this) =>
                Expression this -> mn (Expression String)
get'scrolling thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "scrolling")
       return r
 
getm'scrolling ::
               (Monad mn, CHTMLIFrameElement this) =>
                 Expression this -> mn (Expression String)
getm'scrolling = get'scrolling
 
set'src ::
        (Monad mn, CHTMLIFrameElement zz) =>
          Expression String -> Expression zz -> mn (Expression zz)
set'src = setjsProperty "src"
 
get'src ::
        (Monad mn, CHTMLIFrameElement this) =>
          Expression this -> mn (Expression String)
get'src thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "src")
       return r
 
getm'src ::
         (Monad mn, CHTMLIFrameElement this) =>
           Expression this -> mn (Expression String)
getm'src = get'src
 
set'width ::
          (Monad mn, CHTMLIFrameElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
 
get'width ::
          (Monad mn, CHTMLIFrameElement 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, CHTMLIFrameElement this) =>
             Expression this -> mn (Expression String)
getm'width = get'width
 
get'contentDocument ::
                    (Monad mn, CHTMLIFrameElement 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, CHTMLIFrameElement this) =>
                       Expression this -> mn (Expression TDocument)
getm'contentDocument = get'contentDocument