{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement (js_postEvent, postEvent, js_getMovieSize, getMovieSize, js_getTimedMetaData, getTimedMetaData, js_getAccessLog, getAccessLog, js_getErrorLog, getErrorLog, QuickTimePluginReplacement, castToQuickTimePluginReplacement, gTypeQuickTimePluginReplacement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"postEvent\"]($2)" js_postEvent :: JSRef QuickTimePluginReplacement -> JSString -> IO () -- | postEvent :: (MonadIO m, ToJSString eventName) => QuickTimePluginReplacement -> eventName -> m () postEvent self eventName = liftIO (js_postEvent (unQuickTimePluginReplacement self) (toJSString eventName)) foreign import javascript unsafe "$1[\"movieSize\"]" js_getMovieSize :: JSRef QuickTimePluginReplacement -> IO Double -- | getMovieSize :: (MonadIO m) => QuickTimePluginReplacement -> m Word64 getMovieSize self = liftIO (round <$> (js_getMovieSize (unQuickTimePluginReplacement self))) foreign import javascript unsafe "$1[\"timedMetaData\"]" js_getTimedMetaData :: JSRef QuickTimePluginReplacement -> IO (JSRef a) -- | getTimedMetaData :: (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a) getTimedMetaData self = liftIO (js_getTimedMetaData (unQuickTimePluginReplacement self)) foreign import javascript unsafe "$1[\"accessLog\"]" js_getAccessLog :: JSRef QuickTimePluginReplacement -> IO (JSRef a) -- | getAccessLog :: (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a) getAccessLog self = liftIO (js_getAccessLog (unQuickTimePluginReplacement self)) foreign import javascript unsafe "$1[\"errorLog\"]" js_getErrorLog :: JSRef QuickTimePluginReplacement -> IO (JSRef a) -- | getErrorLog :: (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a) getErrorLog self = liftIO (js_getErrorLog (unQuickTimePluginReplacement self))