module JSDOM.Generated.HTMLTableElement
(createTHead, deleteTHead, createTFoot, deleteTFoot, createTBody,
createCaption, deleteCaption, insertRow, deleteRow, setCaption,
getCaption, setTHead, getTHead, setTFoot, getTFoot, getRows,
getTBodies, setAlign, getAlign, setBgColor, getBgColor, setBorder,
getBorder, setCellPadding, getCellPadding, setCellSpacing,
getCellSpacing, setFrame, getFrame, setRules, getRules, setSummary,
getSummary, setWidth, getWidth, HTMLTableElement,
castToHTMLTableElement, gTypeHTMLTableElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
createTHead ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createTHead self
= liftDOM ((self ^. js "createTHead") >>= fromJSVal)
deleteTHead :: (MonadDOM m) => HTMLTableElement -> m ()
deleteTHead self = liftDOM (void (self ^. js "deleteTHead"))
createTFoot ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createTFoot self
= liftDOM ((self ^. js "createTFoot") >>= fromJSVal)
deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m ()
deleteTFoot self = liftDOM (void (self ^. js "deleteTFoot"))
createTBody ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createTBody self
= liftDOM ((self ^. js "createTBody") >>= fromJSVal)
createCaption ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createCaption self
= liftDOM ((self ^. js "createCaption") >>= fromJSVal)
deleteCaption :: (MonadDOM m) => HTMLTableElement -> m ()
deleteCaption self = liftDOM (void (self ^. js "deleteCaption"))
insertRow ::
(MonadDOM m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)
insertRow self index
= liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)
deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m ()
deleteRow self index
= liftDOM (void (self ^. jsf "deleteRow" [toJSVal index]))
setCaption ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableCaptionElement -> m ()
setCaption self val = liftDOM (self ^. jss "caption" (toJSVal val))
getCaption ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableCaptionElement)
getCaption self = liftDOM ((self ^. js "caption") >>= fromJSVal)
setTHead ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()
setTHead self val = liftDOM (self ^. jss "tHead" (toJSVal val))
getTHead ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableSectionElement)
getTHead self = liftDOM ((self ^. js "tHead") >>= fromJSVal)
setTFoot ::
(MonadDOM m) =>
HTMLTableElement -> Maybe HTMLTableSectionElement -> m ()
setTFoot self val = liftDOM (self ^. jss "tFoot" (toJSVal val))
getTFoot ::
(MonadDOM m) =>
HTMLTableElement -> m (Maybe HTMLTableSectionElement)
getTFoot self = liftDOM ((self ^. js "tFoot") >>= fromJSVal)
getRows ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)
getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)
getTBodies ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)
getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal)
setAlign ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setAlign self val = liftDOM (self ^. jss "align" (toJSVal val))
getAlign ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getAlign self
= liftDOM ((self ^. js "align") >>= fromJSValUnchecked)
setBgColor ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val))
getBgColor ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getBgColor self
= liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked)
setBorder ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setBorder self val = liftDOM (self ^. jss "border" (toJSVal val))
getBorder ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getBorder self
= liftDOM ((self ^. js "border") >>= fromJSValUnchecked)
setCellPadding ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setCellPadding self val
= liftDOM (self ^. jss "cellPadding" (toJSVal val))
getCellPadding ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getCellPadding self
= liftDOM ((self ^. js "cellPadding") >>= fromJSValUnchecked)
setCellSpacing ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setCellSpacing self val
= liftDOM (self ^. jss "cellSpacing" (toJSVal val))
getCellSpacing ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getCellSpacing self
= liftDOM ((self ^. js "cellSpacing") >>= fromJSValUnchecked)
setFrame ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setFrame self val = liftDOM (self ^. jss "frame" (toJSVal val))
getFrame ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getFrame self
= liftDOM ((self ^. js "frame") >>= fromJSValUnchecked)
setRules ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setRules self val = liftDOM (self ^. jss "rules" (toJSVal val))
getRules ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getRules self
= liftDOM ((self ^. js "rules") >>= fromJSValUnchecked)
setSummary ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setSummary self val = liftDOM (self ^. jss "summary" (toJSVal val))
getSummary ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getSummary self
= liftDOM ((self ^. js "summary") >>= fromJSValUnchecked)
setWidth ::
(MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m ()
setWidth self val = liftDOM (self ^. jss "width" (toJSVal val))
getWidth ::
(MonadDOM m, FromJSString result) => HTMLTableElement -> m result
getWidth self
= liftDOM ((self ^. js "width") >>= fromJSValUnchecked)