{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableElement (js_createTHead, createTHead, createTHead_, createTHeadUnsafe, createTHeadUnchecked, js_deleteTHead, deleteTHead, js_createTFoot, createTFoot, createTFoot_, createTFootUnsafe, createTFootUnchecked, js_deleteTFoot, deleteTFoot, js_createTBody, createTBody, createTBody_, createTBodyUnsafe, createTBodyUnchecked, js_createCaption, createCaption, createCaption_, createCaptionUnsafe, createCaptionUnchecked, js_deleteCaption, deleteCaption, js_insertRow, insertRow, insertRow_, insertRowUnsafe, insertRowUnchecked, js_deleteRow, deleteRow, js_setCaption, setCaption, js_getCaption, getCaption, getCaptionUnsafe, getCaptionUnchecked, js_setTHead, setTHead, js_getTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked, js_setTFoot, setTFoot, js_getTFoot, getTFoot, getTFootUnsafe, getTFootUnchecked, js_getRows, getRows, getRowsUnsafe, getRowsUnchecked, js_getTBodies, getTBodies, getTBodiesUnsafe, getTBodiesUnchecked, js_setAlign, setAlign, js_getAlign, getAlign, js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setBorder, setBorder, js_getBorder, getBorder, js_setCellPadding, setCellPadding, js_getCellPadding, getCellPadding, js_setCellSpacing, setCellSpacing, js_getCellSpacing, getCellSpacing, js_setFrame, setFrame, js_getFrame, getFrame, js_setRules, setRules, js_getRules, getRules, js_setSummary, setSummary, js_getSummary, getSummary, js_setWidth, setWidth, js_getWidth, getWidth, HTMLTableElement(..), gTypeHTMLTableElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"createTHead\"]()" js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement) -- | createTHead :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTHead self = liftIO (nullableToMaybe <$> (js_createTHead (self))) -- | createTHead_ :: (MonadIO m) => HTMLTableElement -> m () createTHead_ self = liftIO (void (js_createTHead (self))) -- | createTHeadUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement createTHeadUnsafe self = liftIO ((nullableToMaybe <$> (js_createTHead (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | createTHeadUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLElement createTHeadUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_createTHead (self))) foreign import javascript unsafe "$1[\"deleteTHead\"]()" js_deleteTHead :: HTMLTableElement -> IO () -- | deleteTHead :: (MonadIO m) => HTMLTableElement -> m () deleteTHead self = liftIO (js_deleteTHead (self)) foreign import javascript unsafe "$1[\"createTFoot\"]()" js_createTFoot :: HTMLTableElement -> IO (Nullable HTMLElement) -- | createTFoot :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTFoot self = liftIO (nullableToMaybe <$> (js_createTFoot (self))) -- | createTFoot_ :: (MonadIO m) => HTMLTableElement -> m () createTFoot_ self = liftIO (void (js_createTFoot (self))) -- | createTFootUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement createTFootUnsafe self = liftIO ((nullableToMaybe <$> (js_createTFoot (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | createTFootUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLElement createTFootUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_createTFoot (self))) foreign import javascript unsafe "$1[\"deleteTFoot\"]()" js_deleteTFoot :: HTMLTableElement -> IO () -- | deleteTFoot :: (MonadIO m) => HTMLTableElement -> m () deleteTFoot self = liftIO (js_deleteTFoot (self)) foreign import javascript unsafe "$1[\"createTBody\"]()" js_createTBody :: HTMLTableElement -> IO (Nullable HTMLElement) -- | createTBody :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTBody self = liftIO (nullableToMaybe <$> (js_createTBody (self))) -- | createTBody_ :: (MonadIO m) => HTMLTableElement -> m () createTBody_ self = liftIO (void (js_createTBody (self))) -- | createTBodyUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement createTBodyUnsafe self = liftIO ((nullableToMaybe <$> (js_createTBody (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | createTBodyUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLElement createTBodyUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_createTBody (self))) foreign import javascript unsafe "$1[\"createCaption\"]()" js_createCaption :: HTMLTableElement -> IO (Nullable HTMLElement) -- | createCaption :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createCaption self = liftIO (nullableToMaybe <$> (js_createCaption (self))) -- | createCaption_ :: (MonadIO m) => HTMLTableElement -> m () createCaption_ self = liftIO (void (js_createCaption (self))) -- | createCaptionUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement createCaptionUnsafe self = liftIO ((nullableToMaybe <$> (js_createCaption (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | createCaptionUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLElement createCaptionUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_createCaption (self))) foreign import javascript unsafe "$1[\"deleteCaption\"]()" js_deleteCaption :: HTMLTableElement -> IO () -- | deleteCaption :: (MonadIO m) => HTMLTableElement -> m () deleteCaption self = liftIO (js_deleteCaption (self)) foreign import javascript unsafe "$1[\"insertRow\"]($2)" js_insertRow :: HTMLTableElement -> Int -> IO (Nullable HTMLElement) -- | insertRow :: (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement) insertRow self index = liftIO (nullableToMaybe <$> (js_insertRow (self) index)) -- | insertRow_ :: (MonadIO m) => HTMLTableElement -> Int -> m () insertRow_ self index = liftIO (void (js_insertRow (self) index)) -- | insertRowUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> Int -> m HTMLElement insertRowUnsafe self index = liftIO ((nullableToMaybe <$> (js_insertRow (self) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | insertRowUnchecked :: (MonadIO m) => HTMLTableElement -> Int -> m HTMLElement insertRowUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js_insertRow (self) index)) foreign import javascript unsafe "$1[\"deleteRow\"]($2)" js_deleteRow :: HTMLTableElement -> Int -> IO () -- | deleteRow :: (MonadIO m) => HTMLTableElement -> Int -> m () deleteRow self index = liftIO (js_deleteRow (self) index) foreign import javascript unsafe "$1[\"caption\"] = $2;" js_setCaption :: HTMLTableElement -> Nullable HTMLTableCaptionElement -> IO () -- | setCaption :: (MonadIO m) => HTMLTableElement -> Maybe HTMLTableCaptionElement -> m () setCaption self val = liftIO (js_setCaption (self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"caption\"]" js_getCaption :: HTMLTableElement -> IO (Nullable HTMLTableCaptionElement) -- | getCaption :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLTableCaptionElement) getCaption self = liftIO (nullableToMaybe <$> (js_getCaption (self))) -- | getCaptionUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnsafe self = liftIO ((nullableToMaybe <$> (js_getCaption (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getCaptionUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getCaption (self))) foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO () -- | setTHead :: (MonadIO m) => HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTHead self val = liftIO (js_setTHead (self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead :: HTMLTableElement -> IO (Nullable HTMLTableSectionElement) -- | getTHead :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self))) -- | getTHeadUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnsafe self = liftIO ((nullableToMaybe <$> (js_getTHead (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTHeadUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTHead (self))) foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO () -- | setTFoot :: (MonadIO m) => HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTFoot self val = liftIO (js_setTFoot (self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot :: HTMLTableElement -> IO (Nullable HTMLTableSectionElement) -- | getTFoot :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self))) -- | getTFootUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnsafe self = liftIO ((nullableToMaybe <$> (js_getTFoot (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTFootUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTFoot (self))) foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: HTMLTableElement -> IO (Nullable HTMLCollection) -- | getRows :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self))) -- | getRowsUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection getRowsUnsafe self = liftIO ((nullableToMaybe <$> (js_getRows (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRowsUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLCollection getRowsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self))) foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies :: HTMLTableElement -> IO (Nullable HTMLCollection) -- | getTBodies :: (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self = liftIO (nullableToMaybe <$> (js_getTBodies (self))) -- | getTBodiesUnsafe :: (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection getTBodiesUnsafe self = liftIO ((nullableToMaybe <$> (js_getTBodies (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTBodiesUnchecked :: (MonadIO m) => HTMLTableElement -> m HTMLCollection getTBodiesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTBodies (self))) foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLTableElement -> JSString -> IO () -- | setAlign :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setAlign self val = liftIO (js_setAlign (self) (toJSString val)) foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: HTMLTableElement -> IO JSString -- | getAlign :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getAlign self = liftIO (fromJSString <$> (js_getAlign (self))) foreign import javascript unsafe "$1[\"bgColor\"] = $2;" js_setBgColor :: HTMLTableElement -> JSString -> IO () -- | setBgColor :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setBgColor self val = liftIO (js_setBgColor (self) (toJSString val)) foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: HTMLTableElement -> IO JSString -- | getBgColor :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self))) foreign import javascript unsafe "$1[\"border\"] = $2;" js_setBorder :: HTMLTableElement -> JSString -> IO () -- | setBorder :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setBorder self val = liftIO (js_setBorder (self) (toJSString val)) foreign import javascript unsafe "$1[\"border\"]" js_getBorder :: HTMLTableElement -> IO JSString -- | getBorder :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getBorder self = liftIO (fromJSString <$> (js_getBorder (self))) foreign import javascript unsafe "$1[\"cellPadding\"] = $2;" js_setCellPadding :: HTMLTableElement -> JSString -> IO () -- | setCellPadding :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setCellPadding self val = liftIO (js_setCellPadding (self) (toJSString val)) foreign import javascript unsafe "$1[\"cellPadding\"]" js_getCellPadding :: HTMLTableElement -> IO JSString -- | getCellPadding :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getCellPadding self = liftIO (fromJSString <$> (js_getCellPadding (self))) foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;" js_setCellSpacing :: HTMLTableElement -> JSString -> IO () -- | setCellSpacing :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setCellSpacing self val = liftIO (js_setCellSpacing (self) (toJSString val)) foreign import javascript unsafe "$1[\"cellSpacing\"]" js_getCellSpacing :: HTMLTableElement -> IO JSString -- | getCellSpacing :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getCellSpacing self = liftIO (fromJSString <$> (js_getCellSpacing (self))) foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame :: HTMLTableElement -> JSString -> IO () -- | setFrame :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setFrame self val = liftIO (js_setFrame (self) (toJSString val)) foreign import javascript unsafe "$1[\"frame\"]" js_getFrame :: HTMLTableElement -> IO JSString -- | getFrame :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getFrame self = liftIO (fromJSString <$> (js_getFrame (self))) foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules :: HTMLTableElement -> JSString -> IO () -- | setRules :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setRules self val = liftIO (js_setRules (self) (toJSString val)) foreign import javascript unsafe "$1[\"rules\"]" js_getRules :: HTMLTableElement -> IO JSString -- | getRules :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getRules self = liftIO (fromJSString <$> (js_getRules (self))) foreign import javascript unsafe "$1[\"summary\"] = $2;" js_setSummary :: HTMLTableElement -> JSString -> IO () -- | setSummary :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setSummary self val = liftIO (js_setSummary (self) (toJSString val)) foreign import javascript unsafe "$1[\"summary\"]" js_getSummary :: HTMLTableElement -> IO JSString -- | getSummary :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getSummary self = liftIO (fromJSString <$> (js_getSummary (self))) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLTableElement -> JSString -> IO () -- | setWidth :: (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setWidth self val = liftIO (js_setWidth (self) (toJSString val)) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLTableElement -> IO JSString -- | getWidth :: (MonadIO m, FromJSString result) => HTMLTableElement -> m result getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))