{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement (js_setAlign, setAlign, js_getAlign, getAlign, js_setCh, setCh, js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff, js_setSpan, setSpan, js_getSpan, getSpan, js_setVAlign, setVAlign, js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth, getWidth, HTMLTableColElement(..), gTypeHTMLTableColElement) 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[\"align\"] = $2;" js_setAlign :: HTMLTableColElement -> JSString -> IO () -- | setAlign :: (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () setAlign self val = liftIO (js_setAlign self (toJSString val)) foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: HTMLTableColElement -> IO JSString -- | getAlign :: (MonadIO m, FromJSString result) => HTMLTableColElement -> m result getAlign self = liftIO (fromJSString <$> (js_getAlign self)) foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh :: HTMLTableColElement -> JSString -> IO () -- | setCh :: (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () setCh self val = liftIO (js_setCh self (toJSString val)) foreign import javascript unsafe "$1[\"ch\"]" js_getCh :: HTMLTableColElement -> IO JSString -- | getCh :: (MonadIO m, FromJSString result) => HTMLTableColElement -> m result getCh self = liftIO (fromJSString <$> (js_getCh self)) foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff :: HTMLTableColElement -> JSString -> IO () -- | setChOff :: (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () setChOff self val = liftIO (js_setChOff self (toJSString val)) foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff :: HTMLTableColElement -> IO JSString -- | getChOff :: (MonadIO m, FromJSString result) => HTMLTableColElement -> m result getChOff self = liftIO (fromJSString <$> (js_getChOff self)) foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan :: HTMLTableColElement -> Word -> IO () -- | setSpan :: (MonadIO m) => HTMLTableColElement -> Word -> m () setSpan self val = liftIO (js_setSpan self val) foreign import javascript unsafe "$1[\"span\"]" js_getSpan :: HTMLTableColElement -> IO Word -- | getSpan :: (MonadIO m) => HTMLTableColElement -> m Word getSpan self = liftIO (js_getSpan self) foreign import javascript unsafe "$1[\"vAlign\"] = $2;" js_setVAlign :: HTMLTableColElement -> JSString -> IO () -- | setVAlign :: (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () setVAlign self val = liftIO (js_setVAlign self (toJSString val)) foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign :: HTMLTableColElement -> IO JSString -- | getVAlign :: (MonadIO m, FromJSString result) => HTMLTableColElement -> m result getVAlign self = liftIO (fromJSString <$> (js_getVAlign self)) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLTableColElement -> JSString -> IO () -- | setWidth :: (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m () setWidth self val = liftIO (js_setWidth self (toJSString val)) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLTableColElement -> IO JSString -- | getWidth :: (MonadIO m, FromJSString result) => HTMLTableColElement -> m result getWidth self = liftIO (fromJSString <$> (js_getWidth self))