module JSDOM.Generated.HTMLTableElement
(createTHead, createTHead_, createTHeadUnsafe,
createTHeadUnchecked, deleteTHead, createTFoot, createTFoot_,
createTFootUnsafe, createTFootUnchecked, deleteTFoot, createTBody,
createTBody_, createTBodyUnsafe, createTBodyUnchecked,
createCaption, createCaption_, createCaptionUnsafe,
createCaptionUnchecked, deleteCaption, insertRow, insertRow_,
insertRowUnsafe, insertRowUnchecked, deleteRow, setCaption,
getCaption, getCaptionUnsafe, getCaptionUnchecked, setTHead,
getTHead, getTHeadUnsafe, getTHeadUnchecked, setTFoot, getTFoot,
getTFootUnsafe, getTFootUnchecked, getRows, getRowsUnsafe,
getRowsUnchecked, getTBodies, getTBodiesUnsafe,
getTBodiesUnchecked, setAlign, getAlign, setBgColor, getBgColor,
setBorder, getBorder, setCellPadding, getCellPadding,
setCellSpacing, getCellSpacing, setFrame, getFrame, setRules,
getRules, setSummary, getSummary, setWidth, getWidth,
HTMLTableElement(..), gTypeHTMLTableElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
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 ^. jsf "createTHead" ()) >>= fromJSVal)
createTHead_ :: (MonadDOM m) => HTMLTableElement -> m ()
createTHead_ self = liftDOM (void (self ^. jsf "createTHead" ()))
createTHeadUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement
createTHeadUnsafe self
= liftDOM
(((self ^. jsf "createTHead" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createTHeadUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLElement
createTHeadUnchecked self
= liftDOM ((self ^. jsf "createTHead" ()) >>= fromJSValUnchecked)
deleteTHead :: (MonadDOM m) => HTMLTableElement -> m ()
deleteTHead self = liftDOM (void (self ^. jsf "deleteTHead" ()))
createTFoot ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createTFoot self
= liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSVal)
createTFoot_ :: (MonadDOM m) => HTMLTableElement -> m ()
createTFoot_ self = liftDOM (void (self ^. jsf "createTFoot" ()))
createTFootUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement
createTFootUnsafe self
= liftDOM
(((self ^. jsf "createTFoot" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createTFootUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLElement
createTFootUnchecked self
= liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSValUnchecked)
deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m ()
deleteTFoot self = liftDOM (void (self ^. jsf "deleteTFoot" ()))
createTBody ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createTBody self
= liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSVal)
createTBody_ :: (MonadDOM m) => HTMLTableElement -> m ()
createTBody_ self = liftDOM (void (self ^. jsf "createTBody" ()))
createTBodyUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement
createTBodyUnsafe self
= liftDOM
(((self ^. jsf "createTBody" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createTBodyUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLElement
createTBodyUnchecked self
= liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSValUnchecked)
createCaption ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement)
createCaption self
= liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSVal)
createCaption_ :: (MonadDOM m) => HTMLTableElement -> m ()
createCaption_ self
= liftDOM (void (self ^. jsf "createCaption" ()))
createCaptionUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLElement
createCaptionUnsafe self
= liftDOM
(((self ^. jsf "createCaption" ()) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
createCaptionUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLElement
createCaptionUnchecked self
= liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSValUnchecked)
deleteCaption :: (MonadDOM m) => HTMLTableElement -> m ()
deleteCaption self
= liftDOM (void (self ^. jsf "deleteCaption" ()))
insertRow ::
(MonadDOM m) => HTMLTableElement -> Int -> m (Maybe HTMLElement)
insertRow self index
= liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal)
insertRow_ :: (MonadDOM m) => HTMLTableElement -> Int -> m ()
insertRow_ self index
= liftDOM (void (self ^. jsf "insertRow" [toJSVal index]))
insertRowUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> Int -> m HTMLElement
insertRowUnsafe self index
= liftDOM
(((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
insertRowUnchecked ::
(MonadDOM m) => HTMLTableElement -> Int -> m HTMLElement
insertRowUnchecked self index
= liftDOM
((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSValUnchecked)
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)
getCaptionUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnsafe self
= liftDOM
(((self ^. js "caption") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCaptionUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableCaptionElement
getCaptionUnchecked self
= liftDOM ((self ^. js "caption") >>= fromJSValUnchecked)
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)
getTHeadUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnsafe self
= liftDOM
(((self ^. js "tHead") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTHeadUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement
getTHeadUnchecked self
= liftDOM ((self ^. js "tHead") >>= fromJSValUnchecked)
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)
getTFootUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLTableElement -> m HTMLTableSectionElement
getTFootUnsafe self
= liftDOM
(((self ^. js "tFoot") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTFootUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement
getTFootUnchecked self
= liftDOM ((self ^. js "tFoot") >>= fromJSValUnchecked)
getRows ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)
getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal)
getRowsUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLCollection
getRowsUnsafe self
= liftDOM
(((self ^. js "rows") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRowsUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLCollection
getRowsUnchecked self
= liftDOM ((self ^. js "rows") >>= fromJSValUnchecked)
getTBodies ::
(MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection)
getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal)
getTBodiesUnsafe ::
(MonadDOM m, HasCallStack) => HTMLTableElement -> m HTMLCollection
getTBodiesUnsafe self
= liftDOM
(((self ^. js "tBodies") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTBodiesUnchecked ::
(MonadDOM m) => HTMLTableElement -> m HTMLCollection
getTBodiesUnchecked self
= liftDOM ((self ^. js "tBodies") >>= fromJSValUnchecked)
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)