{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue, getFloatValue_, js_setStringValue, setStringValue, js_getStringValue, getStringValue, getStringValue_, js_getCounterValue, getCounterValue, getCounterValue_, getCounterValueUnsafe, getCounterValueUnchecked, js_getRectValue, getRectValue, getRectValue_, getRectValueUnsafe, getRectValueUnchecked, js_getRGBColorValue, getRGBColorValue, getRGBColorValue_, getRGBColorValueUnsafe, getRGBColorValueUnchecked, pattern CSS_UNKNOWN, pattern CSS_NUMBER, pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN, pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ, pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING, pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR, pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR, pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX, js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue(..), gTypeCSSPrimitiveValue) 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[\"setFloatValue\"]($2, $3)" js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO () -- | setFloatValue :: (MonadIO m) => CSSPrimitiveValue -> Word -> Float -> m () setFloatValue self unitType floatValue = liftIO (js_setFloatValue (self) unitType floatValue) foreign import javascript unsafe "$1[\"getFloatValue\"]($2)" js_getFloatValue :: CSSPrimitiveValue -> Word -> IO Float -- | getFloatValue :: (MonadIO m) => CSSPrimitiveValue -> Word -> m Float getFloatValue self unitType = liftIO (js_getFloatValue (self) unitType) -- | getFloatValue_ :: (MonadIO m) => CSSPrimitiveValue -> Word -> m () getFloatValue_ self unitType = liftIO (void (js_getFloatValue (self) unitType)) foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)" js_setStringValue :: CSSPrimitiveValue -> Word -> JSString -> IO () -- | setStringValue :: (MonadIO m, ToJSString stringValue) => CSSPrimitiveValue -> Word -> stringValue -> m () setStringValue self stringType stringValue = liftIO (js_setStringValue (self) stringType (toJSString stringValue)) foreign import javascript unsafe "$1[\"getStringValue\"]()" js_getStringValue :: CSSPrimitiveValue -> IO JSString -- | getStringValue :: (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result getStringValue self = liftIO (fromJSString <$> (js_getStringValue (self))) -- | getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () getStringValue_ self = liftIO (void (js_getStringValue (self))) foreign import javascript unsafe "$1[\"getCounterValue\"]()" js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable Counter) -- | getCounterValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter) getCounterValue self = liftIO (nullableToMaybe <$> (js_getCounterValue (self))) -- | getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () getCounterValue_ self = liftIO (void (js_getCounterValue (self))) -- | getCounterValueUnsafe :: (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Counter getCounterValueUnsafe self = liftIO ((nullableToMaybe <$> (js_getCounterValue (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getCounterValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m Counter getCounterValueUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getCounterValue (self))) foreign import javascript unsafe "$1[\"getRectValue\"]()" js_getRectValue :: CSSPrimitiveValue -> IO (Nullable Rect) -- | getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect) getRectValue self = liftIO (nullableToMaybe <$> (js_getRectValue (self))) -- | getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () getRectValue_ self = liftIO (void (js_getRectValue (self))) -- | getRectValueUnsafe :: (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Rect getRectValueUnsafe self = liftIO ((nullableToMaybe <$> (js_getRectValue (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRectValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m Rect getRectValueUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRectValue (self))) foreign import javascript unsafe "$1[\"getRGBColorValue\"]()" js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable RGBColor) -- | getRGBColorValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor) getRGBColorValue self = liftIO (nullableToMaybe <$> (js_getRGBColorValue (self))) -- | getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () getRGBColorValue_ self = liftIO (void (js_getRGBColorValue (self))) -- | getRGBColorValueUnsafe :: (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m RGBColor getRGBColorValueUnsafe self = liftIO ((nullableToMaybe <$> (js_getRGBColorValue (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRGBColorValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m RGBColor getRGBColorValueUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getRGBColorValue (self))) pattern CSS_UNKNOWN = 0 pattern CSS_NUMBER = 1 pattern CSS_PERCENTAGE = 2 pattern CSS_EMS = 3 pattern CSS_EXS = 4 pattern CSS_PX = 5 pattern CSS_CM = 6 pattern CSS_MM = 7 pattern CSS_IN = 8 pattern CSS_PT = 9 pattern CSS_PC = 10 pattern CSS_DEG = 11 pattern CSS_RAD = 12 pattern CSS_GRAD = 13 pattern CSS_MS = 14 pattern CSS_S = 15 pattern CSS_HZ = 16 pattern CSS_KHZ = 17 pattern CSS_DIMENSION = 18 pattern CSS_STRING = 19 pattern CSS_URI = 20 pattern CSS_IDENT = 21 pattern CSS_ATTR = 22 pattern CSS_COUNTER = 23 pattern CSS_RECT = 24 pattern CSS_RGBCOLOR = 25 pattern CSS_VW = 26 pattern CSS_VH = 27 pattern CSS_VMIN = 28 pattern CSS_VMAX = 29 foreign import javascript unsafe "$1[\"primitiveType\"]" js_getPrimitiveType :: CSSPrimitiveValue -> IO Word -- | getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word getPrimitiveType self = liftIO (js_getPrimitiveType (self))