{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement (js_getCellIndex, getCellIndex, js_setAlign, setAlign, js_getAlign, getAlign, js_setAxis, setAxis, js_getAxis, getAxis, js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setCh, setCh, js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff, js_setColSpan, setColSpan, js_getColSpan, getColSpan, js_setRowSpan, setRowSpan, js_getRowSpan, getRowSpan, js_setHeaders, setHeaders, js_getHeaders, getHeaders, js_setHeight, setHeight, js_getHeight, getHeight, js_setNoWrap, setNoWrap, js_getNoWrap, getNoWrap, js_setVAlign, setVAlign, js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth, getWidth, js_setAbbr, setAbbr, js_getAbbr, getAbbr, js_setScope, setScope, js_getScope, getScope, HTMLTableCellElement(..), gTypeHTMLTableCellElement) 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, jsUndefined) 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 Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"cellIndex\"]" js_getCellIndex :: HTMLTableCellElement -> IO Int -- | getCellIndex :: (MonadIO m) => HTMLTableCellElement -> m Int getCellIndex self = liftIO (js_getCellIndex self) foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLTableCellElement -> JSString -> IO () -- | setAlign :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setAlign self val = liftIO (js_setAlign self (toJSString val)) foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: HTMLTableCellElement -> IO JSString -- | getAlign :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getAlign self = liftIO (fromJSString <$> (js_getAlign self)) foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis :: HTMLTableCellElement -> JSString -> IO () -- | setAxis :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setAxis self val = liftIO (js_setAxis self (toJSString val)) foreign import javascript unsafe "$1[\"axis\"]" js_getAxis :: HTMLTableCellElement -> IO JSString -- | getAxis :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getAxis self = liftIO (fromJSString <$> (js_getAxis self)) foreign import javascript unsafe "$1[\"bgColor\"] = $2;" js_setBgColor :: HTMLTableCellElement -> JSString -> IO () -- | setBgColor :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setBgColor self val = liftIO (js_setBgColor self (toJSString val)) foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor :: HTMLTableCellElement -> IO JSString -- | getBgColor :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getBgColor self = liftIO (fromJSString <$> (js_getBgColor self)) foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: HTMLTableCellElement -> JSString -> IO () -- | setCh :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setCh self val = liftIO (js_setCh self (toJSString val)) foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: HTMLTableCellElement -> IO JSString -- | getCh :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getCh self = liftIO (fromJSString <$> (js_getCh self)) foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff :: HTMLTableCellElement -> JSString -> IO () -- | setChOff :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setChOff self val = liftIO (js_setChOff self (toJSString val)) foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: HTMLTableCellElement -> IO JSString -- | getChOff :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getChOff self = liftIO (fromJSString <$> (js_getChOff self)) foreign import javascript unsafe "$1[\"colSpan\"] = $2;" js_setColSpan :: HTMLTableCellElement -> Word -> IO () -- | setColSpan :: (MonadIO m) => HTMLTableCellElement -> Word -> m () setColSpan self val = liftIO (js_setColSpan self val) foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan :: HTMLTableCellElement -> IO Word -- | getColSpan :: (MonadIO m) => HTMLTableCellElement -> m Word getColSpan self = liftIO (js_getColSpan self) foreign import javascript unsafe "$1[\"rowSpan\"] = $2;" js_setRowSpan :: HTMLTableCellElement -> Word -> IO () -- | setRowSpan :: (MonadIO m) => HTMLTableCellElement -> Word -> m () setRowSpan self val = liftIO (js_setRowSpan self val) foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan :: HTMLTableCellElement -> IO Word -- | getRowSpan :: (MonadIO m) => HTMLTableCellElement -> m Word getRowSpan self = liftIO (js_getRowSpan self) foreign import javascript unsafe "$1[\"headers\"] = $2;" js_setHeaders :: HTMLTableCellElement -> JSString -> IO () -- | setHeaders :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setHeaders self val = liftIO (js_setHeaders self (toJSString val)) foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders :: HTMLTableCellElement -> IO JSString -- | getHeaders :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getHeaders self = liftIO (fromJSString <$> (js_getHeaders self)) foreign import javascript unsafe "$1[\"height\"] = $2;" js_setHeight :: HTMLTableCellElement -> JSString -> IO () -- | setHeight :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setHeight self val = liftIO (js_setHeight self (toJSString val)) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: HTMLTableCellElement -> IO JSString -- | getHeight :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getHeight self = liftIO (fromJSString <$> (js_getHeight self)) foreign import javascript unsafe "$1[\"noWrap\"] = $2;" js_setNoWrap :: HTMLTableCellElement -> Bool -> IO () -- | setNoWrap :: (MonadIO m) => HTMLTableCellElement -> Bool -> m () setNoWrap self val = liftIO (js_setNoWrap self val) foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)" js_getNoWrap :: HTMLTableCellElement -> IO Bool -- | getNoWrap :: (MonadIO m) => HTMLTableCellElement -> m Bool getNoWrap self = liftIO (js_getNoWrap self) foreign import javascript unsafe "$1[\"vAlign\"] = $2;" js_setVAlign :: HTMLTableCellElement -> JSString -> IO () -- | setVAlign :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setVAlign self val = liftIO (js_setVAlign self (toJSString val)) foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: HTMLTableCellElement -> IO JSString -- | getVAlign :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getVAlign self = liftIO (fromJSString <$> (js_getVAlign self)) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLTableCellElement -> JSString -> IO () -- | setWidth :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setWidth self val = liftIO (js_setWidth self (toJSString val)) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLTableCellElement -> IO JSString -- | getWidth :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getWidth self = liftIO (fromJSString <$> (js_getWidth self)) foreign import javascript unsafe "$1[\"abbr\"] = $2;" js_setAbbr :: HTMLTableCellElement -> JSString -> IO () -- | setAbbr :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setAbbr self val = liftIO (js_setAbbr self (toJSString val)) foreign import javascript unsafe "$1[\"abbr\"]" js_getAbbr :: HTMLTableCellElement -> IO JSString -- | getAbbr :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getAbbr self = liftIO (fromJSString <$> (js_getAbbr self)) foreign import javascript unsafe "$1[\"scope\"] = $2;" js_setScope :: HTMLTableCellElement -> JSString -> IO () -- | setScope :: (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setScope self val = liftIO (js_setScope self (toJSString val)) foreign import javascript unsafe "$1[\"scope\"]" js_getScope :: HTMLTableCellElement -> IO JSString -- | getScope :: (MonadIO m, FromJSString result) => HTMLTableCellElement -> m result getScope self = liftIO (fromJSString <$> (js_getScope self))