module JSDOM.Generated.FontLoader
(checkFont, checkFont_, loadFont, notifyWhenFontsReady, loading,
loadingDone, loadStart, load, error, getLoading, FontLoader(..),
gTypeFontLoader)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
checkFont ::
(MonadDOM m, ToJSString font, ToJSString text) =>
FontLoader -> font -> text -> m Bool
checkFont self font text
= liftDOM
((self ^. jsf "checkFont" [toJSVal font, toJSVal text]) >>=
valToBool)
checkFont_ ::
(MonadDOM m, ToJSString font, ToJSString text) =>
FontLoader -> font -> text -> m ()
checkFont_ self font text
= liftDOM
(void (self ^. jsf "checkFont" [toJSVal font, toJSVal text]))
loadFont ::
(MonadDOM m, IsDictionary params) =>
FontLoader -> Maybe params -> m ()
loadFont self params
= liftDOM (void (self ^. jsf "loadFont" [toJSVal params]))
notifyWhenFontsReady ::
(MonadDOM m) => FontLoader -> Maybe VoidCallback -> m ()
notifyWhenFontsReady self callback
= liftDOM
(void (self ^. jsf "notifyWhenFontsReady" [toJSVal callback]))
loading :: EventName FontLoader Event
loading = unsafeEventName (toJSString "loading")
loadingDone :: EventName FontLoader Event
loadingDone = unsafeEventName (toJSString "loadingdone")
loadStart :: EventName FontLoader ProgressEvent
loadStart = unsafeEventName (toJSString "loadstart")
load :: EventName FontLoader UIEvent
load = unsafeEventName (toJSString "load")
error :: EventName FontLoader UIEvent
error = unsafeEventName (toJSString "error")
getLoading :: (MonadDOM m) => FontLoader -> m Bool
getLoading self = liftDOM ((self ^. js "loading") >>= valToBool)