module Data.DOM.HTMLLabelElement
       (get'form, getm'form, set'accessKey, get'accessKey, getm'accessKey,
        set'htmlFor, get'htmlFor, getm'htmlFor)
       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, CHTMLLabelElement 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, CHTMLLabelElement this) =>
            Expression this -> mn (Expression THTMLFormElement)
getm'form = get'form
 
set'accessKey ::
              (Monad mn, CHTMLLabelElement zz) =>
                Expression String -> Expression zz -> mn (Expression zz)
set'accessKey = setjsProperty "accessKey"
 
get'accessKey ::
              (Monad mn, CHTMLLabelElement 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, CHTMLLabelElement this) =>
                 Expression this -> mn (Expression String)
getm'accessKey = get'accessKey
 
set'htmlFor ::
            (Monad mn, CHTMLLabelElement zz) =>
              Expression String -> Expression zz -> mn (Expression zz)
set'htmlFor = setjsProperty "htmlFor"
 
get'htmlFor ::
            (Monad mn, CHTMLLabelElement this) =>
              Expression this -> mn (Expression String)
get'htmlFor thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "htmlFor")
       return r
 
getm'htmlFor ::
             (Monad mn, CHTMLLabelElement this) =>
               Expression this -> mn (Expression String)
getm'htmlFor = get'htmlFor