EXT_clip_control.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from EXT_clip_control (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.EXT_clip_control
       (js_clipControlEXT, clipControlEXT, pattern LOWER_LEFT_EXT, pattern UPPER_LEFT_EXT, pattern NEGATIVE_ONE_TO_ONE_EXT, pattern ZERO_TO_ONE_EXT, pattern CLIP_ORIGIN_EXT, pattern CLIP_DEPTH_MODE_EXT, EXT_clip_control(..), gTypeEXT_clip_control)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3) => { return $1[\"clipControlEXT\"]($2, $3); })"
        js_clipControlEXT :: EXT_clip_control -> Word -> Word -> IO ()
clipControlEXT :: (MonadDOM m) => EXT_clip_control -> Word -> Word -> m ()
clipControlEXT self origin depth = liftDOM (void ((js_clipControlEXT (self) (origin) (depth))))

pattern LOWER_LEFT_EXT = 0x8CA1

pattern UPPER_LEFT_EXT = 0x8CA2

pattern NEGATIVE_ONE_TO_ONE_EXT = 0x935E

pattern ZERO_TO_ONE_EXT = 0x935F

pattern CLIP_ORIGIN_EXT = 0x935C

pattern CLIP_DEPTH_MODE_EXT = 0x935D