module Data.DOM.MediaList
       (item, deleteMedium, appendMedium, set'mediaText, get'mediaText,
        getm'mediaText, get'length, getm'length)
       where
import Data.DOM.Stylesheets
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
item ::
     (Monad mn, CMediaList this) =>
       Expression Double -> Expression this -> mn (Expression String)
item a thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "item")
       return (CallExpr et r [a /\ et])
 
deleteMedium ::
             (Monad mn, CMediaList this) =>
               Expression String -> Expression this -> mn (Expression ())
deleteMedium a thisp
  = do let et = undefined :: ()
       let r = DotRef et (thisp /\ et) (Id et "deleteMedium")
       return (CallExpr et r [a /\ et])
 
appendMedium ::
             (Monad mn, CMediaList this) =>
               Expression String -> Expression this -> mn (Expression ())
appendMedium a thisp
  = do let et = undefined :: ()
       let r = DotRef et (thisp /\ et) (Id et "appendMedium")
       return (CallExpr et r [a /\ et])
 
set'mediaText ::
              (Monad mn, CMediaList zz) =>
                Expression String -> Expression zz -> mn (Expression zz)
set'mediaText = setjsProperty "mediaText"
 
get'mediaText ::
              (Monad mn, CMediaList this) =>
                Expression this -> mn (Expression String)
get'mediaText thisp
  = do let et = undefined :: String
       let r = DotRef et (thisp /\ et) (Id et "mediaText")
       return r
 
getm'mediaText ::
               (Monad mn, CMediaList this) =>
                 Expression this -> mn (Expression String)
getm'mediaText = get'mediaText
 
get'length ::
           (Monad mn, CMediaList this) =>
             Expression this -> mn (Expression Double)
get'length thisp
  = do let et = undefined :: Double
       let r = DotRef et (thisp /\ et) (Id et "length")
       return r
 
getm'length ::
            (Monad mn, CMediaList this) =>
              Expression this -> mn (Expression Double)
getm'length = get'length