module Data.DOM.HTMLImageElement
       (set'name, get'name, getm'name, set'align, get'align, getm'align,
        set'alt, get'alt, getm'alt, set'border, get'border, getm'border,
        set'height, get'height, getm'height, set'hspace, get'hspace,
        getm'hspace, set'isMap, get'isMap, getm'isMap, set'longDesc,
        get'longDesc, getm'longDesc, set'src, get'src, getm'src,
        set'useMap, get'useMap, getm'useMap, set'vspace, get'vspace,
        getm'vspace, set'width, get'width, getm'width, mkImg)
       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'name ::
         (Monad mn, CHTMLImageElement zz) =>
           Expression String -> Expression zz -> mn (Expression zz)
set'name = setjsProperty "name"
 
get'name ::
         (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
            Expression this -> mn (Expression String)
getm'name = get'name
 
set'align ::
          (Monad mn, CHTMLImageElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'align = setjsProperty "align"
 
get'align ::
          (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
             Expression this -> mn (Expression String)
getm'align = get'align
 
set'alt ::
        (Monad mn, CHTMLImageElement zz) =>
          Expression String -> Expression zz -> mn (Expression zz)
set'alt = setjsProperty "alt"
 
get'alt ::
        (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
           Expression this -> mn (Expression String)
getm'alt = get'alt
 
set'border ::
           (Monad mn, CHTMLImageElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'border = setjsProperty "border"
 
get'border ::
           (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
              Expression this -> mn (Expression String)
getm'border = get'border
 
set'height ::
           (Monad mn, CHTMLImageElement zz) =>
             Expression Double -> Expression zz -> mn (Expression zz)
set'height = setjsProperty "height"
 
get'height ::
           (Monad mn, CHTMLImageElement this) =>
             Expression this -> mn (Expression Double)
get'height thisp
  = do let et = undefined :: Double
       let r = DotRef et (thisp /\ et) (Id et "height")
       return r
 
getm'height ::
            (Monad mn, CHTMLImageElement this) =>
              Expression this -> mn (Expression Double)
getm'height = get'height
 
set'hspace ::
           (Monad mn, CHTMLImageElement zz) =>
             Expression Double -> Expression zz -> mn (Expression zz)
set'hspace = setjsProperty "hspace"
 
get'hspace ::
           (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
              Expression this -> mn (Expression Double)
getm'hspace = get'hspace
 
set'isMap ::
          (Monad mn, CHTMLImageElement zz) =>
            Expression Bool -> Expression zz -> mn (Expression zz)
set'isMap = setjsProperty "isMap"
 
get'isMap ::
          (Monad mn, CHTMLImageElement this) =>
            Expression this -> mn (Expression Bool)
get'isMap thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "isMap")
       return r
 
getm'isMap ::
           (Monad mn, CHTMLImageElement this) =>
             Expression this -> mn (Expression Bool)
getm'isMap = get'isMap
 
set'longDesc ::
             (Monad mn, CHTMLImageElement zz) =>
               Expression String -> Expression zz -> mn (Expression zz)
set'longDesc = setjsProperty "longDesc"
 
get'longDesc ::
             (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
                Expression this -> mn (Expression String)
getm'longDesc = get'longDesc
 
set'src ::
        (Monad mn, CHTMLImageElement zz) =>
          Expression String -> Expression zz -> mn (Expression zz)
set'src = setjsProperty "src"
 
get'src ::
        (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
           Expression this -> mn (Expression String)
getm'src = get'src
 
set'useMap ::
           (Monad mn, CHTMLImageElement zz) =>
             Expression String -> Expression zz -> mn (Expression zz)
set'useMap = setjsProperty "useMap"
 
get'useMap ::
           (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
              Expression this -> mn (Expression String)
getm'useMap = get'useMap
 
set'vspace ::
           (Monad mn, CHTMLImageElement zz) =>
             Expression Double -> Expression zz -> mn (Expression zz)
set'vspace = setjsProperty "vspace"
 
get'vspace ::
           (Monad mn, CHTMLImageElement 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, CHTMLImageElement this) =>
              Expression this -> mn (Expression Double)
getm'vspace = get'vspace
 
set'width ::
          (Monad mn, CHTMLImageElement zz) =>
            Expression Double -> Expression zz -> mn (Expression zz)
set'width = setjsProperty "width"
 
get'width ::
          (Monad mn, CHTMLImageElement this) =>
            Expression this -> mn (Expression Double)
get'width thisp
  = do let et = undefined :: Double
       let r = DotRef et (thisp /\ et) (Id et "width")
       return r
 
getm'width ::
           (Monad mn, CHTMLImageElement this) =>
             Expression this -> mn (Expression Double)
getm'width = get'width
 
mkImg ::
      (Monad mn, CHTMLDocument a) =>
        Expression a -> mn (Expression THTMLImageElement)
mkImg = createElement (StringLit "img" "img")