module Data.DOM.HTMLOptionElement
       (get'form, getm'form, set'defaultSelected, get'defaultSelected,
        getm'defaultSelected, get'text, getm'text, get'index, getm'index,
        set'disabled, get'disabled, getm'disabled, set'label, get'label,
        getm'label, set'selected, get'selected, getm'selected, set'value,
        get'value, getm'value)
       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, CHTMLOptionElement 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, CHTMLOptionElement this) =>
            Expression this -> mn (Expression THTMLFormElement)
getm'form = get'form
 
set'defaultSelected ::
                    (Monad mn, CHTMLOptionElement zz) =>
                      Expression Bool -> Expression zz -> mn (Expression zz)
set'defaultSelected = setjsProperty "defaultSelected"
 
get'defaultSelected ::
                    (Monad mn, CHTMLOptionElement this) =>
                      Expression this -> mn (Expression Bool)
get'defaultSelected thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "defaultSelected")
       return r
 
getm'defaultSelected ::
                     (Monad mn, CHTMLOptionElement this) =>
                       Expression this -> mn (Expression Bool)
getm'defaultSelected = get'defaultSelected
 
get'text ::
         (Monad mn, CHTMLOptionElement this) =>
           Expression this -> mn (Expression String)
get'text thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "text")
       return r
 
getm'text ::
          (Monad mn, CHTMLOptionElement this) =>
            Expression this -> mn (Expression String)
getm'text = get'text
 
get'index ::
          (Monad mn, CHTMLOptionElement this) =>
            Expression this -> mn (Expression Double)
get'index thisp
  = do let et = undefined :: Double
       let r = DotRef et (thisp /\ et) (Id et "index")
       return r
 
getm'index ::
           (Monad mn, CHTMLOptionElement this) =>
             Expression this -> mn (Expression Double)
getm'index = get'index
 
set'disabled ::
             (Monad mn, CHTMLOptionElement zz) =>
               Expression Bool -> Expression zz -> mn (Expression zz)
set'disabled = setjsProperty "disabled"
 
get'disabled ::
             (Monad mn, CHTMLOptionElement this) =>
               Expression this -> mn (Expression Bool)
get'disabled thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "disabled")
       return r
 
getm'disabled ::
              (Monad mn, CHTMLOptionElement this) =>
                Expression this -> mn (Expression Bool)
getm'disabled = get'disabled
 
set'label ::
          (Monad mn, CHTMLOptionElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'label = setjsProperty "label"
 
get'label ::
          (Monad mn, CHTMLOptionElement this) =>
            Expression this -> mn (Expression String)
get'label thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "label")
       return r
 
getm'label ::
           (Monad mn, CHTMLOptionElement this) =>
             Expression this -> mn (Expression String)
getm'label = get'label
 
set'selected ::
             (Monad mn, CHTMLOptionElement zz) =>
               Expression Bool -> Expression zz -> mn (Expression zz)
set'selected = setjsProperty "selected"
 
get'selected ::
             (Monad mn, CHTMLOptionElement this) =>
               Expression this -> mn (Expression Bool)
get'selected thisp
  = do let et = undefined :: Bool
       let r = DotRef et (thisp /\ et) (Id et "selected")
       return r
 
getm'selected ::
              (Monad mn, CHTMLOptionElement this) =>
                Expression this -> mn (Expression Bool)
getm'selected = get'selected
 
set'value ::
          (Monad mn, CHTMLOptionElement zz) =>
            Expression String -> Expression zz -> mn (Expression zz)
set'value = setjsProperty "value"
 
get'value ::
          (Monad mn, CHTMLOptionElement this) =>
            Expression this -> mn (Expression String)
get'value thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "value")
       return r
 
getm'value ::
           (Monad mn, CHTMLOptionElement this) =>
             Expression this -> mn (Expression String)
getm'value = get'value