-- Generated code. {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, OverloadedStrings, NegativeLiterals, FlexibleContexts #-} module GI.Gdk where import Prelude () import Data.GI.Base.ShortPrelude import Data.Char import Data.Int import Data.Word import qualified Data.ByteString.Char8 as B import Data.ByteString.Char8 (ByteString) import qualified Data.Map as Map import Foreign.C import Foreign.Ptr import Foreign.ForeignPtr import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) import Foreign.Storable (peek, poke, sizeOf) import Control.Applicative ((<$>)) import Control.Exception (onException) import Control.Monad.IO.Class import qualified Data.Text as T import Data.GI.Base.Attributes hiding (get, set) import Data.GI.Base.BasicTypes import Data.GI.Base.BasicConversions import Data.GI.Base.Closure import Data.GI.Base.GError import Data.GI.Base.GHashTable import Data.GI.Base.GParamSpec import Data.GI.Base.GVariant import Data.GI.Base.GValue import Data.GI.Base.ManagedPtr import Data.GI.Base.Overloading import Data.GI.Base.Properties hiding (new) import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) import Data.GI.Base.Utils import qualified GI.GLib as GLib import qualified GI.GLibAttributes as GLibA import qualified GI.GObject as GObject import qualified GI.GObjectAttributes as GObjectA import qualified GI.GdkPixbuf as GdkPixbuf import qualified GI.GdkPixbufAttributes as GdkPixbufA import qualified GI.Gio as Gio import qualified GI.GioAttributes as GioA import qualified GI.Pango as Pango import qualified GI.PangoAttributes as PangoA import qualified GI.Cairo as Cairo import qualified GI.CairoAttributes as CairoA -- object AppLaunchContext newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) noAppLaunchContext :: Maybe AppLaunchContext noAppLaunchContext = Nothing foreign import ccall "gdk_app_launch_context_get_type" c_gdk_app_launch_context_get_type :: IO GType type instance ParentTypes AppLaunchContext = '[Gio.AppLaunchContext, GObject.Object] instance GObject AppLaunchContext where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_app_launch_context_get_type class GObject o => AppLaunchContextK o instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o toAppLaunchContext :: AppLaunchContextK o => o -> IO AppLaunchContext toAppLaunchContext = unsafeCastTo AppLaunchContext -- method AppLaunchContext::new -- method type : Constructor -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "AppLaunchContext" -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_new" gdk_app_launch_context_new :: IO (Ptr AppLaunchContext) {-# DEPRECATED appLaunchContextNew ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-} appLaunchContextNew :: (MonadIO m) => m AppLaunchContext appLaunchContextNew = liftIO $ do result <- gdk_app_launch_context_new checkUnexpectedReturnNULL "gdk_app_launch_context_new" result result' <- (wrapObject AppLaunchContext) result return result' -- method AppLaunchContext::set_desktop -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_desktop" gdk_app_launch_context_set_desktop :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" Int32 -> -- desktop : TBasicType TInt32 IO () appLaunchContextSetDesktop :: (MonadIO m, AppLaunchContextK a) => a -> -- _obj Int32 -> -- desktop m () appLaunchContextSetDesktop _obj desktop = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_app_launch_context_set_desktop _obj' desktop touchManagedPtr _obj return () -- method AppLaunchContext::set_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_display" gdk_app_launch_context_set_display :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" Ptr Display -> -- display : TInterface "Gdk" "Display" IO () {-# DEPRECATED appLaunchContextSetDisplay ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-} appLaunchContextSetDisplay :: (MonadIO m, AppLaunchContextK a, DisplayK b) => a -> -- _obj b -> -- display m () appLaunchContextSetDisplay _obj display = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let display' = unsafeManagedPtrCastPtr display gdk_app_launch_context_set_display _obj' display' touchManagedPtr _obj touchManagedPtr display return () -- method AppLaunchContext::set_icon -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_icon" gdk_app_launch_context_set_icon :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" IO () appLaunchContextSetIcon :: (MonadIO m, AppLaunchContextK a, Gio.IconK b) => a -> -- _obj Maybe (b) -> -- icon m () appLaunchContextSetIcon _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIcon <- case icon of Nothing -> return nullPtr Just jIcon -> do let jIcon' = unsafeManagedPtrCastPtr jIcon return jIcon' gdk_app_launch_context_set_icon _obj' maybeIcon touchManagedPtr _obj whenJust icon touchManagedPtr return () -- method AppLaunchContext::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_icon_name" gdk_app_launch_context_set_icon_name :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" CString -> -- icon_name : TBasicType TUTF8 IO () appLaunchContextSetIconName :: (MonadIO m, AppLaunchContextK a) => a -> -- _obj Maybe (T.Text) -> -- icon_name m () appLaunchContextSetIconName _obj icon_name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeIcon_name <- case icon_name of Nothing -> return nullPtr Just jIcon_name -> do jIcon_name' <- textToCString jIcon_name return jIcon_name' gdk_app_launch_context_set_icon_name _obj' maybeIcon_name touchManagedPtr _obj freeMem maybeIcon_name return () -- method AppLaunchContext::set_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_screen" gdk_app_launch_context_set_screen :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" Ptr Screen -> -- screen : TInterface "Gdk" "Screen" IO () appLaunchContextSetScreen :: (MonadIO m, AppLaunchContextK a, ScreenK b) => a -> -- _obj b -> -- screen m () appLaunchContextSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen gdk_app_launch_context_set_screen _obj' screen' touchManagedPtr _obj touchManagedPtr screen return () -- method AppLaunchContext::set_timestamp -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_app_launch_context_set_timestamp" gdk_app_launch_context_set_timestamp :: Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" Word32 -> -- timestamp : TBasicType TUInt32 IO () appLaunchContextSetTimestamp :: (MonadIO m, AppLaunchContextK a) => a -> -- _obj Word32 -> -- timestamp m () appLaunchContextSetTimestamp _obj timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_app_launch_context_set_timestamp _obj' timestamp touchManagedPtr _obj return () -- struct Atom newtype Atom = Atom (ForeignPtr Atom) noAtom :: Maybe Atom noAtom = Nothing -- method Atom::name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_atom_name" gdk_atom_name :: Ptr Atom -> -- _obj : TInterface "Gdk" "Atom" IO CString atomName :: (MonadIO m) => Atom -> -- _obj m T.Text atomName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_atom_name _obj' checkUnexpectedReturnNULL "gdk_atom_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- Enum AxisUse data AxisUse = AxisUseIgnore | AxisUseX | AxisUseY | AxisUsePressure | AxisUseXtilt | AxisUseYtilt | AxisUseWheel | AxisUseLast | AnotherAxisUse Int deriving (Show, Eq) instance Enum AxisUse where fromEnum AxisUseIgnore = 0 fromEnum AxisUseX = 1 fromEnum AxisUseY = 2 fromEnum AxisUsePressure = 3 fromEnum AxisUseXtilt = 4 fromEnum AxisUseYtilt = 5 fromEnum AxisUseWheel = 6 fromEnum AxisUseLast = 7 fromEnum (AnotherAxisUse k) = k toEnum 0 = AxisUseIgnore toEnum 1 = AxisUseX toEnum 2 = AxisUseY toEnum 3 = AxisUsePressure toEnum 4 = AxisUseXtilt toEnum 5 = AxisUseYtilt toEnum 6 = AxisUseWheel toEnum 7 = AxisUseLast toEnum k = AnotherAxisUse k foreign import ccall "gdk_axis_use_get_type" c_gdk_axis_use_get_type :: IO GType instance BoxedEnum AxisUse where boxedEnumType _ = c_gdk_axis_use_get_type -- Enum ByteOrder data ByteOrder = ByteOrderLsbFirst | ByteOrderMsbFirst | AnotherByteOrder Int deriving (Show, Eq) instance Enum ByteOrder where fromEnum ByteOrderLsbFirst = 0 fromEnum ByteOrderMsbFirst = 1 fromEnum (AnotherByteOrder k) = k toEnum 0 = ByteOrderLsbFirst toEnum 1 = ByteOrderMsbFirst toEnum k = AnotherByteOrder k foreign import ccall "gdk_byte_order_get_type" c_gdk_byte_order_get_type :: IO GType instance BoxedEnum ByteOrder where boxedEnumType _ = c_gdk_byte_order_get_type -- struct Color newtype Color = Color (ForeignPtr Color) noColor :: Maybe Color noColor = Nothing foreign import ccall "gdk_color_get_type" c_gdk_color_get_type :: IO GType instance BoxedObject Color where boxedType _ = c_gdk_color_get_type colorReadPixel :: Color -> IO Word32 colorReadPixel s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val colorReadRed :: Color -> IO Word16 colorReadRed s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Word16 return val colorReadGreen :: Color -> IO Word16 colorReadGreen s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 6) :: IO Word16 return val colorReadBlue :: Color -> IO Word16 colorReadBlue s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word16 return val -- method Color::copy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Color" -- throws : False -- Skip return : False foreign import ccall "gdk_color_copy" gdk_color_copy :: Ptr Color -> -- _obj : TInterface "Gdk" "Color" IO (Ptr Color) {-# DEPRECATED colorCopy ["(Since version 3.14)","Use #GdkRGBA"]#-} colorCopy :: (MonadIO m) => Color -> -- _obj m Color colorCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_color_copy _obj' checkUnexpectedReturnNULL "gdk_color_copy" result result' <- (wrapBoxed Color) result touchManagedPtr _obj return result' -- method Color::equal -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_color_equal" gdk_color_equal :: Ptr Color -> -- _obj : TInterface "Gdk" "Color" Ptr Color -> -- colorb : TInterface "Gdk" "Color" IO CInt {-# DEPRECATED colorEqual ["(Since version 3.14)","Use #GdkRGBA"]#-} colorEqual :: (MonadIO m) => Color -> -- _obj Color -> -- colorb m Bool colorEqual _obj colorb = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let colorb' = unsafeManagedPtrGetPtr colorb result <- gdk_color_equal _obj' colorb' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr colorb return result' -- method Color::free -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_color_free" gdk_color_free :: Ptr Color -> -- _obj : TInterface "Gdk" "Color" IO () {-# DEPRECATED colorFree ["(Since version 3.14)","Use #GdkRGBA"]#-} colorFree :: (MonadIO m) => Color -> -- _obj m () colorFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_color_free _obj' touchManagedPtr _obj return () -- method Color::hash -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_color_hash" gdk_color_hash :: Ptr Color -> -- _obj : TInterface "Gdk" "Color" IO Word32 {-# DEPRECATED colorHash ["(Since version 3.14)","Use #GdkRGBA"]#-} colorHash :: (MonadIO m) => Color -> -- _obj m Word32 colorHash _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_color_hash _obj' touchManagedPtr _obj return result -- method Color::to_string -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_color_to_string" gdk_color_to_string :: Ptr Color -> -- _obj : TInterface "Gdk" "Color" IO CString {-# DEPRECATED colorToString ["(Since version 3.14)","Use #GdkRGBA"]#-} colorToString :: (MonadIO m) => Color -> -- _obj m T.Text colorToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_color_to_string _obj' checkUnexpectedReturnNULL "gdk_color_to_string" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- Enum CrossingMode data CrossingMode = CrossingModeNormal | CrossingModeGrab | CrossingModeUngrab | CrossingModeGtkGrab | CrossingModeGtkUngrab | CrossingModeStateChanged | CrossingModeTouchBegin | CrossingModeTouchEnd | CrossingModeDeviceSwitch | AnotherCrossingMode Int deriving (Show, Eq) instance Enum CrossingMode where fromEnum CrossingModeNormal = 0 fromEnum CrossingModeGrab = 1 fromEnum CrossingModeUngrab = 2 fromEnum CrossingModeGtkGrab = 3 fromEnum CrossingModeGtkUngrab = 4 fromEnum CrossingModeStateChanged = 5 fromEnum CrossingModeTouchBegin = 6 fromEnum CrossingModeTouchEnd = 7 fromEnum CrossingModeDeviceSwitch = 8 fromEnum (AnotherCrossingMode k) = k toEnum 0 = CrossingModeNormal toEnum 1 = CrossingModeGrab toEnum 2 = CrossingModeUngrab toEnum 3 = CrossingModeGtkGrab toEnum 4 = CrossingModeGtkUngrab toEnum 5 = CrossingModeStateChanged toEnum 6 = CrossingModeTouchBegin toEnum 7 = CrossingModeTouchEnd toEnum 8 = CrossingModeDeviceSwitch toEnum k = AnotherCrossingMode k foreign import ccall "gdk_crossing_mode_get_type" c_gdk_crossing_mode_get_type :: IO GType instance BoxedEnum CrossingMode where boxedEnumType _ = c_gdk_crossing_mode_get_type -- object Cursor newtype Cursor = Cursor (ForeignPtr Cursor) noCursor :: Maybe Cursor noCursor = Nothing foreign import ccall "gdk_cursor_get_type" c_gdk_cursor_get_type :: IO GType type instance ParentTypes Cursor = '[GObject.Object] instance GObject Cursor where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_cursor_get_type class GObject o => CursorK o instance (GObject o, IsDescendantOf Cursor o) => CursorK o toCursor :: CursorK o => o -> IO Cursor toCursor = unsafeCastTo Cursor -- method Cursor::new -- method type : Constructor -- Args : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_new" gdk_cursor_new :: CUInt -> -- cursor_type : TInterface "Gdk" "CursorType" IO (Ptr Cursor) {-# DEPRECATED cursorNew ["(Since version 3.16)","Use gdk_cursor_new_for_display() instead."]#-} cursorNew :: (MonadIO m) => CursorType -> -- cursor_type m Cursor cursorNew cursor_type = liftIO $ do let cursor_type' = (fromIntegral . fromEnum) cursor_type result <- gdk_cursor_new cursor_type' checkUnexpectedReturnNULL "gdk_cursor_new" result result' <- (wrapObject Cursor) result return result' -- method Cursor::new_for_display -- method type : Constructor -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_new_for_display" gdk_cursor_new_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" CUInt -> -- cursor_type : TInterface "Gdk" "CursorType" IO (Ptr Cursor) cursorNewForDisplay :: (MonadIO m, DisplayK a) => a -> -- display CursorType -> -- cursor_type m Cursor cursorNewForDisplay display cursor_type = liftIO $ do let display' = unsafeManagedPtrCastPtr display let cursor_type' = (fromIntegral . fromEnum) cursor_type result <- gdk_cursor_new_for_display display' cursor_type' checkUnexpectedReturnNULL "gdk_cursor_new_for_display" result result' <- (wrapObject Cursor) result touchManagedPtr display return result' -- method Cursor::new_from_name -- method type : Constructor -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_new_from_name" gdk_cursor_new_from_name :: Ptr Display -> -- display : TInterface "Gdk" "Display" CString -> -- name : TBasicType TUTF8 IO (Ptr Cursor) cursorNewFromName :: (MonadIO m, DisplayK a) => a -> -- display T.Text -> -- name m Cursor cursorNewFromName display name = liftIO $ do let display' = unsafeManagedPtrCastPtr display name' <- textToCString name result <- gdk_cursor_new_from_name display' name' checkUnexpectedReturnNULL "gdk_cursor_new_from_name" result result' <- (wrapObject Cursor) result touchManagedPtr display freeMem name' return result' -- method Cursor::new_from_pixbuf -- method type : Constructor -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_new_from_pixbuf" gdk_cursor_new_from_pixbuf :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO (Ptr Cursor) cursorNewFromPixbuf :: (MonadIO m, DisplayK a, GdkPixbuf.PixbufK b) => a -> -- display b -> -- pixbuf Int32 -> -- x Int32 -> -- y m Cursor cursorNewFromPixbuf display pixbuf x y = liftIO $ do let display' = unsafeManagedPtrCastPtr display let pixbuf' = unsafeManagedPtrCastPtr pixbuf result <- gdk_cursor_new_from_pixbuf display' pixbuf' x y checkUnexpectedReturnNULL "gdk_cursor_new_from_pixbuf" result result' <- (wrapObject Cursor) result touchManagedPtr display touchManagedPtr pixbuf return result' -- method Cursor::new_from_surface -- method type : Constructor -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_new_from_surface" gdk_cursor_new_from_surface :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble IO (Ptr Cursor) cursorNewFromSurface :: (MonadIO m, DisplayK a) => a -> -- display Cairo.Surface -> -- surface Double -> -- x Double -> -- y m Cursor cursorNewFromSurface display surface x y = liftIO $ do let display' = unsafeManagedPtrCastPtr display let surface' = unsafeManagedPtrGetPtr surface let x' = realToFrac x let y' = realToFrac y result <- gdk_cursor_new_from_surface display' surface' x' y' checkUnexpectedReturnNULL "gdk_cursor_new_from_surface" result result' <- (wrapObject Cursor) result touchManagedPtr display touchManagedPtr surface return result' -- method Cursor::get_cursor_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "CursorType" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_get_cursor_type" gdk_cursor_get_cursor_type :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" IO CUInt cursorGetCursorType :: (MonadIO m, CursorK a) => a -> -- _obj m CursorType cursorGetCursorType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_get_cursor_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Cursor::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_get_display" gdk_cursor_get_display :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" IO (Ptr Display) cursorGetDisplay :: (MonadIO m, CursorK a) => a -> -- _obj m Display cursorGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_get_display _obj' checkUnexpectedReturnNULL "gdk_cursor_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method Cursor::get_image -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_get_image" gdk_cursor_get_image :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" IO (Ptr GdkPixbuf.Pixbuf) cursorGetImage :: (MonadIO m, CursorK a) => a -> -- _obj m GdkPixbuf.Pixbuf cursorGetImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_get_image _obj' checkUnexpectedReturnNULL "gdk_cursor_get_image" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj return result' -- method Cursor::get_surface -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_get_surface" gdk_cursor_get_surface :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" Ptr CDouble -> -- x_hot : TBasicType TDouble Ptr CDouble -> -- y_hot : TBasicType TDouble IO (Ptr Cairo.Surface) cursorGetSurface :: (MonadIO m, CursorK a) => a -> -- _obj m (Cairo.Surface,Double,Double) cursorGetSurface _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x_hot <- allocMem :: IO (Ptr CDouble) y_hot <- allocMem :: IO (Ptr CDouble) result <- gdk_cursor_get_surface _obj' x_hot y_hot checkUnexpectedReturnNULL "gdk_cursor_get_surface" result result' <- (wrapBoxed Cairo.Surface) result x_hot' <- peek x_hot let x_hot'' = realToFrac x_hot' y_hot' <- peek y_hot let y_hot'' = realToFrac y_hot' touchManagedPtr _obj freeMem x_hot freeMem y_hot return (result', x_hot'', y_hot'') -- method Cursor::ref -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_ref" gdk_cursor_ref :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" IO (Ptr Cursor) {-# DEPRECATED cursorRef ["(Since version 3.0)","Use g_object_ref() instead"]#-} cursorRef :: (MonadIO m, CursorK a) => a -> -- _obj m Cursor cursorRef _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_ref _obj' checkUnexpectedReturnNULL "gdk_cursor_ref" result result' <- (wrapObject Cursor) result touchManagedPtr _obj return result' -- method Cursor::unref -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cursor_unref" gdk_cursor_unref :: Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" IO () {-# DEPRECATED cursorUnref ["(Since version 3.0)","Use g_object_unref() instead"]#-} cursorUnref :: (MonadIO m, CursorK a) => a -> -- _obj m () cursorUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_cursor_unref _obj' touchManagedPtr _obj return () -- Enum CursorType data CursorType = CursorTypeXCursor | CursorTypeArrow | CursorTypeBasedArrowDown | CursorTypeBasedArrowUp | CursorTypeBoat | CursorTypeBogosity | CursorTypeBottomLeftCorner | CursorTypeBottomRightCorner | CursorTypeBottomSide | CursorTypeBottomTee | CursorTypeBoxSpiral | CursorTypeCenterPtr | CursorTypeCircle | CursorTypeClock | CursorTypeCoffeeMug | CursorTypeCross | CursorTypeCrossReverse | CursorTypeCrosshair | CursorTypeDiamondCross | CursorTypeDot | CursorTypeDotbox | CursorTypeDoubleArrow | CursorTypeDraftLarge | CursorTypeDraftSmall | CursorTypeDrapedBox | CursorTypeExchange | CursorTypeFleur | CursorTypeGobbler | CursorTypeGumby | CursorTypeHand1 | CursorTypeHand2 | CursorTypeHeart | CursorTypeIcon | CursorTypeIronCross | CursorTypeLeftPtr | CursorTypeLeftSide | CursorTypeLeftTee | CursorTypeLeftbutton | CursorTypeLlAngle | CursorTypeLrAngle | CursorTypeMan | CursorTypeMiddlebutton | CursorTypeMouse | CursorTypePencil | CursorTypePirate | CursorTypePlus | CursorTypeQuestionArrow | CursorTypeRightPtr | CursorTypeRightSide | CursorTypeRightTee | CursorTypeRightbutton | CursorTypeRtlLogo | CursorTypeSailboat | CursorTypeSbDownArrow | CursorTypeSbHDoubleArrow | CursorTypeSbLeftArrow | CursorTypeSbRightArrow | CursorTypeSbUpArrow | CursorTypeSbVDoubleArrow | CursorTypeShuttle | CursorTypeSizing | CursorTypeSpider | CursorTypeSpraycan | CursorTypeStar | CursorTypeTarget | CursorTypeTcross | CursorTypeTopLeftArrow | CursorTypeTopLeftCorner | CursorTypeTopRightCorner | CursorTypeTopSide | CursorTypeTopTee | CursorTypeTrek | CursorTypeUlAngle | CursorTypeUmbrella | CursorTypeUrAngle | CursorTypeWatch | CursorTypeXterm | CursorTypeLastCursor | CursorTypeBlankCursor | CursorTypeCursorIsPixmap | AnotherCursorType Int deriving (Show, Eq) instance Enum CursorType where fromEnum CursorTypeXCursor = 0 fromEnum CursorTypeArrow = 2 fromEnum CursorTypeBasedArrowDown = 4 fromEnum CursorTypeBasedArrowUp = 6 fromEnum CursorTypeBoat = 8 fromEnum CursorTypeBogosity = 10 fromEnum CursorTypeBottomLeftCorner = 12 fromEnum CursorTypeBottomRightCorner = 14 fromEnum CursorTypeBottomSide = 16 fromEnum CursorTypeBottomTee = 18 fromEnum CursorTypeBoxSpiral = 20 fromEnum CursorTypeCenterPtr = 22 fromEnum CursorTypeCircle = 24 fromEnum CursorTypeClock = 26 fromEnum CursorTypeCoffeeMug = 28 fromEnum CursorTypeCross = 30 fromEnum CursorTypeCrossReverse = 32 fromEnum CursorTypeCrosshair = 34 fromEnum CursorTypeDiamondCross = 36 fromEnum CursorTypeDot = 38 fromEnum CursorTypeDotbox = 40 fromEnum CursorTypeDoubleArrow = 42 fromEnum CursorTypeDraftLarge = 44 fromEnum CursorTypeDraftSmall = 46 fromEnum CursorTypeDrapedBox = 48 fromEnum CursorTypeExchange = 50 fromEnum CursorTypeFleur = 52 fromEnum CursorTypeGobbler = 54 fromEnum CursorTypeGumby = 56 fromEnum CursorTypeHand1 = 58 fromEnum CursorTypeHand2 = 60 fromEnum CursorTypeHeart = 62 fromEnum CursorTypeIcon = 64 fromEnum CursorTypeIronCross = 66 fromEnum CursorTypeLeftPtr = 68 fromEnum CursorTypeLeftSide = 70 fromEnum CursorTypeLeftTee = 72 fromEnum CursorTypeLeftbutton = 74 fromEnum CursorTypeLlAngle = 76 fromEnum CursorTypeLrAngle = 78 fromEnum CursorTypeMan = 80 fromEnum CursorTypeMiddlebutton = 82 fromEnum CursorTypeMouse = 84 fromEnum CursorTypePencil = 86 fromEnum CursorTypePirate = 88 fromEnum CursorTypePlus = 90 fromEnum CursorTypeQuestionArrow = 92 fromEnum CursorTypeRightPtr = 94 fromEnum CursorTypeRightSide = 96 fromEnum CursorTypeRightTee = 98 fromEnum CursorTypeRightbutton = 100 fromEnum CursorTypeRtlLogo = 102 fromEnum CursorTypeSailboat = 104 fromEnum CursorTypeSbDownArrow = 106 fromEnum CursorTypeSbHDoubleArrow = 108 fromEnum CursorTypeSbLeftArrow = 110 fromEnum CursorTypeSbRightArrow = 112 fromEnum CursorTypeSbUpArrow = 114 fromEnum CursorTypeSbVDoubleArrow = 116 fromEnum CursorTypeShuttle = 118 fromEnum CursorTypeSizing = 120 fromEnum CursorTypeSpider = 122 fromEnum CursorTypeSpraycan = 124 fromEnum CursorTypeStar = 126 fromEnum CursorTypeTarget = 128 fromEnum CursorTypeTcross = 130 fromEnum CursorTypeTopLeftArrow = 132 fromEnum CursorTypeTopLeftCorner = 134 fromEnum CursorTypeTopRightCorner = 136 fromEnum CursorTypeTopSide = 138 fromEnum CursorTypeTopTee = 140 fromEnum CursorTypeTrek = 142 fromEnum CursorTypeUlAngle = 144 fromEnum CursorTypeUmbrella = 146 fromEnum CursorTypeUrAngle = 148 fromEnum CursorTypeWatch = 150 fromEnum CursorTypeXterm = 152 fromEnum CursorTypeLastCursor = 153 fromEnum CursorTypeBlankCursor = -2 fromEnum CursorTypeCursorIsPixmap = -1 fromEnum (AnotherCursorType k) = k toEnum -2 = CursorTypeBlankCursor toEnum -1 = CursorTypeCursorIsPixmap toEnum 0 = CursorTypeXCursor toEnum 2 = CursorTypeArrow toEnum 4 = CursorTypeBasedArrowDown toEnum 6 = CursorTypeBasedArrowUp toEnum 8 = CursorTypeBoat toEnum 10 = CursorTypeBogosity toEnum 12 = CursorTypeBottomLeftCorner toEnum 14 = CursorTypeBottomRightCorner toEnum 16 = CursorTypeBottomSide toEnum 18 = CursorTypeBottomTee toEnum 20 = CursorTypeBoxSpiral toEnum 22 = CursorTypeCenterPtr toEnum 24 = CursorTypeCircle toEnum 26 = CursorTypeClock toEnum 28 = CursorTypeCoffeeMug toEnum 30 = CursorTypeCross toEnum 32 = CursorTypeCrossReverse toEnum 34 = CursorTypeCrosshair toEnum 36 = CursorTypeDiamondCross toEnum 38 = CursorTypeDot toEnum 40 = CursorTypeDotbox toEnum 42 = CursorTypeDoubleArrow toEnum 44 = CursorTypeDraftLarge toEnum 46 = CursorTypeDraftSmall toEnum 48 = CursorTypeDrapedBox toEnum 50 = CursorTypeExchange toEnum 52 = CursorTypeFleur toEnum 54 = CursorTypeGobbler toEnum 56 = CursorTypeGumby toEnum 58 = CursorTypeHand1 toEnum 60 = CursorTypeHand2 toEnum 62 = CursorTypeHeart toEnum 64 = CursorTypeIcon toEnum 66 = CursorTypeIronCross toEnum 68 = CursorTypeLeftPtr toEnum 70 = CursorTypeLeftSide toEnum 72 = CursorTypeLeftTee toEnum 74 = CursorTypeLeftbutton toEnum 76 = CursorTypeLlAngle toEnum 78 = CursorTypeLrAngle toEnum 80 = CursorTypeMan toEnum 82 = CursorTypeMiddlebutton toEnum 84 = CursorTypeMouse toEnum 86 = CursorTypePencil toEnum 88 = CursorTypePirate toEnum 90 = CursorTypePlus toEnum 92 = CursorTypeQuestionArrow toEnum 94 = CursorTypeRightPtr toEnum 96 = CursorTypeRightSide toEnum 98 = CursorTypeRightTee toEnum 100 = CursorTypeRightbutton toEnum 102 = CursorTypeRtlLogo toEnum 104 = CursorTypeSailboat toEnum 106 = CursorTypeSbDownArrow toEnum 108 = CursorTypeSbHDoubleArrow toEnum 110 = CursorTypeSbLeftArrow toEnum 112 = CursorTypeSbRightArrow toEnum 114 = CursorTypeSbUpArrow toEnum 116 = CursorTypeSbVDoubleArrow toEnum 118 = CursorTypeShuttle toEnum 120 = CursorTypeSizing toEnum 122 = CursorTypeSpider toEnum 124 = CursorTypeSpraycan toEnum 126 = CursorTypeStar toEnum 128 = CursorTypeTarget toEnum 130 = CursorTypeTcross toEnum 132 = CursorTypeTopLeftArrow toEnum 134 = CursorTypeTopLeftCorner toEnum 136 = CursorTypeTopRightCorner toEnum 138 = CursorTypeTopSide toEnum 140 = CursorTypeTopTee toEnum 142 = CursorTypeTrek toEnum 144 = CursorTypeUlAngle toEnum 146 = CursorTypeUmbrella toEnum 148 = CursorTypeUrAngle toEnum 150 = CursorTypeWatch toEnum 152 = CursorTypeXterm toEnum 153 = CursorTypeLastCursor toEnum k = AnotherCursorType k foreign import ccall "gdk_cursor_type_get_type" c_gdk_cursor_type_get_type :: IO GType instance BoxedEnum CursorType where boxedEnumType _ = c_gdk_cursor_type_get_type -- object Device newtype Device = Device (ForeignPtr Device) noDevice :: Maybe Device noDevice = Nothing foreign import ccall "gdk_device_get_type" c_gdk_device_get_type :: IO GType type instance ParentTypes Device = '[GObject.Object] instance GObject Device where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_device_get_type class GObject o => DeviceK o instance (GObject o, IsDescendantOf Device o) => DeviceK o toDevice :: DeviceK o => o -> IO Device toDevice = unsafeCastTo Device -- method Device::get_associated_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_associated_device" gdk_device_get_associated_device :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO (Ptr Device) deviceGetAssociatedDevice :: (MonadIO m, DeviceK a) => a -> -- _obj m Device deviceGetAssociatedDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_associated_device _obj' checkUnexpectedReturnNULL "gdk_device_get_associated_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' -- method Device::get_axis_use -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "AxisUse" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_axis_use" gdk_device_get_axis_use :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Word32 -> -- index_ : TBasicType TUInt32 IO CUInt deviceGetAxisUse :: (MonadIO m, DeviceK a) => a -> -- _obj Word32 -> -- index_ m AxisUse deviceGetAxisUse _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_axis_use _obj' index_ let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Device::get_device_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DeviceType" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_device_type" gdk_device_get_device_type :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CUInt deviceGetDeviceType :: (MonadIO m, DeviceK a) => a -> -- _obj m DeviceType deviceGetDeviceType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_device_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Device::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_display" gdk_device_get_display :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO (Ptr Display) deviceGetDisplay :: (MonadIO m, DeviceK a) => a -> -- _obj m Display deviceGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_display _obj' checkUnexpectedReturnNULL "gdk_device_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method Device::get_has_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_has_cursor" gdk_device_get_has_cursor :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CInt deviceGetHasCursor :: (MonadIO m, DeviceK a) => a -> -- _obj m Bool deviceGetHasCursor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_has_cursor _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Device::get_key -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_key" gdk_device_get_key :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Word32 -> -- index_ : TBasicType TUInt32 Ptr Word32 -> -- keyval : TBasicType TUInt32 Ptr CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt deviceGetKey :: (MonadIO m, DeviceK a) => a -> -- _obj Word32 -> -- index_ m (Bool,Word32,[ModifierType]) deviceGetKey _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj keyval <- allocMem :: IO (Ptr Word32) modifiers <- allocMem :: IO (Ptr CUInt) result <- gdk_device_get_key _obj' index_ keyval modifiers let result' = (/= 0) result keyval' <- peek keyval modifiers' <- peek modifiers let modifiers'' = wordToGFlags modifiers' touchManagedPtr _obj freeMem keyval freeMem modifiers return (result', keyval', modifiers'') -- method Device::get_last_event_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_last_event_window" gdk_device_get_last_event_window :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO (Ptr Window) deviceGetLastEventWindow :: (MonadIO m, DeviceK a) => a -> -- _obj m Window deviceGetLastEventWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_last_event_window _obj' checkUnexpectedReturnNULL "gdk_device_get_last_event_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Device::get_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "InputMode" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_mode" gdk_device_get_mode :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CUInt deviceGetMode :: (MonadIO m, DeviceK a) => a -> -- _obj m InputMode deviceGetMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_mode _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Device::get_n_axes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_n_axes" gdk_device_get_n_axes :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO Int32 deviceGetNAxes :: (MonadIO m, DeviceK a) => a -> -- _obj m Int32 deviceGetNAxes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_n_axes _obj' touchManagedPtr _obj return result -- method Device::get_n_keys -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_n_keys" gdk_device_get_n_keys :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO Int32 deviceGetNKeys :: (MonadIO m, DeviceK a) => a -> -- _obj m Int32 deviceGetNKeys _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_n_keys _obj' touchManagedPtr _obj return result -- method Device::get_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_name" gdk_device_get_name :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CString deviceGetName :: (MonadIO m, DeviceK a) => a -> -- _obj m T.Text deviceGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_name _obj' checkUnexpectedReturnNULL "gdk_device_get_name" result result' <- cstringToText result touchManagedPtr _obj return result' -- method Device::get_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_position" gdk_device_get_position :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 IO () deviceGetPosition :: (MonadIO m, DeviceK a) => a -> -- _obj m (Screen,Int32,Int32) deviceGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj screen <- allocMem :: IO (Ptr (Ptr Screen)) x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) gdk_device_get_position _obj' screen x y screen' <- peek screen screen'' <- (newObject Screen) screen' x' <- peek x y' <- peek y touchManagedPtr _obj freeMem screen freeMem x freeMem y return (screen'', x', y') -- method Device::get_position_double -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_position_double" gdk_device_get_position_double :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble IO () deviceGetPositionDouble :: (MonadIO m, DeviceK a) => a -> -- _obj m (Screen,Double,Double) deviceGetPositionDouble _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj screen <- allocMem :: IO (Ptr (Ptr Screen)) x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) gdk_device_get_position_double _obj' screen x y screen' <- peek screen screen'' <- (newObject Screen) screen' x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' touchManagedPtr _obj freeMem screen freeMem x freeMem y return (screen'', x'', y'') -- method Device::get_product_id -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_product_id" gdk_device_get_product_id :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CString deviceGetProductId :: (MonadIO m, DeviceK a) => a -> -- _obj m T.Text deviceGetProductId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_product_id _obj' checkUnexpectedReturnNULL "gdk_device_get_product_id" result result' <- cstringToText result touchManagedPtr _obj return result' -- method Device::get_source -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "InputSource" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_source" gdk_device_get_source :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CUInt deviceGetSource :: (MonadIO m, DeviceK a) => a -> -- _obj m InputSource deviceGetSource _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_source _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Device::get_vendor_id -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_vendor_id" gdk_device_get_vendor_id :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO CString deviceGetVendorId :: (MonadIO m, DeviceK a) => a -> -- _obj m T.Text deviceGetVendorId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_vendor_id _obj' checkUnexpectedReturnNULL "gdk_device_get_vendor_id" result result' <- cstringToText result touchManagedPtr _obj return result' -- method Device::get_window_at_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_window_at_position" gdk_device_get_window_at_position :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr Int32 -> -- win_x : TBasicType TInt32 Ptr Int32 -> -- win_y : TBasicType TInt32 IO (Ptr Window) deviceGetWindowAtPosition :: (MonadIO m, DeviceK a) => a -> -- _obj m (Window,Int32,Int32) deviceGetWindowAtPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_device_get_window_at_position _obj' win_x win_y checkUnexpectedReturnNULL "gdk_device_get_window_at_position" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y touchManagedPtr _obj freeMem win_x freeMem win_y return (result', win_x', win_y') -- method Device::get_window_at_position_double -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_device_get_window_at_position_double" gdk_device_get_window_at_position_double :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr CDouble -> -- win_x : TBasicType TDouble Ptr CDouble -> -- win_y : TBasicType TDouble IO (Ptr Window) deviceGetWindowAtPositionDouble :: (MonadIO m, DeviceK a) => a -> -- _obj m (Window,Double,Double) deviceGetWindowAtPositionDouble _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj win_x <- allocMem :: IO (Ptr CDouble) win_y <- allocMem :: IO (Ptr CDouble) result <- gdk_device_get_window_at_position_double _obj' win_x win_y checkUnexpectedReturnNULL "gdk_device_get_window_at_position_double" result result' <- (newObject Window) result win_x' <- peek win_x let win_x'' = realToFrac win_x' win_y' <- peek win_y let win_y'' = realToFrac win_y' touchManagedPtr _obj freeMem win_x freeMem win_y return (result', win_x'', win_y'') -- method Device::grab -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GrabStatus" -- throws : False -- Skip return : False foreign import ccall "gdk_device_grab" gdk_device_grab :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr Window -> -- window : TInterface "Gdk" "Window" CUInt -> -- grab_ownership : TInterface "Gdk" "GrabOwnership" CInt -> -- owner_events : TBasicType TBoolean CUInt -> -- event_mask : TInterface "Gdk" "EventMask" Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" Word32 -> -- time_ : TBasicType TUInt32 IO CUInt deviceGrab :: (MonadIO m, DeviceK a, WindowK b, CursorK c) => a -> -- _obj b -> -- window GrabOwnership -> -- grab_ownership Bool -> -- owner_events [EventMask] -> -- event_mask Maybe (c) -> -- cursor Word32 -> -- time_ m GrabStatus deviceGrab _obj window grab_ownership owner_events event_mask cursor time_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window let grab_ownership' = (fromIntegral . fromEnum) grab_ownership let owner_events' = (fromIntegral . fromEnum) owner_events let event_mask' = gflagsToWord event_mask maybeCursor <- case cursor of Nothing -> return nullPtr Just jCursor -> do let jCursor' = unsafeManagedPtrCastPtr jCursor return jCursor' result <- gdk_device_grab _obj' window' grab_ownership' owner_events' event_mask' maybeCursor time_ let result' = (toEnum . fromIntegral) result touchManagedPtr _obj touchManagedPtr window whenJust cursor touchManagedPtr return result' -- method Device::list_axes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False foreign import ccall "gdk_device_list_axes" gdk_device_list_axes :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO (Ptr (GList (Ptr Atom))) deviceListAxes :: (MonadIO m, DeviceK a) => a -> -- _obj m [Atom] deviceListAxes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_list_axes _obj' checkUnexpectedReturnNULL "gdk_device_list_axes" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- unpackGList result result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result' g_list_free result touchManagedPtr _obj return result'' -- method Device::list_slave_devices -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Device") -- throws : False -- Skip return : False foreign import ccall "gdk_device_list_slave_devices" gdk_device_list_slave_devices :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" IO (Ptr (GList (Ptr Device))) deviceListSlaveDevices :: (MonadIO m, DeviceK a) => a -> -- _obj m [Device] deviceListSlaveDevices _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_list_slave_devices _obj' checkUnexpectedReturnNULL "gdk_device_list_slave_devices" result result' <- unpackGList result result'' <- mapM (newObject Device) result' g_list_free result touchManagedPtr _obj return result'' -- method Device::set_axis_use -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_set_axis_use" gdk_device_set_axis_use :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Word32 -> -- index_ : TBasicType TUInt32 CUInt -> -- use : TInterface "Gdk" "AxisUse" IO () deviceSetAxisUse :: (MonadIO m, DeviceK a) => a -> -- _obj Word32 -> -- index_ AxisUse -> -- use m () deviceSetAxisUse _obj index_ use = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let use' = (fromIntegral . fromEnum) use gdk_device_set_axis_use _obj' index_ use' touchManagedPtr _obj return () -- method Device::set_key -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_set_key" gdk_device_set_key :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Word32 -> -- index_ : TBasicType TUInt32 Word32 -> -- keyval : TBasicType TUInt32 CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO () deviceSetKey :: (MonadIO m, DeviceK a) => a -> -- _obj Word32 -> -- index_ Word32 -> -- keyval [ModifierType] -> -- modifiers m () deviceSetKey _obj index_ keyval modifiers = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let modifiers' = gflagsToWord modifiers gdk_device_set_key _obj' index_ keyval modifiers' touchManagedPtr _obj return () -- method Device::set_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_device_set_mode" gdk_device_set_mode :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" CUInt -> -- mode : TInterface "Gdk" "InputMode" IO CInt deviceSetMode :: (MonadIO m, DeviceK a) => a -> -- _obj InputMode -> -- mode m Bool deviceSetMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode result <- gdk_device_set_mode _obj' mode' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Device::ungrab -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_ungrab" gdk_device_ungrab :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Word32 -> -- time_ : TBasicType TUInt32 IO () deviceUngrab :: (MonadIO m, DeviceK a) => a -> -- _obj Word32 -> -- time_ m () deviceUngrab _obj time_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_device_ungrab _obj' time_ touchManagedPtr _obj return () -- method Device::warp -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_device_warp" gdk_device_warp :: Ptr Device -> -- _obj : TInterface "Gdk" "Device" Ptr Screen -> -- screen : TInterface "Gdk" "Screen" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () deviceWarp :: (MonadIO m, DeviceK a, ScreenK b) => a -> -- _obj b -> -- screen Int32 -> -- x Int32 -> -- y m () deviceWarp _obj screen x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen gdk_device_warp _obj' screen' x y touchManagedPtr _obj touchManagedPtr screen return () -- method Device::grab_info_libgtk_only -- method type : MemberFunction -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_device_grab_info_libgtk_only" gdk_device_grab_info_libgtk_only :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Device -> -- device : TInterface "Gdk" "Device" Ptr (Ptr Window) -> -- grab_window : TInterface "Gdk" "Window" Ptr CInt -> -- owner_events : TBasicType TBoolean IO CInt {-# DEPRECATED deviceGrabInfoLibgtkOnly ["(Since version 3.16)","The symbol was never meant to be used outside"," of GTK+"]#-} deviceGrabInfoLibgtkOnly :: (MonadIO m, DisplayK a, DeviceK b) => a -> -- display b -> -- device m (Bool,Window,Bool) deviceGrabInfoLibgtkOnly display device = liftIO $ do let display' = unsafeManagedPtrCastPtr display let device' = unsafeManagedPtrCastPtr device grab_window <- allocMem :: IO (Ptr (Ptr Window)) owner_events <- allocMem :: IO (Ptr CInt) result <- gdk_device_grab_info_libgtk_only display' device' grab_window owner_events let result' = (/= 0) result grab_window' <- peek grab_window grab_window'' <- (newObject Window) grab_window' owner_events' <- peek owner_events let owner_events'' = (/= 0) owner_events' touchManagedPtr display touchManagedPtr device freeMem grab_window freeMem owner_events return (result', grab_window'', owner_events'') -- signal Device::changed type DeviceChangedCallback = IO () noDeviceChangedCallback :: Maybe DeviceChangedCallback noDeviceChangedCallback = Nothing type DeviceChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDeviceChangedCallback :: DeviceChangedCallbackC -> IO (FunPtr DeviceChangedCallbackC) deviceChangedClosure :: DeviceChangedCallback -> IO Closure deviceChangedClosure cb = newCClosure =<< mkDeviceChangedCallback wrapped where wrapped = deviceChangedCallbackWrapper cb deviceChangedCallbackWrapper :: DeviceChangedCallback -> Ptr () -> Ptr () -> IO () deviceChangedCallbackWrapper _cb _ _ = do _cb onDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId onDeviceChanged obj cb = liftIO $ connectDeviceChanged obj cb SignalConnectBefore afterDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId afterDeviceChanged obj cb = connectDeviceChanged obj cb SignalConnectAfter connectDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId connectDeviceChanged obj cb after = liftIO $ do cb' <- mkDeviceChangedCallback (deviceChangedCallbackWrapper cb) connectSignalFunPtr obj "changed" cb' after -- object DeviceManager newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager) noDeviceManager :: Maybe DeviceManager noDeviceManager = Nothing foreign import ccall "gdk_device_manager_get_type" c_gdk_device_manager_get_type :: IO GType type instance ParentTypes DeviceManager = '[GObject.Object] instance GObject DeviceManager where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_device_manager_get_type class GObject o => DeviceManagerK o instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o toDeviceManager :: DeviceManagerK o => o -> IO DeviceManager toDeviceManager = unsafeCastTo DeviceManager -- method DeviceManager::get_client_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False foreign import ccall "gdk_device_manager_get_client_pointer" gdk_device_manager_get_client_pointer :: Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" IO (Ptr Device) deviceManagerGetClientPointer :: (MonadIO m, DeviceManagerK a) => a -> -- _obj m Device deviceManagerGetClientPointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_manager_get_client_pointer _obj' checkUnexpectedReturnNULL "gdk_device_manager_get_client_pointer" result result' <- (newObject Device) result touchManagedPtr _obj return result' -- method DeviceManager::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_device_manager_get_display" gdk_device_manager_get_display :: Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" IO (Ptr Display) deviceManagerGetDisplay :: (MonadIO m, DeviceManagerK a) => a -> -- _obj m Display deviceManagerGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_manager_get_display _obj' checkUnexpectedReturnNULL "gdk_device_manager_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method DeviceManager::list_devices -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Device") -- throws : False -- Skip return : False foreign import ccall "gdk_device_manager_list_devices" gdk_device_manager_list_devices :: Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" CUInt -> -- type : TInterface "Gdk" "DeviceType" IO (Ptr (GList (Ptr Device))) deviceManagerListDevices :: (MonadIO m, DeviceManagerK a) => a -> -- _obj DeviceType -> -- type m [Device] deviceManagerListDevices _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ result <- gdk_device_manager_list_devices _obj' type_' checkUnexpectedReturnNULL "gdk_device_manager_list_devices" result result' <- unpackGList result result'' <- mapM (newObject Device) result' g_list_free result touchManagedPtr _obj return result'' -- signal DeviceManager::device-added type DeviceManagerDeviceAddedCallback = Device -> IO () noDeviceManagerDeviceAddedCallback :: Maybe DeviceManagerDeviceAddedCallback noDeviceManagerDeviceAddedCallback = Nothing type DeviceManagerDeviceAddedCallbackC = Ptr () -> -- object Ptr Device -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDeviceManagerDeviceAddedCallback :: DeviceManagerDeviceAddedCallbackC -> IO (FunPtr DeviceManagerDeviceAddedCallbackC) deviceManagerDeviceAddedClosure :: DeviceManagerDeviceAddedCallback -> IO Closure deviceManagerDeviceAddedClosure cb = newCClosure =<< mkDeviceManagerDeviceAddedCallback wrapped where wrapped = deviceManagerDeviceAddedCallbackWrapper cb deviceManagerDeviceAddedCallbackWrapper :: DeviceManagerDeviceAddedCallback -> Ptr () -> Ptr Device -> Ptr () -> IO () deviceManagerDeviceAddedCallbackWrapper _cb _ device _ = do device' <- (newObject Device) device _cb device' onDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId onDeviceManagerDeviceAdded obj cb = liftIO $ connectDeviceManagerDeviceAdded obj cb SignalConnectBefore afterDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId afterDeviceManagerDeviceAdded obj cb = connectDeviceManagerDeviceAdded obj cb SignalConnectAfter connectDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> SignalConnectMode -> m SignalHandlerId connectDeviceManagerDeviceAdded obj cb after = liftIO $ do cb' <- mkDeviceManagerDeviceAddedCallback (deviceManagerDeviceAddedCallbackWrapper cb) connectSignalFunPtr obj "device-added" cb' after -- signal DeviceManager::device-changed type DeviceManagerDeviceChangedCallback = Device -> IO () noDeviceManagerDeviceChangedCallback :: Maybe DeviceManagerDeviceChangedCallback noDeviceManagerDeviceChangedCallback = Nothing type DeviceManagerDeviceChangedCallbackC = Ptr () -> -- object Ptr Device -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDeviceManagerDeviceChangedCallback :: DeviceManagerDeviceChangedCallbackC -> IO (FunPtr DeviceManagerDeviceChangedCallbackC) deviceManagerDeviceChangedClosure :: DeviceManagerDeviceChangedCallback -> IO Closure deviceManagerDeviceChangedClosure cb = newCClosure =<< mkDeviceManagerDeviceChangedCallback wrapped where wrapped = deviceManagerDeviceChangedCallbackWrapper cb deviceManagerDeviceChangedCallbackWrapper :: DeviceManagerDeviceChangedCallback -> Ptr () -> Ptr Device -> Ptr () -> IO () deviceManagerDeviceChangedCallbackWrapper _cb _ device _ = do device' <- (newObject Device) device _cb device' onDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId onDeviceManagerDeviceChanged obj cb = liftIO $ connectDeviceManagerDeviceChanged obj cb SignalConnectBefore afterDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId afterDeviceManagerDeviceChanged obj cb = connectDeviceManagerDeviceChanged obj cb SignalConnectAfter connectDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId connectDeviceManagerDeviceChanged obj cb after = liftIO $ do cb' <- mkDeviceManagerDeviceChangedCallback (deviceManagerDeviceChangedCallbackWrapper cb) connectSignalFunPtr obj "device-changed" cb' after -- signal DeviceManager::device-removed type DeviceManagerDeviceRemovedCallback = Device -> IO () noDeviceManagerDeviceRemovedCallback :: Maybe DeviceManagerDeviceRemovedCallback noDeviceManagerDeviceRemovedCallback = Nothing type DeviceManagerDeviceRemovedCallbackC = Ptr () -> -- object Ptr Device -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDeviceManagerDeviceRemovedCallback :: DeviceManagerDeviceRemovedCallbackC -> IO (FunPtr DeviceManagerDeviceRemovedCallbackC) deviceManagerDeviceRemovedClosure :: DeviceManagerDeviceRemovedCallback -> IO Closure deviceManagerDeviceRemovedClosure cb = newCClosure =<< mkDeviceManagerDeviceRemovedCallback wrapped where wrapped = deviceManagerDeviceRemovedCallbackWrapper cb deviceManagerDeviceRemovedCallbackWrapper :: DeviceManagerDeviceRemovedCallback -> Ptr () -> Ptr Device -> Ptr () -> IO () deviceManagerDeviceRemovedCallbackWrapper _cb _ device _ = do device' <- (newObject Device) device _cb device' onDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId onDeviceManagerDeviceRemoved obj cb = liftIO $ connectDeviceManagerDeviceRemoved obj cb SignalConnectBefore afterDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId afterDeviceManagerDeviceRemoved obj cb = connectDeviceManagerDeviceRemoved obj cb SignalConnectAfter connectDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> SignalConnectMode -> m SignalHandlerId connectDeviceManagerDeviceRemoved obj cb after = liftIO $ do cb' <- mkDeviceManagerDeviceRemovedCallback (deviceManagerDeviceRemovedCallbackWrapper cb) connectSignalFunPtr obj "device-removed" cb' after -- Enum DeviceType data DeviceType = DeviceTypeMaster | DeviceTypeSlave | DeviceTypeFloating | AnotherDeviceType Int deriving (Show, Eq) instance Enum DeviceType where fromEnum DeviceTypeMaster = 0 fromEnum DeviceTypeSlave = 1 fromEnum DeviceTypeFloating = 2 fromEnum (AnotherDeviceType k) = k toEnum 0 = DeviceTypeMaster toEnum 1 = DeviceTypeSlave toEnum 2 = DeviceTypeFloating toEnum k = AnotherDeviceType k foreign import ccall "gdk_device_type_get_type" c_gdk_device_type_get_type :: IO GType instance BoxedEnum DeviceType where boxedEnumType _ = c_gdk_device_type_get_type -- object Display newtype Display = Display (ForeignPtr Display) noDisplay :: Maybe Display noDisplay = Nothing foreign import ccall "gdk_display_get_type" c_gdk_display_get_type :: IO GType type instance ParentTypes Display = '[GObject.Object] instance GObject Display where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_display_get_type class GObject o => DisplayK o instance (GObject o, IsDescendantOf Display o) => DisplayK o toDisplay :: DisplayK o => o -> IO Display toDisplay = unsafeCastTo Display -- method Display::beep -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_beep" gdk_display_beep :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO () displayBeep :: (MonadIO m, DisplayK a) => a -> -- _obj m () displayBeep _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_beep _obj' touchManagedPtr _obj return () -- method Display::close -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_close" gdk_display_close :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO () displayClose :: (MonadIO m, DisplayK a) => a -> -- _obj m () displayClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_close _obj' touchManagedPtr _obj return () -- method Display::device_is_grabbed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_device_is_grabbed" gdk_display_device_is_grabbed :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Device -> -- device : TInterface "Gdk" "Device" IO CInt displayDeviceIsGrabbed :: (MonadIO m, DisplayK a, DeviceK b) => a -> -- _obj b -> -- device m Bool displayDeviceIsGrabbed _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device result <- gdk_display_device_is_grabbed _obj' device' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr device return result' -- method Display::flush -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_flush" gdk_display_flush :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO () displayFlush :: (MonadIO m, DisplayK a) => a -> -- _obj m () displayFlush _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_flush _obj' touchManagedPtr _obj return () -- method Display::get_app_launch_context -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "AppLaunchContext" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_app_launch_context" gdk_display_get_app_launch_context :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr AppLaunchContext) displayGetAppLaunchContext :: (MonadIO m, DisplayK a) => a -> -- _obj m AppLaunchContext displayGetAppLaunchContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_app_launch_context _obj' checkUnexpectedReturnNULL "gdk_display_get_app_launch_context" result result' <- (wrapObject AppLaunchContext) result touchManagedPtr _obj return result' -- method Display::get_default_cursor_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_default_cursor_size" gdk_display_get_default_cursor_size :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO Word32 displayGetDefaultCursorSize :: (MonadIO m, DisplayK a) => a -> -- _obj m Word32 displayGetDefaultCursorSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_default_cursor_size _obj' touchManagedPtr _obj return result -- method Display::get_default_group -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_default_group" gdk_display_get_default_group :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr Window) displayGetDefaultGroup :: (MonadIO m, DisplayK a) => a -> -- _obj m Window displayGetDefaultGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_default_group _obj' checkUnexpectedReturnNULL "gdk_display_get_default_group" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Display::get_default_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_default_screen" gdk_display_get_default_screen :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr Screen) displayGetDefaultScreen :: (MonadIO m, DisplayK a) => a -> -- _obj m Screen displayGetDefaultScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_default_screen _obj' checkUnexpectedReturnNULL "gdk_display_get_default_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' -- method Display::get_device_manager -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DeviceManager" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_device_manager" gdk_display_get_device_manager :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr DeviceManager) displayGetDeviceManager :: (MonadIO m, DisplayK a) => a -> -- _obj m DeviceManager displayGetDeviceManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_device_manager _obj' checkUnexpectedReturnNULL "gdk_display_get_device_manager" result result' <- (newObject DeviceManager) result touchManagedPtr _obj return result' -- method Display::get_event -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_event" gdk_display_get_event :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr Event) displayGetEvent :: (MonadIO m, DisplayK a) => a -> -- _obj m Event displayGetEvent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_event _obj' checkUnexpectedReturnNULL "gdk_display_get_event" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' -- method Display::get_maximal_cursor_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_maximal_cursor_size" gdk_display_get_maximal_cursor_size :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Word32 -> -- width : TBasicType TUInt32 Ptr Word32 -> -- height : TBasicType TUInt32 IO () displayGetMaximalCursorSize :: (MonadIO m, DisplayK a) => a -> -- _obj m (Word32,Word32) displayGetMaximalCursorSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj width <- allocMem :: IO (Ptr Word32) height <- allocMem :: IO (Ptr Word32) gdk_display_get_maximal_cursor_size _obj' width height width' <- peek width height' <- peek height touchManagedPtr _obj freeMem width freeMem height return (width', height') -- method Display::get_n_screens -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_n_screens" gdk_display_get_n_screens :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO Int32 {-# DEPRECATED displayGetNScreens ["(Since version 3.10)","The number of screens is always 1."]#-} displayGetNScreens :: (MonadIO m, DisplayK a) => a -> -- _obj m Int32 displayGetNScreens _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_n_screens _obj' touchManagedPtr _obj return result -- method Display::get_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_name" gdk_display_get_name :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CString displayGetName :: (MonadIO m, DisplayK a) => a -> -- _obj m T.Text displayGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_name _obj' checkUnexpectedReturnNULL "gdk_display_get_name" result result' <- cstringToText result touchManagedPtr _obj return result' -- method Display::get_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_pointer" gdk_display_get_pointer :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" IO () {-# DEPRECATED displayGetPointer ["(Since version 3.0)","Use gdk_device_get_position() instead."]#-} displayGetPointer :: (MonadIO m, DisplayK a) => a -> -- _obj m (Screen,Int32,Int32,[ModifierType]) displayGetPointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj screen <- allocMem :: IO (Ptr (Ptr Screen)) x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) gdk_display_get_pointer _obj' screen x y mask screen' <- peek screen screen'' <- (newObject Screen) screen' x' <- peek x y' <- peek y mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr _obj freeMem screen freeMem x freeMem y freeMem mask return (screen'', x', y', mask'') -- method Display::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_screen" gdk_display_get_screen :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Int32 -> -- screen_num : TBasicType TInt32 IO (Ptr Screen) displayGetScreen :: (MonadIO m, DisplayK a) => a -> -- _obj Int32 -> -- screen_num m Screen displayGetScreen _obj screen_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_screen _obj' screen_num checkUnexpectedReturnNULL "gdk_display_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' -- method Display::get_window_at_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_window_at_pointer" gdk_display_get_window_at_pointer :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Int32 -> -- win_x : TBasicType TInt32 Ptr Int32 -> -- win_y : TBasicType TInt32 IO (Ptr Window) {-# DEPRECATED displayGetWindowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-} displayGetWindowAtPointer :: (MonadIO m, DisplayK a) => a -> -- _obj m (Window,Int32,Int32) displayGetWindowAtPointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_display_get_window_at_pointer _obj' win_x win_y checkUnexpectedReturnNULL "gdk_display_get_window_at_pointer" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y touchManagedPtr _obj freeMem win_x freeMem win_y return (result', win_x', win_y') -- method Display::has_pending -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_has_pending" gdk_display_has_pending :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displayHasPending :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displayHasPending _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_has_pending _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::is_closed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_is_closed" gdk_display_is_closed :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displayIsClosed :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displayIsClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_is_closed _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::keyboard_ungrab -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_keyboard_ungrab" gdk_display_keyboard_ungrab :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Word32 -> -- time_ : TBasicType TUInt32 IO () {-# DEPRECATED displayKeyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} displayKeyboardUngrab :: (MonadIO m, DisplayK a) => a -> -- _obj Word32 -> -- time_ m () displayKeyboardUngrab _obj time_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_keyboard_ungrab _obj' time_ touchManagedPtr _obj return () -- method Display::list_devices -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Device") -- throws : False -- Skip return : False foreign import ccall "gdk_display_list_devices" gdk_display_list_devices :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr (GList (Ptr Device))) {-# DEPRECATED displayListDevices ["(Since version 3.0)","Use gdk_device_manager_list_devices() instead."]#-} displayListDevices :: (MonadIO m, DisplayK a) => a -> -- _obj m [Device] displayListDevices _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_list_devices _obj' checkUnexpectedReturnNULL "gdk_display_list_devices" result result' <- unpackGList result result'' <- mapM (newObject Device) result' touchManagedPtr _obj return result'' -- method Display::notify_startup_complete -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_notify_startup_complete" gdk_display_notify_startup_complete :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" CString -> -- startup_id : TBasicType TUTF8 IO () displayNotifyStartupComplete :: (MonadIO m, DisplayK a) => a -> -- _obj T.Text -> -- startup_id m () displayNotifyStartupComplete _obj startup_id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj startup_id' <- textToCString startup_id gdk_display_notify_startup_complete _obj' startup_id' touchManagedPtr _obj freeMem startup_id' return () -- method Display::peek_event -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_display_peek_event" gdk_display_peek_event :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO (Ptr Event) displayPeekEvent :: (MonadIO m, DisplayK a) => a -> -- _obj m Event displayPeekEvent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_peek_event _obj' checkUnexpectedReturnNULL "gdk_display_peek_event" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' -- method Display::pointer_is_grabbed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_pointer_is_grabbed" gdk_display_pointer_is_grabbed :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt {-# DEPRECATED displayPointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-} displayPointerIsGrabbed :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displayPointerIsGrabbed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_pointer_is_grabbed _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::pointer_ungrab -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_pointer_ungrab" gdk_display_pointer_ungrab :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Word32 -> -- time_ : TBasicType TUInt32 IO () {-# DEPRECATED displayPointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} displayPointerUngrab :: (MonadIO m, DisplayK a) => a -> -- _obj Word32 -> -- time_ m () displayPointerUngrab _obj time_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_pointer_ungrab _obj' time_ touchManagedPtr _obj return () -- method Display::put_event -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_put_event" gdk_display_put_event :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Event -> -- event : TInterface "Gdk" "Event" IO () displayPutEvent :: (MonadIO m, DisplayK a) => a -> -- _obj Event -> -- event m () displayPutEvent _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event gdk_display_put_event _obj' event' touchManagedPtr _obj touchManagedPtr event return () -- method Display::request_selection_notification -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_request_selection_notification" gdk_display_request_selection_notification :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" IO CInt displayRequestSelectionNotification :: (MonadIO m, DisplayK a) => a -> -- _obj Atom -> -- selection m Bool displayRequestSelectionNotification _obj selection = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let selection' = unsafeManagedPtrGetPtr selection result <- gdk_display_request_selection_notification _obj' selection' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr selection return result' -- method Display::set_double_click_distance -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_set_double_click_distance" gdk_display_set_double_click_distance :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Word32 -> -- distance : TBasicType TUInt32 IO () displaySetDoubleClickDistance :: (MonadIO m, DisplayK a) => a -> -- _obj Word32 -> -- distance m () displaySetDoubleClickDistance _obj distance = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_set_double_click_distance _obj' distance touchManagedPtr _obj return () -- method Display::set_double_click_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_set_double_click_time" gdk_display_set_double_click_time :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Word32 -> -- msec : TBasicType TUInt32 IO () displaySetDoubleClickTime :: (MonadIO m, DisplayK a) => a -> -- _obj Word32 -> -- msec m () displaySetDoubleClickTime _obj msec = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_set_double_click_time _obj' msec touchManagedPtr _obj return () -- method Display::store_clipboard -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_store_clipboard" gdk_display_store_clipboard :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Window -> -- clipboard_window : TInterface "Gdk" "Window" Word32 -> -- time_ : TBasicType TUInt32 Ptr (Ptr Atom) -> -- targets : TCArray False (-1) 4 (TInterface "Gdk" "Atom") Int32 -> -- n_targets : TBasicType TInt32 IO () displayStoreClipboard :: (MonadIO m, DisplayK a, WindowK b) => a -> -- _obj b -> -- clipboard_window Word32 -> -- time_ [Atom] -> -- targets m () displayStoreClipboard _obj clipboard_window time_ targets = liftIO $ do let n_targets = fromIntegral $ length targets let _obj' = unsafeManagedPtrCastPtr _obj let clipboard_window' = unsafeManagedPtrCastPtr clipboard_window let targets' = map unsafeManagedPtrGetPtr targets targets'' <- packPtrArray targets' gdk_display_store_clipboard _obj' clipboard_window' time_ targets'' n_targets touchManagedPtr _obj touchManagedPtr clipboard_window mapM_ touchManagedPtr targets freeMem targets'' return () -- method Display::supports_clipboard_persistence -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_clipboard_persistence" gdk_display_supports_clipboard_persistence :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsClipboardPersistence :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsClipboardPersistence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_clipboard_persistence _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_composite -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_composite" gdk_display_supports_composite :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt {-# DEPRECATED displaySupportsComposite ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} displaySupportsComposite :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsComposite _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_composite _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_cursor_alpha -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_cursor_alpha" gdk_display_supports_cursor_alpha :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsCursorAlpha :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsCursorAlpha _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_cursor_alpha _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_cursor_color -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_cursor_color" gdk_display_supports_cursor_color :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsCursorColor :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsCursorColor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_cursor_color _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_input_shapes" gdk_display_supports_input_shapes :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsInputShapes :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsInputShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_input_shapes _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_selection_notification -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_selection_notification" gdk_display_supports_selection_notification :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsSelectionNotification :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsSelectionNotification _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_selection_notification _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::supports_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_display_supports_shapes" gdk_display_supports_shapes :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO CInt displaySupportsShapes :: (MonadIO m, DisplayK a) => a -> -- _obj m Bool displaySupportsShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_supports_shapes _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Display::sync -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_sync" gdk_display_sync :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" IO () displaySync :: (MonadIO m, DisplayK a) => a -> -- _obj m () displaySync _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_display_sync _obj' touchManagedPtr _obj return () -- method Display::warp_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_warp_pointer" gdk_display_warp_pointer :: Ptr Display -> -- _obj : TInterface "Gdk" "Display" Ptr Screen -> -- screen : TInterface "Gdk" "Screen" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () {-# DEPRECATED displayWarpPointer ["(Since version 3.0)","Use gdk_device_warp() instead."]#-} displayWarpPointer :: (MonadIO m, DisplayK a, ScreenK b) => a -> -- _obj b -> -- screen Int32 -> -- x Int32 -> -- y m () displayWarpPointer _obj screen x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let screen' = unsafeManagedPtrCastPtr screen gdk_display_warp_pointer _obj' screen' x y touchManagedPtr _obj touchManagedPtr screen return () -- method Display::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_display_get_default" gdk_display_get_default :: IO (Ptr Display) displayGetDefault :: (MonadIO m) => m Display displayGetDefault = liftIO $ do result <- gdk_display_get_default checkUnexpectedReturnNULL "gdk_display_get_default" result result' <- (newObject Display) result return result' -- method Display::open -- method type : MemberFunction -- Args : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_display_open" gdk_display_open :: CString -> -- display_name : TBasicType TUTF8 IO (Ptr Display) displayOpen :: (MonadIO m) => T.Text -> -- display_name m Display displayOpen display_name = liftIO $ do display_name' <- textToCString display_name result <- gdk_display_open display_name' checkUnexpectedReturnNULL "gdk_display_open" result result' <- (newObject Display) result freeMem display_name' return result' -- method Display::open_default_libgtk_only -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_display_open_default_libgtk_only" gdk_display_open_default_libgtk_only :: IO (Ptr Display) {-# DEPRECATED displayOpenDefaultLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} displayOpenDefaultLibgtkOnly :: (MonadIO m) => m Display displayOpenDefaultLibgtkOnly = liftIO $ do result <- gdk_display_open_default_libgtk_only checkUnexpectedReturnNULL "gdk_display_open_default_libgtk_only" result result' <- (newObject Display) result return result' -- signal Display::closed type DisplayClosedCallback = Bool -> IO () noDisplayClosedCallback :: Maybe DisplayClosedCallback noDisplayClosedCallback = Nothing type DisplayClosedCallbackC = Ptr () -> -- object CInt -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDisplayClosedCallback :: DisplayClosedCallbackC -> IO (FunPtr DisplayClosedCallbackC) displayClosedClosure :: DisplayClosedCallback -> IO Closure displayClosedClosure cb = newCClosure =<< mkDisplayClosedCallback wrapped where wrapped = displayClosedCallbackWrapper cb displayClosedCallbackWrapper :: DisplayClosedCallback -> Ptr () -> CInt -> Ptr () -> IO () displayClosedCallbackWrapper _cb _ is_error _ = do let is_error' = (/= 0) is_error _cb is_error' onDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId onDisplayClosed obj cb = liftIO $ connectDisplayClosed obj cb SignalConnectBefore afterDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId afterDisplayClosed obj cb = connectDisplayClosed obj cb SignalConnectAfter connectDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> SignalConnectMode -> m SignalHandlerId connectDisplayClosed obj cb after = liftIO $ do cb' <- mkDisplayClosedCallback (displayClosedCallbackWrapper cb) connectSignalFunPtr obj "closed" cb' after -- signal Display::opened type DisplayOpenedCallback = IO () noDisplayOpenedCallback :: Maybe DisplayOpenedCallback noDisplayOpenedCallback = Nothing type DisplayOpenedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDisplayOpenedCallback :: DisplayOpenedCallbackC -> IO (FunPtr DisplayOpenedCallbackC) displayOpenedClosure :: DisplayOpenedCallback -> IO Closure displayOpenedClosure cb = newCClosure =<< mkDisplayOpenedCallback wrapped where wrapped = displayOpenedCallbackWrapper cb displayOpenedCallbackWrapper :: DisplayOpenedCallback -> Ptr () -> Ptr () -> IO () displayOpenedCallbackWrapper _cb _ _ = do _cb onDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId onDisplayOpened obj cb = liftIO $ connectDisplayOpened obj cb SignalConnectBefore afterDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId afterDisplayOpened obj cb = connectDisplayOpened obj cb SignalConnectAfter connectDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId connectDisplayOpened obj cb after = liftIO $ do cb' <- mkDisplayOpenedCallback (displayOpenedCallbackWrapper cb) connectSignalFunPtr obj "opened" cb' after -- object DisplayManager newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager) noDisplayManager :: Maybe DisplayManager noDisplayManager = Nothing foreign import ccall "gdk_display_manager_get_type" c_gdk_display_manager_get_type :: IO GType type instance ParentTypes DisplayManager = '[GObject.Object] instance GObject DisplayManager where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_display_manager_get_type class GObject o => DisplayManagerK o instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o toDisplayManager :: DisplayManagerK o => o -> IO DisplayManager toDisplayManager = unsafeCastTo DisplayManager -- method DisplayManager::get_default_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_display_manager_get_default_display" gdk_display_manager_get_default_display :: Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" IO (Ptr Display) displayManagerGetDefaultDisplay :: (MonadIO m, DisplayManagerK a) => a -> -- _obj m Display displayManagerGetDefaultDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_manager_get_default_display _obj' checkUnexpectedReturnNULL "gdk_display_manager_get_default_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method DisplayManager::list_displays -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Gdk" "Display") -- throws : False -- Skip return : False foreign import ccall "gdk_display_manager_list_displays" gdk_display_manager_list_displays :: Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" IO (Ptr (GSList (Ptr Display))) displayManagerListDisplays :: (MonadIO m, DisplayManagerK a) => a -> -- _obj m [Display] displayManagerListDisplays _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_manager_list_displays _obj' checkUnexpectedReturnNULL "gdk_display_manager_list_displays" result result' <- unpackGSList result result'' <- mapM (newObject Display) result' g_slist_free result touchManagedPtr _obj return result'' -- method DisplayManager::open_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_display_manager_open_display" gdk_display_manager_open_display :: Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" CString -> -- name : TBasicType TUTF8 IO (Ptr Display) displayManagerOpenDisplay :: (MonadIO m, DisplayManagerK a) => a -> -- _obj T.Text -> -- name m Display displayManagerOpenDisplay _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name result <- gdk_display_manager_open_display _obj' name' checkUnexpectedReturnNULL "gdk_display_manager_open_display" result result' <- (newObject Display) result touchManagedPtr _obj freeMem name' return result' -- method DisplayManager::set_default_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_display_manager_set_default_display" gdk_display_manager_set_default_display :: Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" Ptr Display -> -- display : TInterface "Gdk" "Display" IO () displayManagerSetDefaultDisplay :: (MonadIO m, DisplayManagerK a, DisplayK b) => a -> -- _obj b -> -- display m () displayManagerSetDefaultDisplay _obj display = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let display' = unsafeManagedPtrCastPtr display gdk_display_manager_set_default_display _obj' display' touchManagedPtr _obj touchManagedPtr display return () -- method DisplayManager::get -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "DisplayManager" -- throws : False -- Skip return : False foreign import ccall "gdk_display_manager_get" gdk_display_manager_get :: IO (Ptr DisplayManager) displayManagerGet :: (MonadIO m) => m DisplayManager displayManagerGet = liftIO $ do result <- gdk_display_manager_get checkUnexpectedReturnNULL "gdk_display_manager_get" result result' <- (newObject DisplayManager) result return result' -- signal DisplayManager::display-opened type DisplayManagerDisplayOpenedCallback = Display -> IO () noDisplayManagerDisplayOpenedCallback :: Maybe DisplayManagerDisplayOpenedCallback noDisplayManagerDisplayOpenedCallback = Nothing type DisplayManagerDisplayOpenedCallbackC = Ptr () -> -- object Ptr Display -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkDisplayManagerDisplayOpenedCallback :: DisplayManagerDisplayOpenedCallbackC -> IO (FunPtr DisplayManagerDisplayOpenedCallbackC) displayManagerDisplayOpenedClosure :: DisplayManagerDisplayOpenedCallback -> IO Closure displayManagerDisplayOpenedClosure cb = newCClosure =<< mkDisplayManagerDisplayOpenedCallback wrapped where wrapped = displayManagerDisplayOpenedCallbackWrapper cb displayManagerDisplayOpenedCallbackWrapper :: DisplayManagerDisplayOpenedCallback -> Ptr () -> Ptr Display -> Ptr () -> IO () displayManagerDisplayOpenedCallbackWrapper _cb _ display _ = do display' <- (newObject Display) display _cb display' onDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId onDisplayManagerDisplayOpened obj cb = liftIO $ connectDisplayManagerDisplayOpened obj cb SignalConnectBefore afterDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId afterDisplayManagerDisplayOpened obj cb = connectDisplayManagerDisplayOpened obj cb SignalConnectAfter connectDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId connectDisplayManagerDisplayOpened obj cb after = liftIO $ do cb' <- mkDisplayManagerDisplayOpenedCallback (displayManagerDisplayOpenedCallbackWrapper cb) connectSignalFunPtr obj "display-opened" cb' after -- Flags DragAction data DragAction = DragActionDefault | DragActionCopy | DragActionMove | DragActionLink | DragActionPrivate | DragActionAsk | AnotherDragAction Int deriving (Show, Eq) instance Enum DragAction where fromEnum DragActionDefault = 1 fromEnum DragActionCopy = 2 fromEnum DragActionMove = 4 fromEnum DragActionLink = 8 fromEnum DragActionPrivate = 16 fromEnum DragActionAsk = 32 fromEnum (AnotherDragAction k) = k toEnum 1 = DragActionDefault toEnum 2 = DragActionCopy toEnum 4 = DragActionMove toEnum 8 = DragActionLink toEnum 16 = DragActionPrivate toEnum 32 = DragActionAsk toEnum k = AnotherDragAction k foreign import ccall "gdk_drag_action_get_type" c_gdk_drag_action_get_type :: IO GType instance BoxedEnum DragAction where boxedEnumType _ = c_gdk_drag_action_get_type instance IsGFlag DragAction -- object DragContext newtype DragContext = DragContext (ForeignPtr DragContext) noDragContext :: Maybe DragContext noDragContext = Nothing foreign import ccall "gdk_drag_context_get_type" c_gdk_drag_context_get_type :: IO GType type instance ParentTypes DragContext = '[GObject.Object] instance GObject DragContext where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_drag_context_get_type class GObject o => DragContextK o instance (GObject o, IsDescendantOf DragContext o) => DragContextK o toDragContext :: DragContextK o => o -> IO DragContext toDragContext = unsafeCastTo DragContext -- method DragContext::get_actions -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragAction" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_actions" gdk_drag_context_get_actions :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO CUInt dragContextGetActions :: (MonadIO m, DragContextK a) => a -> -- _obj m [DragAction] dragContextGetActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_actions _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method DragContext::get_dest_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_dest_window" gdk_drag_context_get_dest_window :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO (Ptr Window) dragContextGetDestWindow :: (MonadIO m, DragContextK a) => a -> -- _obj m Window dragContextGetDestWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_dest_window _obj' checkUnexpectedReturnNULL "gdk_drag_context_get_dest_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method DragContext::get_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_device" gdk_drag_context_get_device :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO (Ptr Device) dragContextGetDevice :: (MonadIO m, DragContextK a) => a -> -- _obj m Device dragContextGetDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_device _obj' checkUnexpectedReturnNULL "gdk_drag_context_get_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' -- method DragContext::get_protocol -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragProtocol" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_protocol" gdk_drag_context_get_protocol :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO CUInt dragContextGetProtocol :: (MonadIO m, DragContextK a) => a -> -- _obj m DragProtocol dragContextGetProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_protocol _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method DragContext::get_selected_action -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragAction" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_selected_action" gdk_drag_context_get_selected_action :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO CUInt dragContextGetSelectedAction :: (MonadIO m, DragContextK a) => a -> -- _obj m [DragAction] dragContextGetSelectedAction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_selected_action _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method DragContext::get_source_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_source_window" gdk_drag_context_get_source_window :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO (Ptr Window) dragContextGetSourceWindow :: (MonadIO m, DragContextK a) => a -> -- _obj m Window dragContextGetSourceWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_source_window _obj' checkUnexpectedReturnNULL "gdk_drag_context_get_source_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method DragContext::get_suggested_action -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragAction" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_get_suggested_action" gdk_drag_context_get_suggested_action :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO CUInt dragContextGetSuggestedAction :: (MonadIO m, DragContextK a) => a -> -- _obj m [DragAction] dragContextGetSuggestedAction _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_suggested_action _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method DragContext::list_targets -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_list_targets" gdk_drag_context_list_targets :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" IO (Ptr (GList (Ptr Atom))) dragContextListTargets :: (MonadIO m, DragContextK a) => a -> -- _obj m [Atom] dragContextListTargets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_list_targets _obj' checkUnexpectedReturnNULL "gdk_drag_context_list_targets" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- unpackGList result result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result' touchManagedPtr _obj return result'' -- method DragContext::set_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drag_context_set_device" gdk_drag_context_set_device :: Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" Ptr Device -> -- device : TInterface "Gdk" "Device" IO () dragContextSetDevice :: (MonadIO m, DragContextK a, DeviceK b) => a -> -- _obj b -> -- device m () dragContextSetDevice _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device gdk_drag_context_set_device _obj' device' touchManagedPtr _obj touchManagedPtr device return () -- Enum DragProtocol data DragProtocol = DragProtocolNone | DragProtocolMotif | DragProtocolXdnd | DragProtocolRootwin | DragProtocolWin32Dropfiles | DragProtocolOle2 | DragProtocolLocal | DragProtocolWayland | AnotherDragProtocol Int deriving (Show, Eq) instance Enum DragProtocol where fromEnum DragProtocolNone = 0 fromEnum DragProtocolMotif = 1 fromEnum DragProtocolXdnd = 2 fromEnum DragProtocolRootwin = 3 fromEnum DragProtocolWin32Dropfiles = 4 fromEnum DragProtocolOle2 = 5 fromEnum DragProtocolLocal = 6 fromEnum DragProtocolWayland = 7 fromEnum (AnotherDragProtocol k) = k toEnum 0 = DragProtocolNone toEnum 1 = DragProtocolMotif toEnum 2 = DragProtocolXdnd toEnum 3 = DragProtocolRootwin toEnum 4 = DragProtocolWin32Dropfiles toEnum 5 = DragProtocolOle2 toEnum 6 = DragProtocolLocal toEnum 7 = DragProtocolWayland toEnum k = AnotherDragProtocol k foreign import ccall "gdk_drag_protocol_get_type" c_gdk_drag_protocol_get_type :: IO GType instance BoxedEnum DragProtocol where boxedEnumType _ = c_gdk_drag_protocol_get_type -- union Event newtype Event = Event (ForeignPtr Event) noEvent :: Maybe Event noEvent = Nothing foreign import ccall "gdk_event_get_type" c_gdk_event_get_type :: IO GType instance BoxedObject Event where boxedType _ = c_gdk_event_get_type eventReadType :: Event -> IO EventType eventReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventReadAny :: Event -> IO EventAny eventReadAny s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventAny) val' <- (newPtr 24 EventAny) val return val' eventReadExpose :: Event -> IO EventExpose eventReadExpose s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventExpose) val' <- (newPtr 56 EventExpose) val return val' eventReadVisibility :: Event -> IO EventVisibility eventReadVisibility s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventVisibility) val' <- (newPtr 24 EventVisibility) val return val' eventReadMotion :: Event -> IO EventMotion eventReadMotion s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventMotion) val' <- (newPtr 80 EventMotion) val return val' eventReadButton :: Event -> IO EventButton eventReadButton s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventButton) val' <- (newPtr 80 EventButton) val return val' eventReadTouch :: Event -> IO EventTouch eventReadTouch s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouch) val' <- (newPtr 96 EventTouch) val return val' eventReadScroll :: Event -> IO EventScroll eventReadScroll s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventScroll) val' <- (newPtr 88 EventScroll) val return val' eventReadKey :: Event -> IO EventKey eventReadKey s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventKey) val' <- (newPtr 56 EventKey) val return val' eventReadCrossing :: Event -> IO EventCrossing eventReadCrossing s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventCrossing) val' <- (newPtr 88 EventCrossing) val return val' eventReadFocusChange :: Event -> IO EventFocus eventReadFocusChange s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventFocus) val' <- (newPtr 24 EventFocus) val return val' eventReadConfigure :: Event -> IO EventConfigure eventReadConfigure s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventConfigure) val' <- (newPtr 40 EventConfigure) val return val' eventReadProperty :: Event -> IO EventProperty eventReadProperty s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProperty) val' <- (newPtr 40 EventProperty) val return val' eventReadSelection :: Event -> IO EventSelection eventReadSelection s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSelection) val' <- (newPtr 64 EventSelection) val return val' eventReadOwnerChange :: Event -> IO EventOwnerChange eventReadOwnerChange s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventOwnerChange) val' <- (newPtr 56 EventOwnerChange) val return val' eventReadProximity :: Event -> IO EventProximity eventReadProximity s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProximity) val' <- (newPtr 32 EventProximity) val return val' eventReadDnd :: Event -> IO EventDND eventReadDnd s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventDND) val' <- (newPtr 40 EventDND) val return val' eventReadWindowState :: Event -> IO EventWindowState eventReadWindowState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventWindowState) val' <- (newPtr 32 EventWindowState) val return val' eventReadSetting :: Event -> IO EventSetting eventReadSetting s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSetting) val' <- (newPtr 32 EventSetting) val return val' eventReadGrabBroken :: Event -> IO EventGrabBroken eventReadGrabBroken s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventGrabBroken) val' <- (newPtr 40 EventGrabBroken) val return val' -- method Event::new -- method type : Constructor -- Args : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_event_new" gdk_event_new :: CUInt -> -- type : TInterface "Gdk" "EventType" IO (Ptr Event) eventNew :: (MonadIO m) => EventType -> -- type m Event eventNew type_ = liftIO $ do let type_' = (fromIntegral . fromEnum) type_ result <- gdk_event_new type_' checkUnexpectedReturnNULL "gdk_event_new" result result' <- (wrapBoxed Event) result return result' -- method Event::copy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_event_copy" gdk_event_copy :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr Event) eventCopy :: (MonadIO m) => Event -> -- _obj m Event eventCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_copy _obj' checkUnexpectedReturnNULL "gdk_event_copy" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' -- method Event::free -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_free" gdk_event_free :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO () eventFree :: (MonadIO m) => Event -> -- _obj m () eventFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_event_free _obj' touchManagedPtr _obj return () -- method Event::get_axis -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_axis" gdk_event_get_axis :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" CUInt -> -- axis_use : TInterface "Gdk" "AxisUse" Ptr CDouble -> -- value : TBasicType TDouble IO CInt eventGetAxis :: (MonadIO m) => Event -> -- _obj AxisUse -> -- axis_use m (Bool,Double) eventGetAxis _obj axis_use = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let axis_use' = (fromIntegral . fromEnum) axis_use value <- allocMem :: IO (Ptr CDouble) result <- gdk_event_get_axis _obj' axis_use' value let result' = (/= 0) result value' <- peek value let value'' = realToFrac value' touchManagedPtr _obj freeMem value return (result', value'') -- method Event::get_button -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_button" gdk_event_get_button :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Word32 -> -- button : TBasicType TUInt32 IO CInt eventGetButton :: (MonadIO m) => Event -> -- _obj m (Bool,Word32) eventGetButton _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj button <- allocMem :: IO (Ptr Word32) result <- gdk_event_get_button _obj' button let result' = (/= 0) result button' <- peek button touchManagedPtr _obj freeMem button return (result', button') -- method Event::get_click_count -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "click_count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_click_count" gdk_event_get_click_count :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Word32 -> -- click_count : TBasicType TUInt32 IO CInt eventGetClickCount :: (MonadIO m) => Event -> -- _obj m (Bool,Word32) eventGetClickCount _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj click_count <- allocMem :: IO (Ptr Word32) result <- gdk_event_get_click_count _obj' click_count let result' = (/= 0) result click_count' <- peek click_count touchManagedPtr _obj freeMem click_count return (result', click_count') -- method Event::get_coords -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_coords" gdk_event_get_coords :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr CDouble -> -- x_win : TBasicType TDouble Ptr CDouble -> -- y_win : TBasicType TDouble IO CInt eventGetCoords :: (MonadIO m) => Event -> -- _obj m (Bool,Double,Double) eventGetCoords _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj x_win <- allocMem :: IO (Ptr CDouble) y_win <- allocMem :: IO (Ptr CDouble) result <- gdk_event_get_coords _obj' x_win y_win let result' = (/= 0) result x_win' <- peek x_win let x_win'' = realToFrac x_win' y_win' <- peek y_win let y_win'' = realToFrac y_win' touchManagedPtr _obj freeMem x_win freeMem y_win return (result', x_win'', y_win'') -- method Event::get_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_device" gdk_event_get_device :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr Device) eventGetDevice :: (MonadIO m) => Event -> -- _obj m Device eventGetDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_device _obj' checkUnexpectedReturnNULL "gdk_event_get_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' -- method Event::get_event_sequence -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventSequence" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_event_sequence" gdk_event_get_event_sequence :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr EventSequence) eventGetEventSequence :: (MonadIO m) => Event -> -- _obj m EventSequence eventGetEventSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_event_sequence _obj' checkUnexpectedReturnNULL "gdk_event_get_event_sequence" result result' <- (newBoxed EventSequence) result touchManagedPtr _obj return result' -- method Event::get_event_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventType" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_event_type" gdk_event_get_event_type :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO CUInt eventGetEventType :: (MonadIO m) => Event -> -- _obj m EventType eventGetEventType _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_event_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Event::get_keycode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_keycode" gdk_event_get_keycode :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Word16 -> -- keycode : TBasicType TUInt16 IO CInt eventGetKeycode :: (MonadIO m) => Event -> -- _obj m (Bool,Word16) eventGetKeycode _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj keycode <- allocMem :: IO (Ptr Word16) result <- gdk_event_get_keycode _obj' keycode let result' = (/= 0) result keycode' <- peek keycode touchManagedPtr _obj freeMem keycode return (result', keycode') -- method Event::get_keyval -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_keyval" gdk_event_get_keyval :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Word32 -> -- keyval : TBasicType TUInt32 IO CInt eventGetKeyval :: (MonadIO m) => Event -> -- _obj m (Bool,Word32) eventGetKeyval _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj keyval <- allocMem :: IO (Ptr Word32) result <- gdk_event_get_keyval _obj' keyval let result' = (/= 0) result keyval' <- peek keyval touchManagedPtr _obj freeMem keyval return (result', keyval') -- method Event::get_root_coords -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_root_coords" gdk_event_get_root_coords :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr CDouble -> -- x_root : TBasicType TDouble Ptr CDouble -> -- y_root : TBasicType TDouble IO CInt eventGetRootCoords :: (MonadIO m) => Event -> -- _obj m (Bool,Double,Double) eventGetRootCoords _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj x_root <- allocMem :: IO (Ptr CDouble) y_root <- allocMem :: IO (Ptr CDouble) result <- gdk_event_get_root_coords _obj' x_root y_root let result' = (/= 0) result x_root' <- peek x_root let x_root'' = realToFrac x_root' y_root' <- peek y_root let y_root'' = realToFrac y_root' touchManagedPtr _obj freeMem x_root freeMem y_root return (result', x_root'', y_root'') -- method Event::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_screen" gdk_event_get_screen :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr Screen) eventGetScreen :: (MonadIO m) => Event -> -- _obj m Screen eventGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_screen _obj' checkUnexpectedReturnNULL "gdk_event_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' -- method Event::get_scroll_deltas -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delta_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "delta_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_scroll_deltas" gdk_event_get_scroll_deltas :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr CDouble -> -- delta_x : TBasicType TDouble Ptr CDouble -> -- delta_y : TBasicType TDouble IO CInt eventGetScrollDeltas :: (MonadIO m) => Event -> -- _obj m (Bool,Double,Double) eventGetScrollDeltas _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj delta_x <- allocMem :: IO (Ptr CDouble) delta_y <- allocMem :: IO (Ptr CDouble) result <- gdk_event_get_scroll_deltas _obj' delta_x delta_y let result' = (/= 0) result delta_x' <- peek delta_x let delta_x'' = realToFrac delta_x' delta_y' <- peek delta_y let delta_y'' = realToFrac delta_y' touchManagedPtr _obj freeMem delta_x freeMem delta_y return (result', delta_x'', delta_y'') -- method Event::get_scroll_direction -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gdk" "ScrollDirection", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_scroll_direction" gdk_event_get_scroll_direction :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr CUInt -> -- direction : TInterface "Gdk" "ScrollDirection" IO CInt eventGetScrollDirection :: (MonadIO m) => Event -> -- _obj m (Bool,ScrollDirection) eventGetScrollDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj direction <- allocMem :: IO (Ptr CUInt) result <- gdk_event_get_scroll_direction _obj' direction let result' = (/= 0) result direction' <- peek direction let direction'' = (toEnum . fromIntegral) direction' touchManagedPtr _obj freeMem direction return (result', direction'') -- method Event::get_source_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Device" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_source_device" gdk_event_get_source_device :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr Device) eventGetSourceDevice :: (MonadIO m) => Event -> -- _obj m Device eventGetSourceDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_source_device _obj' checkUnexpectedReturnNULL "gdk_event_get_source_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' -- method Event::get_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_state" gdk_event_get_state :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" IO CInt eventGetState :: (MonadIO m) => Event -> -- _obj m (Bool,[ModifierType]) eventGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj state <- allocMem :: IO (Ptr CUInt) result <- gdk_event_get_state _obj' state let result' = (/= 0) result state' <- peek state let state'' = wordToGFlags state' touchManagedPtr _obj freeMem state return (result', state'') -- method Event::get_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_time" gdk_event_get_time :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO Word32 eventGetTime :: (MonadIO m) => Event -> -- _obj m Word32 eventGetTime _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_time _obj' touchManagedPtr _obj return result -- method Event::get_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get_window" gdk_event_get_window :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO (Ptr Window) eventGetWindow :: (MonadIO m) => Event -> -- _obj m Window eventGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_window _obj' checkUnexpectedReturnNULL "gdk_event_get_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Event::put -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_put" gdk_event_put :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO () eventPut :: (MonadIO m) => Event -> -- _obj m () eventPut _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_event_put _obj' touchManagedPtr _obj return () -- method Event::set_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_set_device" gdk_event_set_device :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Device -> -- device : TInterface "Gdk" "Device" IO () eventSetDevice :: (MonadIO m, DeviceK a) => Event -> -- _obj a -> -- device m () eventSetDevice _obj device = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let device' = unsafeManagedPtrCastPtr device gdk_event_set_device _obj' device' touchManagedPtr _obj touchManagedPtr device return () -- method Event::set_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_set_screen" gdk_event_set_screen :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Screen -> -- screen : TInterface "Gdk" "Screen" IO () eventSetScreen :: (MonadIO m, ScreenK a) => Event -> -- _obj a -> -- screen m () eventSetScreen _obj screen = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let screen' = unsafeManagedPtrCastPtr screen gdk_event_set_screen _obj' screen' touchManagedPtr _obj touchManagedPtr screen return () -- method Event::set_source_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_set_source_device" gdk_event_set_source_device :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" Ptr Device -> -- device : TInterface "Gdk" "Device" IO () eventSetSourceDevice :: (MonadIO m, DeviceK a) => Event -> -- _obj a -> -- device m () eventSetSourceDevice _obj device = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let device' = unsafeManagedPtrCastPtr device gdk_event_set_source_device _obj' device' touchManagedPtr _obj touchManagedPtr device return () -- method Event::triggers_context_menu -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_event_triggers_context_menu" gdk_event_triggers_context_menu :: Ptr Event -> -- _obj : TInterface "Gdk" "Event" IO CInt eventTriggersContextMenu :: (MonadIO m) => Event -> -- _obj m Bool eventTriggersContextMenu _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_triggers_context_menu _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- struct EventAny newtype EventAny = EventAny (ForeignPtr EventAny) noEventAny :: Maybe EventAny noEventAny = Nothing eventAnyReadType :: EventAny -> IO EventType eventAnyReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventAnyReadWindow :: EventAny -> IO Window eventAnyReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventAnyReadSendEvent :: EventAny -> IO Int8 eventAnyReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val -- struct EventButton newtype EventButton = EventButton (ForeignPtr EventButton) noEventButton :: Maybe EventButton noEventButton = Nothing eventButtonReadType :: EventButton -> IO EventType eventButtonReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventButtonReadWindow :: EventButton -> IO Window eventButtonReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventButtonReadSendEvent :: EventButton -> IO Int8 eventButtonReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventButtonReadTime :: EventButton -> IO Word32 eventButtonReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventButtonReadX :: EventButton -> IO Double eventButtonReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CDouble let val' = realToFrac val return val' eventButtonReadY :: EventButton -> IO Double eventButtonReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CDouble let val' = realToFrac val return val' eventButtonReadAxes :: EventButton -> IO Double eventButtonReadAxes s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CDouble let val' = realToFrac val return val' eventButtonReadState :: EventButton -> IO [ModifierType] eventButtonReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CUInt let val' = wordToGFlags val return val' eventButtonReadButton :: EventButton -> IO Word32 eventButtonReadButton s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 52) :: IO Word32 return val eventButtonReadDevice :: EventButton -> IO Device eventButtonReadDevice s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device) val' <- (newObject Device) val return val' eventButtonReadXRoot :: EventButton -> IO Double eventButtonReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CDouble let val' = realToFrac val return val' eventButtonReadYRoot :: EventButton -> IO Double eventButtonReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CDouble let val' = realToFrac val return val' -- struct EventConfigure newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure) noEventConfigure :: Maybe EventConfigure noEventConfigure = Nothing eventConfigureReadType :: EventConfigure -> IO EventType eventConfigureReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventConfigureReadWindow :: EventConfigure -> IO Window eventConfigureReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventConfigureReadSendEvent :: EventConfigure -> IO Int8 eventConfigureReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventConfigureReadX :: EventConfigure -> IO Int32 eventConfigureReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Int32 return val eventConfigureReadY :: EventConfigure -> IO Int32 eventConfigureReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Int32 return val eventConfigureReadWidth :: EventConfigure -> IO Int32 eventConfigureReadWidth s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO Int32 return val eventConfigureReadHeight :: EventConfigure -> IO Int32 eventConfigureReadHeight s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Int32 return val -- struct EventCrossing newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing) noEventCrossing :: Maybe EventCrossing noEventCrossing = Nothing eventCrossingReadType :: EventCrossing -> IO EventType eventCrossingReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventCrossingReadWindow :: EventCrossing -> IO Window eventCrossingReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventCrossingReadSendEvent :: EventCrossing -> IO Int8 eventCrossingReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventCrossingReadSubwindow :: EventCrossing -> IO Window eventCrossingReadSubwindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventCrossingReadTime :: EventCrossing -> IO Word32 eventCrossingReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val eventCrossingReadX :: EventCrossing -> IO Double eventCrossingReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CDouble let val' = realToFrac val return val' eventCrossingReadY :: EventCrossing -> IO Double eventCrossingReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CDouble let val' = realToFrac val return val' eventCrossingReadXRoot :: EventCrossing -> IO Double eventCrossingReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO CDouble let val' = realToFrac val return val' eventCrossingReadYRoot :: EventCrossing -> IO Double eventCrossingReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CDouble let val' = realToFrac val return val' eventCrossingReadMode :: EventCrossing -> IO CrossingMode eventCrossingReadMode s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventCrossingReadDetail :: EventCrossing -> IO NotifyType eventCrossingReadDetail s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 76) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventCrossingReadFocus :: EventCrossing -> IO Bool eventCrossingReadFocus s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 80) :: IO CInt let val' = (/= 0) val return val' eventCrossingReadState :: EventCrossing -> IO [ModifierType] eventCrossingReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 84) :: IO CUInt let val' = wordToGFlags val return val' -- struct EventDND newtype EventDND = EventDND (ForeignPtr EventDND) noEventDND :: Maybe EventDND noEventDND = Nothing eventDNDReadType :: EventDND -> IO EventType eventDNDReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventDNDReadWindow :: EventDND -> IO Window eventDNDReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventDNDReadSendEvent :: EventDND -> IO Int8 eventDNDReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventDNDReadContext :: EventDND -> IO DragContext eventDNDReadContext s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr DragContext) val' <- (newObject DragContext) val return val' eventDNDReadTime :: EventDND -> IO Word32 eventDNDReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val eventDNDReadXRoot :: EventDND -> IO Int16 eventDNDReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 36) :: IO Int16 return val eventDNDReadYRoot :: EventDND -> IO Int16 eventDNDReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 38) :: IO Int16 return val -- struct EventExpose newtype EventExpose = EventExpose (ForeignPtr EventExpose) noEventExpose :: Maybe EventExpose noEventExpose = Nothing eventExposeReadType :: EventExpose -> IO EventType eventExposeReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventExposeReadWindow :: EventExpose -> IO Window eventExposeReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventExposeReadSendEvent :: EventExpose -> IO Int8 eventExposeReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventExposeReadArea :: EventExpose -> IO Cairo.RectangleInt eventExposeReadArea s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO (Ptr Cairo.RectangleInt) val' <- (newBoxed Cairo.RectangleInt) val return val' eventExposeReadRegion :: EventExpose -> IO Cairo.Region eventExposeReadRegion s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr Cairo.Region) val' <- (newBoxed Cairo.Region) val return val' eventExposeReadCount :: EventExpose -> IO Int32 eventExposeReadCount s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Int32 return val -- struct EventFocus newtype EventFocus = EventFocus (ForeignPtr EventFocus) noEventFocus :: Maybe EventFocus noEventFocus = Nothing eventFocusReadType :: EventFocus -> IO EventType eventFocusReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventFocusReadWindow :: EventFocus -> IO Window eventFocusReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventFocusReadSendEvent :: EventFocus -> IO Int8 eventFocusReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventFocusReadIn :: EventFocus -> IO Int16 eventFocusReadIn s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 18) :: IO Int16 return val -- callback EventFunc eventFuncClosure :: EventFunc -> IO Closure eventFuncClosure cb = newCClosure =<< mkEventFunc wrapped where wrapped = eventFuncWrapper Nothing cb type EventFuncC = Ptr Event -> Ptr () -> IO () foreign import ccall "wrapper" mkEventFunc :: EventFuncC -> IO (FunPtr EventFuncC) type EventFunc = Event -> IO () noEventFunc :: Maybe EventFunc noEventFunc = Nothing eventFuncWrapper :: Maybe (Ptr (FunPtr (EventFuncC))) -> EventFunc -> Ptr Event -> Ptr () -> IO () eventFuncWrapper funptrptr _cb event _ = do event' <- (newBoxed Event) event _cb event' maybeReleaseFunPtr funptrptr -- struct EventGrabBroken newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken) noEventGrabBroken :: Maybe EventGrabBroken noEventGrabBroken = Nothing eventGrabBrokenReadType :: EventGrabBroken -> IO EventType eventGrabBrokenReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventGrabBrokenReadWindow :: EventGrabBroken -> IO Window eventGrabBrokenReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventGrabBrokenReadSendEvent :: EventGrabBroken -> IO Int8 eventGrabBrokenReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventGrabBrokenReadKeyboard :: EventGrabBroken -> IO Bool eventGrabBrokenReadKeyboard s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO CInt let val' = (/= 0) val return val' eventGrabBrokenReadImplicit :: EventGrabBroken -> IO Bool eventGrabBrokenReadImplicit s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CInt let val' = (/= 0) val return val' eventGrabBrokenReadGrabWindow :: EventGrabBroken -> IO Window eventGrabBrokenReadGrabWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr Window) val' <- (newObject Window) val return val' -- struct EventKey newtype EventKey = EventKey (ForeignPtr EventKey) noEventKey :: Maybe EventKey noEventKey = Nothing eventKeyReadType :: EventKey -> IO EventType eventKeyReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventKeyReadWindow :: EventKey -> IO Window eventKeyReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventKeyReadSendEvent :: EventKey -> IO Int8 eventKeyReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventKeyReadTime :: EventKey -> IO Word32 eventKeyReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventKeyReadState :: EventKey -> IO [ModifierType] eventKeyReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CUInt let val' = wordToGFlags val return val' eventKeyReadKeyval :: EventKey -> IO Word32 eventKeyReadKeyval s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO Word32 return val eventKeyReadLength :: EventKey -> IO Int32 eventKeyReadLength s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Int32 return val eventKeyReadString :: EventKey -> IO T.Text eventKeyReadString s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CString val' <- cstringToText val return val' eventKeyReadHardwareKeycode :: EventKey -> IO Word16 eventKeyReadHardwareKeycode s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Word16 return val eventKeyReadGroup :: EventKey -> IO Word8 eventKeyReadGroup s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 50) :: IO Word8 return val eventKeyReadIsModifier :: EventKey -> IO Word32 eventKeyReadIsModifier s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 52) :: IO Word32 return val -- Flags EventMask data EventMask = EventMaskExposureMask | EventMaskPointerMotionMask | EventMaskPointerMotionHintMask | EventMaskButtonMotionMask | EventMaskButton1MotionMask | EventMaskButton2MotionMask | EventMaskButton3MotionMask | EventMaskButtonPressMask | EventMaskButtonReleaseMask | EventMaskKeyPressMask | EventMaskKeyReleaseMask | EventMaskEnterNotifyMask | EventMaskLeaveNotifyMask | EventMaskFocusChangeMask | EventMaskStructureMask | EventMaskPropertyChangeMask | EventMaskVisibilityNotifyMask | EventMaskProximityInMask | EventMaskProximityOutMask | EventMaskSubstructureMask | EventMaskScrollMask | EventMaskTouchMask | EventMaskSmoothScrollMask | EventMaskAllEventsMask | AnotherEventMask Int deriving (Show, Eq) instance Enum EventMask where fromEnum EventMaskExposureMask = 2 fromEnum EventMaskPointerMotionMask = 4 fromEnum EventMaskPointerMotionHintMask = 8 fromEnum EventMaskButtonMotionMask = 16 fromEnum EventMaskButton1MotionMask = 32 fromEnum EventMaskButton2MotionMask = 64 fromEnum EventMaskButton3MotionMask = 128 fromEnum EventMaskButtonPressMask = 256 fromEnum EventMaskButtonReleaseMask = 512 fromEnum EventMaskKeyPressMask = 1024 fromEnum EventMaskKeyReleaseMask = 2048 fromEnum EventMaskEnterNotifyMask = 4096 fromEnum EventMaskLeaveNotifyMask = 8192 fromEnum EventMaskFocusChangeMask = 16384 fromEnum EventMaskStructureMask = 32768 fromEnum EventMaskPropertyChangeMask = 65536 fromEnum EventMaskVisibilityNotifyMask = 131072 fromEnum EventMaskProximityInMask = 262144 fromEnum EventMaskProximityOutMask = 524288 fromEnum EventMaskSubstructureMask = 1048576 fromEnum EventMaskScrollMask = 2097152 fromEnum EventMaskTouchMask = 4194304 fromEnum EventMaskSmoothScrollMask = 8388608 fromEnum EventMaskAllEventsMask = 16777214 fromEnum (AnotherEventMask k) = k toEnum 2 = EventMaskExposureMask toEnum 4 = EventMaskPointerMotionMask toEnum 8 = EventMaskPointerMotionHintMask toEnum 16 = EventMaskButtonMotionMask toEnum 32 = EventMaskButton1MotionMask toEnum 64 = EventMaskButton2MotionMask toEnum 128 = EventMaskButton3MotionMask toEnum 256 = EventMaskButtonPressMask toEnum 512 = EventMaskButtonReleaseMask toEnum 1024 = EventMaskKeyPressMask toEnum 2048 = EventMaskKeyReleaseMask toEnum 4096 = EventMaskEnterNotifyMask toEnum 8192 = EventMaskLeaveNotifyMask toEnum 16384 = EventMaskFocusChangeMask toEnum 32768 = EventMaskStructureMask toEnum 65536 = EventMaskPropertyChangeMask toEnum 131072 = EventMaskVisibilityNotifyMask toEnum 262144 = EventMaskProximityInMask toEnum 524288 = EventMaskProximityOutMask toEnum 1048576 = EventMaskSubstructureMask toEnum 2097152 = EventMaskScrollMask toEnum 4194304 = EventMaskTouchMask toEnum 8388608 = EventMaskSmoothScrollMask toEnum 16777214 = EventMaskAllEventsMask toEnum k = AnotherEventMask k foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type :: IO GType instance BoxedEnum EventMask where boxedEnumType _ = c_gdk_event_mask_get_type instance IsGFlag EventMask -- struct EventMotion newtype EventMotion = EventMotion (ForeignPtr EventMotion) noEventMotion :: Maybe EventMotion noEventMotion = Nothing eventMotionReadType :: EventMotion -> IO EventType eventMotionReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventMotionReadWindow :: EventMotion -> IO Window eventMotionReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventMotionReadSendEvent :: EventMotion -> IO Int8 eventMotionReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventMotionReadTime :: EventMotion -> IO Word32 eventMotionReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventMotionReadX :: EventMotion -> IO Double eventMotionReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CDouble let val' = realToFrac val return val' eventMotionReadY :: EventMotion -> IO Double eventMotionReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CDouble let val' = realToFrac val return val' eventMotionReadAxes :: EventMotion -> IO Double eventMotionReadAxes s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CDouble let val' = realToFrac val return val' eventMotionReadState :: EventMotion -> IO [ModifierType] eventMotionReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CUInt let val' = wordToGFlags val return val' eventMotionReadIsHint :: EventMotion -> IO Int16 eventMotionReadIsHint s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 52) :: IO Int16 return val eventMotionReadDevice :: EventMotion -> IO Device eventMotionReadDevice s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device) val' <- (newObject Device) val return val' eventMotionReadXRoot :: EventMotion -> IO Double eventMotionReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CDouble let val' = realToFrac val return val' eventMotionReadYRoot :: EventMotion -> IO Double eventMotionReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CDouble let val' = realToFrac val return val' -- struct EventOwnerChange newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange) noEventOwnerChange :: Maybe EventOwnerChange noEventOwnerChange = Nothing eventOwnerChangeReadType :: EventOwnerChange -> IO EventType eventOwnerChangeReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventOwnerChangeReadWindow :: EventOwnerChange -> IO Window eventOwnerChangeReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventOwnerChangeReadSendEvent :: EventOwnerChange -> IO Int8 eventOwnerChangeReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventOwnerChangeReadOwner :: EventOwnerChange -> IO Window eventOwnerChangeReadOwner s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventOwnerChangeReadReason :: EventOwnerChange -> IO OwnerChange eventOwnerChangeReadReason s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventOwnerChangeReadSelection :: EventOwnerChange -> IO Atom eventOwnerChangeReadSelection s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom) -- XXX Wrapping a foreign struct/union with no known destructor, leak? val' <- (\x -> Atom <$> newForeignPtr_ x) val return val' eventOwnerChangeReadTime :: EventOwnerChange -> IO Word32 eventOwnerChangeReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Word32 return val eventOwnerChangeReadSelectionTime :: EventOwnerChange -> IO Word32 eventOwnerChangeReadSelectionTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 52) :: IO Word32 return val -- struct EventProperty newtype EventProperty = EventProperty (ForeignPtr EventProperty) noEventProperty :: Maybe EventProperty noEventProperty = Nothing eventPropertyReadType :: EventProperty -> IO EventType eventPropertyReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventPropertyReadWindow :: EventProperty -> IO Window eventPropertyReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventPropertyReadSendEvent :: EventProperty -> IO Int8 eventPropertyReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventPropertyReadAtom :: EventProperty -> IO Atom eventPropertyReadAtom s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom) -- XXX Wrapping a foreign struct/union with no known destructor, leak? val' <- (\x -> Atom <$> newForeignPtr_ x) val return val' eventPropertyReadTime :: EventProperty -> IO Word32 eventPropertyReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val eventPropertyReadState :: EventProperty -> IO PropertyState eventPropertyReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 36) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -- struct EventProximity newtype EventProximity = EventProximity (ForeignPtr EventProximity) noEventProximity :: Maybe EventProximity noEventProximity = Nothing eventProximityReadType :: EventProximity -> IO EventType eventProximityReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventProximityReadWindow :: EventProximity -> IO Window eventProximityReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventProximityReadSendEvent :: EventProximity -> IO Int8 eventProximityReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventProximityReadTime :: EventProximity -> IO Word32 eventProximityReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventProximityReadDevice :: EventProximity -> IO Device eventProximityReadDevice s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr Device) val' <- (newObject Device) val return val' -- struct EventScroll newtype EventScroll = EventScroll (ForeignPtr EventScroll) noEventScroll :: Maybe EventScroll noEventScroll = Nothing eventScrollReadType :: EventScroll -> IO EventType eventScrollReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventScrollReadWindow :: EventScroll -> IO Window eventScrollReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventScrollReadSendEvent :: EventScroll -> IO Int8 eventScrollReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventScrollReadTime :: EventScroll -> IO Word32 eventScrollReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventScrollReadX :: EventScroll -> IO Double eventScrollReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CDouble let val' = realToFrac val return val' eventScrollReadY :: EventScroll -> IO Double eventScrollReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CDouble let val' = realToFrac val return val' eventScrollReadState :: EventScroll -> IO [ModifierType] eventScrollReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CUInt let val' = wordToGFlags val return val' eventScrollReadDirection :: EventScroll -> IO ScrollDirection eventScrollReadDirection s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 44) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventScrollReadDevice :: EventScroll -> IO Device eventScrollReadDevice s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device) val' <- (newObject Device) val return val' eventScrollReadXRoot :: EventScroll -> IO Double eventScrollReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO CDouble let val' = realToFrac val return val' eventScrollReadYRoot :: EventScroll -> IO Double eventScrollReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CDouble let val' = realToFrac val return val' eventScrollReadDeltaX :: EventScroll -> IO Double eventScrollReadDeltaX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CDouble let val' = realToFrac val return val' eventScrollReadDeltaY :: EventScroll -> IO Double eventScrollReadDeltaY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 80) :: IO CDouble let val' = realToFrac val return val' -- struct EventSelection newtype EventSelection = EventSelection (ForeignPtr EventSelection) noEventSelection :: Maybe EventSelection noEventSelection = Nothing eventSelectionReadType :: EventSelection -> IO EventType eventSelectionReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventSelectionReadWindow :: EventSelection -> IO Window eventSelectionReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventSelectionReadSendEvent :: EventSelection -> IO Int8 eventSelectionReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventSelectionReadSelection :: EventSelection -> IO Atom eventSelectionReadSelection s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom) -- XXX Wrapping a foreign struct/union with no known destructor, leak? val' <- (\x -> Atom <$> newForeignPtr_ x) val return val' eventSelectionReadTarget :: EventSelection -> IO Atom eventSelectionReadTarget s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr Atom) -- XXX Wrapping a foreign struct/union with no known destructor, leak? val' <- (\x -> Atom <$> newForeignPtr_ x) val return val' eventSelectionReadProperty :: EventSelection -> IO Atom eventSelectionReadProperty s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom) -- XXX Wrapping a foreign struct/union with no known destructor, leak? val' <- (\x -> Atom <$> newForeignPtr_ x) val return val' eventSelectionReadTime :: EventSelection -> IO Word32 eventSelectionReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Word32 return val eventSelectionReadRequestor :: EventSelection -> IO Window eventSelectionReadRequestor s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO (Ptr Window) val' <- (newObject Window) val return val' -- struct EventSequence newtype EventSequence = EventSequence (ForeignPtr EventSequence) noEventSequence :: Maybe EventSequence noEventSequence = Nothing foreign import ccall "gdk_event_sequence_get_type" c_gdk_event_sequence_get_type :: IO GType instance BoxedObject EventSequence where boxedType _ = c_gdk_event_sequence_get_type -- struct EventSetting newtype EventSetting = EventSetting (ForeignPtr EventSetting) noEventSetting :: Maybe EventSetting noEventSetting = Nothing eventSettingReadType :: EventSetting -> IO EventType eventSettingReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventSettingReadWindow :: EventSetting -> IO Window eventSettingReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventSettingReadSendEvent :: EventSetting -> IO Int8 eventSettingReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventSettingReadAction :: EventSetting -> IO SettingAction eventSettingReadAction s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventSettingReadName :: EventSetting -> IO T.Text eventSettingReadName s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString val' <- cstringToText val return val' -- struct EventTouch newtype EventTouch = EventTouch (ForeignPtr EventTouch) noEventTouch :: Maybe EventTouch noEventTouch = Nothing eventTouchReadType :: EventTouch -> IO EventType eventTouchReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventTouchReadWindow :: EventTouch -> IO Window eventTouchReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventTouchReadSendEvent :: EventTouch -> IO Int8 eventTouchReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventTouchReadTime :: EventTouch -> IO Word32 eventTouchReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val eventTouchReadX :: EventTouch -> IO Double eventTouchReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CDouble let val' = realToFrac val return val' eventTouchReadY :: EventTouch -> IO Double eventTouchReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CDouble let val' = realToFrac val return val' eventTouchReadAxes :: EventTouch -> IO Double eventTouchReadAxes s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CDouble let val' = realToFrac val return val' eventTouchReadState :: EventTouch -> IO [ModifierType] eventTouchReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CUInt let val' = wordToGFlags val return val' eventTouchReadSequence :: EventTouch -> IO EventSequence eventTouchReadSequence s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO (Ptr EventSequence) val' <- (newBoxed EventSequence) val return val' eventTouchReadEmulatingPointer :: EventTouch -> IO Bool eventTouchReadEmulatingPointer s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CInt let val' = (/= 0) val return val' eventTouchReadDevice :: EventTouch -> IO Device eventTouchReadDevice s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO (Ptr Device) val' <- (newObject Device) val return val' eventTouchReadXRoot :: EventTouch -> IO Double eventTouchReadXRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 80) :: IO CDouble let val' = realToFrac val return val' eventTouchReadYRoot :: EventTouch -> IO Double eventTouchReadYRoot s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 88) :: IO CDouble let val' = realToFrac val return val' -- Enum EventType data EventType = EventTypeNothing | EventTypeDelete | EventTypeDestroy | EventTypeExpose | EventTypeMotionNotify | EventTypeButtonPress | EventType2buttonPress | EventTypeDoubleButtonPress | EventType3buttonPress | EventTypeTripleButtonPress | EventTypeButtonRelease | EventTypeKeyPress | EventTypeKeyRelease | EventTypeEnterNotify | EventTypeLeaveNotify | EventTypeFocusChange | EventTypeConfigure | EventTypeMap | EventTypeUnmap | EventTypePropertyNotify | EventTypeSelectionClear | EventTypeSelectionRequest | EventTypeSelectionNotify | EventTypeProximityIn | EventTypeProximityOut | EventTypeDragEnter | EventTypeDragLeave | EventTypeDragMotion | EventTypeDragStatus | EventTypeDropStart | EventTypeDropFinished | EventTypeClientEvent | EventTypeVisibilityNotify | EventTypeScroll | EventTypeWindowState | EventTypeSetting | EventTypeOwnerChange | EventTypeGrabBroken | EventTypeDamage | EventTypeTouchBegin | EventTypeTouchUpdate | EventTypeTouchEnd | EventTypeTouchCancel | EventTypeEventLast | AnotherEventType Int deriving (Show, Eq) instance Enum EventType where fromEnum EventTypeNothing = -1 fromEnum EventTypeDelete = 0 fromEnum EventTypeDestroy = 1 fromEnum EventTypeExpose = 2 fromEnum EventTypeMotionNotify = 3 fromEnum EventTypeButtonPress = 4 fromEnum EventType2buttonPress = 5 fromEnum EventTypeDoubleButtonPress = 5 fromEnum EventType3buttonPress = 6 fromEnum EventTypeTripleButtonPress = 6 fromEnum EventTypeButtonRelease = 7 fromEnum EventTypeKeyPress = 8 fromEnum EventTypeKeyRelease = 9 fromEnum EventTypeEnterNotify = 10 fromEnum EventTypeLeaveNotify = 11 fromEnum EventTypeFocusChange = 12 fromEnum EventTypeConfigure = 13 fromEnum EventTypeMap = 14 fromEnum EventTypeUnmap = 15 fromEnum EventTypePropertyNotify = 16 fromEnum EventTypeSelectionClear = 17 fromEnum EventTypeSelectionRequest = 18 fromEnum EventTypeSelectionNotify = 19 fromEnum EventTypeProximityIn = 20 fromEnum EventTypeProximityOut = 21 fromEnum EventTypeDragEnter = 22 fromEnum EventTypeDragLeave = 23 fromEnum EventTypeDragMotion = 24 fromEnum EventTypeDragStatus = 25 fromEnum EventTypeDropStart = 26 fromEnum EventTypeDropFinished = 27 fromEnum EventTypeClientEvent = 28 fromEnum EventTypeVisibilityNotify = 29 fromEnum EventTypeScroll = 31 fromEnum EventTypeWindowState = 32 fromEnum EventTypeSetting = 33 fromEnum EventTypeOwnerChange = 34 fromEnum EventTypeGrabBroken = 35 fromEnum EventTypeDamage = 36 fromEnum EventTypeTouchBegin = 37 fromEnum EventTypeTouchUpdate = 38 fromEnum EventTypeTouchEnd = 39 fromEnum EventTypeTouchCancel = 40 fromEnum EventTypeEventLast = 41 fromEnum (AnotherEventType k) = k toEnum -1 = EventTypeNothing toEnum 0 = EventTypeDelete toEnum 1 = EventTypeDestroy toEnum 2 = EventTypeExpose toEnum 3 = EventTypeMotionNotify toEnum 4 = EventTypeButtonPress toEnum 5 = EventType2buttonPress toEnum 6 = EventType3buttonPress toEnum 7 = EventTypeButtonRelease toEnum 8 = EventTypeKeyPress toEnum 9 = EventTypeKeyRelease toEnum 10 = EventTypeEnterNotify toEnum 11 = EventTypeLeaveNotify toEnum 12 = EventTypeFocusChange toEnum 13 = EventTypeConfigure toEnum 14 = EventTypeMap toEnum 15 = EventTypeUnmap toEnum 16 = EventTypePropertyNotify toEnum 17 = EventTypeSelectionClear toEnum 18 = EventTypeSelectionRequest toEnum 19 = EventTypeSelectionNotify toEnum 20 = EventTypeProximityIn toEnum 21 = EventTypeProximityOut toEnum 22 = EventTypeDragEnter toEnum 23 = EventTypeDragLeave toEnum 24 = EventTypeDragMotion toEnum 25 = EventTypeDragStatus toEnum 26 = EventTypeDropStart toEnum 27 = EventTypeDropFinished toEnum 28 = EventTypeClientEvent toEnum 29 = EventTypeVisibilityNotify toEnum 31 = EventTypeScroll toEnum 32 = EventTypeWindowState toEnum 33 = EventTypeSetting toEnum 34 = EventTypeOwnerChange toEnum 35 = EventTypeGrabBroken toEnum 36 = EventTypeDamage toEnum 37 = EventTypeTouchBegin toEnum 38 = EventTypeTouchUpdate toEnum 39 = EventTypeTouchEnd toEnum 40 = EventTypeTouchCancel toEnum 41 = EventTypeEventLast toEnum k = AnotherEventType k foreign import ccall "gdk_event_type_get_type" c_gdk_event_type_get_type :: IO GType instance BoxedEnum EventType where boxedEnumType _ = c_gdk_event_type_get_type -- struct EventVisibility newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility) noEventVisibility :: Maybe EventVisibility noEventVisibility = Nothing eventVisibilityReadType :: EventVisibility -> IO EventType eventVisibilityReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventVisibilityReadWindow :: EventVisibility -> IO Window eventVisibilityReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventVisibilityReadSendEvent :: EventVisibility -> IO Int8 eventVisibilityReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventVisibilityReadState :: EventVisibility -> IO VisibilityState eventVisibilityReadState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -- struct EventWindowState newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState) noEventWindowState :: Maybe EventWindowState noEventWindowState = Nothing eventWindowStateReadType :: EventWindowState -> IO EventType eventWindowStateReadType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' eventWindowStateReadWindow :: EventWindowState -> IO Window eventWindowStateReadWindow s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) val' <- (newObject Window) val return val' eventWindowStateReadSendEvent :: EventWindowState -> IO Int8 eventWindowStateReadSendEvent s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int8 return val eventWindowStateReadChangedMask :: EventWindowState -> IO [WindowState] eventWindowStateReadChangedMask s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO CUInt let val' = wordToGFlags val return val' eventWindowStateReadNewWindowState :: EventWindowState -> IO [WindowState] eventWindowStateReadNewWindowState s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CUInt let val' = wordToGFlags val return val' -- callback FilterFunc filterFuncClosure :: FilterFunc -> IO Closure filterFuncClosure cb = newCClosure =<< mkFilterFunc wrapped where wrapped = filterFuncWrapper Nothing cb type FilterFuncC = Ptr () -> Ptr Event -> Ptr () -> IO CUInt foreign import ccall "wrapper" mkFilterFunc :: FilterFuncC -> IO (FunPtr FilterFuncC) type FilterFunc = Ptr () -> Event -> IO FilterReturn noFilterFunc :: Maybe FilterFunc noFilterFunc = Nothing filterFuncWrapper :: Maybe (Ptr (FunPtr (FilterFuncC))) -> FilterFunc -> Ptr () -> Ptr Event -> Ptr () -> IO CUInt filterFuncWrapper funptrptr _cb xevent event _ = do event' <- (newBoxed Event) event result <- _cb xevent event' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' -- Enum FilterReturn data FilterReturn = FilterReturnContinue | FilterReturnTranslate | FilterReturnRemove | AnotherFilterReturn Int deriving (Show, Eq) instance Enum FilterReturn where fromEnum FilterReturnContinue = 0 fromEnum FilterReturnTranslate = 1 fromEnum FilterReturnRemove = 2 fromEnum (AnotherFilterReturn k) = k toEnum 0 = FilterReturnContinue toEnum 1 = FilterReturnTranslate toEnum 2 = FilterReturnRemove toEnum k = AnotherFilterReturn k foreign import ccall "gdk_filter_return_get_type" c_gdk_filter_return_get_type :: IO GType instance BoxedEnum FilterReturn where boxedEnumType _ = c_gdk_filter_return_get_type -- object FrameClock newtype FrameClock = FrameClock (ForeignPtr FrameClock) noFrameClock :: Maybe FrameClock noFrameClock = Nothing foreign import ccall "gdk_frame_clock_get_type" c_gdk_frame_clock_get_type :: IO GType type instance ParentTypes FrameClock = '[GObject.Object] instance GObject FrameClock where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_frame_clock_get_type class GObject o => FrameClockK o instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o toFrameClock :: FrameClockK o => o -> IO FrameClock toFrameClock = unsafeCastTo FrameClock -- method FrameClock::begin_updating -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_begin_updating" gdk_frame_clock_begin_updating :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO () frameClockBeginUpdating :: (MonadIO m, FrameClockK a) => a -> -- _obj m () frameClockBeginUpdating _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_frame_clock_begin_updating _obj' touchManagedPtr _obj return () -- method FrameClock::end_updating -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_end_updating" gdk_frame_clock_end_updating :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO () frameClockEndUpdating :: (MonadIO m, FrameClockK a) => a -> -- _obj m () frameClockEndUpdating _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_frame_clock_end_updating _obj' touchManagedPtr _obj return () -- method FrameClock::get_current_timings -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FrameTimings" -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_current_timings" gdk_frame_clock_get_current_timings :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO (Ptr FrameTimings) frameClockGetCurrentTimings :: (MonadIO m, FrameClockK a) => a -> -- _obj m FrameTimings frameClockGetCurrentTimings _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_current_timings _obj' checkUnexpectedReturnNULL "gdk_frame_clock_get_current_timings" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' -- method FrameClock::get_frame_counter -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_frame_counter" gdk_frame_clock_get_frame_counter :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO Int64 frameClockGetFrameCounter :: (MonadIO m, FrameClockK a) => a -> -- _obj m Int64 frameClockGetFrameCounter _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_frame_counter _obj' touchManagedPtr _obj return result -- method FrameClock::get_frame_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_frame_time" gdk_frame_clock_get_frame_time :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO Int64 frameClockGetFrameTime :: (MonadIO m, FrameClockK a) => a -> -- _obj m Int64 frameClockGetFrameTime _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_frame_time _obj' touchManagedPtr _obj return result -- method FrameClock::get_history_start -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_history_start" gdk_frame_clock_get_history_start :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" IO Int64 frameClockGetHistoryStart :: (MonadIO m, FrameClockK a) => a -> -- _obj m Int64 frameClockGetHistoryStart _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_history_start _obj' touchManagedPtr _obj return result -- method FrameClock::get_refresh_info -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_refresh_info" gdk_frame_clock_get_refresh_info :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" Int64 -> -- base_time : TBasicType TInt64 Int64 -> -- refresh_interval_return : TBasicType TInt64 Int64 -> -- presentation_time_return : TBasicType TInt64 IO () frameClockGetRefreshInfo :: (MonadIO m, FrameClockK a) => a -> -- _obj Int64 -> -- base_time Int64 -> -- refresh_interval_return Int64 -> -- presentation_time_return m () frameClockGetRefreshInfo _obj base_time refresh_interval_return presentation_time_return = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_frame_clock_get_refresh_info _obj' base_time refresh_interval_return presentation_time_return touchManagedPtr _obj return () -- method FrameClock::get_timings -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FrameTimings" -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_get_timings" gdk_frame_clock_get_timings :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" Int64 -> -- frame_counter : TBasicType TInt64 IO (Ptr FrameTimings) frameClockGetTimings :: (MonadIO m, FrameClockK a) => a -> -- _obj Int64 -> -- frame_counter m FrameTimings frameClockGetTimings _obj frame_counter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_timings _obj' frame_counter checkUnexpectedReturnNULL "gdk_frame_clock_get_timings" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' -- method FrameClock::request_phase -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_frame_clock_request_phase" gdk_frame_clock_request_phase :: Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" CUInt -> -- phase : TInterface "Gdk" "FrameClockPhase" IO () frameClockRequestPhase :: (MonadIO m, FrameClockK a) => a -> -- _obj [FrameClockPhase] -> -- phase m () frameClockRequestPhase _obj phase = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let phase' = gflagsToWord phase gdk_frame_clock_request_phase _obj' phase' touchManagedPtr _obj return () -- signal FrameClock::after-paint type FrameClockAfterPaintCallback = IO () noFrameClockAfterPaintCallback :: Maybe FrameClockAfterPaintCallback noFrameClockAfterPaintCallback = Nothing type FrameClockAfterPaintCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockAfterPaintCallback :: FrameClockAfterPaintCallbackC -> IO (FunPtr FrameClockAfterPaintCallbackC) frameClockAfterPaintClosure :: FrameClockAfterPaintCallback -> IO Closure frameClockAfterPaintClosure cb = newCClosure =<< mkFrameClockAfterPaintCallback wrapped where wrapped = frameClockAfterPaintCallbackWrapper cb frameClockAfterPaintCallbackWrapper :: FrameClockAfterPaintCallback -> Ptr () -> Ptr () -> IO () frameClockAfterPaintCallbackWrapper _cb _ _ = do _cb onFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId onFrameClockAfterPaint obj cb = liftIO $ connectFrameClockAfterPaint obj cb SignalConnectBefore afterFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId afterFrameClockAfterPaint obj cb = connectFrameClockAfterPaint obj cb SignalConnectAfter connectFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockAfterPaint obj cb after = liftIO $ do cb' <- mkFrameClockAfterPaintCallback (frameClockAfterPaintCallbackWrapper cb) connectSignalFunPtr obj "after-paint" cb' after -- signal FrameClock::before-paint type FrameClockBeforePaintCallback = IO () noFrameClockBeforePaintCallback :: Maybe FrameClockBeforePaintCallback noFrameClockBeforePaintCallback = Nothing type FrameClockBeforePaintCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockBeforePaintCallback :: FrameClockBeforePaintCallbackC -> IO (FunPtr FrameClockBeforePaintCallbackC) frameClockBeforePaintClosure :: FrameClockBeforePaintCallback -> IO Closure frameClockBeforePaintClosure cb = newCClosure =<< mkFrameClockBeforePaintCallback wrapped where wrapped = frameClockBeforePaintCallbackWrapper cb frameClockBeforePaintCallbackWrapper :: FrameClockBeforePaintCallback -> Ptr () -> Ptr () -> IO () frameClockBeforePaintCallbackWrapper _cb _ _ = do _cb onFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId onFrameClockBeforePaint obj cb = liftIO $ connectFrameClockBeforePaint obj cb SignalConnectBefore afterFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId afterFrameClockBeforePaint obj cb = connectFrameClockBeforePaint obj cb SignalConnectAfter connectFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockBeforePaint obj cb after = liftIO $ do cb' <- mkFrameClockBeforePaintCallback (frameClockBeforePaintCallbackWrapper cb) connectSignalFunPtr obj "before-paint" cb' after -- signal FrameClock::flush-events type FrameClockFlushEventsCallback = IO () noFrameClockFlushEventsCallback :: Maybe FrameClockFlushEventsCallback noFrameClockFlushEventsCallback = Nothing type FrameClockFlushEventsCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockFlushEventsCallback :: FrameClockFlushEventsCallbackC -> IO (FunPtr FrameClockFlushEventsCallbackC) frameClockFlushEventsClosure :: FrameClockFlushEventsCallback -> IO Closure frameClockFlushEventsClosure cb = newCClosure =<< mkFrameClockFlushEventsCallback wrapped where wrapped = frameClockFlushEventsCallbackWrapper cb frameClockFlushEventsCallbackWrapper :: FrameClockFlushEventsCallback -> Ptr () -> Ptr () -> IO () frameClockFlushEventsCallbackWrapper _cb _ _ = do _cb onFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId onFrameClockFlushEvents obj cb = liftIO $ connectFrameClockFlushEvents obj cb SignalConnectBefore afterFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId afterFrameClockFlushEvents obj cb = connectFrameClockFlushEvents obj cb SignalConnectAfter connectFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockFlushEvents obj cb after = liftIO $ do cb' <- mkFrameClockFlushEventsCallback (frameClockFlushEventsCallbackWrapper cb) connectSignalFunPtr obj "flush-events" cb' after -- signal FrameClock::layout type FrameClockLayoutCallback = IO () noFrameClockLayoutCallback :: Maybe FrameClockLayoutCallback noFrameClockLayoutCallback = Nothing type FrameClockLayoutCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockLayoutCallback :: FrameClockLayoutCallbackC -> IO (FunPtr FrameClockLayoutCallbackC) frameClockLayoutClosure :: FrameClockLayoutCallback -> IO Closure frameClockLayoutClosure cb = newCClosure =<< mkFrameClockLayoutCallback wrapped where wrapped = frameClockLayoutCallbackWrapper cb frameClockLayoutCallbackWrapper :: FrameClockLayoutCallback -> Ptr () -> Ptr () -> IO () frameClockLayoutCallbackWrapper _cb _ _ = do _cb onFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId onFrameClockLayout obj cb = liftIO $ connectFrameClockLayout obj cb SignalConnectBefore afterFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId afterFrameClockLayout obj cb = connectFrameClockLayout obj cb SignalConnectAfter connectFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockLayout obj cb after = liftIO $ do cb' <- mkFrameClockLayoutCallback (frameClockLayoutCallbackWrapper cb) connectSignalFunPtr obj "layout" cb' after -- signal FrameClock::paint type FrameClockPaintCallback = IO () noFrameClockPaintCallback :: Maybe FrameClockPaintCallback noFrameClockPaintCallback = Nothing type FrameClockPaintCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockPaintCallback :: FrameClockPaintCallbackC -> IO (FunPtr FrameClockPaintCallbackC) frameClockPaintClosure :: FrameClockPaintCallback -> IO Closure frameClockPaintClosure cb = newCClosure =<< mkFrameClockPaintCallback wrapped where wrapped = frameClockPaintCallbackWrapper cb frameClockPaintCallbackWrapper :: FrameClockPaintCallback -> Ptr () -> Ptr () -> IO () frameClockPaintCallbackWrapper _cb _ _ = do _cb onFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId onFrameClockPaint obj cb = liftIO $ connectFrameClockPaint obj cb SignalConnectBefore afterFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId afterFrameClockPaint obj cb = connectFrameClockPaint obj cb SignalConnectAfter connectFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockPaint obj cb after = liftIO $ do cb' <- mkFrameClockPaintCallback (frameClockPaintCallbackWrapper cb) connectSignalFunPtr obj "paint" cb' after -- signal FrameClock::resume-events type FrameClockResumeEventsCallback = IO () noFrameClockResumeEventsCallback :: Maybe FrameClockResumeEventsCallback noFrameClockResumeEventsCallback = Nothing type FrameClockResumeEventsCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockResumeEventsCallback :: FrameClockResumeEventsCallbackC -> IO (FunPtr FrameClockResumeEventsCallbackC) frameClockResumeEventsClosure :: FrameClockResumeEventsCallback -> IO Closure frameClockResumeEventsClosure cb = newCClosure =<< mkFrameClockResumeEventsCallback wrapped where wrapped = frameClockResumeEventsCallbackWrapper cb frameClockResumeEventsCallbackWrapper :: FrameClockResumeEventsCallback -> Ptr () -> Ptr () -> IO () frameClockResumeEventsCallbackWrapper _cb _ _ = do _cb onFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId onFrameClockResumeEvents obj cb = liftIO $ connectFrameClockResumeEvents obj cb SignalConnectBefore afterFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId afterFrameClockResumeEvents obj cb = connectFrameClockResumeEvents obj cb SignalConnectAfter connectFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockResumeEvents obj cb after = liftIO $ do cb' <- mkFrameClockResumeEventsCallback (frameClockResumeEventsCallbackWrapper cb) connectSignalFunPtr obj "resume-events" cb' after -- signal FrameClock::update type FrameClockUpdateCallback = IO () noFrameClockUpdateCallback :: Maybe FrameClockUpdateCallback noFrameClockUpdateCallback = Nothing type FrameClockUpdateCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkFrameClockUpdateCallback :: FrameClockUpdateCallbackC -> IO (FunPtr FrameClockUpdateCallbackC) frameClockUpdateClosure :: FrameClockUpdateCallback -> IO Closure frameClockUpdateClosure cb = newCClosure =<< mkFrameClockUpdateCallback wrapped where wrapped = frameClockUpdateCallbackWrapper cb frameClockUpdateCallbackWrapper :: FrameClockUpdateCallback -> Ptr () -> Ptr () -> IO () frameClockUpdateCallbackWrapper _cb _ _ = do _cb onFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId onFrameClockUpdate obj cb = liftIO $ connectFrameClockUpdate obj cb SignalConnectBefore afterFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId afterFrameClockUpdate obj cb = connectFrameClockUpdate obj cb SignalConnectAfter connectFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> SignalConnectMode -> m SignalHandlerId connectFrameClockUpdate obj cb after = liftIO $ do cb' <- mkFrameClockUpdateCallback (frameClockUpdateCallbackWrapper cb) connectSignalFunPtr obj "update" cb' after -- Flags FrameClockPhase data FrameClockPhase = FrameClockPhaseNone | FrameClockPhaseFlushEvents | FrameClockPhaseBeforePaint | FrameClockPhaseUpdate | FrameClockPhaseLayout | FrameClockPhasePaint | FrameClockPhaseResumeEvents | FrameClockPhaseAfterPaint | AnotherFrameClockPhase Int deriving (Show, Eq) instance Enum FrameClockPhase where fromEnum FrameClockPhaseNone = 0 fromEnum FrameClockPhaseFlushEvents = 1 fromEnum FrameClockPhaseBeforePaint = 2 fromEnum FrameClockPhaseUpdate = 4 fromEnum FrameClockPhaseLayout = 8 fromEnum FrameClockPhasePaint = 16 fromEnum FrameClockPhaseResumeEvents = 32 fromEnum FrameClockPhaseAfterPaint = 64 fromEnum (AnotherFrameClockPhase k) = k toEnum 0 = FrameClockPhaseNone toEnum 1 = FrameClockPhaseFlushEvents toEnum 2 = FrameClockPhaseBeforePaint toEnum 4 = FrameClockPhaseUpdate toEnum 8 = FrameClockPhaseLayout toEnum 16 = FrameClockPhasePaint toEnum 32 = FrameClockPhaseResumeEvents toEnum 64 = FrameClockPhaseAfterPaint toEnum k = AnotherFrameClockPhase k foreign import ccall "gdk_frame_clock_phase_get_type" c_gdk_frame_clock_phase_get_type :: IO GType instance BoxedEnum FrameClockPhase where boxedEnumType _ = c_gdk_frame_clock_phase_get_type instance IsGFlag FrameClockPhase -- struct FrameTimings newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings) noFrameTimings :: Maybe FrameTimings noFrameTimings = Nothing foreign import ccall "gdk_frame_timings_get_type" c_gdk_frame_timings_get_type :: IO GType instance BoxedObject FrameTimings where boxedType _ = c_gdk_frame_timings_get_type -- method FrameTimings::get_complete -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_complete" gdk_frame_timings_get_complete :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO CInt frameTimingsGetComplete :: (MonadIO m) => FrameTimings -> -- _obj m Bool frameTimingsGetComplete _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_complete _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method FrameTimings::get_frame_counter -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_frame_counter" gdk_frame_timings_get_frame_counter :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO Int64 frameTimingsGetFrameCounter :: (MonadIO m) => FrameTimings -> -- _obj m Int64 frameTimingsGetFrameCounter _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_frame_counter _obj' touchManagedPtr _obj return result -- method FrameTimings::get_frame_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_frame_time" gdk_frame_timings_get_frame_time :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO Int64 frameTimingsGetFrameTime :: (MonadIO m) => FrameTimings -> -- _obj m Int64 frameTimingsGetFrameTime _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_frame_time _obj' touchManagedPtr _obj return result -- method FrameTimings::get_predicted_presentation_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_predicted_presentation_time" gdk_frame_timings_get_predicted_presentation_time :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO Int64 frameTimingsGetPredictedPresentationTime :: (MonadIO m) => FrameTimings -> -- _obj m Int64 frameTimingsGetPredictedPresentationTime _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_predicted_presentation_time _obj' touchManagedPtr _obj return result -- method FrameTimings::get_presentation_time -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_presentation_time" gdk_frame_timings_get_presentation_time :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO Int64 frameTimingsGetPresentationTime :: (MonadIO m) => FrameTimings -> -- _obj m Int64 frameTimingsGetPresentationTime _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_presentation_time _obj' touchManagedPtr _obj return result -- method FrameTimings::get_refresh_interval -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_get_refresh_interval" gdk_frame_timings_get_refresh_interval :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO Int64 frameTimingsGetRefreshInterval :: (MonadIO m) => FrameTimings -> -- _obj m Int64 frameTimingsGetRefreshInterval _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_get_refresh_interval _obj' touchManagedPtr _obj return result -- method FrameTimings::ref -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FrameTimings" -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_ref" gdk_frame_timings_ref :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO (Ptr FrameTimings) frameTimingsRef :: (MonadIO m) => FrameTimings -> -- _obj m FrameTimings frameTimingsRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_ref _obj' checkUnexpectedReturnNULL "gdk_frame_timings_ref" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' -- method FrameTimings::unref -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_frame_timings_unref" gdk_frame_timings_unref :: Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" IO () frameTimingsUnref :: (MonadIO m) => FrameTimings -> -- _obj m () frameTimingsUnref _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_frame_timings_unref _obj' touchManagedPtr _obj return () -- Enum FullscreenMode data FullscreenMode = FullscreenModeCurrentMonitor | FullscreenModeAllMonitors | AnotherFullscreenMode Int deriving (Show, Eq) instance Enum FullscreenMode where fromEnum FullscreenModeCurrentMonitor = 0 fromEnum FullscreenModeAllMonitors = 1 fromEnum (AnotherFullscreenMode k) = k toEnum 0 = FullscreenModeCurrentMonitor toEnum 1 = FullscreenModeAllMonitors toEnum k = AnotherFullscreenMode k foreign import ccall "gdk_fullscreen_mode_get_type" c_gdk_fullscreen_mode_get_type :: IO GType instance BoxedEnum FullscreenMode where boxedEnumType _ = c_gdk_fullscreen_mode_get_type -- object GLContext newtype GLContext = GLContext (ForeignPtr GLContext) noGLContext :: Maybe GLContext noGLContext = Nothing foreign import ccall "gdk_gl_context_get_type" c_gdk_gl_context_get_type :: IO GType type instance ParentTypes GLContext = '[GObject.Object] instance GObject GLContext where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_gl_context_get_type class GObject o => GLContextK o instance (GObject o, IsDescendantOf GLContext o) => GLContextK o toGLContext :: GLContextK o => o -> IO GLContext toGLContext = unsafeCastTo GLContext -- method GLContext::get_debug_enabled -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_debug_enabled" gdk_gl_context_get_debug_enabled :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO CInt gLContextGetDebugEnabled :: (MonadIO m, GLContextK a) => a -> -- _obj m Bool gLContextGetDebugEnabled _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_debug_enabled _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method GLContext::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_display" gdk_gl_context_get_display :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO (Ptr Display) gLContextGetDisplay :: (MonadIO m, GLContextK a) => a -> -- _obj m Display gLContextGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_display _obj' checkUnexpectedReturnNULL "gdk_gl_context_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method GLContext::get_forward_compatible -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_forward_compatible" gdk_gl_context_get_forward_compatible :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO CInt gLContextGetForwardCompatible :: (MonadIO m, GLContextK a) => a -> -- _obj m Bool gLContextGetForwardCompatible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_forward_compatible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- XXX Could not generate method GLContext::get_required_version -- Error was : Bad introspection data: "argument \"major\" is not of nullable type (TBasicType TInt32), but it is marked as such." -- method GLContext::get_shared_context -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GLContext" -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_shared_context" gdk_gl_context_get_shared_context :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO (Ptr GLContext) gLContextGetSharedContext :: (MonadIO m, GLContextK a) => a -> -- _obj m GLContext gLContextGetSharedContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_shared_context _obj' checkUnexpectedReturnNULL "gdk_gl_context_get_shared_context" result result' <- (newObject GLContext) result touchManagedPtr _obj return result' -- method GLContext::get_version -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_version" gdk_gl_context_get_version :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" Ptr Int32 -> -- major : TBasicType TInt32 Ptr Int32 -> -- minor : TBasicType TInt32 IO () gLContextGetVersion :: (MonadIO m, GLContextK a) => a -> -- _obj m (Int32,Int32) gLContextGetVersion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj major <- allocMem :: IO (Ptr Int32) minor <- allocMem :: IO (Ptr Int32) gdk_gl_context_get_version _obj' major minor major' <- peek major minor' <- peek minor touchManagedPtr _obj freeMem major freeMem minor return (major', minor') -- method GLContext::get_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_window" gdk_gl_context_get_window :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO (Ptr Window) gLContextGetWindow :: (MonadIO m, GLContextK a) => a -> -- _obj m Window gLContextGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_window _obj' checkUnexpectedReturnNULL "gdk_gl_context_get_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method GLContext::make_current -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_make_current" gdk_gl_context_make_current :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" IO () gLContextMakeCurrent :: (MonadIO m, GLContextK a) => a -> -- _obj m () gLContextMakeCurrent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_gl_context_make_current _obj' touchManagedPtr _obj return () -- method GLContext::realize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False foreign import ccall "gdk_gl_context_realize" gdk_gl_context_realize :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" Ptr (Ptr GError) -> -- error IO CInt gLContextRealize :: (MonadIO m, GLContextK a) => a -> -- _obj m () gLContextRealize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do _ <- propagateGError $ gdk_gl_context_realize _obj' touchManagedPtr _obj return () ) (do return () ) -- method GLContext::set_debug_enabled -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_set_debug_enabled" gdk_gl_context_set_debug_enabled :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" CInt -> -- enabled : TBasicType TBoolean IO () gLContextSetDebugEnabled :: (MonadIO m, GLContextK a) => a -> -- _obj Bool -> -- enabled m () gLContextSetDebugEnabled _obj enabled = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let enabled' = (fromIntegral . fromEnum) enabled gdk_gl_context_set_debug_enabled _obj' enabled' touchManagedPtr _obj return () -- method GLContext::set_forward_compatible -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_set_forward_compatible" gdk_gl_context_set_forward_compatible :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" CInt -> -- compatible : TBasicType TBoolean IO () gLContextSetForwardCompatible :: (MonadIO m, GLContextK a) => a -> -- _obj Bool -> -- compatible m () gLContextSetForwardCompatible _obj compatible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let compatible' = (fromIntegral . fromEnum) compatible gdk_gl_context_set_forward_compatible _obj' compatible' touchManagedPtr _obj return () -- method GLContext::set_required_version -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_set_required_version" gdk_gl_context_set_required_version :: Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" Int32 -> -- major : TBasicType TInt32 Int32 -> -- minor : TBasicType TInt32 IO () gLContextSetRequiredVersion :: (MonadIO m, GLContextK a) => a -> -- _obj Int32 -> -- major Int32 -> -- minor m () gLContextSetRequiredVersion _obj major minor = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_gl_context_set_required_version _obj' major minor touchManagedPtr _obj return () -- method GLContext::clear_current -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_clear_current" gdk_gl_context_clear_current :: IO () gLContextClearCurrent :: (MonadIO m) => m () gLContextClearCurrent = liftIO $ do gdk_gl_context_clear_current return () -- method GLContext::get_current -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "GLContext" -- throws : False -- Skip return : False foreign import ccall "gdk_gl_context_get_current" gdk_gl_context_get_current :: IO (Ptr GLContext) gLContextGetCurrent :: (MonadIO m) => m GLContext gLContextGetCurrent = liftIO $ do result <- gdk_gl_context_get_current checkUnexpectedReturnNULL "gdk_gl_context_get_current" result result' <- (newObject GLContext) result return result' -- Enum GLError data GLError = GLErrorNotAvailable | GLErrorUnsupportedFormat | GLErrorUnsupportedProfile | AnotherGLError Int deriving (Show, Eq) instance Enum GLError where fromEnum GLErrorNotAvailable = 0 fromEnum GLErrorUnsupportedFormat = 1 fromEnum GLErrorUnsupportedProfile = 2 fromEnum (AnotherGLError k) = k toEnum 0 = GLErrorNotAvailable toEnum 1 = GLErrorUnsupportedFormat toEnum 2 = GLErrorUnsupportedProfile toEnum k = AnotherGLError k instance GErrorClass GLError where gerrorClassDomain _ = "gdk-gl-error-quark" catchGLError :: IO a -> (GLError -> GErrorMessage -> IO a) -> IO a catchGLError = catchGErrorJustDomain handleGLError :: (GLError -> GErrorMessage -> IO a) -> IO a -> IO a handleGLError = handleGErrorJustDomain foreign import ccall "gdk_gl_error_get_type" c_gdk_gl_error_get_type :: IO GType instance BoxedEnum GLError where boxedEnumType _ = c_gdk_gl_error_get_type -- struct Geometry newtype Geometry = Geometry (ForeignPtr Geometry) noGeometry :: Maybe Geometry noGeometry = Nothing geometryReadMinWidth :: Geometry -> IO Int32 geometryReadMinWidth s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int32 return val geometryReadMinHeight :: Geometry -> IO Int32 geometryReadMinHeight s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val geometryReadMaxWidth :: Geometry -> IO Int32 geometryReadMaxWidth s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val geometryReadMaxHeight :: Geometry -> IO Int32 geometryReadMaxHeight s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val geometryReadBaseWidth :: Geometry -> IO Int32 geometryReadBaseWidth s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int32 return val geometryReadBaseHeight :: Geometry -> IO Int32 geometryReadBaseHeight s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Int32 return val geometryReadWidthInc :: Geometry -> IO Int32 geometryReadWidthInc s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Int32 return val geometryReadHeightInc :: Geometry -> IO Int32 geometryReadHeightInc s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO Int32 return val geometryReadMinAspect :: Geometry -> IO Double geometryReadMinAspect s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CDouble let val' = realToFrac val return val' geometryReadMaxAspect :: Geometry -> IO Double geometryReadMaxAspect s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CDouble let val' = realToFrac val return val' geometryReadWinGravity :: Geometry -> IO Gravity geometryReadWinGravity s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -- Enum GrabOwnership data GrabOwnership = GrabOwnershipNone | GrabOwnershipWindow | GrabOwnershipApplication | AnotherGrabOwnership Int deriving (Show, Eq) instance Enum GrabOwnership where fromEnum GrabOwnershipNone = 0 fromEnum GrabOwnershipWindow = 1 fromEnum GrabOwnershipApplication = 2 fromEnum (AnotherGrabOwnership k) = k toEnum 0 = GrabOwnershipNone toEnum 1 = GrabOwnershipWindow toEnum 2 = GrabOwnershipApplication toEnum k = AnotherGrabOwnership k foreign import ccall "gdk_grab_ownership_get_type" c_gdk_grab_ownership_get_type :: IO GType instance BoxedEnum GrabOwnership where boxedEnumType _ = c_gdk_grab_ownership_get_type -- Enum GrabStatus data GrabStatus = GrabStatusSuccess | GrabStatusAlreadyGrabbed | GrabStatusInvalidTime | GrabStatusNotViewable | GrabStatusFrozen | GrabStatusFailed | AnotherGrabStatus Int deriving (Show, Eq) instance Enum GrabStatus where fromEnum GrabStatusSuccess = 0 fromEnum GrabStatusAlreadyGrabbed = 1 fromEnum GrabStatusInvalidTime = 2 fromEnum GrabStatusNotViewable = 3 fromEnum GrabStatusFrozen = 4 fromEnum GrabStatusFailed = 5 fromEnum (AnotherGrabStatus k) = k toEnum 0 = GrabStatusSuccess toEnum 1 = GrabStatusAlreadyGrabbed toEnum 2 = GrabStatusInvalidTime toEnum 3 = GrabStatusNotViewable toEnum 4 = GrabStatusFrozen toEnum 5 = GrabStatusFailed toEnum k = AnotherGrabStatus k foreign import ccall "gdk_grab_status_get_type" c_gdk_grab_status_get_type :: IO GType instance BoxedEnum GrabStatus where boxedEnumType _ = c_gdk_grab_status_get_type -- Enum Gravity data Gravity = GravityNorthWest | GravityNorth | GravityNorthEast | GravityWest | GravityCenter | GravityEast | GravitySouthWest | GravitySouth | GravitySouthEast | GravityStatic | AnotherGravity Int deriving (Show, Eq) instance Enum Gravity where fromEnum GravityNorthWest = 1 fromEnum GravityNorth = 2 fromEnum GravityNorthEast = 3 fromEnum GravityWest = 4 fromEnum GravityCenter = 5 fromEnum GravityEast = 6 fromEnum GravitySouthWest = 7 fromEnum GravitySouth = 8 fromEnum GravitySouthEast = 9 fromEnum GravityStatic = 10 fromEnum (AnotherGravity k) = k toEnum 1 = GravityNorthWest toEnum 2 = GravityNorth toEnum 3 = GravityNorthEast toEnum 4 = GravityWest toEnum 5 = GravityCenter toEnum 6 = GravityEast toEnum 7 = GravitySouthWest toEnum 8 = GravitySouth toEnum 9 = GravitySouthEast toEnum 10 = GravityStatic toEnum k = AnotherGravity k foreign import ccall "gdk_gravity_get_type" c_gdk_gravity_get_type :: IO GType instance BoxedEnum Gravity where boxedEnumType _ = c_gdk_gravity_get_type -- Enum InputMode data InputMode = InputModeDisabled | InputModeScreen | InputModeWindow | AnotherInputMode Int deriving (Show, Eq) instance Enum InputMode where fromEnum InputModeDisabled = 0 fromEnum InputModeScreen = 1 fromEnum InputModeWindow = 2 fromEnum (AnotherInputMode k) = k toEnum 0 = InputModeDisabled toEnum 1 = InputModeScreen toEnum 2 = InputModeWindow toEnum k = AnotherInputMode k foreign import ccall "gdk_input_mode_get_type" c_gdk_input_mode_get_type :: IO GType instance BoxedEnum InputMode where boxedEnumType _ = c_gdk_input_mode_get_type -- Enum InputSource data InputSource = InputSourceMouse | InputSourcePen | InputSourceEraser | InputSourceCursor | InputSourceKeyboard | InputSourceTouchscreen | InputSourceTouchpad | AnotherInputSource Int deriving (Show, Eq) instance Enum InputSource where fromEnum InputSourceMouse = 0 fromEnum InputSourcePen = 1 fromEnum InputSourceEraser = 2 fromEnum InputSourceCursor = 3 fromEnum InputSourceKeyboard = 4 fromEnum InputSourceTouchscreen = 5 fromEnum InputSourceTouchpad = 6 fromEnum (AnotherInputSource k) = k toEnum 0 = InputSourceMouse toEnum 1 = InputSourcePen toEnum 2 = InputSourceEraser toEnum 3 = InputSourceCursor toEnum 4 = InputSourceKeyboard toEnum 5 = InputSourceTouchscreen toEnum 6 = InputSourceTouchpad toEnum k = AnotherInputSource k foreign import ccall "gdk_input_source_get_type" c_gdk_input_source_get_type :: IO GType instance BoxedEnum InputSource where boxedEnumType _ = c_gdk_input_source_get_type -- object Keymap newtype Keymap = Keymap (ForeignPtr Keymap) noKeymap :: Maybe Keymap noKeymap = Nothing foreign import ccall "gdk_keymap_get_type" c_gdk_keymap_get_type :: IO GType type instance ParentTypes Keymap = '[GObject.Object] instance GObject Keymap where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_keymap_get_type class GObject o => KeymapK o instance (GObject o, IsDescendantOf Keymap o) => KeymapK o toKeymap :: KeymapK o => o -> IO Keymap toKeymap = unsafeCastTo Keymap -- method Keymap::add_virtual_modifiers -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_add_virtual_modifiers" gdk_keymap_add_virtual_modifiers :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" IO () keymapAddVirtualModifiers :: (MonadIO m, KeymapK a) => a -> -- _obj [ModifierType] -> -- state m ([ModifierType]) keymapAddVirtualModifiers _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state state'' <- allocMem :: IO (Ptr CUInt) poke state'' state' gdk_keymap_add_virtual_modifiers _obj' state'' state''' <- peek state'' let state'''' = wordToGFlags state''' touchManagedPtr _obj freeMem state'' return state'''' -- method Keymap::get_caps_lock_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_caps_lock_state" gdk_keymap_get_caps_lock_state :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" IO CInt keymapGetCapsLockState :: (MonadIO m, KeymapK a) => a -> -- _obj m Bool keymapGetCapsLockState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_keymap_get_caps_lock_state _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Keymap::get_direction -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "Direction" -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_direction" gdk_keymap_get_direction :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" IO CUInt keymapGetDirection :: (MonadIO m, KeymapK a) => a -> -- _obj m Pango.Direction keymapGetDirection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_keymap_get_direction _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Keymap::get_entries_for_keycode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyvals", argType = TCArray False (-1) 4 (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_entries_for_keycode" gdk_keymap_get_entries_for_keycode :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Word32 -> -- hardware_keycode : TBasicType TUInt32 Ptr (Ptr KeymapKey) -> -- keys : TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey") Ptr (Ptr Word32) -> -- keyvals : TCArray False (-1) 4 (TBasicType TUInt32) Ptr Int32 -> -- n_entries : TBasicType TInt32 IO CInt keymapGetEntriesForKeycode :: (MonadIO m, KeymapK a) => a -> -- _obj Word32 -> -- hardware_keycode m (Bool,[KeymapKey],[Word32]) keymapGetEntriesForKeycode _obj hardware_keycode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj keys <- allocMem :: IO (Ptr (Ptr KeymapKey)) keyvals <- allocMem :: IO (Ptr (Ptr Word32)) n_entries <- allocMem :: IO (Ptr Int32) result <- gdk_keymap_get_entries_for_keycode _obj' hardware_keycode keys keyvals n_entries n_entries' <- peek n_entries let result' = (/= 0) result keys' <- peek keys keys'' <- (unpackBlockArrayWithLength 12 n_entries') keys' keys''' <- mapM (wrapPtr KeymapKey) keys'' freeMem keys' keyvals' <- peek keyvals keyvals'' <- (unpackStorableArrayWithLength n_entries') keyvals' freeMem keyvals' touchManagedPtr _obj freeMem keys freeMem keyvals freeMem n_entries return (result', keys''', keyvals'') -- method Keymap::get_entries_for_keyval -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_entries_for_keyval" gdk_keymap_get_entries_for_keyval :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Word32 -> -- keyval : TBasicType TUInt32 Ptr (Ptr KeymapKey) -> -- keys : TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey") Ptr Int32 -> -- n_keys : TBasicType TInt32 IO CInt keymapGetEntriesForKeyval :: (MonadIO m, KeymapK a) => a -> -- _obj Word32 -> -- keyval m (Bool,[KeymapKey]) keymapGetEntriesForKeyval _obj keyval = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj keys <- allocMem :: IO (Ptr (Ptr KeymapKey)) n_keys <- allocMem :: IO (Ptr Int32) result <- gdk_keymap_get_entries_for_keyval _obj' keyval keys n_keys n_keys' <- peek n_keys let result' = (/= 0) result keys' <- peek keys keys'' <- (unpackBlockArrayWithLength 12 n_keys') keys' keys''' <- mapM (wrapPtr KeymapKey) keys'' freeMem keys' touchManagedPtr _obj freeMem keys freeMem n_keys return (result', keys''') -- method Keymap::get_modifier_mask -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "ModifierType" -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_modifier_mask" gdk_keymap_get_modifier_mask :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" IO CUInt keymapGetModifierMask :: (MonadIO m, KeymapK a) => a -> -- _obj ModifierIntent -> -- intent m [ModifierType] keymapGetModifierMask _obj intent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let intent' = (fromIntegral . fromEnum) intent result <- gdk_keymap_get_modifier_mask _obj' intent' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Keymap::get_modifier_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_modifier_state" gdk_keymap_get_modifier_state :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" IO Word32 keymapGetModifierState :: (MonadIO m, KeymapK a) => a -> -- _obj m Word32 keymapGetModifierState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_keymap_get_modifier_state _obj' touchManagedPtr _obj return result -- method Keymap::get_num_lock_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_num_lock_state" gdk_keymap_get_num_lock_state :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" IO CInt keymapGetNumLockState :: (MonadIO m, KeymapK a) => a -> -- _obj m Bool keymapGetNumLockState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_keymap_get_num_lock_state _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Keymap::have_bidi_layouts -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_have_bidi_layouts" gdk_keymap_have_bidi_layouts :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" IO CInt keymapHaveBidiLayouts :: (MonadIO m, KeymapK a) => a -> -- _obj m Bool keymapHaveBidiLayouts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_keymap_have_bidi_layouts _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Keymap::lookup_key -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_lookup_key" gdk_keymap_lookup_key :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Ptr KeymapKey -> -- key : TInterface "Gdk" "KeymapKey" IO Word32 keymapLookupKey :: (MonadIO m, KeymapK a) => a -> -- _obj KeymapKey -> -- key m Word32 keymapLookupKey _obj key = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let key' = unsafeManagedPtrGetPtr key result <- gdk_keymap_lookup_key _obj' key' touchManagedPtr _obj touchManagedPtr key return result -- method Keymap::map_virtual_modifiers -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_map_virtual_modifiers" gdk_keymap_map_virtual_modifiers :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" IO CInt keymapMapVirtualModifiers :: (MonadIO m, KeymapK a) => a -> -- _obj [ModifierType] -> -- state m (Bool,[ModifierType]) keymapMapVirtualModifiers _obj state = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state state'' <- allocMem :: IO (Ptr CUInt) poke state'' state' result <- gdk_keymap_map_virtual_modifiers _obj' state'' let result' = (/= 0) result state''' <- peek state'' let state'''' = wordToGFlags state''' touchManagedPtr _obj freeMem state'' return (result', state'''') -- method Keymap::translate_keyboard_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "effective_group", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "consumed_modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_translate_keyboard_state" gdk_keymap_translate_keyboard_state :: Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" Word32 -> -- hardware_keycode : TBasicType TUInt32 CUInt -> -- state : TInterface "Gdk" "ModifierType" Int32 -> -- group : TBasicType TInt32 Ptr Word32 -> -- keyval : TBasicType TUInt32 Ptr Int32 -> -- effective_group : TBasicType TInt32 Ptr Int32 -> -- level : TBasicType TInt32 Ptr CUInt -> -- consumed_modifiers : TInterface "Gdk" "ModifierType" IO CInt keymapTranslateKeyboardState :: (MonadIO m, KeymapK a) => a -> -- _obj Word32 -> -- hardware_keycode [ModifierType] -> -- state Int32 -> -- group m (Bool,Word32,Int32,Int32,[ModifierType]) keymapTranslateKeyboardState _obj hardware_keycode state group = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let state' = gflagsToWord state keyval <- allocMem :: IO (Ptr Word32) effective_group <- allocMem :: IO (Ptr Int32) level <- allocMem :: IO (Ptr Int32) consumed_modifiers <- allocMem :: IO (Ptr CUInt) result <- gdk_keymap_translate_keyboard_state _obj' hardware_keycode state' group keyval effective_group level consumed_modifiers let result' = (/= 0) result keyval' <- peek keyval effective_group' <- peek effective_group level' <- peek level consumed_modifiers' <- peek consumed_modifiers let consumed_modifiers'' = wordToGFlags consumed_modifiers' touchManagedPtr _obj freeMem keyval freeMem effective_group freeMem level freeMem consumed_modifiers return (result', keyval', effective_group', level', consumed_modifiers'') -- method Keymap::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Keymap" -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_default" gdk_keymap_get_default :: IO (Ptr Keymap) keymapGetDefault :: (MonadIO m) => m Keymap keymapGetDefault = liftIO $ do result <- gdk_keymap_get_default checkUnexpectedReturnNULL "gdk_keymap_get_default" result result' <- (newObject Keymap) result return result' -- method Keymap::get_for_display -- method type : MemberFunction -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Keymap" -- throws : False -- Skip return : False foreign import ccall "gdk_keymap_get_for_display" gdk_keymap_get_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" IO (Ptr Keymap) keymapGetForDisplay :: (MonadIO m, DisplayK a) => a -> -- display m Keymap keymapGetForDisplay display = liftIO $ do let display' = unsafeManagedPtrCastPtr display result <- gdk_keymap_get_for_display display' checkUnexpectedReturnNULL "gdk_keymap_get_for_display" result result' <- (newObject Keymap) result touchManagedPtr display return result' -- signal Keymap::direction-changed type KeymapDirectionChangedCallback = IO () noKeymapDirectionChangedCallback :: Maybe KeymapDirectionChangedCallback noKeymapDirectionChangedCallback = Nothing type KeymapDirectionChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkKeymapDirectionChangedCallback :: KeymapDirectionChangedCallbackC -> IO (FunPtr KeymapDirectionChangedCallbackC) keymapDirectionChangedClosure :: KeymapDirectionChangedCallback -> IO Closure keymapDirectionChangedClosure cb = newCClosure =<< mkKeymapDirectionChangedCallback wrapped where wrapped = keymapDirectionChangedCallbackWrapper cb keymapDirectionChangedCallbackWrapper :: KeymapDirectionChangedCallback -> Ptr () -> Ptr () -> IO () keymapDirectionChangedCallbackWrapper _cb _ _ = do _cb onKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId onKeymapDirectionChanged obj cb = liftIO $ connectKeymapDirectionChanged obj cb SignalConnectBefore afterKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId afterKeymapDirectionChanged obj cb = connectKeymapDirectionChanged obj cb SignalConnectAfter connectKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId connectKeymapDirectionChanged obj cb after = liftIO $ do cb' <- mkKeymapDirectionChangedCallback (keymapDirectionChangedCallbackWrapper cb) connectSignalFunPtr obj "direction-changed" cb' after -- signal Keymap::keys-changed type KeymapKeysChangedCallback = IO () noKeymapKeysChangedCallback :: Maybe KeymapKeysChangedCallback noKeymapKeysChangedCallback = Nothing type KeymapKeysChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkKeymapKeysChangedCallback :: KeymapKeysChangedCallbackC -> IO (FunPtr KeymapKeysChangedCallbackC) keymapKeysChangedClosure :: KeymapKeysChangedCallback -> IO Closure keymapKeysChangedClosure cb = newCClosure =<< mkKeymapKeysChangedCallback wrapped where wrapped = keymapKeysChangedCallbackWrapper cb keymapKeysChangedCallbackWrapper :: KeymapKeysChangedCallback -> Ptr () -> Ptr () -> IO () keymapKeysChangedCallbackWrapper _cb _ _ = do _cb onKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId onKeymapKeysChanged obj cb = liftIO $ connectKeymapKeysChanged obj cb SignalConnectBefore afterKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId afterKeymapKeysChanged obj cb = connectKeymapKeysChanged obj cb SignalConnectAfter connectKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId connectKeymapKeysChanged obj cb after = liftIO $ do cb' <- mkKeymapKeysChangedCallback (keymapKeysChangedCallbackWrapper cb) connectSignalFunPtr obj "keys-changed" cb' after -- signal Keymap::state-changed type KeymapStateChangedCallback = IO () noKeymapStateChangedCallback :: Maybe KeymapStateChangedCallback noKeymapStateChangedCallback = Nothing type KeymapStateChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkKeymapStateChangedCallback :: KeymapStateChangedCallbackC -> IO (FunPtr KeymapStateChangedCallbackC) keymapStateChangedClosure :: KeymapStateChangedCallback -> IO Closure keymapStateChangedClosure cb = newCClosure =<< mkKeymapStateChangedCallback wrapped where wrapped = keymapStateChangedCallbackWrapper cb keymapStateChangedCallbackWrapper :: KeymapStateChangedCallback -> Ptr () -> Ptr () -> IO () keymapStateChangedCallbackWrapper _cb _ _ = do _cb onKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId onKeymapStateChanged obj cb = liftIO $ connectKeymapStateChanged obj cb SignalConnectBefore afterKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId afterKeymapStateChanged obj cb = connectKeymapStateChanged obj cb SignalConnectAfter connectKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> SignalConnectMode -> m SignalHandlerId connectKeymapStateChanged obj cb after = liftIO $ do cb' <- mkKeymapStateChangedCallback (keymapStateChangedCallbackWrapper cb) connectSignalFunPtr obj "state-changed" cb' after -- struct KeymapKey newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey) noKeymapKey :: Maybe KeymapKey noKeymapKey = Nothing keymapKeyReadKeycode :: KeymapKey -> IO Word32 keymapKeyReadKeycode s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val keymapKeyReadGroup :: KeymapKey -> IO Int32 keymapKeyReadGroup s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val keymapKeyReadLevel :: KeymapKey -> IO Int32 keymapKeyReadLevel s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val -- Enum ModifierIntent data ModifierIntent = ModifierIntentPrimaryAccelerator | ModifierIntentContextMenu | ModifierIntentExtendSelection | ModifierIntentModifySelection | ModifierIntentNoTextInput | ModifierIntentShiftGroup | AnotherModifierIntent Int deriving (Show, Eq) instance Enum ModifierIntent where fromEnum ModifierIntentPrimaryAccelerator = 0 fromEnum ModifierIntentContextMenu = 1 fromEnum ModifierIntentExtendSelection = 2 fromEnum ModifierIntentModifySelection = 3 fromEnum ModifierIntentNoTextInput = 4 fromEnum ModifierIntentShiftGroup = 5 fromEnum (AnotherModifierIntent k) = k toEnum 0 = ModifierIntentPrimaryAccelerator toEnum 1 = ModifierIntentContextMenu toEnum 2 = ModifierIntentExtendSelection toEnum 3 = ModifierIntentModifySelection toEnum 4 = ModifierIntentNoTextInput toEnum 5 = ModifierIntentShiftGroup toEnum k = AnotherModifierIntent k foreign import ccall "gdk_modifier_intent_get_type" c_gdk_modifier_intent_get_type :: IO GType instance BoxedEnum ModifierIntent where boxedEnumType _ = c_gdk_modifier_intent_get_type -- Flags ModifierType data ModifierType = ModifierTypeShiftMask | ModifierTypeLockMask | ModifierTypeControlMask | ModifierTypeMod1Mask | ModifierTypeMod2Mask | ModifierTypeMod3Mask | ModifierTypeMod4Mask | ModifierTypeMod5Mask | ModifierTypeButton1Mask | ModifierTypeButton2Mask | ModifierTypeButton3Mask | ModifierTypeButton4Mask | ModifierTypeButton5Mask | ModifierTypeModifierReserved13Mask | ModifierTypeModifierReserved14Mask | ModifierTypeModifierReserved15Mask | ModifierTypeModifierReserved16Mask | ModifierTypeModifierReserved17Mask | ModifierTypeModifierReserved18Mask | ModifierTypeModifierReserved19Mask | ModifierTypeModifierReserved20Mask | ModifierTypeModifierReserved21Mask | ModifierTypeModifierReserved22Mask | ModifierTypeModifierReserved23Mask | ModifierTypeModifierReserved24Mask | ModifierTypeModifierReserved25Mask | ModifierTypeSuperMask | ModifierTypeHyperMask | ModifierTypeMetaMask | ModifierTypeModifierReserved29Mask | ModifierTypeReleaseMask | ModifierTypeModifierMask | AnotherModifierType Int deriving (Show, Eq) instance Enum ModifierType where fromEnum ModifierTypeShiftMask = 1 fromEnum ModifierTypeLockMask = 2 fromEnum ModifierTypeControlMask = 4 fromEnum ModifierTypeMod1Mask = 8 fromEnum ModifierTypeMod2Mask = 16 fromEnum ModifierTypeMod3Mask = 32 fromEnum ModifierTypeMod4Mask = 64 fromEnum ModifierTypeMod5Mask = 128 fromEnum ModifierTypeButton1Mask = 256 fromEnum ModifierTypeButton2Mask = 512 fromEnum ModifierTypeButton3Mask = 1024 fromEnum ModifierTypeButton4Mask = 2048 fromEnum ModifierTypeButton5Mask = 4096 fromEnum ModifierTypeModifierReserved13Mask = 8192 fromEnum ModifierTypeModifierReserved14Mask = 16384 fromEnum ModifierTypeModifierReserved15Mask = 32768 fromEnum ModifierTypeModifierReserved16Mask = 65536 fromEnum ModifierTypeModifierReserved17Mask = 131072 fromEnum ModifierTypeModifierReserved18Mask = 262144 fromEnum ModifierTypeModifierReserved19Mask = 524288 fromEnum ModifierTypeModifierReserved20Mask = 1048576 fromEnum ModifierTypeModifierReserved21Mask = 2097152 fromEnum ModifierTypeModifierReserved22Mask = 4194304 fromEnum ModifierTypeModifierReserved23Mask = 8388608 fromEnum ModifierTypeModifierReserved24Mask = 16777216 fromEnum ModifierTypeModifierReserved25Mask = 33554432 fromEnum ModifierTypeSuperMask = 67108864 fromEnum ModifierTypeHyperMask = 134217728 fromEnum ModifierTypeMetaMask = 268435456 fromEnum ModifierTypeModifierReserved29Mask = 536870912 fromEnum ModifierTypeReleaseMask = 1073741824 fromEnum ModifierTypeModifierMask = 1543512063 fromEnum (AnotherModifierType k) = k toEnum 1 = ModifierTypeShiftMask toEnum 2 = ModifierTypeLockMask toEnum 4 = ModifierTypeControlMask toEnum 8 = ModifierTypeMod1Mask toEnum 16 = ModifierTypeMod2Mask toEnum 32 = ModifierTypeMod3Mask toEnum 64 = ModifierTypeMod4Mask toEnum 128 = ModifierTypeMod5Mask toEnum 256 = ModifierTypeButton1Mask toEnum 512 = ModifierTypeButton2Mask toEnum 1024 = ModifierTypeButton3Mask toEnum 2048 = ModifierTypeButton4Mask toEnum 4096 = ModifierTypeButton5Mask toEnum 8192 = ModifierTypeModifierReserved13Mask toEnum 16384 = ModifierTypeModifierReserved14Mask toEnum 32768 = ModifierTypeModifierReserved15Mask toEnum 65536 = ModifierTypeModifierReserved16Mask toEnum 131072 = ModifierTypeModifierReserved17Mask toEnum 262144 = ModifierTypeModifierReserved18Mask toEnum 524288 = ModifierTypeModifierReserved19Mask toEnum 1048576 = ModifierTypeModifierReserved20Mask toEnum 2097152 = ModifierTypeModifierReserved21Mask toEnum 4194304 = ModifierTypeModifierReserved22Mask toEnum 8388608 = ModifierTypeModifierReserved23Mask toEnum 16777216 = ModifierTypeModifierReserved24Mask toEnum 33554432 = ModifierTypeModifierReserved25Mask toEnum 67108864 = ModifierTypeSuperMask toEnum 134217728 = ModifierTypeHyperMask toEnum 268435456 = ModifierTypeMetaMask toEnum 536870912 = ModifierTypeModifierReserved29Mask toEnum 1073741824 = ModifierTypeReleaseMask toEnum 1543512063 = ModifierTypeModifierMask toEnum k = AnotherModifierType k foreign import ccall "gdk_modifier_type_get_type" c_gdk_modifier_type_get_type :: IO GType instance BoxedEnum ModifierType where boxedEnumType _ = c_gdk_modifier_type_get_type instance IsGFlag ModifierType -- Enum NotifyType data NotifyType = NotifyTypeAncestor | NotifyTypeVirtual | NotifyTypeInferior | NotifyTypeNonlinear | NotifyTypeNonlinearVirtual | NotifyTypeUnknown | AnotherNotifyType Int deriving (Show, Eq) instance Enum NotifyType where fromEnum NotifyTypeAncestor = 0 fromEnum NotifyTypeVirtual = 1 fromEnum NotifyTypeInferior = 2 fromEnum NotifyTypeNonlinear = 3 fromEnum NotifyTypeNonlinearVirtual = 4 fromEnum NotifyTypeUnknown = 5 fromEnum (AnotherNotifyType k) = k toEnum 0 = NotifyTypeAncestor toEnum 1 = NotifyTypeVirtual toEnum 2 = NotifyTypeInferior toEnum 3 = NotifyTypeNonlinear toEnum 4 = NotifyTypeNonlinearVirtual toEnum 5 = NotifyTypeUnknown toEnum k = AnotherNotifyType k foreign import ccall "gdk_notify_type_get_type" c_gdk_notify_type_get_type :: IO GType instance BoxedEnum NotifyType where boxedEnumType _ = c_gdk_notify_type_get_type -- Enum OwnerChange data OwnerChange = OwnerChangeNewOwner | OwnerChangeDestroy | OwnerChangeClose | AnotherOwnerChange Int deriving (Show, Eq) instance Enum OwnerChange where fromEnum OwnerChangeNewOwner = 0 fromEnum OwnerChangeDestroy = 1 fromEnum OwnerChangeClose = 2 fromEnum (AnotherOwnerChange k) = k toEnum 0 = OwnerChangeNewOwner toEnum 1 = OwnerChangeDestroy toEnum 2 = OwnerChangeClose toEnum k = AnotherOwnerChange k foreign import ccall "gdk_owner_change_get_type" c_gdk_owner_change_get_type :: IO GType instance BoxedEnum OwnerChange where boxedEnumType _ = c_gdk_owner_change_get_type -- struct Point newtype Point = Point (ForeignPtr Point) noPoint :: Maybe Point noPoint = Nothing pointReadX :: Point -> IO Int32 pointReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int32 return val pointReadY :: Point -> IO Int32 pointReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val -- Enum PropMode data PropMode = PropModeReplace | PropModePrepend | PropModeAppend | AnotherPropMode Int deriving (Show, Eq) instance Enum PropMode where fromEnum PropModeReplace = 0 fromEnum PropModePrepend = 1 fromEnum PropModeAppend = 2 fromEnum (AnotherPropMode k) = k toEnum 0 = PropModeReplace toEnum 1 = PropModePrepend toEnum 2 = PropModeAppend toEnum k = AnotherPropMode k foreign import ccall "gdk_prop_mode_get_type" c_gdk_prop_mode_get_type :: IO GType instance BoxedEnum PropMode where boxedEnumType _ = c_gdk_prop_mode_get_type -- Enum PropertyState data PropertyState = PropertyStateNewValue | PropertyStateDelete | AnotherPropertyState Int deriving (Show, Eq) instance Enum PropertyState where fromEnum PropertyStateNewValue = 0 fromEnum PropertyStateDelete = 1 fromEnum (AnotherPropertyState k) = k toEnum 0 = PropertyStateNewValue toEnum 1 = PropertyStateDelete toEnum k = AnotherPropertyState k foreign import ccall "gdk_property_state_get_type" c_gdk_property_state_get_type :: IO GType instance BoxedEnum PropertyState where boxedEnumType _ = c_gdk_property_state_get_type -- struct RGBA newtype RGBA = RGBA (ForeignPtr RGBA) noRGBA :: Maybe RGBA noRGBA = Nothing foreign import ccall "gdk_rgba_get_type" c_gdk_rgba_get_type :: IO GType instance BoxedObject RGBA where boxedType _ = c_gdk_rgba_get_type rGBAReadRed :: RGBA -> IO Double rGBAReadRed s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CDouble let val' = realToFrac val return val' rGBAReadGreen :: RGBA -> IO Double rGBAReadGreen s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CDouble let val' = realToFrac val return val' rGBAReadBlue :: RGBA -> IO Double rGBAReadBlue s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CDouble let val' = realToFrac val return val' rGBAReadAlpha :: RGBA -> IO Double rGBAReadAlpha s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CDouble let val' = realToFrac val return val' -- method RGBA::copy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "RGBA" -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_copy" gdk_rgba_copy :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" IO (Ptr RGBA) rGBACopy :: (MonadIO m) => RGBA -> -- _obj m RGBA rGBACopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_rgba_copy _obj' checkUnexpectedReturnNULL "gdk_rgba_copy" result result' <- (wrapBoxed RGBA) result touchManagedPtr _obj return result' -- method RGBA::equal -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_equal" gdk_rgba_equal :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" Ptr RGBA -> -- p2 : TInterface "Gdk" "RGBA" IO CInt rGBAEqual :: (MonadIO m) => RGBA -> -- _obj RGBA -> -- p2 m Bool rGBAEqual _obj p2 = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let p2' = unsafeManagedPtrGetPtr p2 result <- gdk_rgba_equal _obj' p2' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr p2 return result' -- method RGBA::free -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_free" gdk_rgba_free :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" IO () rGBAFree :: (MonadIO m) => RGBA -> -- _obj m () rGBAFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_rgba_free _obj' touchManagedPtr _obj return () -- method RGBA::hash -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_hash" gdk_rgba_hash :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" IO Word32 rGBAHash :: (MonadIO m) => RGBA -> -- _obj m Word32 rGBAHash _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_rgba_hash _obj' touchManagedPtr _obj return result -- method RGBA::parse -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_parse" gdk_rgba_parse :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" CString -> -- spec : TBasicType TUTF8 IO CInt rGBAParse :: (MonadIO m) => RGBA -> -- _obj T.Text -> -- spec m Bool rGBAParse _obj spec = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj spec' <- textToCString spec result <- gdk_rgba_parse _obj' spec' let result' = (/= 0) result touchManagedPtr _obj freeMem spec' return result' -- method RGBA::to_string -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_rgba_to_string" gdk_rgba_to_string :: Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" IO CString rGBAToString :: (MonadIO m) => RGBA -> -- _obj m T.Text rGBAToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_rgba_to_string _obj' checkUnexpectedReturnNULL "gdk_rgba_to_string" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- object Screen newtype Screen = Screen (ForeignPtr Screen) noScreen :: Maybe Screen noScreen = Nothing foreign import ccall "gdk_screen_get_type" c_gdk_screen_get_type :: IO GType type instance ParentTypes Screen = '[GObject.Object] instance GObject Screen where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_screen_get_type class GObject o => ScreenK o instance (GObject o, IsDescendantOf Screen o) => ScreenK o toScreen :: ScreenK o => o -> IO Screen toScreen = unsafeCastTo Screen -- method Screen::get_active_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_active_window" gdk_screen_get_active_window :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Window) screenGetActiveWindow :: (MonadIO m, ScreenK a) => a -> -- _obj m Window screenGetActiveWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_active_window _obj' checkUnexpectedReturnNULL "gdk_screen_get_active_window" result result' <- (wrapObject Window) result touchManagedPtr _obj return result' -- method Screen::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_display" gdk_screen_get_display :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Display) screenGetDisplay :: (MonadIO m, ScreenK a) => a -> -- _obj m Display screenGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_display _obj' checkUnexpectedReturnNULL "gdk_screen_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method Screen::get_font_options -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "FontOptions" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_font_options" gdk_screen_get_font_options :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Cairo.FontOptions) screenGetFontOptions :: (MonadIO m, ScreenK a) => a -> -- _obj m Cairo.FontOptions screenGetFontOptions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_font_options _obj' checkUnexpectedReturnNULL "gdk_screen_get_font_options" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result touchManagedPtr _obj return result' -- method Screen::get_height -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_height" gdk_screen_get_height :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetHeight :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_height _obj' touchManagedPtr _obj return result -- method Screen::get_height_mm -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_height_mm" gdk_screen_get_height_mm :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetHeightMm :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetHeightMm _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_height_mm _obj' touchManagedPtr _obj return result -- method Screen::get_monitor_at_point -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_at_point" gdk_screen_get_monitor_at_point :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO Int32 screenGetMonitorAtPoint :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- x Int32 -> -- y m Int32 screenGetMonitorAtPoint _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_at_point _obj' x y touchManagedPtr _obj return result -- method Screen::get_monitor_at_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_at_window" gdk_screen_get_monitor_at_window :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Ptr Window -> -- window : TInterface "Gdk" "Window" IO Int32 screenGetMonitorAtWindow :: (MonadIO m, ScreenK a, WindowK b) => a -> -- _obj b -> -- window m Int32 screenGetMonitorAtWindow _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window result <- gdk_screen_get_monitor_at_window _obj' window' touchManagedPtr _obj touchManagedPtr window return result -- method Screen::get_monitor_geometry -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_geometry" gdk_screen_get_monitor_geometry :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 Ptr Cairo.RectangleInt -> -- dest : TInterface "cairo" "RectangleInt" IO () screenGetMonitorGeometry :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m (Cairo.RectangleInt) screenGetMonitorGeometry _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) gdk_screen_get_monitor_geometry _obj' monitor_num dest dest' <- (wrapBoxed Cairo.RectangleInt) dest touchManagedPtr _obj return dest' -- method Screen::get_monitor_height_mm -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_height_mm" gdk_screen_get_monitor_height_mm :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 IO Int32 screenGetMonitorHeightMm :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m Int32 screenGetMonitorHeightMm _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_height_mm _obj' monitor_num touchManagedPtr _obj return result -- method Screen::get_monitor_plug_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_plug_name" gdk_screen_get_monitor_plug_name :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 IO CString screenGetMonitorPlugName :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m T.Text screenGetMonitorPlugName _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_plug_name _obj' monitor_num checkUnexpectedReturnNULL "gdk_screen_get_monitor_plug_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- method Screen::get_monitor_scale_factor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_scale_factor" gdk_screen_get_monitor_scale_factor :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 IO Int32 screenGetMonitorScaleFactor :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m Int32 screenGetMonitorScaleFactor _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_scale_factor _obj' monitor_num touchManagedPtr _obj return result -- method Screen::get_monitor_width_mm -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_width_mm" gdk_screen_get_monitor_width_mm :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 IO Int32 screenGetMonitorWidthMm :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m Int32 screenGetMonitorWidthMm _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_width_mm _obj' monitor_num touchManagedPtr _obj return result -- method Screen::get_monitor_workarea -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_monitor_workarea" gdk_screen_get_monitor_workarea :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Int32 -> -- monitor_num : TBasicType TInt32 Ptr Cairo.RectangleInt -> -- dest : TInterface "cairo" "RectangleInt" IO () screenGetMonitorWorkarea :: (MonadIO m, ScreenK a) => a -> -- _obj Int32 -> -- monitor_num m (Cairo.RectangleInt) screenGetMonitorWorkarea _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) gdk_screen_get_monitor_workarea _obj' monitor_num dest dest' <- (wrapBoxed Cairo.RectangleInt) dest touchManagedPtr _obj return dest' -- method Screen::get_n_monitors -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_n_monitors" gdk_screen_get_n_monitors :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetNMonitors :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetNMonitors _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_n_monitors _obj' touchManagedPtr _obj return result -- method Screen::get_number -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_number" gdk_screen_get_number :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetNumber :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetNumber _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_number _obj' touchManagedPtr _obj return result -- method Screen::get_primary_monitor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_primary_monitor" gdk_screen_get_primary_monitor :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetPrimaryMonitor :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetPrimaryMonitor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_primary_monitor _obj' touchManagedPtr _obj return result -- method Screen::get_resolution -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_resolution" gdk_screen_get_resolution :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO CDouble screenGetResolution :: (MonadIO m, ScreenK a) => a -> -- _obj m Double screenGetResolution _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_resolution _obj' let result' = realToFrac result touchManagedPtr _obj return result' -- method Screen::get_rgba_visual -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_rgba_visual" gdk_screen_get_rgba_visual :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Visual) screenGetRgbaVisual :: (MonadIO m, ScreenK a) => a -> -- _obj m Visual screenGetRgbaVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_rgba_visual _obj' checkUnexpectedReturnNULL "gdk_screen_get_rgba_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' -- method Screen::get_root_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_root_window" gdk_screen_get_root_window :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Window) screenGetRootWindow :: (MonadIO m, ScreenK a) => a -> -- _obj m Window screenGetRootWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_root_window _obj' checkUnexpectedReturnNULL "gdk_screen_get_root_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Screen::get_setting -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_setting" gdk_screen_get_setting :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" CString -> -- name : TBasicType TUTF8 Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt screenGetSetting :: (MonadIO m, ScreenK a) => a -> -- _obj T.Text -> -- name GValue -> -- value m Bool screenGetSetting _obj name value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name let value' = unsafeManagedPtrGetPtr value result <- gdk_screen_get_setting _obj' name' value' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr value freeMem name' return result' -- method Screen::get_system_visual -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_system_visual" gdk_screen_get_system_visual :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr Visual) screenGetSystemVisual :: (MonadIO m, ScreenK a) => a -> -- _obj m Visual screenGetSystemVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_system_visual _obj' checkUnexpectedReturnNULL "gdk_screen_get_system_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' -- method Screen::get_toplevel_windows -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Window") -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_toplevel_windows" gdk_screen_get_toplevel_windows :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr (GList (Ptr Window))) screenGetToplevelWindows :: (MonadIO m, ScreenK a) => a -> -- _obj m [Window] screenGetToplevelWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_toplevel_windows _obj' checkUnexpectedReturnNULL "gdk_screen_get_toplevel_windows" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result touchManagedPtr _obj return result'' -- method Screen::get_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_width" gdk_screen_get_width :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetWidth :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_width _obj' touchManagedPtr _obj return result -- method Screen::get_width_mm -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_width_mm" gdk_screen_get_width_mm :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO Int32 screenGetWidthMm :: (MonadIO m, ScreenK a) => a -> -- _obj m Int32 screenGetWidthMm _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_width_mm _obj' touchManagedPtr _obj return result -- method Screen::get_window_stack -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Window") -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_window_stack" gdk_screen_get_window_stack :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr (GList (Ptr Window))) screenGetWindowStack :: (MonadIO m, ScreenK a) => a -> -- _obj m [Window] screenGetWindowStack _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_window_stack _obj' checkUnexpectedReturnNULL "gdk_screen_get_window_stack" result result' <- unpackGList result result'' <- mapM (wrapObject Window) result' g_list_free result touchManagedPtr _obj return result'' -- method Screen::is_composited -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_screen_is_composited" gdk_screen_is_composited :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO CInt screenIsComposited :: (MonadIO m, ScreenK a) => a -> -- _obj m Bool screenIsComposited _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_is_composited _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Screen::list_visuals -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Visual") -- throws : False -- Skip return : False foreign import ccall "gdk_screen_list_visuals" gdk_screen_list_visuals :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO (Ptr (GList (Ptr Visual))) screenListVisuals :: (MonadIO m, ScreenK a) => a -> -- _obj m [Visual] screenListVisuals _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_list_visuals _obj' checkUnexpectedReturnNULL "gdk_screen_list_visuals" result result' <- unpackGList result result'' <- mapM (newObject Visual) result' g_list_free result touchManagedPtr _obj return result'' -- method Screen::make_display_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_make_display_name" gdk_screen_make_display_name :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" IO CString screenMakeDisplayName :: (MonadIO m, ScreenK a) => a -> -- _obj m T.Text screenMakeDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_make_display_name _obj' checkUnexpectedReturnNULL "gdk_screen_make_display_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- method Screen::set_font_options -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_screen_set_font_options" gdk_screen_set_font_options :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" IO () screenSetFontOptions :: (MonadIO m, ScreenK a) => a -> -- _obj Maybe (Cairo.FontOptions) -> -- options m () screenSetFontOptions _obj options = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeOptions <- case options of Nothing -> return nullPtr Just jOptions -> do let jOptions' = unsafeManagedPtrGetPtr jOptions return jOptions' gdk_screen_set_font_options _obj' maybeOptions touchManagedPtr _obj whenJust options touchManagedPtr return () -- method Screen::set_resolution -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_screen_set_resolution" gdk_screen_set_resolution :: Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" CDouble -> -- dpi : TBasicType TDouble IO () screenSetResolution :: (MonadIO m, ScreenK a) => a -> -- _obj Double -> -- dpi m () screenSetResolution _obj dpi = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let dpi' = realToFrac dpi gdk_screen_set_resolution _obj' dpi' touchManagedPtr _obj return () -- method Screen::get_default -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_screen_get_default" gdk_screen_get_default :: IO (Ptr Screen) screenGetDefault :: (MonadIO m) => m Screen screenGetDefault = liftIO $ do result <- gdk_screen_get_default checkUnexpectedReturnNULL "gdk_screen_get_default" result result' <- (newObject Screen) result return result' -- method Screen::height -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_height" gdk_screen_height :: IO Int32 screenHeight :: (MonadIO m) => m Int32 screenHeight = liftIO $ do result <- gdk_screen_height return result -- method Screen::height_mm -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_height_mm" gdk_screen_height_mm :: IO Int32 screenHeightMm :: (MonadIO m) => m Int32 screenHeightMm = liftIO $ do result <- gdk_screen_height_mm return result -- method Screen::width -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_width" gdk_screen_width :: IO Int32 screenWidth :: (MonadIO m) => m Int32 screenWidth = liftIO $ do result <- gdk_screen_width return result -- method Screen::width_mm -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_screen_width_mm" gdk_screen_width_mm :: IO Int32 screenWidthMm :: (MonadIO m) => m Int32 screenWidthMm = liftIO $ do result <- gdk_screen_width_mm return result -- signal Screen::composited-changed type ScreenCompositedChangedCallback = IO () noScreenCompositedChangedCallback :: Maybe ScreenCompositedChangedCallback noScreenCompositedChangedCallback = Nothing type ScreenCompositedChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkScreenCompositedChangedCallback :: ScreenCompositedChangedCallbackC -> IO (FunPtr ScreenCompositedChangedCallbackC) screenCompositedChangedClosure :: ScreenCompositedChangedCallback -> IO Closure screenCompositedChangedClosure cb = newCClosure =<< mkScreenCompositedChangedCallback wrapped where wrapped = screenCompositedChangedCallbackWrapper cb screenCompositedChangedCallbackWrapper :: ScreenCompositedChangedCallback -> Ptr () -> Ptr () -> IO () screenCompositedChangedCallbackWrapper _cb _ _ = do _cb onScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId onScreenCompositedChanged obj cb = liftIO $ connectScreenCompositedChanged obj cb SignalConnectBefore afterScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId afterScreenCompositedChanged obj cb = connectScreenCompositedChanged obj cb SignalConnectAfter connectScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId connectScreenCompositedChanged obj cb after = liftIO $ do cb' <- mkScreenCompositedChangedCallback (screenCompositedChangedCallbackWrapper cb) connectSignalFunPtr obj "composited-changed" cb' after -- signal Screen::monitors-changed type ScreenMonitorsChangedCallback = IO () noScreenMonitorsChangedCallback :: Maybe ScreenMonitorsChangedCallback noScreenMonitorsChangedCallback = Nothing type ScreenMonitorsChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkScreenMonitorsChangedCallback :: ScreenMonitorsChangedCallbackC -> IO (FunPtr ScreenMonitorsChangedCallbackC) screenMonitorsChangedClosure :: ScreenMonitorsChangedCallback -> IO Closure screenMonitorsChangedClosure cb = newCClosure =<< mkScreenMonitorsChangedCallback wrapped where wrapped = screenMonitorsChangedCallbackWrapper cb screenMonitorsChangedCallbackWrapper :: ScreenMonitorsChangedCallback -> Ptr () -> Ptr () -> IO () screenMonitorsChangedCallbackWrapper _cb _ _ = do _cb onScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId onScreenMonitorsChanged obj cb = liftIO $ connectScreenMonitorsChanged obj cb SignalConnectBefore afterScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId afterScreenMonitorsChanged obj cb = connectScreenMonitorsChanged obj cb SignalConnectAfter connectScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> SignalConnectMode -> m SignalHandlerId connectScreenMonitorsChanged obj cb after = liftIO $ do cb' <- mkScreenMonitorsChangedCallback (screenMonitorsChangedCallbackWrapper cb) connectSignalFunPtr obj "monitors-changed" cb' after -- signal Screen::size-changed type ScreenSizeChangedCallback = IO () noScreenSizeChangedCallback :: Maybe ScreenSizeChangedCallback noScreenSizeChangedCallback = Nothing type ScreenSizeChangedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkScreenSizeChangedCallback :: ScreenSizeChangedCallbackC -> IO (FunPtr ScreenSizeChangedCallbackC) screenSizeChangedClosure :: ScreenSizeChangedCallback -> IO Closure screenSizeChangedClosure cb = newCClosure =<< mkScreenSizeChangedCallback wrapped where wrapped = screenSizeChangedCallbackWrapper cb screenSizeChangedCallbackWrapper :: ScreenSizeChangedCallback -> Ptr () -> Ptr () -> IO () screenSizeChangedCallbackWrapper _cb _ _ = do _cb onScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId onScreenSizeChanged obj cb = liftIO $ connectScreenSizeChanged obj cb SignalConnectBefore afterScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId afterScreenSizeChanged obj cb = connectScreenSizeChanged obj cb SignalConnectAfter connectScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId connectScreenSizeChanged obj cb after = liftIO $ do cb' <- mkScreenSizeChangedCallback (screenSizeChangedCallbackWrapper cb) connectSignalFunPtr obj "size-changed" cb' after -- Enum ScrollDirection data ScrollDirection = ScrollDirectionUp | ScrollDirectionDown | ScrollDirectionLeft | ScrollDirectionRight | ScrollDirectionSmooth | AnotherScrollDirection Int deriving (Show, Eq) instance Enum ScrollDirection where fromEnum ScrollDirectionUp = 0 fromEnum ScrollDirectionDown = 1 fromEnum ScrollDirectionLeft = 2 fromEnum ScrollDirectionRight = 3 fromEnum ScrollDirectionSmooth = 4 fromEnum (AnotherScrollDirection k) = k toEnum 0 = ScrollDirectionUp toEnum 1 = ScrollDirectionDown toEnum 2 = ScrollDirectionLeft toEnum 3 = ScrollDirectionRight toEnum 4 = ScrollDirectionSmooth toEnum k = AnotherScrollDirection k foreign import ccall "gdk_scroll_direction_get_type" c_gdk_scroll_direction_get_type :: IO GType instance BoxedEnum ScrollDirection where boxedEnumType _ = c_gdk_scroll_direction_get_type -- Enum SettingAction data SettingAction = SettingActionNew | SettingActionChanged | SettingActionDeleted | AnotherSettingAction Int deriving (Show, Eq) instance Enum SettingAction where fromEnum SettingActionNew = 0 fromEnum SettingActionChanged = 1 fromEnum SettingActionDeleted = 2 fromEnum (AnotherSettingAction k) = k toEnum 0 = SettingActionNew toEnum 1 = SettingActionChanged toEnum 2 = SettingActionDeleted toEnum k = AnotherSettingAction k foreign import ccall "gdk_setting_action_get_type" c_gdk_setting_action_get_type :: IO GType instance BoxedEnum SettingAction where boxedEnumType _ = c_gdk_setting_action_get_type -- Enum Status data Status = StatusOk | StatusError | StatusErrorParam | StatusErrorFile | StatusErrorMem | AnotherStatus Int deriving (Show, Eq) instance Enum Status where fromEnum StatusOk = 0 fromEnum StatusError = -1 fromEnum StatusErrorParam = -2 fromEnum StatusErrorFile = -3 fromEnum StatusErrorMem = -4 fromEnum (AnotherStatus k) = k toEnum -4 = StatusErrorMem toEnum -3 = StatusErrorFile toEnum -2 = StatusErrorParam toEnum -1 = StatusError toEnum 0 = StatusOk toEnum k = AnotherStatus k foreign import ccall "gdk_status_get_type" c_gdk_status_get_type :: IO GType instance BoxedEnum Status where boxedEnumType _ = c_gdk_status_get_type -- struct TimeCoord newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord) noTimeCoord :: Maybe TimeCoord noTimeCoord = Nothing timeCoordReadTime :: TimeCoord -> IO Word32 timeCoordReadTime s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val -- XXX Skipped getter for "TimeCoord:axes" :: Not implemented: "Don't know how to unpack C array of type TCArray False 128 (-1) (TBasicType TDouble)" -- Enum VisibilityState data VisibilityState = VisibilityStateUnobscured | VisibilityStatePartial | VisibilityStateFullyObscured | AnotherVisibilityState Int deriving (Show, Eq) instance Enum VisibilityState where fromEnum VisibilityStateUnobscured = 0 fromEnum VisibilityStatePartial = 1 fromEnum VisibilityStateFullyObscured = 2 fromEnum (AnotherVisibilityState k) = k toEnum 0 = VisibilityStateUnobscured toEnum 1 = VisibilityStatePartial toEnum 2 = VisibilityStateFullyObscured toEnum k = AnotherVisibilityState k foreign import ccall "gdk_visibility_state_get_type" c_gdk_visibility_state_get_type :: IO GType instance BoxedEnum VisibilityState where boxedEnumType _ = c_gdk_visibility_state_get_type -- object Visual newtype Visual = Visual (ForeignPtr Visual) noVisual :: Maybe Visual noVisual = Nothing foreign import ccall "gdk_visual_get_type" c_gdk_visual_get_type :: IO GType type instance ParentTypes Visual = '[GObject.Object] instance GObject Visual where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_visual_get_type class GObject o => VisualK o instance (GObject o, IsDescendantOf Visual o) => VisualK o toVisual :: VisualK o => o -> IO Visual toVisual = unsafeCastTo Visual -- method Visual::get_bits_per_rgb -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_bits_per_rgb" gdk_visual_get_bits_per_rgb :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO Int32 visualGetBitsPerRgb :: (MonadIO m, VisualK a) => a -> -- _obj m Int32 visualGetBitsPerRgb _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_bits_per_rgb _obj' touchManagedPtr _obj return result -- method Visual::get_blue_pixel_details -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_blue_pixel_details" gdk_visual_get_blue_pixel_details :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" Ptr Word32 -> -- mask : TBasicType TUInt32 Ptr Int32 -> -- shift : TBasicType TInt32 Ptr Int32 -> -- precision : TBasicType TInt32 IO () visualGetBluePixelDetails :: (MonadIO m, VisualK a) => a -> -- _obj m (Word32,Int32,Int32) visualGetBluePixelDetails _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj mask <- allocMem :: IO (Ptr Word32) shift <- allocMem :: IO (Ptr Int32) precision <- allocMem :: IO (Ptr Int32) gdk_visual_get_blue_pixel_details _obj' mask shift precision mask' <- peek mask shift' <- peek shift precision' <- peek precision touchManagedPtr _obj freeMem mask freeMem shift freeMem precision return (mask', shift', precision') -- method Visual::get_byte_order -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "ByteOrder" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_byte_order" gdk_visual_get_byte_order :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO CUInt visualGetByteOrder :: (MonadIO m, VisualK a) => a -> -- _obj m ByteOrder visualGetByteOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_byte_order _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Visual::get_colormap_size -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_colormap_size" gdk_visual_get_colormap_size :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO Int32 visualGetColormapSize :: (MonadIO m, VisualK a) => a -> -- _obj m Int32 visualGetColormapSize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_colormap_size _obj' touchManagedPtr _obj return result -- method Visual::get_depth -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_depth" gdk_visual_get_depth :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO Int32 visualGetDepth :: (MonadIO m, VisualK a) => a -> -- _obj m Int32 visualGetDepth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_depth _obj' touchManagedPtr _obj return result -- method Visual::get_green_pixel_details -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_green_pixel_details" gdk_visual_get_green_pixel_details :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" Ptr Word32 -> -- mask : TBasicType TUInt32 Ptr Int32 -> -- shift : TBasicType TInt32 Ptr Int32 -> -- precision : TBasicType TInt32 IO () visualGetGreenPixelDetails :: (MonadIO m, VisualK a) => a -> -- _obj m (Word32,Int32,Int32) visualGetGreenPixelDetails _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj mask <- allocMem :: IO (Ptr Word32) shift <- allocMem :: IO (Ptr Int32) precision <- allocMem :: IO (Ptr Int32) gdk_visual_get_green_pixel_details _obj' mask shift precision mask' <- peek mask shift' <- peek shift precision' <- peek precision touchManagedPtr _obj freeMem mask freeMem shift freeMem precision return (mask', shift', precision') -- method Visual::get_red_pixel_details -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_red_pixel_details" gdk_visual_get_red_pixel_details :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" Ptr Word32 -> -- mask : TBasicType TUInt32 Ptr Int32 -> -- shift : TBasicType TInt32 Ptr Int32 -> -- precision : TBasicType TInt32 IO () visualGetRedPixelDetails :: (MonadIO m, VisualK a) => a -> -- _obj m (Word32,Int32,Int32) visualGetRedPixelDetails _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj mask <- allocMem :: IO (Ptr Word32) shift <- allocMem :: IO (Ptr Int32) precision <- allocMem :: IO (Ptr Int32) gdk_visual_get_red_pixel_details _obj' mask shift precision mask' <- peek mask shift' <- peek shift precision' <- peek precision touchManagedPtr _obj freeMem mask freeMem shift freeMem precision return (mask', shift', precision') -- method Visual::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_screen" gdk_visual_get_screen :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO (Ptr Screen) visualGetScreen :: (MonadIO m, VisualK a) => a -> -- _obj m Screen visualGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_screen _obj' checkUnexpectedReturnNULL "gdk_visual_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' -- method Visual::get_visual_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "VisualType" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_visual_type" gdk_visual_get_visual_type :: Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" IO CUInt visualGetVisualType :: (MonadIO m, VisualK a) => a -> -- _obj m VisualType visualGetVisualType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_visual_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Visual::get_best -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best" gdk_visual_get_best :: IO (Ptr Visual) visualGetBest :: (MonadIO m) => m Visual visualGetBest = liftIO $ do result <- gdk_visual_get_best checkUnexpectedReturnNULL "gdk_visual_get_best" result result' <- (newObject Visual) result return result' -- method Visual::get_best_depth -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best_depth" gdk_visual_get_best_depth :: IO Int32 visualGetBestDepth :: (MonadIO m) => m Int32 visualGetBestDepth = liftIO $ do result <- gdk_visual_get_best_depth return result -- method Visual::get_best_type -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "VisualType" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best_type" gdk_visual_get_best_type :: IO CUInt visualGetBestType :: (MonadIO m) => m VisualType visualGetBestType = liftIO $ do result <- gdk_visual_get_best_type let result' = (toEnum . fromIntegral) result return result' -- method Visual::get_best_with_both -- method type : MemberFunction -- Args : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best_with_both" gdk_visual_get_best_with_both :: Int32 -> -- depth : TBasicType TInt32 CUInt -> -- visual_type : TInterface "Gdk" "VisualType" IO (Ptr Visual) visualGetBestWithBoth :: (MonadIO m) => Int32 -> -- depth VisualType -> -- visual_type m Visual visualGetBestWithBoth depth visual_type = liftIO $ do let visual_type' = (fromIntegral . fromEnum) visual_type result <- gdk_visual_get_best_with_both depth visual_type' checkUnexpectedReturnNULL "gdk_visual_get_best_with_both" result result' <- (newObject Visual) result return result' -- method Visual::get_best_with_depth -- method type : MemberFunction -- Args : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best_with_depth" gdk_visual_get_best_with_depth :: Int32 -> -- depth : TBasicType TInt32 IO (Ptr Visual) visualGetBestWithDepth :: (MonadIO m) => Int32 -> -- depth m Visual visualGetBestWithDepth depth = liftIO $ do result <- gdk_visual_get_best_with_depth depth checkUnexpectedReturnNULL "gdk_visual_get_best_with_depth" result result' <- (newObject Visual) result return result' -- method Visual::get_best_with_type -- method type : MemberFunction -- Args : [Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_best_with_type" gdk_visual_get_best_with_type :: CUInt -> -- visual_type : TInterface "Gdk" "VisualType" IO (Ptr Visual) visualGetBestWithType :: (MonadIO m) => VisualType -> -- visual_type m Visual visualGetBestWithType visual_type = liftIO $ do let visual_type' = (fromIntegral . fromEnum) visual_type result <- gdk_visual_get_best_with_type visual_type' checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result result' <- (newObject Visual) result return result' -- method Visual::get_system -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_visual_get_system" gdk_visual_get_system :: IO (Ptr Visual) visualGetSystem :: (MonadIO m) => m Visual visualGetSystem = liftIO $ do result <- gdk_visual_get_system checkUnexpectedReturnNULL "gdk_visual_get_system" result result' <- (newObject Visual) result return result' -- Enum VisualType data VisualType = VisualTypeStaticGray | VisualTypeGrayscale | VisualTypeStaticColor | VisualTypePseudoColor | VisualTypeTrueColor | VisualTypeDirectColor | AnotherVisualType Int deriving (Show, Eq) instance Enum VisualType where fromEnum VisualTypeStaticGray = 0 fromEnum VisualTypeGrayscale = 1 fromEnum VisualTypeStaticColor = 2 fromEnum VisualTypePseudoColor = 3 fromEnum VisualTypeTrueColor = 4 fromEnum VisualTypeDirectColor = 5 fromEnum (AnotherVisualType k) = k toEnum 0 = VisualTypeStaticGray toEnum 1 = VisualTypeGrayscale toEnum 2 = VisualTypeStaticColor toEnum 3 = VisualTypePseudoColor toEnum 4 = VisualTypeTrueColor toEnum 5 = VisualTypeDirectColor toEnum k = AnotherVisualType k foreign import ccall "gdk_visual_type_get_type" c_gdk_visual_type_get_type :: IO GType instance BoxedEnum VisualType where boxedEnumType _ = c_gdk_visual_type_get_type -- Flags WMDecoration data WMDecoration = WMDecorationAll | WMDecorationBorder | WMDecorationResizeh | WMDecorationTitle | WMDecorationMenu | WMDecorationMinimize | WMDecorationMaximize | AnotherWMDecoration Int deriving (Show, Eq) instance Enum WMDecoration where fromEnum WMDecorationAll = 1 fromEnum WMDecorationBorder = 2 fromEnum WMDecorationResizeh = 4 fromEnum WMDecorationTitle = 8 fromEnum WMDecorationMenu = 16 fromEnum WMDecorationMinimize = 32 fromEnum WMDecorationMaximize = 64 fromEnum (AnotherWMDecoration k) = k toEnum 1 = WMDecorationAll toEnum 2 = WMDecorationBorder toEnum 4 = WMDecorationResizeh toEnum 8 = WMDecorationTitle toEnum 16 = WMDecorationMenu toEnum 32 = WMDecorationMinimize toEnum 64 = WMDecorationMaximize toEnum k = AnotherWMDecoration k foreign import ccall "gdk_wm_decoration_get_type" c_gdk_wm_decoration_get_type :: IO GType instance BoxedEnum WMDecoration where boxedEnumType _ = c_gdk_wm_decoration_get_type instance IsGFlag WMDecoration -- Flags WMFunction data WMFunction = WMFunctionAll | WMFunctionResize | WMFunctionMove | WMFunctionMinimize | WMFunctionMaximize | WMFunctionClose | AnotherWMFunction Int deriving (Show, Eq) instance Enum WMFunction where fromEnum WMFunctionAll = 1 fromEnum WMFunctionResize = 2 fromEnum WMFunctionMove = 4 fromEnum WMFunctionMinimize = 8 fromEnum WMFunctionMaximize = 16 fromEnum WMFunctionClose = 32 fromEnum (AnotherWMFunction k) = k toEnum 1 = WMFunctionAll toEnum 2 = WMFunctionResize toEnum 4 = WMFunctionMove toEnum 8 = WMFunctionMinimize toEnum 16 = WMFunctionMaximize toEnum 32 = WMFunctionClose toEnum k = AnotherWMFunction k foreign import ccall "gdk_wm_function_get_type" c_gdk_wm_function_get_type :: IO GType instance BoxedEnum WMFunction where boxedEnumType _ = c_gdk_wm_function_get_type instance IsGFlag WMFunction -- object Window newtype Window = Window (ForeignPtr Window) noWindow :: Maybe Window noWindow = Nothing foreign import ccall "gdk_window_get_type" c_gdk_window_get_type :: IO GType type instance ParentTypes Window = '[GObject.Object] instance GObject Window where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_gdk_window_get_type class GObject o => WindowK o instance (GObject o, IsDescendantOf Window o) => WindowK o toWindow :: WindowK o => o -> IO Window toWindow = unsafeCastTo Window -- method Window::new -- method type : Constructor -- Args : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_new" gdk_window_new :: Ptr Window -> -- parent : TInterface "Gdk" "Window" Ptr WindowAttr -> -- attributes : TInterface "Gdk" "WindowAttr" CUInt -> -- attributes_mask : TInterface "Gdk" "WindowAttributesType" IO (Ptr Window) windowNew :: (MonadIO m, WindowK a) => Maybe (a) -> -- parent WindowAttr -> -- attributes [WindowAttributesType] -> -- attributes_mask m Window windowNew parent attributes attributes_mask = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do let jParent' = unsafeManagedPtrCastPtr jParent return jParent' let attributes' = unsafeManagedPtrGetPtr attributes let attributes_mask' = gflagsToWord attributes_mask result <- gdk_window_new maybeParent attributes' attributes_mask' checkUnexpectedReturnNULL "gdk_window_new" result result' <- (wrapObject Window) result whenJust parent touchManagedPtr touchManagedPtr attributes return result' -- method Window::beep -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_beep" gdk_window_beep :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowBeep :: (MonadIO m, WindowK a) => a -> -- _obj m () windowBeep _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_beep _obj' touchManagedPtr _obj return () -- method Window::begin_move_drag -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_move_drag" gdk_window_begin_move_drag :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- button : TBasicType TInt32 Int32 -> -- root_x : TBasicType TInt32 Int32 -> -- root_y : TBasicType TInt32 Word32 -> -- timestamp : TBasicType TUInt32 IO () windowBeginMoveDrag :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- button Int32 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_begin_move_drag _obj' button root_x root_y timestamp touchManagedPtr _obj return () -- method Window::begin_move_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_move_drag_for_device" gdk_window_begin_move_drag_for_device :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" Int32 -> -- button : TBasicType TInt32 Int32 -> -- root_x : TBasicType TInt32 Int32 -> -- root_y : TBasicType TInt32 Word32 -> -- timestamp : TBasicType TUInt32 IO () windowBeginMoveDragForDevice :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device Int32 -> -- button Int32 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginMoveDragForDevice _obj device button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device gdk_window_begin_move_drag_for_device _obj' device' button root_x root_y timestamp touchManagedPtr _obj touchManagedPtr device return () -- method Window::begin_paint_rect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_paint_rect" gdk_window_begin_paint_rect :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.RectangleInt -> -- rectangle : TInterface "cairo" "RectangleInt" IO () windowBeginPaintRect :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.RectangleInt -> -- rectangle m () windowBeginPaintRect _obj rectangle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rectangle' = unsafeManagedPtrGetPtr rectangle gdk_window_begin_paint_rect _obj' rectangle' touchManagedPtr _obj touchManagedPtr rectangle return () -- method Window::begin_paint_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_paint_region" gdk_window_begin_paint_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" IO () windowBeginPaintRegion :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Region -> -- region m () windowBeginPaintRegion _obj region = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region gdk_window_begin_paint_region _obj' region' touchManagedPtr _obj touchManagedPtr region return () -- method Window::begin_resize_drag -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_resize_drag" gdk_window_begin_resize_drag :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- edge : TInterface "Gdk" "WindowEdge" Int32 -> -- button : TBasicType TInt32 Int32 -> -- root_x : TBasicType TInt32 Int32 -> -- root_y : TBasicType TInt32 Word32 -> -- timestamp : TBasicType TUInt32 IO () windowBeginResizeDrag :: (MonadIO m, WindowK a) => a -> -- _obj WindowEdge -> -- edge Int32 -> -- button Int32 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let edge' = (fromIntegral . fromEnum) edge gdk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp touchManagedPtr _obj return () -- method Window::begin_resize_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_resize_drag_for_device" gdk_window_begin_resize_drag_for_device :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- edge : TInterface "Gdk" "WindowEdge" Ptr Device -> -- device : TInterface "Gdk" "Device" Int32 -> -- button : TBasicType TInt32 Int32 -> -- root_x : TBasicType TInt32 Int32 -> -- root_y : TBasicType TInt32 Word32 -> -- timestamp : TBasicType TUInt32 IO () windowBeginResizeDragForDevice :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj WindowEdge -> -- edge b -> -- device Int32 -> -- button Int32 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginResizeDragForDevice _obj edge device button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let edge' = (fromIntegral . fromEnum) edge let device' = unsafeManagedPtrCastPtr device gdk_window_begin_resize_drag_for_device _obj' edge' device' button root_x root_y timestamp touchManagedPtr _obj touchManagedPtr device return () -- method Window::configure_finished -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_configure_finished" gdk_window_configure_finished :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () {-# DEPRECATED windowConfigureFinished ["(Since version 3.8)","this function is no longer needed"]#-} windowConfigureFinished :: (MonadIO m, WindowK a) => a -> -- _obj m () windowConfigureFinished _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_configure_finished _obj' touchManagedPtr _obj return () -- method Window::coords_from_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_coords_from_parent" gdk_window_coords_from_parent :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CDouble -> -- parent_x : TBasicType TDouble CDouble -> -- parent_y : TBasicType TDouble Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble IO () windowCoordsFromParent :: (MonadIO m, WindowK a) => a -> -- _obj Double -> -- parent_x Double -> -- parent_y m (Double,Double) windowCoordsFromParent _obj parent_x parent_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let parent_x' = realToFrac parent_x let parent_y' = realToFrac parent_y x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) gdk_window_coords_from_parent _obj' parent_x' parent_y' x y x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' touchManagedPtr _obj freeMem x freeMem y return (x'', y'') -- method Window::coords_to_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_coords_to_parent" gdk_window_coords_to_parent :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble Ptr CDouble -> -- parent_x : TBasicType TDouble Ptr CDouble -> -- parent_y : TBasicType TDouble IO () windowCoordsToParent :: (MonadIO m, WindowK a) => a -> -- _obj Double -> -- x Double -> -- y m (Double,Double) windowCoordsToParent _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let x' = realToFrac x let y' = realToFrac y parent_x <- allocMem :: IO (Ptr CDouble) parent_y <- allocMem :: IO (Ptr CDouble) gdk_window_coords_to_parent _obj' x' y' parent_x parent_y parent_x' <- peek parent_x let parent_x'' = realToFrac parent_x' parent_y' <- peek parent_y let parent_y'' = realToFrac parent_y' touchManagedPtr _obj freeMem parent_x freeMem parent_y return (parent_x'', parent_y'') -- method Window::create_gl_context -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GLContext" -- throws : True -- Skip return : False foreign import ccall "gdk_window_create_gl_context" gdk_window_create_gl_context :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr (Ptr GError) -> -- error IO (Ptr GLContext) windowCreateGlContext :: (MonadIO m, WindowK a) => a -> -- _obj m GLContext windowCreateGlContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do result <- propagateGError $ gdk_window_create_gl_context _obj' checkUnexpectedReturnNULL "gdk_window_create_gl_context" result result' <- (wrapObject GLContext) result touchManagedPtr _obj return result' ) (do return () ) -- method Window::create_similar_image_surface -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False foreign import ccall "gdk_window_create_similar_image_surface" gdk_window_create_similar_image_surface :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- format : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 Int32 -> -- scale : TBasicType TInt32 IO (Ptr Cairo.Surface) windowCreateSimilarImageSurface :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- format Int32 -> -- width Int32 -> -- height Int32 -> -- scale m Cairo.Surface windowCreateSimilarImageSurface _obj format width height scale = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_create_similar_image_surface _obj' format width height scale checkUnexpectedReturnNULL "gdk_window_create_similar_image_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj return result' -- method Window::create_similar_surface -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False foreign import ccall "gdk_window_create_similar_surface" gdk_window_create_similar_surface :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- content : TInterface "cairo" "Content" Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO (Ptr Cairo.Surface) windowCreateSimilarSurface :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Content -> -- content Int32 -> -- width Int32 -> -- height m Cairo.Surface windowCreateSimilarSurface _obj content width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let content' = (fromIntegral . fromEnum) content result <- gdk_window_create_similar_surface _obj' content' width height checkUnexpectedReturnNULL "gdk_window_create_similar_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj return result' -- method Window::deiconify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_deiconify" gdk_window_deiconify :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowDeiconify :: (MonadIO m, WindowK a) => a -> -- _obj m () windowDeiconify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_deiconify _obj' touchManagedPtr _obj return () -- method Window::destroy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_destroy" gdk_window_destroy :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowDestroy :: (MonadIO m, WindowK a) => a -> -- _obj m () windowDestroy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_destroy _obj' touchManagedPtr _obj return () -- method Window::destroy_notify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_destroy_notify" gdk_window_destroy_notify :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowDestroyNotify :: (MonadIO m, WindowK a) => a -> -- _obj m () windowDestroyNotify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_destroy_notify _obj' touchManagedPtr _obj return () -- method Window::enable_synchronized_configure -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_enable_synchronized_configure" gdk_window_enable_synchronized_configure :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () {-# DEPRECATED windowEnableSynchronizedConfigure ["(Since version 3.8)","this function is no longer needed"]#-} windowEnableSynchronizedConfigure :: (MonadIO m, WindowK a) => a -> -- _obj m () windowEnableSynchronizedConfigure _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_enable_synchronized_configure _obj' touchManagedPtr _obj return () -- method Window::end_paint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_end_paint" gdk_window_end_paint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowEndPaint :: (MonadIO m, WindowK a) => a -> -- _obj m () windowEndPaint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_end_paint _obj' touchManagedPtr _obj return () -- method Window::ensure_native -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_ensure_native" gdk_window_ensure_native :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowEnsureNative :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowEnsureNative _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_ensure_native _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::flush -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_flush" gdk_window_flush :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () {-# DEPRECATED windowFlush ["(Since version 3.14)"]#-} windowFlush :: (MonadIO m, WindowK a) => a -> -- _obj m () windowFlush _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_flush _obj' touchManagedPtr _obj return () -- method Window::focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_focus" gdk_window_focus :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Word32 -> -- timestamp : TBasicType TUInt32 IO () windowFocus :: (MonadIO m, WindowK a) => a -> -- _obj Word32 -> -- timestamp m () windowFocus _obj timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_focus _obj' timestamp touchManagedPtr _obj return () -- method Window::freeze_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_freeze_toplevel_updates_libgtk_only" gdk_window_freeze_toplevel_updates_libgtk_only :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () {-# DEPRECATED windowFreezeToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-} windowFreezeToplevelUpdatesLibgtkOnly :: (MonadIO m, WindowK a) => a -> -- _obj m () windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_freeze_toplevel_updates_libgtk_only _obj' touchManagedPtr _obj return () -- method Window::freeze_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_freeze_updates" gdk_window_freeze_updates :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowFreezeUpdates :: (MonadIO m, WindowK a) => a -> -- _obj m () windowFreezeUpdates _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_freeze_updates _obj' touchManagedPtr _obj return () -- method Window::fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_fullscreen" gdk_window_fullscreen :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowFullscreen :: (MonadIO m, WindowK a) => a -> -- _obj m () windowFullscreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_fullscreen _obj' touchManagedPtr _obj return () -- method Window::geometry_changed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_geometry_changed" gdk_window_geometry_changed :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowGeometryChanged :: (MonadIO m, WindowK a) => a -> -- _obj m () windowGeometryChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_geometry_changed _obj' touchManagedPtr _obj return () -- method Window::get_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_accept_focus" gdk_window_get_accept_focus :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowGetAcceptFocus :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetAcceptFocus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_accept_focus _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Pattern" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_background_pattern" gdk_window_get_background_pattern :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Cairo.Pattern) windowGetBackgroundPattern :: (MonadIO m, WindowK a) => a -> -- _obj m Cairo.Pattern windowGetBackgroundPattern _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_background_pattern _obj' checkUnexpectedReturnNULL "gdk_window_get_background_pattern" result result' <- (newBoxed Cairo.Pattern) result touchManagedPtr _obj return result' -- method Window::get_children -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Window") -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_children" gdk_window_get_children :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr (GList (Ptr Window))) windowGetChildren :: (MonadIO m, WindowK a) => a -> -- _obj m [Window] windowGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_children _obj' checkUnexpectedReturnNULL "gdk_window_get_children" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result touchManagedPtr _obj return result'' -- method Window::get_children_with_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Window") -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_children_with_user_data" gdk_window_get_children_with_user_data :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr () -> -- user_data : TBasicType TVoid IO (Ptr (GList (Ptr Window))) windowGetChildrenWithUserData :: (MonadIO m, WindowK a) => a -> -- _obj Ptr () -> -- user_data m [Window] windowGetChildrenWithUserData _obj user_data = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_children_with_user_data _obj' user_data checkUnexpectedReturnNULL "gdk_window_get_children_with_user_data" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result touchManagedPtr _obj return result'' -- method Window::get_clip_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Region" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_clip_region" gdk_window_get_clip_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Cairo.Region) windowGetClipRegion :: (MonadIO m, WindowK a) => a -> -- _obj m Cairo.Region windowGetClipRegion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_clip_region _obj' checkUnexpectedReturnNULL "gdk_window_get_clip_region" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' -- method Window::get_composited -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_composited" gdk_window_get_composited :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt {-# DEPRECATED windowGetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} windowGetComposited :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetComposited _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_composited _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_cursor" gdk_window_get_cursor :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Cursor) windowGetCursor :: (MonadIO m, WindowK a) => a -> -- _obj m Cursor windowGetCursor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_cursor _obj' checkUnexpectedReturnNULL "gdk_window_get_cursor" result result' <- (newObject Cursor) result touchManagedPtr _obj return result' -- method Window::get_decorations -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_decorations" gdk_window_get_decorations :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr CUInt -> -- decorations : TInterface "Gdk" "WMDecoration" IO CInt windowGetDecorations :: (MonadIO m, WindowK a) => a -> -- _obj m (Bool,[WMDecoration]) windowGetDecorations _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj decorations <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_decorations _obj' decorations let result' = (/= 0) result decorations' <- peek decorations let decorations'' = wordToGFlags decorations' touchManagedPtr _obj freeMem decorations return (result', decorations'') -- method Window::get_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Cursor" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_cursor" gdk_window_get_device_cursor :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" IO (Ptr Cursor) windowGetDeviceCursor :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device m Cursor windowGetDeviceCursor _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device result <- gdk_window_get_device_cursor _obj' device' checkUnexpectedReturnNULL "gdk_window_get_device_cursor" result result' <- (newObject Cursor) result touchManagedPtr _obj touchManagedPtr device return result' -- method Window::get_device_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventMask" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_events" gdk_window_get_device_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" IO CUInt windowGetDeviceEvents :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device m [EventMask] windowGetDeviceEvents _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device result <- gdk_window_get_device_events _obj' device' let result' = wordToGFlags result touchManagedPtr _obj touchManagedPtr device return result' -- method Window::get_device_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_position" gdk_window_get_device_position :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" IO (Ptr Window) windowGetDevicePosition :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device m (Window,Int32,Int32,[ModifierType]) windowGetDevicePosition _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position _obj' device' x y mask checkUnexpectedReturnNULL "gdk_window_get_device_position" result result' <- (newObject Window) result x' <- peek x y' <- peek y mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr _obj touchManagedPtr device freeMem x freeMem y freeMem mask return (result', x', y', mask'') -- method Window::get_device_position_double -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_position_double" gdk_window_get_device_position_double :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" IO (Ptr Window) windowGetDevicePositionDouble :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device m (Window,Double,Double,[ModifierType]) windowGetDevicePositionDouble _obj device = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position_double _obj' device' x y mask checkUnexpectedReturnNULL "gdk_window_get_device_position_double" result result' <- (newObject Window) result x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr _obj touchManagedPtr device freeMem x freeMem y freeMem mask return (result', x'', y'', mask'') -- method Window::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Display" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_display" gdk_window_get_display :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Display) windowGetDisplay :: (MonadIO m, WindowK a) => a -> -- _obj m Display windowGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_display _obj' checkUnexpectedReturnNULL "gdk_window_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' -- method Window::get_drag_protocol -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragProtocol" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_drag_protocol" gdk_window_get_drag_protocol :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr (Ptr Window) -> -- target : TInterface "Gdk" "Window" IO CUInt windowGetDragProtocol :: (MonadIO m, WindowK a) => a -> -- _obj m (DragProtocol,Window) windowGetDragProtocol _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj target <- allocMem :: IO (Ptr (Ptr Window)) result <- gdk_window_get_drag_protocol _obj' target let result' = (toEnum . fromIntegral) result target' <- peek target target'' <- (wrapObject Window) target' touchManagedPtr _obj freeMem target return (result', target'') -- method Window::get_effective_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_effective_parent" gdk_window_get_effective_parent :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Window) windowGetEffectiveParent :: (MonadIO m, WindowK a) => a -> -- _obj m Window windowGetEffectiveParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_effective_parent _obj' checkUnexpectedReturnNULL "gdk_window_get_effective_parent" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Window::get_effective_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_effective_toplevel" gdk_window_get_effective_toplevel :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Window) windowGetEffectiveToplevel :: (MonadIO m, WindowK a) => a -> -- _obj m Window windowGetEffectiveToplevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_effective_toplevel _obj' checkUnexpectedReturnNULL "gdk_window_get_effective_toplevel" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Window::get_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_event_compression" gdk_window_get_event_compression :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowGetEventCompression :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetEventCompression _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_event_compression _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventMask" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_events" gdk_window_get_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CUInt windowGetEvents :: (MonadIO m, WindowK a) => a -> -- _obj m [EventMask] windowGetEvents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_events _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Window::get_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_focus_on_map" gdk_window_get_focus_on_map :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowGetFocusOnMap :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetFocusOnMap _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_focus_on_map _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_frame_clock -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FrameClock" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_frame_clock" gdk_window_get_frame_clock :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr FrameClock) windowGetFrameClock :: (MonadIO m, WindowK a) => a -> -- _obj m FrameClock windowGetFrameClock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_frame_clock _obj' checkUnexpectedReturnNULL "gdk_window_get_frame_clock" result result' <- (newObject FrameClock) result touchManagedPtr _obj return result' -- method Window::get_frame_extents -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_frame_extents" gdk_window_get_frame_extents :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" IO () windowGetFrameExtents :: (MonadIO m, WindowK a) => a -> -- _obj m (Cairo.RectangleInt) windowGetFrameExtents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) gdk_window_get_frame_extents _obj' rect rect' <- (wrapBoxed Cairo.RectangleInt) rect touchManagedPtr _obj return rect' -- method Window::get_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "FullscreenMode" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_fullscreen_mode" gdk_window_get_fullscreen_mode :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CUInt windowGetFullscreenMode :: (MonadIO m, WindowK a) => a -> -- _obj m FullscreenMode windowGetFullscreenMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_fullscreen_mode _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::get_geometry -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_geometry" gdk_window_get_geometry :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 Ptr Int32 -> -- width : TBasicType TInt32 Ptr Int32 -> -- height : TBasicType TInt32 IO () windowGetGeometry :: (MonadIO m, WindowK a) => a -> -- _obj m (Int32,Int32,Int32,Int32) windowGetGeometry _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) height <- allocMem :: IO (Ptr Int32) gdk_window_get_geometry _obj' x y width height x' <- peek x y' <- peek y width' <- peek width height' <- peek height touchManagedPtr _obj freeMem x freeMem y freeMem width freeMem height return (x', y', width', height') -- method Window::get_group -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_group" gdk_window_get_group :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Window) windowGetGroup :: (MonadIO m, WindowK a) => a -> -- _obj m Window windowGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_group _obj' checkUnexpectedReturnNULL "gdk_window_get_group" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Window::get_height -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_height" gdk_window_get_height :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO Int32 windowGetHeight :: (MonadIO m, WindowK a) => a -> -- _obj m Int32 windowGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_height _obj' touchManagedPtr _obj return result -- method Window::get_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_modal_hint" gdk_window_get_modal_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowGetModalHint :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetModalHint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_modal_hint _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_origin -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_origin" gdk_window_get_origin :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 IO Int32 windowGetOrigin :: (MonadIO m, WindowK a) => a -> -- _obj m (Int32,Int32,Int32) windowGetOrigin _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) result <- gdk_window_get_origin _obj' x y x' <- peek x y' <- peek y touchManagedPtr _obj freeMem x freeMem y return (result, x', y') -- method Window::get_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_parent" gdk_window_get_parent :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Window) windowGetParent :: (MonadIO m, WindowK a) => a -> -- _obj m Window windowGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_parent _obj' checkUnexpectedReturnNULL "gdk_window_get_parent" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Window::get_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_pointer" gdk_window_get_pointer :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" IO (Ptr Window) {-# DEPRECATED windowGetPointer ["(Since version 3.0)","Use gdk_window_get_device_position() instead."]#-} windowGetPointer :: (MonadIO m, WindowK a) => a -> -- _obj m (Window,Int32,Int32,[ModifierType]) windowGetPointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_pointer _obj' x y mask checkUnexpectedReturnNULL "gdk_window_get_pointer" result result' <- (newObject Window) result x' <- peek x y' <- peek y mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr _obj freeMem x freeMem y freeMem mask return (result', x', y', mask'') -- method Window::get_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_position" gdk_window_get_position :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 IO () windowGetPosition :: (MonadIO m, WindowK a) => a -> -- _obj m (Int32,Int32) windowGetPosition _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) gdk_window_get_position _obj' x y x' <- peek x y' <- peek y touchManagedPtr _obj freeMem x freeMem y return (x', y') -- method Window::get_root_coords -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_root_coords" gdk_window_get_root_coords :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Ptr Int32 -> -- root_x : TBasicType TInt32 Ptr Int32 -> -- root_y : TBasicType TInt32 IO () windowGetRootCoords :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- x Int32 -> -- y m (Int32,Int32) windowGetRootCoords _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj root_x <- allocMem :: IO (Ptr Int32) root_y <- allocMem :: IO (Ptr Int32) gdk_window_get_root_coords _obj' x y root_x root_y root_x' <- peek root_x root_y' <- peek root_y touchManagedPtr _obj freeMem root_x freeMem root_y return (root_x', root_y') -- method Window::get_root_origin -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_root_origin" gdk_window_get_root_origin :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Int32 -> -- x : TBasicType TInt32 Ptr Int32 -> -- y : TBasicType TInt32 IO () windowGetRootOrigin :: (MonadIO m, WindowK a) => a -> -- _obj m (Int32,Int32) windowGetRootOrigin _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) gdk_window_get_root_origin _obj' x y x' <- peek x y' <- peek y touchManagedPtr _obj freeMem x freeMem y return (x', y') -- method Window::get_scale_factor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_scale_factor" gdk_window_get_scale_factor :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO Int32 windowGetScaleFactor :: (MonadIO m, WindowK a) => a -> -- _obj m Int32 windowGetScaleFactor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_scale_factor _obj' touchManagedPtr _obj return result -- method Window::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Screen" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_screen" gdk_window_get_screen :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Screen) windowGetScreen :: (MonadIO m, WindowK a) => a -> -- _obj m Screen windowGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_screen _obj' checkUnexpectedReturnNULL "gdk_window_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' -- method Window::get_source_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "EventMask" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_source_events" gdk_window_get_source_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- source : TInterface "Gdk" "InputSource" IO CUInt windowGetSourceEvents :: (MonadIO m, WindowK a) => a -> -- _obj InputSource -> -- source m [EventMask] windowGetSourceEvents _obj source = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let source' = (fromIntegral . fromEnum) source result <- gdk_window_get_source_events _obj' source' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Window::get_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "WindowState" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_state" gdk_window_get_state :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CUInt windowGetState :: (MonadIO m, WindowK a) => a -> -- _obj m [WindowState] windowGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_state _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Window::get_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_support_multidevice" gdk_window_get_support_multidevice :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowGetSupportMultidevice :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowGetSupportMultidevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_support_multidevice _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_toplevel" gdk_window_get_toplevel :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Window) windowGetToplevel :: (MonadIO m, WindowK a) => a -> -- _obj m Window windowGetToplevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_toplevel _obj' checkUnexpectedReturnNULL "gdk_window_get_toplevel" result result' <- (newObject Window) result touchManagedPtr _obj return result' -- method Window::get_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "WindowTypeHint" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_type_hint" gdk_window_get_type_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CUInt windowGetTypeHint :: (MonadIO m, WindowK a) => a -> -- _obj m WindowTypeHint windowGetTypeHint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_type_hint _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::get_update_area -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Region" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_update_area" gdk_window_get_update_area :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Cairo.Region) windowGetUpdateArea :: (MonadIO m, WindowK a) => a -> -- _obj m Cairo.Region windowGetUpdateArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_update_area _obj' checkUnexpectedReturnNULL "gdk_window_get_update_area" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' -- method Window::get_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_user_data" gdk_window_get_user_data :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr (Ptr ()) -> -- data : TBasicType TVoid IO () windowGetUserData :: (MonadIO m, WindowK a) => a -> -- _obj m ((Ptr ())) windowGetUserData _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj data_ <- allocMem :: IO (Ptr (Ptr ())) gdk_window_get_user_data _obj' data_ data_' <- peek data_ touchManagedPtr _obj freeMem data_ return data_' -- method Window::get_visible_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Region" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_visible_region" gdk_window_get_visible_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Cairo.Region) windowGetVisibleRegion :: (MonadIO m, WindowK a) => a -> -- _obj m Cairo.Region windowGetVisibleRegion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_visible_region _obj' checkUnexpectedReturnNULL "gdk_window_get_visible_region" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' -- method Window::get_visual -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Visual" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_visual" gdk_window_get_visual :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr Visual) windowGetVisual :: (MonadIO m, WindowK a) => a -> -- _obj m Visual windowGetVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_visual _obj' checkUnexpectedReturnNULL "gdk_window_get_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' -- method Window::get_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_width" gdk_window_get_width :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO Int32 windowGetWidth :: (MonadIO m, WindowK a) => a -> -- _obj m Int32 windowGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_width _obj' touchManagedPtr _obj return result -- method Window::get_window_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "WindowType" -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_window_type" gdk_window_get_window_type :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CUInt windowGetWindowType :: (MonadIO m, WindowK a) => a -> -- _obj m WindowType windowGetWindowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_window_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::has_native -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_has_native" gdk_window_has_native :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowHasNative :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowHasNative _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_has_native _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::hide -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_hide" gdk_window_hide :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowHide :: (MonadIO m, WindowK a) => a -> -- _obj m () windowHide _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_hide _obj' touchManagedPtr _obj return () -- method Window::iconify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_iconify" gdk_window_iconify :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowIconify :: (MonadIO m, WindowK a) => a -> -- _obj m () windowIconify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_iconify _obj' touchManagedPtr _obj return () -- method Window::input_shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_input_shape_combine_region" gdk_window_input_shape_combine_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region" Int32 -> -- offset_x : TBasicType TInt32 Int32 -> -- offset_y : TBasicType TInt32 IO () windowInputShapeCombineRegion :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Region -> -- shape_region Int32 -> -- offset_x Int32 -> -- offset_y m () windowInputShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let shape_region' = unsafeManagedPtrGetPtr shape_region gdk_window_input_shape_combine_region _obj' shape_region' offset_x offset_y touchManagedPtr _obj touchManagedPtr shape_region return () -- method Window::invalidate_maybe_recurse -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_maybe_recurse" gdk_window_invalidate_maybe_recurse :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" FunPtr WindowChildFuncC -> -- child_func : TInterface "Gdk" "WindowChildFunc" Ptr () -> -- user_data : TBasicType TVoid IO () windowInvalidateMaybeRecurse :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Region -> -- region Maybe (WindowChildFunc) -> -- child_func m () windowInvalidateMaybeRecurse _obj region child_func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region maybeChild_func <- case child_func of Nothing -> return (castPtrToFunPtr nullPtr) Just jChild_func -> do jChild_func' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChild_func) return jChild_func' let user_data = nullPtr gdk_window_invalidate_maybe_recurse _obj' region' maybeChild_func user_data safeFreeFunPtr $ castFunPtrToPtr maybeChild_func touchManagedPtr _obj touchManagedPtr region return () -- method Window::invalidate_rect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" CInt -> -- invalidate_children : TBasicType TBoolean IO () windowInvalidateRect :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (Cairo.RectangleInt) -> -- rect Bool -> -- invalidate_children m () windowInvalidateRect _obj rect invalidate_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRect <- case rect of Nothing -> return nullPtr Just jRect -> do let jRect' = unsafeManagedPtrGetPtr jRect return jRect' let invalidate_children' = (fromIntegral . fromEnum) invalidate_children gdk_window_invalidate_rect _obj' maybeRect invalidate_children' touchManagedPtr _obj whenJust rect touchManagedPtr return () -- method Window::invalidate_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_region" gdk_window_invalidate_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" CInt -> -- invalidate_children : TBasicType TBoolean IO () windowInvalidateRegion :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Region -> -- region Bool -> -- invalidate_children m () windowInvalidateRegion _obj region invalidate_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region let invalidate_children' = (fromIntegral . fromEnum) invalidate_children gdk_window_invalidate_region _obj' region' invalidate_children' touchManagedPtr _obj touchManagedPtr region return () -- method Window::is_destroyed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_is_destroyed" gdk_window_is_destroyed :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowIsDestroyed :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowIsDestroyed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_destroyed _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_input_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_is_input_only" gdk_window_is_input_only :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowIsInputOnly :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowIsInputOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_input_only _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_shaped -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_is_shaped" gdk_window_is_shaped :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowIsShaped :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowIsShaped _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_shaped _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_viewable -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_is_viewable" gdk_window_is_viewable :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowIsViewable :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowIsViewable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_viewable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_visible -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_is_visible" gdk_window_is_visible :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO CInt windowIsVisible :: (MonadIO m, WindowK a) => a -> -- _obj m Bool windowIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::lower -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_lower" gdk_window_lower :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowLower :: (MonadIO m, WindowK a) => a -> -- _obj m () windowLower _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_lower _obj' touchManagedPtr _obj return () -- method Window::mark_paint_from_clip -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_mark_paint_from_clip" gdk_window_mark_paint_from_clip :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" IO () windowMarkPaintFromClip :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Context -> -- cr m () windowMarkPaintFromClip _obj cr = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cr' = unsafeManagedPtrGetPtr cr gdk_window_mark_paint_from_clip _obj' cr' touchManagedPtr _obj touchManagedPtr cr return () -- method Window::maximize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_maximize" gdk_window_maximize :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowMaximize :: (MonadIO m, WindowK a) => a -> -- _obj m () windowMaximize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_maximize _obj' touchManagedPtr _obj return () -- method Window::merge_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_merge_child_input_shapes" gdk_window_merge_child_input_shapes :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowMergeChildInputShapes :: (MonadIO m, WindowK a) => a -> -- _obj m () windowMergeChildInputShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_merge_child_input_shapes _obj' touchManagedPtr _obj return () -- method Window::merge_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_merge_child_shapes" gdk_window_merge_child_shapes :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowMergeChildShapes :: (MonadIO m, WindowK a) => a -> -- _obj m () windowMergeChildShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_merge_child_shapes _obj' touchManagedPtr _obj return () -- method Window::move -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_move" gdk_window_move :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () windowMove :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- x Int32 -> -- y m () windowMove _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_move _obj' x y touchManagedPtr _obj return () -- method Window::move_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_move_region" gdk_window_move_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" Int32 -> -- dx : TBasicType TInt32 Int32 -> -- dy : TBasicType TInt32 IO () windowMoveRegion :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.Region -> -- region Int32 -> -- dx Int32 -> -- dy m () windowMoveRegion _obj region dx dy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region gdk_window_move_region _obj' region' dx dy touchManagedPtr _obj touchManagedPtr region return () -- method Window::move_resize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_move_resize" gdk_window_move_resize :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO () windowMoveResize :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- x Int32 -> -- y Int32 -> -- width Int32 -> -- height m () windowMoveResize _obj x y width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_move_resize _obj' x y width height touchManagedPtr _obj return () -- method Window::peek_children -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Gdk" "Window") -- throws : False -- Skip return : False foreign import ccall "gdk_window_peek_children" gdk_window_peek_children :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO (Ptr (GList (Ptr Window))) windowPeekChildren :: (MonadIO m, WindowK a) => a -> -- _obj m [Window] windowPeekChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_peek_children _obj' checkUnexpectedReturnNULL "gdk_window_peek_children" result result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr _obj return result'' -- method Window::process_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_process_updates" gdk_window_process_updates :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- update_children : TBasicType TBoolean IO () windowProcessUpdates :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- update_children m () windowProcessUpdates _obj update_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let update_children' = (fromIntegral . fromEnum) update_children gdk_window_process_updates _obj' update_children' touchManagedPtr _obj return () -- method Window::raise -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_raise" gdk_window_raise :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowRaise :: (MonadIO m, WindowK a) => a -> -- _obj m () windowRaise _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_raise _obj' touchManagedPtr _obj return () -- method Window::register_dnd -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_register_dnd" gdk_window_register_dnd :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowRegisterDnd :: (MonadIO m, WindowK a) => a -> -- _obj m () windowRegisterDnd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_register_dnd _obj' touchManagedPtr _obj return () -- method Window::reparent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_reparent" gdk_window_reparent :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Window -> -- new_parent : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 IO () windowReparent :: (MonadIO m, WindowK a, WindowK b) => a -> -- _obj b -> -- new_parent Int32 -> -- x Int32 -> -- y m () windowReparent _obj new_parent x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let new_parent' = unsafeManagedPtrCastPtr new_parent gdk_window_reparent _obj' new_parent' x y touchManagedPtr _obj touchManagedPtr new_parent return () -- method Window::resize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_resize" gdk_window_resize :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO () windowResize :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- width Int32 -> -- height m () windowResize _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_resize _obj' width height touchManagedPtr _obj return () -- method Window::restack -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_restack" gdk_window_restack :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Window -> -- sibling : TInterface "Gdk" "Window" CInt -> -- above : TBasicType TBoolean IO () windowRestack :: (MonadIO m, WindowK a, WindowK b) => a -> -- _obj Maybe (b) -> -- sibling Bool -> -- above m () windowRestack _obj sibling above = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeSibling <- case sibling of Nothing -> return nullPtr Just jSibling -> do let jSibling' = unsafeManagedPtrCastPtr jSibling return jSibling' let above' = (fromIntegral . fromEnum) above gdk_window_restack _obj' maybeSibling above' touchManagedPtr _obj whenJust sibling touchManagedPtr return () -- method Window::scroll -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_scroll" gdk_window_scroll :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- dx : TBasicType TInt32 Int32 -> -- dy : TBasicType TInt32 IO () windowScroll :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- dx Int32 -> -- dy m () windowScroll _obj dx dy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_scroll _obj' dx dy touchManagedPtr _obj return () -- method Window::set_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_accept_focus" gdk_window_set_accept_focus :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- accept_focus : TBasicType TBoolean IO () windowSetAcceptFocus :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- accept_focus m () windowSetAcceptFocus _obj accept_focus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let accept_focus' = (fromIntegral . fromEnum) accept_focus gdk_window_set_accept_focus _obj' accept_focus' touchManagedPtr _obj return () -- method Window::set_background -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background" gdk_window_set_background :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Color -> -- color : TInterface "Gdk" "Color" IO () {-# DEPRECATED windowSetBackground ["(Since version 3.4)","Use gdk_window_set_background_rgba() instead."]#-} windowSetBackground :: (MonadIO m, WindowK a) => a -> -- _obj Color -> -- color m () windowSetBackground _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color gdk_window_set_background _obj' color' touchManagedPtr _obj touchManagedPtr color return () -- method Window::set_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background_pattern" gdk_window_set_background_pattern :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Pattern -> -- pattern : TInterface "cairo" "Pattern" IO () windowSetBackgroundPattern :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (Cairo.Pattern) -> -- pattern m () windowSetBackgroundPattern _obj pattern = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybePattern <- case pattern of Nothing -> return nullPtr Just jPattern -> do let jPattern' = unsafeManagedPtrGetPtr jPattern return jPattern' gdk_window_set_background_pattern _obj' maybePattern touchManagedPtr _obj whenJust pattern touchManagedPtr return () -- method Window::set_background_rgba -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background_rgba" gdk_window_set_background_rgba :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr RGBA -> -- rgba : TInterface "Gdk" "RGBA" IO () windowSetBackgroundRgba :: (MonadIO m, WindowK a) => a -> -- _obj RGBA -> -- rgba m () windowSetBackgroundRgba _obj rgba = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let rgba' = unsafeManagedPtrGetPtr rgba gdk_window_set_background_rgba _obj' rgba' touchManagedPtr _obj touchManagedPtr rgba return () -- method Window::set_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_child_input_shapes" gdk_window_set_child_input_shapes :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowSetChildInputShapes :: (MonadIO m, WindowK a) => a -> -- _obj m () windowSetChildInputShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_set_child_input_shapes _obj' touchManagedPtr _obj return () -- method Window::set_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_child_shapes" gdk_window_set_child_shapes :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowSetChildShapes :: (MonadIO m, WindowK a) => a -> -- _obj m () windowSetChildShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_set_child_shapes _obj' touchManagedPtr _obj return () -- method Window::set_composited -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_composited" gdk_window_set_composited :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- composited : TBasicType TBoolean IO () {-# DEPRECATED windowSetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} windowSetComposited :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- composited m () windowSetComposited _obj composited = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let composited' = (fromIntegral . fromEnum) composited gdk_window_set_composited _obj' composited' touchManagedPtr _obj return () -- method Window::set_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_cursor" gdk_window_set_cursor :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" IO () windowSetCursor :: (MonadIO m, WindowK a, CursorK b) => a -> -- _obj Maybe (b) -> -- cursor m () windowSetCursor _obj cursor = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCursor <- case cursor of Nothing -> return nullPtr Just jCursor -> do let jCursor' = unsafeManagedPtrCastPtr jCursor return jCursor' gdk_window_set_cursor _obj' maybeCursor touchManagedPtr _obj whenJust cursor touchManagedPtr return () -- method Window::set_decorations -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_decorations" gdk_window_set_decorations :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- decorations : TInterface "Gdk" "WMDecoration" IO () windowSetDecorations :: (MonadIO m, WindowK a) => a -> -- _obj [WMDecoration] -> -- decorations m () windowSetDecorations _obj decorations = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let decorations' = gflagsToWord decorations gdk_window_set_decorations _obj' decorations' touchManagedPtr _obj return () -- method Window::set_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_device_cursor" gdk_window_set_device_cursor :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" IO () windowSetDeviceCursor :: (MonadIO m, WindowK a, DeviceK b, CursorK c) => a -> -- _obj b -> -- device c -> -- cursor m () windowSetDeviceCursor _obj device cursor = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device let cursor' = unsafeManagedPtrCastPtr cursor gdk_window_set_device_cursor _obj' device' cursor' touchManagedPtr _obj touchManagedPtr device touchManagedPtr cursor return () -- method Window::set_device_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_device_events" gdk_window_set_device_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" CUInt -> -- event_mask : TInterface "Gdk" "EventMask" IO () windowSetDeviceEvents :: (MonadIO m, WindowK a, DeviceK b) => a -> -- _obj b -> -- device [EventMask] -> -- event_mask m () windowSetDeviceEvents _obj device event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device let event_mask' = gflagsToWord event_mask gdk_window_set_device_events _obj' device' event_mask' touchManagedPtr _obj touchManagedPtr device return () -- method Window::set_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_event_compression" gdk_window_set_event_compression :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- event_compression : TBasicType TBoolean IO () windowSetEventCompression :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- event_compression m () windowSetEventCompression _obj event_compression = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event_compression' = (fromIntegral . fromEnum) event_compression gdk_window_set_event_compression _obj' event_compression' touchManagedPtr _obj return () -- method Window::set_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_events" gdk_window_set_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- event_mask : TInterface "Gdk" "EventMask" IO () windowSetEvents :: (MonadIO m, WindowK a) => a -> -- _obj [EventMask] -> -- event_mask m () windowSetEvents _obj event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event_mask' = gflagsToWord event_mask gdk_window_set_events _obj' event_mask' touchManagedPtr _obj return () -- method Window::set_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_focus_on_map" gdk_window_set_focus_on_map :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- focus_on_map : TBasicType TBoolean IO () windowSetFocusOnMap :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- focus_on_map m () windowSetFocusOnMap _obj focus_on_map = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let focus_on_map' = (fromIntegral . fromEnum) focus_on_map gdk_window_set_focus_on_map _obj' focus_on_map' touchManagedPtr _obj return () -- method Window::set_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_fullscreen_mode" gdk_window_set_fullscreen_mode :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- mode : TInterface "Gdk" "FullscreenMode" IO () windowSetFullscreenMode :: (MonadIO m, WindowK a) => a -> -- _obj FullscreenMode -> -- mode m () windowSetFullscreenMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode gdk_window_set_fullscreen_mode _obj' mode' touchManagedPtr _obj return () -- method Window::set_functions -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_functions" gdk_window_set_functions :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- functions : TInterface "Gdk" "WMFunction" IO () windowSetFunctions :: (MonadIO m, WindowK a) => a -> -- _obj [WMFunction] -> -- functions m () windowSetFunctions _obj functions = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let functions' = gflagsToWord functions gdk_window_set_functions _obj' functions' touchManagedPtr _obj return () -- method Window::set_geometry_hints -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_geometry_hints" gdk_window_set_geometry_hints :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry" CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints" IO () windowSetGeometryHints :: (MonadIO m, WindowK a) => a -> -- _obj Geometry -> -- geometry [WindowHints] -> -- geom_mask m () windowSetGeometryHints _obj geometry geom_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let geometry' = unsafeManagedPtrGetPtr geometry let geom_mask' = gflagsToWord geom_mask gdk_window_set_geometry_hints _obj' geometry' geom_mask' touchManagedPtr _obj touchManagedPtr geometry return () -- method Window::set_group -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_group" gdk_window_set_group :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Window -> -- leader : TInterface "Gdk" "Window" IO () windowSetGroup :: (MonadIO m, WindowK a, WindowK b) => a -> -- _obj Maybe (b) -> -- leader m () windowSetGroup _obj leader = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeLeader <- case leader of Nothing -> return nullPtr Just jLeader -> do let jLeader' = unsafeManagedPtrCastPtr jLeader return jLeader' gdk_window_set_group _obj' maybeLeader touchManagedPtr _obj whenJust leader touchManagedPtr return () -- method Window::set_icon_list -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_icon_list" gdk_window_set_icon_list :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- pixbufs : TGList (TInterface "GdkPixbuf" "Pixbuf") IO () windowSetIconList :: (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => a -> -- _obj [b] -> -- pixbufs m () windowSetIconList _obj pixbufs = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pixbufs' = map unsafeManagedPtrCastPtr pixbufs pixbufs'' <- packGList pixbufs' gdk_window_set_icon_list _obj' pixbufs'' touchManagedPtr _obj mapM_ touchManagedPtr pixbufs g_list_free pixbufs'' return () -- method Window::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_icon_name" gdk_window_set_icon_name :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CString -> -- name : TBasicType TUTF8 IO () windowSetIconName :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (T.Text) -> -- name m () windowSetIconName _obj name = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeName <- case name of Nothing -> return nullPtr Just jName -> do jName' <- textToCString jName return jName' gdk_window_set_icon_name _obj' maybeName touchManagedPtr _obj freeMem maybeName return () -- method Window::set_keep_above -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_keep_above" gdk_window_set_keep_above :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- setting : TBasicType TBoolean IO () windowSetKeepAbove :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- setting m () windowSetKeepAbove _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_above _obj' setting' touchManagedPtr _obj return () -- method Window::set_keep_below -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_keep_below" gdk_window_set_keep_below :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- setting : TBasicType TBoolean IO () windowSetKeepBelow :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- setting m () windowSetKeepBelow _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_below _obj' setting' touchManagedPtr _obj return () -- method Window::set_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_modal_hint" gdk_window_set_modal_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- modal : TBasicType TBoolean IO () windowSetModalHint :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- modal m () windowSetModalHint _obj modal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let modal' = (fromIntegral . fromEnum) modal gdk_window_set_modal_hint _obj' modal' touchManagedPtr _obj return () -- method Window::set_opacity -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_opacity" gdk_window_set_opacity :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CDouble -> -- opacity : TBasicType TDouble IO () windowSetOpacity :: (MonadIO m, WindowK a) => a -> -- _obj Double -> -- opacity m () windowSetOpacity _obj opacity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let opacity' = realToFrac opacity gdk_window_set_opacity _obj' opacity' touchManagedPtr _obj return () -- method Window::set_opaque_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_opaque_region" gdk_window_set_opaque_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" IO () windowSetOpaqueRegion :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (Cairo.Region) -> -- region m () windowSetOpaqueRegion _obj region = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRegion <- case region of Nothing -> return nullPtr Just jRegion -> do let jRegion' = unsafeManagedPtrGetPtr jRegion return jRegion' gdk_window_set_opaque_region _obj' maybeRegion touchManagedPtr _obj whenJust region touchManagedPtr return () -- method Window::set_override_redirect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_override_redirect" gdk_window_set_override_redirect :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- override_redirect : TBasicType TBoolean IO () windowSetOverrideRedirect :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- override_redirect m () windowSetOverrideRedirect _obj override_redirect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let override_redirect' = (fromIntegral . fromEnum) override_redirect gdk_window_set_override_redirect _obj' override_redirect' touchManagedPtr _obj return () -- method Window::set_role -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_role" gdk_window_set_role :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CString -> -- role : TBasicType TUTF8 IO () windowSetRole :: (MonadIO m, WindowK a) => a -> -- _obj T.Text -> -- role m () windowSetRole _obj role = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj role' <- textToCString role gdk_window_set_role _obj' role' touchManagedPtr _obj freeMem role' return () -- method Window::set_shadow_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_shadow_width" gdk_window_set_shadow_width :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Int32 -> -- left : TBasicType TInt32 Int32 -> -- right : TBasicType TInt32 Int32 -> -- top : TBasicType TInt32 Int32 -> -- bottom : TBasicType TInt32 IO () windowSetShadowWidth :: (MonadIO m, WindowK a) => a -> -- _obj Int32 -> -- left Int32 -> -- right Int32 -> -- top Int32 -> -- bottom m () windowSetShadowWidth _obj left right top bottom = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_set_shadow_width _obj' left right top bottom touchManagedPtr _obj return () -- method Window::set_skip_pager_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_skip_pager_hint" gdk_window_set_skip_pager_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- skips_pager : TBasicType TBoolean IO () windowSetSkipPagerHint :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- skips_pager m () windowSetSkipPagerHint _obj skips_pager = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let skips_pager' = (fromIntegral . fromEnum) skips_pager gdk_window_set_skip_pager_hint _obj' skips_pager' touchManagedPtr _obj return () -- method Window::set_skip_taskbar_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_skip_taskbar_hint" gdk_window_set_skip_taskbar_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- skips_taskbar : TBasicType TBoolean IO () windowSetSkipTaskbarHint :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- skips_taskbar m () windowSetSkipTaskbarHint _obj skips_taskbar = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let skips_taskbar' = (fromIntegral . fromEnum) skips_taskbar gdk_window_set_skip_taskbar_hint _obj' skips_taskbar' touchManagedPtr _obj return () -- method Window::set_source_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_source_events" gdk_window_set_source_events :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- source : TInterface "Gdk" "InputSource" CUInt -> -- event_mask : TInterface "Gdk" "EventMask" IO () windowSetSourceEvents :: (MonadIO m, WindowK a) => a -> -- _obj InputSource -> -- source [EventMask] -> -- event_mask m () windowSetSourceEvents _obj source event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let source' = (fromIntegral . fromEnum) source let event_mask' = gflagsToWord event_mask gdk_window_set_source_events _obj' source' event_mask' touchManagedPtr _obj return () -- method Window::set_startup_id -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_startup_id" gdk_window_set_startup_id :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CString -> -- startup_id : TBasicType TUTF8 IO () windowSetStartupId :: (MonadIO m, WindowK a) => a -> -- _obj T.Text -> -- startup_id m () windowSetStartupId _obj startup_id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj startup_id' <- textToCString startup_id gdk_window_set_startup_id _obj' startup_id' touchManagedPtr _obj freeMem startup_id' return () -- method Window::set_static_gravities -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_static_gravities" gdk_window_set_static_gravities :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- use_static : TBasicType TBoolean IO CInt {-# DEPRECATED windowSetStaticGravities ["(Since version 3.16)","static gravities haven't worked on anything but X11"," for a long time."]#-} windowSetStaticGravities :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- use_static m Bool windowSetStaticGravities _obj use_static = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let use_static' = (fromIntegral . fromEnum) use_static result <- gdk_window_set_static_gravities _obj' use_static' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::set_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_support_multidevice" gdk_window_set_support_multidevice :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- support_multidevice : TBasicType TBoolean IO () windowSetSupportMultidevice :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- support_multidevice m () windowSetSupportMultidevice _obj support_multidevice = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let support_multidevice' = (fromIntegral . fromEnum) support_multidevice gdk_window_set_support_multidevice _obj' support_multidevice' touchManagedPtr _obj return () -- method Window::set_title -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_title" gdk_window_set_title :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CString -> -- title : TBasicType TUTF8 IO () windowSetTitle :: (MonadIO m, WindowK a) => a -> -- _obj T.Text -> -- title m () windowSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title gdk_window_set_title _obj' title' touchManagedPtr _obj freeMem title' return () -- method Window::set_transient_for -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_transient_for" gdk_window_set_transient_for :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Window -> -- parent : TInterface "Gdk" "Window" IO () windowSetTransientFor :: (MonadIO m, WindowK a, WindowK b) => a -> -- _obj b -> -- parent m () windowSetTransientFor _obj parent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let parent' = unsafeManagedPtrCastPtr parent gdk_window_set_transient_for _obj' parent' touchManagedPtr _obj touchManagedPtr parent return () -- method Window::set_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_type_hint" gdk_window_set_type_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint" IO () windowSetTypeHint :: (MonadIO m, WindowK a) => a -> -- _obj WindowTypeHint -> -- hint m () windowSetTypeHint _obj hint = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let hint' = (fromIntegral . fromEnum) hint gdk_window_set_type_hint _obj' hint' touchManagedPtr _obj return () -- method Window::set_urgency_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_urgency_hint" gdk_window_set_urgency_hint :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" CInt -> -- urgent : TBasicType TBoolean IO () windowSetUrgencyHint :: (MonadIO m, WindowK a) => a -> -- _obj Bool -> -- urgent m () windowSetUrgencyHint _obj urgent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let urgent' = (fromIntegral . fromEnum) urgent gdk_window_set_urgency_hint _obj' urgent' touchManagedPtr _obj return () -- method Window::set_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_user_data" gdk_window_set_user_data :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr GObject.Object -> -- user_data : TInterface "GObject" "Object" IO () windowSetUserData :: (MonadIO m, WindowK a, GObject.ObjectK b) => a -> -- _obj Maybe (b) -> -- user_data m () windowSetUserData _obj user_data = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeUser_data <- case user_data of Nothing -> return nullPtr Just jUser_data -> do let jUser_data' = unsafeManagedPtrCastPtr jUser_data return jUser_data' gdk_window_set_user_data _obj' maybeUser_data touchManagedPtr _obj whenJust user_data touchManagedPtr return () -- method Window::shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_shape_combine_region" gdk_window_shape_combine_region :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region" Int32 -> -- offset_x : TBasicType TInt32 Int32 -> -- offset_y : TBasicType TInt32 IO () windowShapeCombineRegion :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (Cairo.Region) -> -- shape_region Int32 -> -- offset_x Int32 -> -- offset_y m () windowShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeShape_region <- case shape_region of Nothing -> return nullPtr Just jShape_region -> do let jShape_region' = unsafeManagedPtrGetPtr jShape_region return jShape_region' gdk_window_shape_combine_region _obj' maybeShape_region offset_x offset_y touchManagedPtr _obj whenJust shape_region touchManagedPtr return () -- method Window::show -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_show" gdk_window_show :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowShow :: (MonadIO m, WindowK a) => a -> -- _obj m () windowShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_show _obj' touchManagedPtr _obj return () -- method Window::show_unraised -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_show_unraised" gdk_window_show_unraised :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowShowUnraised :: (MonadIO m, WindowK a) => a -> -- _obj m () windowShowUnraised _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_show_unraised _obj' touchManagedPtr _obj return () -- method Window::show_window_menu -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_window_show_window_menu" gdk_window_show_window_menu :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" Ptr Event -> -- event : TInterface "Gdk" "Event" IO CInt windowShowWindowMenu :: (MonadIO m, WindowK a) => a -> -- _obj Event -> -- event m Bool windowShowWindowMenu _obj event = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event' = unsafeManagedPtrGetPtr event result <- gdk_window_show_window_menu _obj' event' let result' = (/= 0) result touchManagedPtr _obj touchManagedPtr event return result' -- method Window::stick -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_stick" gdk_window_stick :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowStick :: (MonadIO m, WindowK a) => a -> -- _obj m () windowStick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_stick _obj' touchManagedPtr _obj return () -- method Window::thaw_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_thaw_toplevel_updates_libgtk_only" gdk_window_thaw_toplevel_updates_libgtk_only :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () {-# DEPRECATED windowThawToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-} windowThawToplevelUpdatesLibgtkOnly :: (MonadIO m, WindowK a) => a -> -- _obj m () windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_thaw_toplevel_updates_libgtk_only _obj' touchManagedPtr _obj return () -- method Window::thaw_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_thaw_updates" gdk_window_thaw_updates :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowThawUpdates :: (MonadIO m, WindowK a) => a -> -- _obj m () windowThawUpdates _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_thaw_updates _obj' touchManagedPtr _obj return () -- method Window::unfullscreen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_unfullscreen" gdk_window_unfullscreen :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowUnfullscreen :: (MonadIO m, WindowK a) => a -> -- _obj m () windowUnfullscreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unfullscreen _obj' touchManagedPtr _obj return () -- method Window::unmaximize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_unmaximize" gdk_window_unmaximize :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowUnmaximize :: (MonadIO m, WindowK a) => a -> -- _obj m () windowUnmaximize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unmaximize _obj' touchManagedPtr _obj return () -- method Window::unstick -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_unstick" gdk_window_unstick :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowUnstick :: (MonadIO m, WindowK a) => a -> -- _obj m () windowUnstick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unstick _obj' touchManagedPtr _obj return () -- method Window::withdraw -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_withdraw" gdk_window_withdraw :: Ptr Window -> -- _obj : TInterface "Gdk" "Window" IO () windowWithdraw :: (MonadIO m, WindowK a) => a -> -- _obj m () windowWithdraw _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_withdraw _obj' touchManagedPtr _obj return () -- method Window::at_pointer -- method type : MemberFunction -- Args : [Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: Ptr Int32 -> -- win_x : TBasicType TInt32 Ptr Int32 -> -- win_y : TBasicType TInt32 IO (Ptr Window) {-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-} windowAtPointer :: (MonadIO m) => m (Window,Int32,Int32) windowAtPointer = liftIO $ do win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_window_at_pointer win_x win_y checkUnexpectedReturnNULL "gdk_window_at_pointer" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y freeMem win_x freeMem win_y return (result', win_x', win_y') -- method Window::constrain_size -- method type : MemberFunction -- Args : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_constrain_size" gdk_window_constrain_size :: Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry" CUInt -> -- flags : TInterface "Gdk" "WindowHints" Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 Ptr Int32 -> -- new_width : TBasicType TInt32 Ptr Int32 -> -- new_height : TBasicType TInt32 IO () windowConstrainSize :: (MonadIO m) => Geometry -> -- geometry [WindowHints] -> -- flags Int32 -> -- width Int32 -> -- height m (Int32,Int32) windowConstrainSize geometry flags width height = liftIO $ do let geometry' = unsafeManagedPtrGetPtr geometry let flags' = gflagsToWord flags new_width <- allocMem :: IO (Ptr Int32) new_height <- allocMem :: IO (Ptr Int32) gdk_window_constrain_size geometry' flags' width height new_width new_height new_width' <- peek new_width new_height' <- peek new_height touchManagedPtr geometry freeMem new_width freeMem new_height return (new_width', new_height') -- method Window::process_all_updates -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: IO () windowProcessAllUpdates :: (MonadIO m) => m () windowProcessAllUpdates = liftIO $ do gdk_window_process_all_updates return () -- method Window::set_debug_updates -- method type : MemberFunction -- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_debug_updates" gdk_window_set_debug_updates :: CInt -> -- setting : TBasicType TBoolean IO () windowSetDebugUpdates :: (MonadIO m) => Bool -> -- setting m () windowSetDebugUpdates setting = liftIO $ do let setting' = (fromIntegral . fromEnum) setting gdk_window_set_debug_updates setting' return () -- signal Window::create-surface type WindowCreateSurfaceCallback = Int32 -> Int32 -> IO Cairo.Surface noWindowCreateSurfaceCallback :: Maybe WindowCreateSurfaceCallback noWindowCreateSurfaceCallback = Nothing type WindowCreateSurfaceCallbackC = Ptr () -> -- object Int32 -> Int32 -> Ptr () -> -- user_data IO (Ptr Cairo.Surface) foreign import ccall "wrapper" mkWindowCreateSurfaceCallback :: WindowCreateSurfaceCallbackC -> IO (FunPtr WindowCreateSurfaceCallbackC) windowCreateSurfaceClosure :: WindowCreateSurfaceCallback -> IO Closure windowCreateSurfaceClosure cb = newCClosure =<< mkWindowCreateSurfaceCallback wrapped where wrapped = windowCreateSurfaceCallbackWrapper cb windowCreateSurfaceCallbackWrapper :: WindowCreateSurfaceCallback -> Ptr () -> Int32 -> Int32 -> Ptr () -> IO (Ptr Cairo.Surface) windowCreateSurfaceCallbackWrapper _cb _ width height _ = do result <- _cb width height result' <- copyBoxed result return result' onWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId onWindowCreateSurface obj cb = liftIO $ connectWindowCreateSurface obj cb SignalConnectBefore afterWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId afterWindowCreateSurface obj cb = connectWindowCreateSurface obj cb SignalConnectAfter connectWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> SignalConnectMode -> m SignalHandlerId connectWindowCreateSurface obj cb after = liftIO $ do cb' <- mkWindowCreateSurfaceCallback (windowCreateSurfaceCallbackWrapper cb) connectSignalFunPtr obj "create-surface" cb' after -- signal Window::from-embedder type WindowFromEmbedderCallback = Double -> Double -> IO (Double,Double) noWindowFromEmbedderCallback :: Maybe WindowFromEmbedderCallback noWindowFromEmbedderCallback = Nothing type WindowFromEmbedderCallbackC = Ptr () -> -- object CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkWindowFromEmbedderCallback :: WindowFromEmbedderCallbackC -> IO (FunPtr WindowFromEmbedderCallbackC) windowFromEmbedderClosure :: WindowFromEmbedderCallback -> IO Closure windowFromEmbedderClosure cb = newCClosure =<< mkWindowFromEmbedderCallback wrapped where wrapped = windowFromEmbedderCallbackWrapper cb windowFromEmbedderCallbackWrapper :: WindowFromEmbedderCallback -> Ptr () -> CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> IO () windowFromEmbedderCallbackWrapper _cb _ embedder_x embedder_y offscreen_x offscreen_y _ = do let embedder_x' = realToFrac embedder_x let embedder_y' = realToFrac embedder_y (outoffscreen_x, outoffscreen_y) <- _cb embedder_x' embedder_y' let outoffscreen_x' = realToFrac outoffscreen_x poke offscreen_x outoffscreen_x' let outoffscreen_y' = realToFrac outoffscreen_y poke offscreen_y outoffscreen_y' onWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId onWindowFromEmbedder obj cb = liftIO $ connectWindowFromEmbedder obj cb SignalConnectBefore afterWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId afterWindowFromEmbedder obj cb = connectWindowFromEmbedder obj cb SignalConnectAfter connectWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> SignalConnectMode -> m SignalHandlerId connectWindowFromEmbedder obj cb after = liftIO $ do cb' <- mkWindowFromEmbedderCallback (windowFromEmbedderCallbackWrapper cb) connectSignalFunPtr obj "from-embedder" cb' after -- signal Window::pick-embedded-child type WindowPickEmbeddedChildCallback = Double -> Double -> IO Window noWindowPickEmbeddedChildCallback :: Maybe WindowPickEmbeddedChildCallback noWindowPickEmbeddedChildCallback = Nothing type WindowPickEmbeddedChildCallbackC = Ptr () -> -- object CDouble -> CDouble -> Ptr () -> -- user_data IO (Ptr Window) foreign import ccall "wrapper" mkWindowPickEmbeddedChildCallback :: WindowPickEmbeddedChildCallbackC -> IO (FunPtr WindowPickEmbeddedChildCallbackC) windowPickEmbeddedChildClosure :: WindowPickEmbeddedChildCallback -> IO Closure windowPickEmbeddedChildClosure cb = newCClosure =<< mkWindowPickEmbeddedChildCallback wrapped where wrapped = windowPickEmbeddedChildCallbackWrapper cb windowPickEmbeddedChildCallbackWrapper :: WindowPickEmbeddedChildCallback -> Ptr () -> CDouble -> CDouble -> Ptr () -> IO (Ptr Window) windowPickEmbeddedChildCallbackWrapper _cb _ x y _ = do let x' = realToFrac x let y' = realToFrac y result <- _cb x' y' let result' = unsafeManagedPtrCastPtr result return result' onWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId onWindowPickEmbeddedChild obj cb = liftIO $ connectWindowPickEmbeddedChild obj cb SignalConnectBefore afterWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId afterWindowPickEmbeddedChild obj cb = connectWindowPickEmbeddedChild obj cb SignalConnectAfter connectWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> SignalConnectMode -> m SignalHandlerId connectWindowPickEmbeddedChild obj cb after = liftIO $ do cb' <- mkWindowPickEmbeddedChildCallback (windowPickEmbeddedChildCallbackWrapper cb) connectSignalFunPtr obj "pick-embedded-child" cb' after -- signal Window::to-embedder type WindowToEmbedderCallback = Double -> Double -> IO (Double,Double) noWindowToEmbedderCallback :: Maybe WindowToEmbedderCallback noWindowToEmbedderCallback = Nothing type WindowToEmbedderCallbackC = Ptr () -> -- object CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkWindowToEmbedderCallback :: WindowToEmbedderCallbackC -> IO (FunPtr WindowToEmbedderCallbackC) windowToEmbedderClosure :: WindowToEmbedderCallback -> IO Closure windowToEmbedderClosure cb = newCClosure =<< mkWindowToEmbedderCallback wrapped where wrapped = windowToEmbedderCallbackWrapper cb windowToEmbedderCallbackWrapper :: WindowToEmbedderCallback -> Ptr () -> CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> IO () windowToEmbedderCallbackWrapper _cb _ offscreen_x offscreen_y embedder_x embedder_y _ = do let offscreen_x' = realToFrac offscreen_x let offscreen_y' = realToFrac offscreen_y (outembedder_x, outembedder_y) <- _cb offscreen_x' offscreen_y' let outembedder_x' = realToFrac outembedder_x poke embedder_x outembedder_x' let outembedder_y' = realToFrac outembedder_y poke embedder_y outembedder_y' onWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId onWindowToEmbedder obj cb = liftIO $ connectWindowToEmbedder obj cb SignalConnectBefore afterWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId afterWindowToEmbedder obj cb = connectWindowToEmbedder obj cb SignalConnectAfter connectWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> SignalConnectMode -> m SignalHandlerId connectWindowToEmbedder obj cb after = liftIO $ do cb' <- mkWindowToEmbedderCallback (windowToEmbedderCallbackWrapper cb) connectSignalFunPtr obj "to-embedder" cb' after -- struct WindowAttr newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr) noWindowAttr :: Maybe WindowAttr noWindowAttr = Nothing windowAttrReadTitle :: WindowAttr -> IO T.Text windowAttrReadTitle s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString val' <- cstringToText val return val' windowAttrReadEventMask :: WindowAttr -> IO Int32 windowAttrReadEventMask s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val windowAttrReadX :: WindowAttr -> IO Int32 windowAttrReadX s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val windowAttrReadY :: WindowAttr -> IO Int32 windowAttrReadY s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Int32 return val windowAttrReadWidth :: WindowAttr -> IO Int32 windowAttrReadWidth s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Int32 return val windowAttrReadHeight :: WindowAttr -> IO Int32 windowAttrReadHeight s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Int32 return val windowAttrReadWclass :: WindowAttr -> IO WindowWindowClass windowAttrReadWclass s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' windowAttrReadVisual :: WindowAttr -> IO Visual windowAttrReadVisual s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr Visual) val' <- (newObject Visual) val return val' windowAttrReadWindowType :: WindowAttr -> IO WindowType windowAttrReadWindowType s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' windowAttrReadCursor :: WindowAttr -> IO Cursor windowAttrReadCursor s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO (Ptr Cursor) val' <- (newObject Cursor) val return val' windowAttrReadWmclassName :: WindowAttr -> IO T.Text windowAttrReadWmclassName s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO CString val' <- cstringToText val return val' windowAttrReadWmclassClass :: WindowAttr -> IO T.Text windowAttrReadWmclassClass s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO CString val' <- cstringToText val return val' windowAttrReadOverrideRedirect :: WindowAttr -> IO Bool windowAttrReadOverrideRedirect s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CInt let val' = (/= 0) val return val' windowAttrReadTypeHint :: WindowAttr -> IO WindowTypeHint windowAttrReadTypeHint s = withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 76) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -- Flags WindowAttributesType data WindowAttributesType = WindowAttributesTypeTitle | WindowAttributesTypeX | WindowAttributesTypeY | WindowAttributesTypeCursor | WindowAttributesTypeVisual | WindowAttributesTypeWmclass | WindowAttributesTypeNoredir | WindowAttributesTypeTypeHint | AnotherWindowAttributesType Int deriving (Show, Eq) instance Enum WindowAttributesType where fromEnum WindowAttributesTypeTitle = 2 fromEnum WindowAttributesTypeX = 4 fromEnum WindowAttributesTypeY = 8 fromEnum WindowAttributesTypeCursor = 16 fromEnum WindowAttributesTypeVisual = 32 fromEnum WindowAttributesTypeWmclass = 64 fromEnum WindowAttributesTypeNoredir = 128 fromEnum WindowAttributesTypeTypeHint = 256 fromEnum (AnotherWindowAttributesType k) = k toEnum 2 = WindowAttributesTypeTitle toEnum 4 = WindowAttributesTypeX toEnum 8 = WindowAttributesTypeY toEnum 16 = WindowAttributesTypeCursor toEnum 32 = WindowAttributesTypeVisual toEnum 64 = WindowAttributesTypeWmclass toEnum 128 = WindowAttributesTypeNoredir toEnum 256 = WindowAttributesTypeTypeHint toEnum k = AnotherWindowAttributesType k foreign import ccall "gdk_window_attributes_type_get_type" c_gdk_window_attributes_type_get_type :: IO GType instance BoxedEnum WindowAttributesType where boxedEnumType _ = c_gdk_window_attributes_type_get_type instance IsGFlag WindowAttributesType -- callback WindowChildFunc windowChildFuncClosure :: WindowChildFunc -> IO Closure windowChildFuncClosure cb = newCClosure =<< mkWindowChildFunc wrapped where wrapped = windowChildFuncWrapper Nothing cb type WindowChildFuncC = Ptr Window -> Ptr () -> IO CInt foreign import ccall "wrapper" mkWindowChildFunc :: WindowChildFuncC -> IO (FunPtr WindowChildFuncC) type WindowChildFunc = Window -> IO Bool noWindowChildFunc :: Maybe WindowChildFunc noWindowChildFunc = Nothing windowChildFuncWrapper :: Maybe (Ptr (FunPtr (WindowChildFuncC))) -> WindowChildFunc -> Ptr Window -> Ptr () -> IO CInt windowChildFuncWrapper funptrptr _cb window _ = do window' <- (newObject Window) window result <- _cb window' maybeReleaseFunPtr funptrptr let result' = (fromIntegral . fromEnum) result return result' -- Enum WindowEdge data WindowEdge = WindowEdgeNorthWest | WindowEdgeNorth | WindowEdgeNorthEast | WindowEdgeWest | WindowEdgeEast | WindowEdgeSouthWest | WindowEdgeSouth | WindowEdgeSouthEast | AnotherWindowEdge Int deriving (Show, Eq) instance Enum WindowEdge where fromEnum WindowEdgeNorthWest = 0 fromEnum WindowEdgeNorth = 1 fromEnum WindowEdgeNorthEast = 2 fromEnum WindowEdgeWest = 3 fromEnum WindowEdgeEast = 4 fromEnum WindowEdgeSouthWest = 5 fromEnum WindowEdgeSouth = 6 fromEnum WindowEdgeSouthEast = 7 fromEnum (AnotherWindowEdge k) = k toEnum 0 = WindowEdgeNorthWest toEnum 1 = WindowEdgeNorth toEnum 2 = WindowEdgeNorthEast toEnum 3 = WindowEdgeWest toEnum 4 = WindowEdgeEast toEnum 5 = WindowEdgeSouthWest toEnum 6 = WindowEdgeSouth toEnum 7 = WindowEdgeSouthEast toEnum k = AnotherWindowEdge k foreign import ccall "gdk_window_edge_get_type" c_gdk_window_edge_get_type :: IO GType instance BoxedEnum WindowEdge where boxedEnumType _ = c_gdk_window_edge_get_type -- Flags WindowHints data WindowHints = WindowHintsPos | WindowHintsMinSize | WindowHintsMaxSize | WindowHintsBaseSize | WindowHintsAspect | WindowHintsResizeInc | WindowHintsWinGravity | WindowHintsUserPos | WindowHintsUserSize | AnotherWindowHints Int deriving (Show, Eq) instance Enum WindowHints where fromEnum WindowHintsPos = 1 fromEnum WindowHintsMinSize = 2 fromEnum WindowHintsMaxSize = 4 fromEnum WindowHintsBaseSize = 8 fromEnum WindowHintsAspect = 16 fromEnum WindowHintsResizeInc = 32 fromEnum WindowHintsWinGravity = 64 fromEnum WindowHintsUserPos = 128 fromEnum WindowHintsUserSize = 256 fromEnum (AnotherWindowHints k) = k toEnum 1 = WindowHintsPos toEnum 2 = WindowHintsMinSize toEnum 4 = WindowHintsMaxSize toEnum 8 = WindowHintsBaseSize toEnum 16 = WindowHintsAspect toEnum 32 = WindowHintsResizeInc toEnum 64 = WindowHintsWinGravity toEnum 128 = WindowHintsUserPos toEnum 256 = WindowHintsUserSize toEnum k = AnotherWindowHints k foreign import ccall "gdk_window_hints_get_type" c_gdk_window_hints_get_type :: IO GType instance BoxedEnum WindowHints where boxedEnumType _ = c_gdk_window_hints_get_type instance IsGFlag WindowHints -- callback WindowInvalidateHandlerFunc windowInvalidateHandlerFuncClosure :: WindowInvalidateHandlerFunc -> IO Closure windowInvalidateHandlerFuncClosure cb = newCClosure =<< mkWindowInvalidateHandlerFunc wrapped where wrapped = windowInvalidateHandlerFuncWrapper Nothing cb type WindowInvalidateHandlerFuncC = Ptr Window -> Ptr Cairo.Region -> IO () foreign import ccall "wrapper" mkWindowInvalidateHandlerFunc :: WindowInvalidateHandlerFuncC -> IO (FunPtr WindowInvalidateHandlerFuncC) type WindowInvalidateHandlerFunc = Window -> Cairo.Region -> IO () noWindowInvalidateHandlerFunc :: Maybe WindowInvalidateHandlerFunc noWindowInvalidateHandlerFunc = Nothing windowInvalidateHandlerFuncWrapper :: Maybe (Ptr (FunPtr (WindowInvalidateHandlerFuncC))) -> WindowInvalidateHandlerFunc -> Ptr Window -> Ptr Cairo.Region -> IO () windowInvalidateHandlerFuncWrapper funptrptr _cb window region = do window' <- (newObject Window) window region' <- (newBoxed Cairo.Region) region _cb window' region' maybeReleaseFunPtr funptrptr -- struct WindowRedirect newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect) noWindowRedirect :: Maybe WindowRedirect noWindowRedirect = Nothing -- Flags WindowState data WindowState = WindowStateWithdrawn | WindowStateIconified | WindowStateMaximized | WindowStateSticky | WindowStateFullscreen | WindowStateAbove | WindowStateBelow | WindowStateFocused | WindowStateTiled | AnotherWindowState Int deriving (Show, Eq) instance Enum WindowState where fromEnum WindowStateWithdrawn = 1 fromEnum WindowStateIconified = 2 fromEnum WindowStateMaximized = 4 fromEnum WindowStateSticky = 8 fromEnum WindowStateFullscreen = 16 fromEnum WindowStateAbove = 32 fromEnum WindowStateBelow = 64 fromEnum WindowStateFocused = 128 fromEnum WindowStateTiled = 256 fromEnum (AnotherWindowState k) = k toEnum 1 = WindowStateWithdrawn toEnum 2 = WindowStateIconified toEnum 4 = WindowStateMaximized toEnum 8 = WindowStateSticky toEnum 16 = WindowStateFullscreen toEnum 32 = WindowStateAbove toEnum 64 = WindowStateBelow toEnum 128 = WindowStateFocused toEnum 256 = WindowStateTiled toEnum k = AnotherWindowState k foreign import ccall "gdk_window_state_get_type" c_gdk_window_state_get_type :: IO GType instance BoxedEnum WindowState where boxedEnumType _ = c_gdk_window_state_get_type instance IsGFlag WindowState -- Enum WindowType data WindowType = WindowTypeRoot | WindowTypeToplevel | WindowTypeChild | WindowTypeTemp | WindowTypeForeign | WindowTypeOffscreen | WindowTypeSubsurface | AnotherWindowType Int deriving (Show, Eq) instance Enum WindowType where fromEnum WindowTypeRoot = 0 fromEnum WindowTypeToplevel = 1 fromEnum WindowTypeChild = 2 fromEnum WindowTypeTemp = 3 fromEnum WindowTypeForeign = 4 fromEnum WindowTypeOffscreen = 5 fromEnum WindowTypeSubsurface = 6 fromEnum (AnotherWindowType k) = k toEnum 0 = WindowTypeRoot toEnum 1 = WindowTypeToplevel toEnum 2 = WindowTypeChild toEnum 3 = WindowTypeTemp toEnum 4 = WindowTypeForeign toEnum 5 = WindowTypeOffscreen toEnum 6 = WindowTypeSubsurface toEnum k = AnotherWindowType k foreign import ccall "gdk_window_type_get_type" c_gdk_window_type_get_type :: IO GType instance BoxedEnum WindowType where boxedEnumType _ = c_gdk_window_type_get_type -- Enum WindowTypeHint data WindowTypeHint = WindowTypeHintNormal | WindowTypeHintDialog | WindowTypeHintMenu | WindowTypeHintToolbar | WindowTypeHintSplashscreen | WindowTypeHintUtility | WindowTypeHintDock | WindowTypeHintDesktop | WindowTypeHintDropdownMenu | WindowTypeHintPopupMenu | WindowTypeHintTooltip | WindowTypeHintNotification | WindowTypeHintCombo | WindowTypeHintDnd | AnotherWindowTypeHint Int deriving (Show, Eq) instance Enum WindowTypeHint where fromEnum WindowTypeHintNormal = 0 fromEnum WindowTypeHintDialog = 1 fromEnum WindowTypeHintMenu = 2 fromEnum WindowTypeHintToolbar = 3 fromEnum WindowTypeHintSplashscreen = 4 fromEnum WindowTypeHintUtility = 5 fromEnum WindowTypeHintDock = 6 fromEnum WindowTypeHintDesktop = 7 fromEnum WindowTypeHintDropdownMenu = 8 fromEnum WindowTypeHintPopupMenu = 9 fromEnum WindowTypeHintTooltip = 10 fromEnum WindowTypeHintNotification = 11 fromEnum WindowTypeHintCombo = 12 fromEnum WindowTypeHintDnd = 13 fromEnum (AnotherWindowTypeHint k) = k toEnum 0 = WindowTypeHintNormal toEnum 1 = WindowTypeHintDialog toEnum 2 = WindowTypeHintMenu toEnum 3 = WindowTypeHintToolbar toEnum 4 = WindowTypeHintSplashscreen toEnum 5 = WindowTypeHintUtility toEnum 6 = WindowTypeHintDock toEnum 7 = WindowTypeHintDesktop toEnum 8 = WindowTypeHintDropdownMenu toEnum 9 = WindowTypeHintPopupMenu toEnum 10 = WindowTypeHintTooltip toEnum 11 = WindowTypeHintNotification toEnum 12 = WindowTypeHintCombo toEnum 13 = WindowTypeHintDnd toEnum k = AnotherWindowTypeHint k foreign import ccall "gdk_window_type_hint_get_type" c_gdk_window_type_hint_get_type :: IO GType instance BoxedEnum WindowTypeHint where boxedEnumType _ = c_gdk_window_type_hint_get_type -- Enum WindowWindowClass data WindowWindowClass = WindowWindowClassInputOutput | WindowWindowClassInputOnly | AnotherWindowWindowClass Int deriving (Show, Eq) instance Enum WindowWindowClass where fromEnum WindowWindowClassInputOutput = 0 fromEnum WindowWindowClassInputOnly = 1 fromEnum (AnotherWindowWindowClass k) = k toEnum 0 = WindowWindowClassInputOutput toEnum 1 = WindowWindowClassInputOnly toEnum k = AnotherWindowWindowClass k foreign import ccall "gdk_window_window_class_get_type" c_gdk_window_window_class_get_type :: IO GType instance BoxedEnum WindowWindowClass where boxedEnumType _ = c_gdk_window_window_class_get_type -- constant _BUTTON_MIDDLE _BUTTON_MIDDLE :: Int32 _BUTTON_MIDDLE = 2 -- constant _BUTTON_PRIMARY _BUTTON_PRIMARY :: Int32 _BUTTON_PRIMARY = 1 -- constant _BUTTON_SECONDARY _BUTTON_SECONDARY :: Int32 _BUTTON_SECONDARY = 3 -- constant _CURRENT_TIME _CURRENT_TIME :: Int32 _CURRENT_TIME = 0 -- constant _EVENT_PROPAGATE _EVENT_PROPAGATE :: Bool _EVENT_PROPAGATE = False -- constant _EVENT_STOP _EVENT_STOP :: Bool _EVENT_STOP = True -- constant _KEY_0 _KEY_0 :: Int32 _KEY_0 = 48 -- constant _KEY_1 _KEY_1 :: Int32 _KEY_1 = 49 -- constant _KEY_2 _KEY_2 :: Int32 _KEY_2 = 50 -- constant _KEY_3 _KEY_3 :: Int32 _KEY_3 = 51 -- constant _KEY_3270_AltCursor _KEY_3270_AltCursor :: Int32 _KEY_3270_AltCursor = 64784 -- constant _KEY_3270_Attn _KEY_3270_Attn :: Int32 _KEY_3270_Attn = 64782 -- constant _KEY_3270_BackTab _KEY_3270_BackTab :: Int32 _KEY_3270_BackTab = 64773 -- constant _KEY_3270_ChangeScreen _KEY_3270_ChangeScreen :: Int32 _KEY_3270_ChangeScreen = 64793 -- constant _KEY_3270_Copy _KEY_3270_Copy :: Int32 _KEY_3270_Copy = 64789 -- constant _KEY_3270_CursorBlink _KEY_3270_CursorBlink :: Int32 _KEY_3270_CursorBlink = 64783 -- constant _KEY_3270_CursorSelect _KEY_3270_CursorSelect :: Int32 _KEY_3270_CursorSelect = 64796 -- constant _KEY_3270_DeleteWord _KEY_3270_DeleteWord :: Int32 _KEY_3270_DeleteWord = 64794 -- constant _KEY_3270_Duplicate _KEY_3270_Duplicate :: Int32 _KEY_3270_Duplicate = 64769 -- constant _KEY_3270_Enter _KEY_3270_Enter :: Int32 _KEY_3270_Enter = 64798 -- constant _KEY_3270_EraseEOF _KEY_3270_EraseEOF :: Int32 _KEY_3270_EraseEOF = 64774 -- constant _KEY_3270_EraseInput _KEY_3270_EraseInput :: Int32 _KEY_3270_EraseInput = 64775 -- constant _KEY_3270_ExSelect _KEY_3270_ExSelect :: Int32 _KEY_3270_ExSelect = 64795 -- constant _KEY_3270_FieldMark _KEY_3270_FieldMark :: Int32 _KEY_3270_FieldMark = 64770 -- constant _KEY_3270_Ident _KEY_3270_Ident :: Int32 _KEY_3270_Ident = 64787 -- constant _KEY_3270_Jump _KEY_3270_Jump :: Int32 _KEY_3270_Jump = 64786 -- constant _KEY_3270_KeyClick _KEY_3270_KeyClick :: Int32 _KEY_3270_KeyClick = 64785 -- constant _KEY_3270_Left2 _KEY_3270_Left2 :: Int32 _KEY_3270_Left2 = 64772 -- constant _KEY_3270_PA1 _KEY_3270_PA1 :: Int32 _KEY_3270_PA1 = 64778 -- constant _KEY_3270_PA2 _KEY_3270_PA2 :: Int32 _KEY_3270_PA2 = 64779 -- constant _KEY_3270_PA3 _KEY_3270_PA3 :: Int32 _KEY_3270_PA3 = 64780 -- constant _KEY_3270_Play _KEY_3270_Play :: Int32 _KEY_3270_Play = 64790 -- constant _KEY_3270_PrintScreen _KEY_3270_PrintScreen :: Int32 _KEY_3270_PrintScreen = 64797 -- constant _KEY_3270_Quit _KEY_3270_Quit :: Int32 _KEY_3270_Quit = 64777 -- constant _KEY_3270_Record _KEY_3270_Record :: Int32 _KEY_3270_Record = 64792 -- constant _KEY_3270_Reset _KEY_3270_Reset :: Int32 _KEY_3270_Reset = 64776 -- constant _KEY_3270_Right2 _KEY_3270_Right2 :: Int32 _KEY_3270_Right2 = 64771 -- constant _KEY_3270_Rule _KEY_3270_Rule :: Int32 _KEY_3270_Rule = 64788 -- constant _KEY_3270_Setup _KEY_3270_Setup :: Int32 _KEY_3270_Setup = 64791 -- constant _KEY_3270_Test _KEY_3270_Test :: Int32 _KEY_3270_Test = 64781 -- constant _KEY_4 _KEY_4 :: Int32 _KEY_4 = 52 -- constant _KEY_5 _KEY_5 :: Int32 _KEY_5 = 53 -- constant _KEY_6 _KEY_6 :: Int32 _KEY_6 = 54 -- constant _KEY_7 _KEY_7 :: Int32 _KEY_7 = 55 -- constant _KEY_8 _KEY_8 :: Int32 _KEY_8 = 56 -- constant _KEY_9 _KEY_9 :: Int32 _KEY_9 = 57 -- constant _KEY_A _KEY_A :: Int32 _KEY_A = 65 -- constant _KEY_AE _KEY_AE :: Int32 _KEY_AE = 198 -- constant _KEY_Aacute _KEY_Aacute :: Int32 _KEY_Aacute = 193 -- constant _KEY_Abelowdot _KEY_Abelowdot :: Int32 _KEY_Abelowdot = 16785056 -- constant _KEY_Abreve _KEY_Abreve :: Int32 _KEY_Abreve = 451 -- constant _KEY_Abreveacute _KEY_Abreveacute :: Int32 _KEY_Abreveacute = 16785070 -- constant _KEY_Abrevebelowdot _KEY_Abrevebelowdot :: Int32 _KEY_Abrevebelowdot = 16785078 -- constant _KEY_Abrevegrave _KEY_Abrevegrave :: Int32 _KEY_Abrevegrave = 16785072 -- constant _KEY_Abrevehook _KEY_Abrevehook :: Int32 _KEY_Abrevehook = 16785074 -- constant _KEY_Abrevetilde _KEY_Abrevetilde :: Int32 _KEY_Abrevetilde = 16785076 -- constant _KEY_AccessX_Enable _KEY_AccessX_Enable :: Int32 _KEY_AccessX_Enable = 65136 -- constant _KEY_AccessX_Feedback_Enable _KEY_AccessX_Feedback_Enable :: Int32 _KEY_AccessX_Feedback_Enable = 65137 -- constant _KEY_Acircumflex _KEY_Acircumflex :: Int32 _KEY_Acircumflex = 194 -- constant _KEY_Acircumflexacute _KEY_Acircumflexacute :: Int32 _KEY_Acircumflexacute = 16785060 -- constant _KEY_Acircumflexbelowdot _KEY_Acircumflexbelowdot :: Int32 _KEY_Acircumflexbelowdot = 16785068 -- constant _KEY_Acircumflexgrave _KEY_Acircumflexgrave :: Int32 _KEY_Acircumflexgrave = 16785062 -- constant _KEY_Acircumflexhook _KEY_Acircumflexhook :: Int32 _KEY_Acircumflexhook = 16785064 -- constant _KEY_Acircumflextilde _KEY_Acircumflextilde :: Int32 _KEY_Acircumflextilde = 16785066 -- constant _KEY_AddFavorite _KEY_AddFavorite :: Int32 _KEY_AddFavorite = 269025081 -- constant _KEY_Adiaeresis _KEY_Adiaeresis :: Int32 _KEY_Adiaeresis = 196 -- constant _KEY_Agrave _KEY_Agrave :: Int32 _KEY_Agrave = 192 -- constant _KEY_Ahook _KEY_Ahook :: Int32 _KEY_Ahook = 16785058 -- constant _KEY_Alt_L _KEY_Alt_L :: Int32 _KEY_Alt_L = 65513 -- constant _KEY_Alt_R _KEY_Alt_R :: Int32 _KEY_Alt_R = 65514 -- constant _KEY_Amacron _KEY_Amacron :: Int32 _KEY_Amacron = 960 -- constant _KEY_Aogonek _KEY_Aogonek :: Int32 _KEY_Aogonek = 417 -- constant _KEY_ApplicationLeft _KEY_ApplicationLeft :: Int32 _KEY_ApplicationLeft = 269025104 -- constant _KEY_ApplicationRight _KEY_ApplicationRight :: Int32 _KEY_ApplicationRight = 269025105 -- constant _KEY_Arabic_0 _KEY_Arabic_0 :: Int32 _KEY_Arabic_0 = 16778848 -- constant _KEY_Arabic_1 _KEY_Arabic_1 :: Int32 _KEY_Arabic_1 = 16778849 -- constant _KEY_Arabic_2 _KEY_Arabic_2 :: Int32 _KEY_Arabic_2 = 16778850 -- constant _KEY_Arabic_3 _KEY_Arabic_3 :: Int32 _KEY_Arabic_3 = 16778851 -- constant _KEY_Arabic_4 _KEY_Arabic_4 :: Int32 _KEY_Arabic_4 = 16778852 -- constant _KEY_Arabic_5 _KEY_Arabic_5 :: Int32 _KEY_Arabic_5 = 16778853 -- constant _KEY_Arabic_6 _KEY_Arabic_6 :: Int32 _KEY_Arabic_6 = 16778854 -- constant _KEY_Arabic_7 _KEY_Arabic_7 :: Int32 _KEY_Arabic_7 = 16778855 -- constant _KEY_Arabic_8 _KEY_Arabic_8 :: Int32 _KEY_Arabic_8 = 16778856 -- constant _KEY_Arabic_9 _KEY_Arabic_9 :: Int32 _KEY_Arabic_9 = 16778857 -- constant _KEY_Arabic_ain _KEY_Arabic_ain :: Int32 _KEY_Arabic_ain = 1497 -- constant _KEY_Arabic_alef _KEY_Arabic_alef :: Int32 _KEY_Arabic_alef = 1479 -- constant _KEY_Arabic_alefmaksura _KEY_Arabic_alefmaksura :: Int32 _KEY_Arabic_alefmaksura = 1513 -- constant _KEY_Arabic_beh _KEY_Arabic_beh :: Int32 _KEY_Arabic_beh = 1480 -- constant _KEY_Arabic_comma _KEY_Arabic_comma :: Int32 _KEY_Arabic_comma = 1452 -- constant _KEY_Arabic_dad _KEY_Arabic_dad :: Int32 _KEY_Arabic_dad = 1494 -- constant _KEY_Arabic_dal _KEY_Arabic_dal :: Int32 _KEY_Arabic_dal = 1487 -- constant _KEY_Arabic_damma _KEY_Arabic_damma :: Int32 _KEY_Arabic_damma = 1519 -- constant _KEY_Arabic_dammatan _KEY_Arabic_dammatan :: Int32 _KEY_Arabic_dammatan = 1516 -- constant _KEY_Arabic_ddal _KEY_Arabic_ddal :: Int32 _KEY_Arabic_ddal = 16778888 -- constant _KEY_Arabic_farsi_yeh _KEY_Arabic_farsi_yeh :: Int32 _KEY_Arabic_farsi_yeh = 16778956 -- constant _KEY_Arabic_fatha _KEY_Arabic_fatha :: Int32 _KEY_Arabic_fatha = 1518 -- constant _KEY_Arabic_fathatan _KEY_Arabic_fathatan :: Int32 _KEY_Arabic_fathatan = 1515 -- constant _KEY_Arabic_feh _KEY_Arabic_feh :: Int32 _KEY_Arabic_feh = 1505 -- constant _KEY_Arabic_fullstop _KEY_Arabic_fullstop :: Int32 _KEY_Arabic_fullstop = 16778964 -- constant _KEY_Arabic_gaf _KEY_Arabic_gaf :: Int32 _KEY_Arabic_gaf = 16778927 -- constant _KEY_Arabic_ghain _KEY_Arabic_ghain :: Int32 _KEY_Arabic_ghain = 1498 -- constant _KEY_Arabic_ha _KEY_Arabic_ha :: Int32 _KEY_Arabic_ha = 1511 -- constant _KEY_Arabic_hah _KEY_Arabic_hah :: Int32 _KEY_Arabic_hah = 1485 -- constant _KEY_Arabic_hamza _KEY_Arabic_hamza :: Int32 _KEY_Arabic_hamza = 1473 -- constant _KEY_Arabic_hamza_above _KEY_Arabic_hamza_above :: Int32 _KEY_Arabic_hamza_above = 16778836 -- constant _KEY_Arabic_hamza_below _KEY_Arabic_hamza_below :: Int32 _KEY_Arabic_hamza_below = 16778837 -- constant _KEY_Arabic_hamzaonalef _KEY_Arabic_hamzaonalef :: Int32 _KEY_Arabic_hamzaonalef = 1475 -- constant _KEY_Arabic_hamzaonwaw _KEY_Arabic_hamzaonwaw :: Int32 _KEY_Arabic_hamzaonwaw = 1476 -- constant _KEY_Arabic_hamzaonyeh _KEY_Arabic_hamzaonyeh :: Int32 _KEY_Arabic_hamzaonyeh = 1478 -- constant _KEY_Arabic_hamzaunderalef _KEY_Arabic_hamzaunderalef :: Int32 _KEY_Arabic_hamzaunderalef = 1477 -- constant _KEY_Arabic_heh _KEY_Arabic_heh :: Int32 _KEY_Arabic_heh = 1511 -- constant _KEY_Arabic_heh_doachashmee _KEY_Arabic_heh_doachashmee :: Int32 _KEY_Arabic_heh_doachashmee = 16778942 -- constant _KEY_Arabic_heh_goal _KEY_Arabic_heh_goal :: Int32 _KEY_Arabic_heh_goal = 16778945 -- constant _KEY_Arabic_jeem _KEY_Arabic_jeem :: Int32 _KEY_Arabic_jeem = 1484 -- constant _KEY_Arabic_jeh _KEY_Arabic_jeh :: Int32 _KEY_Arabic_jeh = 16778904 -- constant _KEY_Arabic_kaf _KEY_Arabic_kaf :: Int32 _KEY_Arabic_kaf = 1507 -- constant _KEY_Arabic_kasra _KEY_Arabic_kasra :: Int32 _KEY_Arabic_kasra = 1520 -- constant _KEY_Arabic_kasratan _KEY_Arabic_kasratan :: Int32 _KEY_Arabic_kasratan = 1517 -- constant _KEY_Arabic_keheh _KEY_Arabic_keheh :: Int32 _KEY_Arabic_keheh = 16778921 -- constant _KEY_Arabic_khah _KEY_Arabic_khah :: Int32 _KEY_Arabic_khah = 1486 -- constant _KEY_Arabic_lam _KEY_Arabic_lam :: Int32 _KEY_Arabic_lam = 1508 -- constant _KEY_Arabic_madda_above _KEY_Arabic_madda_above :: Int32 _KEY_Arabic_madda_above = 16778835 -- constant _KEY_Arabic_maddaonalef _KEY_Arabic_maddaonalef :: Int32 _KEY_Arabic_maddaonalef = 1474 -- constant _KEY_Arabic_meem _KEY_Arabic_meem :: Int32 _KEY_Arabic_meem = 1509 -- constant _KEY_Arabic_noon _KEY_Arabic_noon :: Int32 _KEY_Arabic_noon = 1510 -- constant _KEY_Arabic_noon_ghunna _KEY_Arabic_noon_ghunna :: Int32 _KEY_Arabic_noon_ghunna = 16778938 -- constant _KEY_Arabic_peh _KEY_Arabic_peh :: Int32 _KEY_Arabic_peh = 16778878 -- constant _KEY_Arabic_percent _KEY_Arabic_percent :: Int32 _KEY_Arabic_percent = 16778858 -- constant _KEY_Arabic_qaf _KEY_Arabic_qaf :: Int32 _KEY_Arabic_qaf = 1506 -- constant _KEY_Arabic_question_mark _KEY_Arabic_question_mark :: Int32 _KEY_Arabic_question_mark = 1471 -- constant _KEY_Arabic_ra _KEY_Arabic_ra :: Int32 _KEY_Arabic_ra = 1489 -- constant _KEY_Arabic_rreh _KEY_Arabic_rreh :: Int32 _KEY_Arabic_rreh = 16778897 -- constant _KEY_Arabic_sad _KEY_Arabic_sad :: Int32 _KEY_Arabic_sad = 1493 -- constant _KEY_Arabic_seen _KEY_Arabic_seen :: Int32 _KEY_Arabic_seen = 1491 -- constant _KEY_Arabic_semicolon _KEY_Arabic_semicolon :: Int32 _KEY_Arabic_semicolon = 1467 -- constant _KEY_Arabic_shadda _KEY_Arabic_shadda :: Int32 _KEY_Arabic_shadda = 1521 -- constant _KEY_Arabic_sheen _KEY_Arabic_sheen :: Int32 _KEY_Arabic_sheen = 1492 -- constant _KEY_Arabic_sukun _KEY_Arabic_sukun :: Int32 _KEY_Arabic_sukun = 1522 -- constant _KEY_Arabic_superscript_alef _KEY_Arabic_superscript_alef :: Int32 _KEY_Arabic_superscript_alef = 16778864 -- constant _KEY_Arabic_switch _KEY_Arabic_switch :: Int32 _KEY_Arabic_switch = 65406 -- constant _KEY_Arabic_tah _KEY_Arabic_tah :: Int32 _KEY_Arabic_tah = 1495 -- constant _KEY_Arabic_tatweel _KEY_Arabic_tatweel :: Int32 _KEY_Arabic_tatweel = 1504 -- constant _KEY_Arabic_tcheh _KEY_Arabic_tcheh :: Int32 _KEY_Arabic_tcheh = 16778886 -- constant _KEY_Arabic_teh _KEY_Arabic_teh :: Int32 _KEY_Arabic_teh = 1482 -- constant _KEY_Arabic_tehmarbuta _KEY_Arabic_tehmarbuta :: Int32 _KEY_Arabic_tehmarbuta = 1481 -- constant _KEY_Arabic_thal _KEY_Arabic_thal :: Int32 _KEY_Arabic_thal = 1488 -- constant _KEY_Arabic_theh _KEY_Arabic_theh :: Int32 _KEY_Arabic_theh = 1483 -- constant _KEY_Arabic_tteh _KEY_Arabic_tteh :: Int32 _KEY_Arabic_tteh = 16778873 -- constant _KEY_Arabic_veh _KEY_Arabic_veh :: Int32 _KEY_Arabic_veh = 16778916 -- constant _KEY_Arabic_waw _KEY_Arabic_waw :: Int32 _KEY_Arabic_waw = 1512 -- constant _KEY_Arabic_yeh _KEY_Arabic_yeh :: Int32 _KEY_Arabic_yeh = 1514 -- constant _KEY_Arabic_yeh_baree _KEY_Arabic_yeh_baree :: Int32 _KEY_Arabic_yeh_baree = 16778962 -- constant _KEY_Arabic_zah _KEY_Arabic_zah :: Int32 _KEY_Arabic_zah = 1496 -- constant _KEY_Arabic_zain _KEY_Arabic_zain :: Int32 _KEY_Arabic_zain = 1490 -- constant _KEY_Aring _KEY_Aring :: Int32 _KEY_Aring = 197 -- constant _KEY_Armenian_AT _KEY_Armenian_AT :: Int32 _KEY_Armenian_AT = 16778552 -- constant _KEY_Armenian_AYB _KEY_Armenian_AYB :: Int32 _KEY_Armenian_AYB = 16778545 -- constant _KEY_Armenian_BEN _KEY_Armenian_BEN :: Int32 _KEY_Armenian_BEN = 16778546 -- constant _KEY_Armenian_CHA _KEY_Armenian_CHA :: Int32 _KEY_Armenian_CHA = 16778569 -- constant _KEY_Armenian_DA _KEY_Armenian_DA :: Int32 _KEY_Armenian_DA = 16778548 -- constant _KEY_Armenian_DZA _KEY_Armenian_DZA :: Int32 _KEY_Armenian_DZA = 16778561 -- constant _KEY_Armenian_E _KEY_Armenian_E :: Int32 _KEY_Armenian_E = 16778551 -- constant _KEY_Armenian_FE _KEY_Armenian_FE :: Int32 _KEY_Armenian_FE = 16778582 -- constant _KEY_Armenian_GHAT _KEY_Armenian_GHAT :: Int32 _KEY_Armenian_GHAT = 16778562 -- constant _KEY_Armenian_GIM _KEY_Armenian_GIM :: Int32 _KEY_Armenian_GIM = 16778547 -- constant _KEY_Armenian_HI _KEY_Armenian_HI :: Int32 _KEY_Armenian_HI = 16778565 -- constant _KEY_Armenian_HO _KEY_Armenian_HO :: Int32 _KEY_Armenian_HO = 16778560 -- constant _KEY_Armenian_INI _KEY_Armenian_INI :: Int32 _KEY_Armenian_INI = 16778555 -- constant _KEY_Armenian_JE _KEY_Armenian_JE :: Int32 _KEY_Armenian_JE = 16778571 -- constant _KEY_Armenian_KE _KEY_Armenian_KE :: Int32 _KEY_Armenian_KE = 16778580 -- constant _KEY_Armenian_KEN _KEY_Armenian_KEN :: Int32 _KEY_Armenian_KEN = 16778559 -- constant _KEY_Armenian_KHE _KEY_Armenian_KHE :: Int32 _KEY_Armenian_KHE = 16778557 -- constant _KEY_Armenian_LYUN _KEY_Armenian_LYUN :: Int32 _KEY_Armenian_LYUN = 16778556 -- constant _KEY_Armenian_MEN _KEY_Armenian_MEN :: Int32 _KEY_Armenian_MEN = 16778564 -- constant _KEY_Armenian_NU _KEY_Armenian_NU :: Int32 _KEY_Armenian_NU = 16778566 -- constant _KEY_Armenian_O _KEY_Armenian_O :: Int32 _KEY_Armenian_O = 16778581 -- constant _KEY_Armenian_PE _KEY_Armenian_PE :: Int32 _KEY_Armenian_PE = 16778570 -- constant _KEY_Armenian_PYUR _KEY_Armenian_PYUR :: Int32 _KEY_Armenian_PYUR = 16778579 -- constant _KEY_Armenian_RA _KEY_Armenian_RA :: Int32 _KEY_Armenian_RA = 16778572 -- constant _KEY_Armenian_RE _KEY_Armenian_RE :: Int32 _KEY_Armenian_RE = 16778576 -- constant _KEY_Armenian_SE _KEY_Armenian_SE :: Int32 _KEY_Armenian_SE = 16778573 -- constant _KEY_Armenian_SHA _KEY_Armenian_SHA :: Int32 _KEY_Armenian_SHA = 16778567 -- constant _KEY_Armenian_TCHE _KEY_Armenian_TCHE :: Int32 _KEY_Armenian_TCHE = 16778563 -- constant _KEY_Armenian_TO _KEY_Armenian_TO :: Int32 _KEY_Armenian_TO = 16778553 -- constant _KEY_Armenian_TSA _KEY_Armenian_TSA :: Int32 _KEY_Armenian_TSA = 16778558 -- constant _KEY_Armenian_TSO _KEY_Armenian_TSO :: Int32 _KEY_Armenian_TSO = 16778577 -- constant _KEY_Armenian_TYUN _KEY_Armenian_TYUN :: Int32 _KEY_Armenian_TYUN = 16778575 -- constant _KEY_Armenian_VEV _KEY_Armenian_VEV :: Int32 _KEY_Armenian_VEV = 16778574 -- constant _KEY_Armenian_VO _KEY_Armenian_VO :: Int32 _KEY_Armenian_VO = 16778568 -- constant _KEY_Armenian_VYUN _KEY_Armenian_VYUN :: Int32 _KEY_Armenian_VYUN = 16778578 -- constant _KEY_Armenian_YECH _KEY_Armenian_YECH :: Int32 _KEY_Armenian_YECH = 16778549 -- constant _KEY_Armenian_ZA _KEY_Armenian_ZA :: Int32 _KEY_Armenian_ZA = 16778550 -- constant _KEY_Armenian_ZHE _KEY_Armenian_ZHE :: Int32 _KEY_Armenian_ZHE = 16778554 -- constant _KEY_Armenian_accent _KEY_Armenian_accent :: Int32 _KEY_Armenian_accent = 16778587 -- constant _KEY_Armenian_amanak _KEY_Armenian_amanak :: Int32 _KEY_Armenian_amanak = 16778588 -- constant _KEY_Armenian_apostrophe _KEY_Armenian_apostrophe :: Int32 _KEY_Armenian_apostrophe = 16778586 -- constant _KEY_Armenian_at _KEY_Armenian_at :: Int32 _KEY_Armenian_at = 16778600 -- constant _KEY_Armenian_ayb _KEY_Armenian_ayb :: Int32 _KEY_Armenian_ayb = 16778593 -- constant _KEY_Armenian_ben _KEY_Armenian_ben :: Int32 _KEY_Armenian_ben = 16778594 -- constant _KEY_Armenian_but _KEY_Armenian_but :: Int32 _KEY_Armenian_but = 16778589 -- constant _KEY_Armenian_cha _KEY_Armenian_cha :: Int32 _KEY_Armenian_cha = 16778617 -- constant _KEY_Armenian_da _KEY_Armenian_da :: Int32 _KEY_Armenian_da = 16778596 -- constant _KEY_Armenian_dza _KEY_Armenian_dza :: Int32 _KEY_Armenian_dza = 16778609 -- constant _KEY_Armenian_e _KEY_Armenian_e :: Int32 _KEY_Armenian_e = 16778599 -- constant _KEY_Armenian_exclam _KEY_Armenian_exclam :: Int32 _KEY_Armenian_exclam = 16778588 -- constant _KEY_Armenian_fe _KEY_Armenian_fe :: Int32 _KEY_Armenian_fe = 16778630 -- constant _KEY_Armenian_full_stop _KEY_Armenian_full_stop :: Int32 _KEY_Armenian_full_stop = 16778633 -- constant _KEY_Armenian_ghat _KEY_Armenian_ghat :: Int32 _KEY_Armenian_ghat = 16778610 -- constant _KEY_Armenian_gim _KEY_Armenian_gim :: Int32 _KEY_Armenian_gim = 16778595 -- constant _KEY_Armenian_hi _KEY_Armenian_hi :: Int32 _KEY_Armenian_hi = 16778613 -- constant _KEY_Armenian_ho _KEY_Armenian_ho :: Int32 _KEY_Armenian_ho = 16778608 -- constant _KEY_Armenian_hyphen _KEY_Armenian_hyphen :: Int32 _KEY_Armenian_hyphen = 16778634 -- constant _KEY_Armenian_ini _KEY_Armenian_ini :: Int32 _KEY_Armenian_ini = 16778603 -- constant _KEY_Armenian_je _KEY_Armenian_je :: Int32 _KEY_Armenian_je = 16778619 -- constant _KEY_Armenian_ke _KEY_Armenian_ke :: Int32 _KEY_Armenian_ke = 16778628 -- constant _KEY_Armenian_ken _KEY_Armenian_ken :: Int32 _KEY_Armenian_ken = 16778607 -- constant _KEY_Armenian_khe _KEY_Armenian_khe :: Int32 _KEY_Armenian_khe = 16778605 -- constant _KEY_Armenian_ligature_ew _KEY_Armenian_ligature_ew :: Int32 _KEY_Armenian_ligature_ew = 16778631 -- constant _KEY_Armenian_lyun _KEY_Armenian_lyun :: Int32 _KEY_Armenian_lyun = 16778604 -- constant _KEY_Armenian_men _KEY_Armenian_men :: Int32 _KEY_Armenian_men = 16778612 -- constant _KEY_Armenian_nu _KEY_Armenian_nu :: Int32 _KEY_Armenian_nu = 16778614 -- constant _KEY_Armenian_o _KEY_Armenian_o :: Int32 _KEY_Armenian_o = 16778629 -- constant _KEY_Armenian_paruyk _KEY_Armenian_paruyk :: Int32 _KEY_Armenian_paruyk = 16778590 -- constant _KEY_Armenian_pe _KEY_Armenian_pe :: Int32 _KEY_Armenian_pe = 16778618 -- constant _KEY_Armenian_pyur _KEY_Armenian_pyur :: Int32 _KEY_Armenian_pyur = 16778627 -- constant _KEY_Armenian_question _KEY_Armenian_question :: Int32 _KEY_Armenian_question = 16778590 -- constant _KEY_Armenian_ra _KEY_Armenian_ra :: Int32 _KEY_Armenian_ra = 16778620 -- constant _KEY_Armenian_re _KEY_Armenian_re :: Int32 _KEY_Armenian_re = 16778624 -- constant _KEY_Armenian_se _KEY_Armenian_se :: Int32 _KEY_Armenian_se = 16778621 -- constant _KEY_Armenian_separation_mark _KEY_Armenian_separation_mark :: Int32 _KEY_Armenian_separation_mark = 16778589 -- constant _KEY_Armenian_sha _KEY_Armenian_sha :: Int32 _KEY_Armenian_sha = 16778615 -- constant _KEY_Armenian_shesht _KEY_Armenian_shesht :: Int32 _KEY_Armenian_shesht = 16778587 -- constant _KEY_Armenian_tche _KEY_Armenian_tche :: Int32 _KEY_Armenian_tche = 16778611 -- constant _KEY_Armenian_to _KEY_Armenian_to :: Int32 _KEY_Armenian_to = 16778601 -- constant _KEY_Armenian_tsa _KEY_Armenian_tsa :: Int32 _KEY_Armenian_tsa = 16778606 -- constant _KEY_Armenian_tso _KEY_Armenian_tso :: Int32 _KEY_Armenian_tso = 16778625 -- constant _KEY_Armenian_tyun _KEY_Armenian_tyun :: Int32 _KEY_Armenian_tyun = 16778623 -- constant _KEY_Armenian_verjaket _KEY_Armenian_verjaket :: Int32 _KEY_Armenian_verjaket = 16778633 -- constant _KEY_Armenian_vev _KEY_Armenian_vev :: Int32 _KEY_Armenian_vev = 16778622 -- constant _KEY_Armenian_vo _KEY_Armenian_vo :: Int32 _KEY_Armenian_vo = 16778616 -- constant _KEY_Armenian_vyun _KEY_Armenian_vyun :: Int32 _KEY_Armenian_vyun = 16778626 -- constant _KEY_Armenian_yech _KEY_Armenian_yech :: Int32 _KEY_Armenian_yech = 16778597 -- constant _KEY_Armenian_yentamna _KEY_Armenian_yentamna :: Int32 _KEY_Armenian_yentamna = 16778634 -- constant _KEY_Armenian_za _KEY_Armenian_za :: Int32 _KEY_Armenian_za = 16778598 -- constant _KEY_Armenian_zhe _KEY_Armenian_zhe :: Int32 _KEY_Armenian_zhe = 16778602 -- constant _KEY_Atilde _KEY_Atilde :: Int32 _KEY_Atilde = 195 -- constant _KEY_AudibleBell_Enable _KEY_AudibleBell_Enable :: Int32 _KEY_AudibleBell_Enable = 65146 -- constant _KEY_AudioCycleTrack _KEY_AudioCycleTrack :: Int32 _KEY_AudioCycleTrack = 269025179 -- constant _KEY_AudioForward _KEY_AudioForward :: Int32 _KEY_AudioForward = 269025175 -- constant _KEY_AudioLowerVolume _KEY_AudioLowerVolume :: Int32 _KEY_AudioLowerVolume = 269025041 -- constant _KEY_AudioMedia _KEY_AudioMedia :: Int32 _KEY_AudioMedia = 269025074 -- constant _KEY_AudioMicMute _KEY_AudioMicMute :: Int32 _KEY_AudioMicMute = 269025202 -- constant _KEY_AudioMute _KEY_AudioMute :: Int32 _KEY_AudioMute = 269025042 -- constant _KEY_AudioNext _KEY_AudioNext :: Int32 _KEY_AudioNext = 269025047 -- constant _KEY_AudioPause _KEY_AudioPause :: Int32 _KEY_AudioPause = 269025073 -- constant _KEY_AudioPlay _KEY_AudioPlay :: Int32 _KEY_AudioPlay = 269025044 -- constant _KEY_AudioPrev _KEY_AudioPrev :: Int32 _KEY_AudioPrev = 269025046 -- constant _KEY_AudioRaiseVolume _KEY_AudioRaiseVolume :: Int32 _KEY_AudioRaiseVolume = 269025043 -- constant _KEY_AudioRandomPlay _KEY_AudioRandomPlay :: Int32 _KEY_AudioRandomPlay = 269025177 -- constant _KEY_AudioRecord _KEY_AudioRecord :: Int32 _KEY_AudioRecord = 269025052 -- constant _KEY_AudioRepeat _KEY_AudioRepeat :: Int32 _KEY_AudioRepeat = 269025176 -- constant _KEY_AudioRewind _KEY_AudioRewind :: Int32 _KEY_AudioRewind = 269025086 -- constant _KEY_AudioStop _KEY_AudioStop :: Int32 _KEY_AudioStop = 269025045 -- constant _KEY_Away _KEY_Away :: Int32 _KEY_Away = 269025165 -- constant _KEY_B _KEY_B :: Int32 _KEY_B = 66 -- constant _KEY_Babovedot _KEY_Babovedot :: Int32 _KEY_Babovedot = 16784898 -- constant _KEY_Back _KEY_Back :: Int32 _KEY_Back = 269025062 -- constant _KEY_BackForward _KEY_BackForward :: Int32 _KEY_BackForward = 269025087 -- constant _KEY_BackSpace _KEY_BackSpace :: Int32 _KEY_BackSpace = 65288 -- constant _KEY_Battery _KEY_Battery :: Int32 _KEY_Battery = 269025171 -- constant _KEY_Begin _KEY_Begin :: Int32 _KEY_Begin = 65368 -- constant _KEY_Blue _KEY_Blue :: Int32 _KEY_Blue = 269025190 -- constant _KEY_Bluetooth _KEY_Bluetooth :: Int32 _KEY_Bluetooth = 269025172 -- constant _KEY_Book _KEY_Book :: Int32 _KEY_Book = 269025106 -- constant _KEY_BounceKeys_Enable _KEY_BounceKeys_Enable :: Int32 _KEY_BounceKeys_Enable = 65140 -- constant _KEY_Break _KEY_Break :: Int32 _KEY_Break = 65387 -- constant _KEY_BrightnessAdjust _KEY_BrightnessAdjust :: Int32 _KEY_BrightnessAdjust = 269025083 -- constant _KEY_Byelorussian_SHORTU _KEY_Byelorussian_SHORTU :: Int32 _KEY_Byelorussian_SHORTU = 1726 -- constant _KEY_Byelorussian_shortu _KEY_Byelorussian_shortu :: Int32 _KEY_Byelorussian_shortu = 1710 -- constant _KEY_C _KEY_C :: Int32 _KEY_C = 67 -- constant _KEY_CD _KEY_CD :: Int32 _KEY_CD = 269025107 -- constant _KEY_CH _KEY_CH :: Int32 _KEY_CH = 65186 -- constant _KEY_C_H _KEY_C_H :: Int32 _KEY_C_H = 65189 -- constant _KEY_C_h _KEY_C_h :: Int32 _KEY_C_h = 65188 -- constant _KEY_Cabovedot _KEY_Cabovedot :: Int32 _KEY_Cabovedot = 709 -- constant _KEY_Cacute _KEY_Cacute :: Int32 _KEY_Cacute = 454 -- constant _KEY_Calculator _KEY_Calculator :: Int32 _KEY_Calculator = 269025053 -- constant _KEY_Calendar _KEY_Calendar :: Int32 _KEY_Calendar = 269025056 -- constant _KEY_Cancel _KEY_Cancel :: Int32 _KEY_Cancel = 65385 -- constant _KEY_Caps_Lock _KEY_Caps_Lock :: Int32 _KEY_Caps_Lock = 65509 -- constant _KEY_Ccaron _KEY_Ccaron :: Int32 _KEY_Ccaron = 456 -- constant _KEY_Ccedilla _KEY_Ccedilla :: Int32 _KEY_Ccedilla = 199 -- constant _KEY_Ccircumflex _KEY_Ccircumflex :: Int32 _KEY_Ccircumflex = 710 -- constant _KEY_Ch _KEY_Ch :: Int32 _KEY_Ch = 65185 -- constant _KEY_Clear _KEY_Clear :: Int32 _KEY_Clear = 65291 -- constant _KEY_ClearGrab _KEY_ClearGrab :: Int32 _KEY_ClearGrab = 269024801 -- constant _KEY_Close _KEY_Close :: Int32 _KEY_Close = 269025110 -- constant _KEY_Codeinput _KEY_Codeinput :: Int32 _KEY_Codeinput = 65335 -- constant _KEY_ColonSign _KEY_ColonSign :: Int32 _KEY_ColonSign = 16785569 -- constant _KEY_Community _KEY_Community :: Int32 _KEY_Community = 269025085 -- constant _KEY_ContrastAdjust _KEY_ContrastAdjust :: Int32 _KEY_ContrastAdjust = 269025058 -- constant _KEY_Control_L _KEY_Control_L :: Int32 _KEY_Control_L = 65507 -- constant _KEY_Control_R _KEY_Control_R :: Int32 _KEY_Control_R = 65508 -- constant _KEY_Copy _KEY_Copy :: Int32 _KEY_Copy = 269025111 -- constant _KEY_CruzeiroSign _KEY_CruzeiroSign :: Int32 _KEY_CruzeiroSign = 16785570 -- constant _KEY_Cut _KEY_Cut :: Int32 _KEY_Cut = 269025112 -- constant _KEY_CycleAngle _KEY_CycleAngle :: Int32 _KEY_CycleAngle = 269025180 -- constant _KEY_Cyrillic_A _KEY_Cyrillic_A :: Int32 _KEY_Cyrillic_A = 1761 -- constant _KEY_Cyrillic_BE _KEY_Cyrillic_BE :: Int32 _KEY_Cyrillic_BE = 1762 -- constant _KEY_Cyrillic_CHE _KEY_Cyrillic_CHE :: Int32 _KEY_Cyrillic_CHE = 1790 -- constant _KEY_Cyrillic_CHE_descender _KEY_Cyrillic_CHE_descender :: Int32 _KEY_Cyrillic_CHE_descender = 16778422 -- constant _KEY_Cyrillic_CHE_vertstroke _KEY_Cyrillic_CHE_vertstroke :: Int32 _KEY_Cyrillic_CHE_vertstroke = 16778424 -- constant _KEY_Cyrillic_DE _KEY_Cyrillic_DE :: Int32 _KEY_Cyrillic_DE = 1764 -- constant _KEY_Cyrillic_DZHE _KEY_Cyrillic_DZHE :: Int32 _KEY_Cyrillic_DZHE = 1727 -- constant _KEY_Cyrillic_E _KEY_Cyrillic_E :: Int32 _KEY_Cyrillic_E = 1788 -- constant _KEY_Cyrillic_EF _KEY_Cyrillic_EF :: Int32 _KEY_Cyrillic_EF = 1766 -- constant _KEY_Cyrillic_EL _KEY_Cyrillic_EL :: Int32 _KEY_Cyrillic_EL = 1772 -- constant _KEY_Cyrillic_EM _KEY_Cyrillic_EM :: Int32 _KEY_Cyrillic_EM = 1773 -- constant _KEY_Cyrillic_EN _KEY_Cyrillic_EN :: Int32 _KEY_Cyrillic_EN = 1774 -- constant _KEY_Cyrillic_EN_descender _KEY_Cyrillic_EN_descender :: Int32 _KEY_Cyrillic_EN_descender = 16778402 -- constant _KEY_Cyrillic_ER _KEY_Cyrillic_ER :: Int32 _KEY_Cyrillic_ER = 1778 -- constant _KEY_Cyrillic_ES _KEY_Cyrillic_ES :: Int32 _KEY_Cyrillic_ES = 1779 -- constant _KEY_Cyrillic_GHE _KEY_Cyrillic_GHE :: Int32 _KEY_Cyrillic_GHE = 1767 -- constant _KEY_Cyrillic_GHE_bar _KEY_Cyrillic_GHE_bar :: Int32 _KEY_Cyrillic_GHE_bar = 16778386 -- constant _KEY_Cyrillic_HA _KEY_Cyrillic_HA :: Int32 _KEY_Cyrillic_HA = 1768 -- constant _KEY_Cyrillic_HARDSIGN _KEY_Cyrillic_HARDSIGN :: Int32 _KEY_Cyrillic_HARDSIGN = 1791 -- constant _KEY_Cyrillic_HA_descender _KEY_Cyrillic_HA_descender :: Int32 _KEY_Cyrillic_HA_descender = 16778418 -- constant _KEY_Cyrillic_I _KEY_Cyrillic_I :: Int32 _KEY_Cyrillic_I = 1769 -- constant _KEY_Cyrillic_IE _KEY_Cyrillic_IE :: Int32 _KEY_Cyrillic_IE = 1765 -- constant _KEY_Cyrillic_IO _KEY_Cyrillic_IO :: Int32 _KEY_Cyrillic_IO = 1715 -- constant _KEY_Cyrillic_I_macron _KEY_Cyrillic_I_macron :: Int32 _KEY_Cyrillic_I_macron = 16778466 -- constant _KEY_Cyrillic_JE _KEY_Cyrillic_JE :: Int32 _KEY_Cyrillic_JE = 1720 -- constant _KEY_Cyrillic_KA _KEY_Cyrillic_KA :: Int32 _KEY_Cyrillic_KA = 1771 -- constant _KEY_Cyrillic_KA_descender _KEY_Cyrillic_KA_descender :: Int32 _KEY_Cyrillic_KA_descender = 16778394 -- constant _KEY_Cyrillic_KA_vertstroke _KEY_Cyrillic_KA_vertstroke :: Int32 _KEY_Cyrillic_KA_vertstroke = 16778396 -- constant _KEY_Cyrillic_LJE _KEY_Cyrillic_LJE :: Int32 _KEY_Cyrillic_LJE = 1721 -- constant _KEY_Cyrillic_NJE _KEY_Cyrillic_NJE :: Int32 _KEY_Cyrillic_NJE = 1722 -- constant _KEY_Cyrillic_O _KEY_Cyrillic_O :: Int32 _KEY_Cyrillic_O = 1775 -- constant _KEY_Cyrillic_O_bar _KEY_Cyrillic_O_bar :: Int32 _KEY_Cyrillic_O_bar = 16778472 -- constant _KEY_Cyrillic_PE _KEY_Cyrillic_PE :: Int32 _KEY_Cyrillic_PE = 1776 -- constant _KEY_Cyrillic_SCHWA _KEY_Cyrillic_SCHWA :: Int32 _KEY_Cyrillic_SCHWA = 16778456 -- constant _KEY_Cyrillic_SHA _KEY_Cyrillic_SHA :: Int32 _KEY_Cyrillic_SHA = 1787 -- constant _KEY_Cyrillic_SHCHA _KEY_Cyrillic_SHCHA :: Int32 _KEY_Cyrillic_SHCHA = 1789 -- constant _KEY_Cyrillic_SHHA _KEY_Cyrillic_SHHA :: Int32 _KEY_Cyrillic_SHHA = 16778426 -- constant _KEY_Cyrillic_SHORTI _KEY_Cyrillic_SHORTI :: Int32 _KEY_Cyrillic_SHORTI = 1770 -- constant _KEY_Cyrillic_SOFTSIGN _KEY_Cyrillic_SOFTSIGN :: Int32 _KEY_Cyrillic_SOFTSIGN = 1784 -- constant _KEY_Cyrillic_TE _KEY_Cyrillic_TE :: Int32 _KEY_Cyrillic_TE = 1780 -- constant _KEY_Cyrillic_TSE _KEY_Cyrillic_TSE :: Int32 _KEY_Cyrillic_TSE = 1763 -- constant _KEY_Cyrillic_U _KEY_Cyrillic_U :: Int32 _KEY_Cyrillic_U = 1781 -- constant _KEY_Cyrillic_U_macron _KEY_Cyrillic_U_macron :: Int32 _KEY_Cyrillic_U_macron = 16778478 -- constant _KEY_Cyrillic_U_straight _KEY_Cyrillic_U_straight :: Int32 _KEY_Cyrillic_U_straight = 16778414 -- constant _KEY_Cyrillic_U_straight_bar _KEY_Cyrillic_U_straight_bar :: Int32 _KEY_Cyrillic_U_straight_bar = 16778416 -- constant _KEY_Cyrillic_VE _KEY_Cyrillic_VE :: Int32 _KEY_Cyrillic_VE = 1783 -- constant _KEY_Cyrillic_YA _KEY_Cyrillic_YA :: Int32 _KEY_Cyrillic_YA = 1777 -- constant _KEY_Cyrillic_YERU _KEY_Cyrillic_YERU :: Int32 _KEY_Cyrillic_YERU = 1785 -- constant _KEY_Cyrillic_YU _KEY_Cyrillic_YU :: Int32 _KEY_Cyrillic_YU = 1760 -- constant _KEY_Cyrillic_ZE _KEY_Cyrillic_ZE :: Int32 _KEY_Cyrillic_ZE = 1786 -- constant _KEY_Cyrillic_ZHE _KEY_Cyrillic_ZHE :: Int32 _KEY_Cyrillic_ZHE = 1782 -- constant _KEY_Cyrillic_ZHE_descender _KEY_Cyrillic_ZHE_descender :: Int32 _KEY_Cyrillic_ZHE_descender = 16778390 -- constant _KEY_Cyrillic_a _KEY_Cyrillic_a :: Int32 _KEY_Cyrillic_a = 1729 -- constant _KEY_Cyrillic_be _KEY_Cyrillic_be :: Int32 _KEY_Cyrillic_be = 1730 -- constant _KEY_Cyrillic_che _KEY_Cyrillic_che :: Int32 _KEY_Cyrillic_che = 1758 -- constant _KEY_Cyrillic_che_descender _KEY_Cyrillic_che_descender :: Int32 _KEY_Cyrillic_che_descender = 16778423 -- constant _KEY_Cyrillic_che_vertstroke _KEY_Cyrillic_che_vertstroke :: Int32 _KEY_Cyrillic_che_vertstroke = 16778425 -- constant _KEY_Cyrillic_de _KEY_Cyrillic_de :: Int32 _KEY_Cyrillic_de = 1732 -- constant _KEY_Cyrillic_dzhe _KEY_Cyrillic_dzhe :: Int32 _KEY_Cyrillic_dzhe = 1711 -- constant _KEY_Cyrillic_e _KEY_Cyrillic_e :: Int32 _KEY_Cyrillic_e = 1756 -- constant _KEY_Cyrillic_ef _KEY_Cyrillic_ef :: Int32 _KEY_Cyrillic_ef = 1734 -- constant _KEY_Cyrillic_el _KEY_Cyrillic_el :: Int32 _KEY_Cyrillic_el = 1740 -- constant _KEY_Cyrillic_em _KEY_Cyrillic_em :: Int32 _KEY_Cyrillic_em = 1741 -- constant _KEY_Cyrillic_en _KEY_Cyrillic_en :: Int32 _KEY_Cyrillic_en = 1742 -- constant _KEY_Cyrillic_en_descender _KEY_Cyrillic_en_descender :: Int32 _KEY_Cyrillic_en_descender = 16778403 -- constant _KEY_Cyrillic_er _KEY_Cyrillic_er :: Int32 _KEY_Cyrillic_er = 1746 -- constant _KEY_Cyrillic_es _KEY_Cyrillic_es :: Int32 _KEY_Cyrillic_es = 1747 -- constant _KEY_Cyrillic_ghe _KEY_Cyrillic_ghe :: Int32 _KEY_Cyrillic_ghe = 1735 -- constant _KEY_Cyrillic_ghe_bar _KEY_Cyrillic_ghe_bar :: Int32 _KEY_Cyrillic_ghe_bar = 16778387 -- constant _KEY_Cyrillic_ha _KEY_Cyrillic_ha :: Int32 _KEY_Cyrillic_ha = 1736 -- constant _KEY_Cyrillic_ha_descender _KEY_Cyrillic_ha_descender :: Int32 _KEY_Cyrillic_ha_descender = 16778419 -- constant _KEY_Cyrillic_hardsign _KEY_Cyrillic_hardsign :: Int32 _KEY_Cyrillic_hardsign = 1759 -- constant _KEY_Cyrillic_i _KEY_Cyrillic_i :: Int32 _KEY_Cyrillic_i = 1737 -- constant _KEY_Cyrillic_i_macron _KEY_Cyrillic_i_macron :: Int32 _KEY_Cyrillic_i_macron = 16778467 -- constant _KEY_Cyrillic_ie _KEY_Cyrillic_ie :: Int32 _KEY_Cyrillic_ie = 1733 -- constant _KEY_Cyrillic_io _KEY_Cyrillic_io :: Int32 _KEY_Cyrillic_io = 1699 -- constant _KEY_Cyrillic_je _KEY_Cyrillic_je :: Int32 _KEY_Cyrillic_je = 1704 -- constant _KEY_Cyrillic_ka _KEY_Cyrillic_ka :: Int32 _KEY_Cyrillic_ka = 1739 -- constant _KEY_Cyrillic_ka_descender _KEY_Cyrillic_ka_descender :: Int32 _KEY_Cyrillic_ka_descender = 16778395 -- constant _KEY_Cyrillic_ka_vertstroke _KEY_Cyrillic_ka_vertstroke :: Int32 _KEY_Cyrillic_ka_vertstroke = 16778397 -- constant _KEY_Cyrillic_lje _KEY_Cyrillic_lje :: Int32 _KEY_Cyrillic_lje = 1705 -- constant _KEY_Cyrillic_nje _KEY_Cyrillic_nje :: Int32 _KEY_Cyrillic_nje = 1706 -- constant _KEY_Cyrillic_o _KEY_Cyrillic_o :: Int32 _KEY_Cyrillic_o = 1743 -- constant _KEY_Cyrillic_o_bar _KEY_Cyrillic_o_bar :: Int32 _KEY_Cyrillic_o_bar = 16778473 -- constant _KEY_Cyrillic_pe _KEY_Cyrillic_pe :: Int32 _KEY_Cyrillic_pe = 1744 -- constant _KEY_Cyrillic_schwa _KEY_Cyrillic_schwa :: Int32 _KEY_Cyrillic_schwa = 16778457 -- constant _KEY_Cyrillic_sha _KEY_Cyrillic_sha :: Int32 _KEY_Cyrillic_sha = 1755 -- constant _KEY_Cyrillic_shcha _KEY_Cyrillic_shcha :: Int32 _KEY_Cyrillic_shcha = 1757 -- constant _KEY_Cyrillic_shha _KEY_Cyrillic_shha :: Int32 _KEY_Cyrillic_shha = 16778427 -- constant _KEY_Cyrillic_shorti _KEY_Cyrillic_shorti :: Int32 _KEY_Cyrillic_shorti = 1738 -- constant _KEY_Cyrillic_softsign _KEY_Cyrillic_softsign :: Int32 _KEY_Cyrillic_softsign = 1752 -- constant _KEY_Cyrillic_te _KEY_Cyrillic_te :: Int32 _KEY_Cyrillic_te = 1748 -- constant _KEY_Cyrillic_tse _KEY_Cyrillic_tse :: Int32 _KEY_Cyrillic_tse = 1731 -- constant _KEY_Cyrillic_u _KEY_Cyrillic_u :: Int32 _KEY_Cyrillic_u = 1749 -- constant _KEY_Cyrillic_u_macron _KEY_Cyrillic_u_macron :: Int32 _KEY_Cyrillic_u_macron = 16778479 -- constant _KEY_Cyrillic_u_straight _KEY_Cyrillic_u_straight :: Int32 _KEY_Cyrillic_u_straight = 16778415 -- constant _KEY_Cyrillic_u_straight_bar _KEY_Cyrillic_u_straight_bar :: Int32 _KEY_Cyrillic_u_straight_bar = 16778417 -- constant _KEY_Cyrillic_ve _KEY_Cyrillic_ve :: Int32 _KEY_Cyrillic_ve = 1751 -- constant _KEY_Cyrillic_ya _KEY_Cyrillic_ya :: Int32 _KEY_Cyrillic_ya = 1745 -- constant _KEY_Cyrillic_yeru _KEY_Cyrillic_yeru :: Int32 _KEY_Cyrillic_yeru = 1753 -- constant _KEY_Cyrillic_yu _KEY_Cyrillic_yu :: Int32 _KEY_Cyrillic_yu = 1728 -- constant _KEY_Cyrillic_ze _KEY_Cyrillic_ze :: Int32 _KEY_Cyrillic_ze = 1754 -- constant _KEY_Cyrillic_zhe _KEY_Cyrillic_zhe :: Int32 _KEY_Cyrillic_zhe = 1750 -- constant _KEY_Cyrillic_zhe_descender _KEY_Cyrillic_zhe_descender :: Int32 _KEY_Cyrillic_zhe_descender = 16778391 -- constant _KEY_D _KEY_D :: Int32 _KEY_D = 68 -- constant _KEY_DOS _KEY_DOS :: Int32 _KEY_DOS = 269025114 -- constant _KEY_Dabovedot _KEY_Dabovedot :: Int32 _KEY_Dabovedot = 16784906 -- constant _KEY_Dcaron _KEY_Dcaron :: Int32 _KEY_Dcaron = 463 -- constant _KEY_Delete _KEY_Delete :: Int32 _KEY_Delete = 65535 -- constant _KEY_Display _KEY_Display :: Int32 _KEY_Display = 269025113 -- constant _KEY_Documents _KEY_Documents :: Int32 _KEY_Documents = 269025115 -- constant _KEY_DongSign _KEY_DongSign :: Int32 _KEY_DongSign = 16785579 -- constant _KEY_Down _KEY_Down :: Int32 _KEY_Down = 65364 -- constant _KEY_Dstroke _KEY_Dstroke :: Int32 _KEY_Dstroke = 464 -- constant _KEY_E _KEY_E :: Int32 _KEY_E = 69 -- constant _KEY_ENG _KEY_ENG :: Int32 _KEY_ENG = 957 -- constant _KEY_ETH _KEY_ETH :: Int32 _KEY_ETH = 208 -- constant _KEY_EZH _KEY_EZH :: Int32 _KEY_EZH = 16777655 -- constant _KEY_Eabovedot _KEY_Eabovedot :: Int32 _KEY_Eabovedot = 972 -- constant _KEY_Eacute _KEY_Eacute :: Int32 _KEY_Eacute = 201 -- constant _KEY_Ebelowdot _KEY_Ebelowdot :: Int32 _KEY_Ebelowdot = 16785080 -- constant _KEY_Ecaron _KEY_Ecaron :: Int32 _KEY_Ecaron = 460 -- constant _KEY_Ecircumflex _KEY_Ecircumflex :: Int32 _KEY_Ecircumflex = 202 -- constant _KEY_Ecircumflexacute _KEY_Ecircumflexacute :: Int32 _KEY_Ecircumflexacute = 16785086 -- constant _KEY_Ecircumflexbelowdot _KEY_Ecircumflexbelowdot :: Int32 _KEY_Ecircumflexbelowdot = 16785094 -- constant _KEY_Ecircumflexgrave _KEY_Ecircumflexgrave :: Int32 _KEY_Ecircumflexgrave = 16785088 -- constant _KEY_Ecircumflexhook _KEY_Ecircumflexhook :: Int32 _KEY_Ecircumflexhook = 16785090 -- constant _KEY_Ecircumflextilde _KEY_Ecircumflextilde :: Int32 _KEY_Ecircumflextilde = 16785092 -- constant _KEY_EcuSign _KEY_EcuSign :: Int32 _KEY_EcuSign = 16785568 -- constant _KEY_Ediaeresis _KEY_Ediaeresis :: Int32 _KEY_Ediaeresis = 203 -- constant _KEY_Egrave _KEY_Egrave :: Int32 _KEY_Egrave = 200 -- constant _KEY_Ehook _KEY_Ehook :: Int32 _KEY_Ehook = 16785082 -- constant _KEY_Eisu_Shift _KEY_Eisu_Shift :: Int32 _KEY_Eisu_Shift = 65327 -- constant _KEY_Eisu_toggle _KEY_Eisu_toggle :: Int32 _KEY_Eisu_toggle = 65328 -- constant _KEY_Eject _KEY_Eject :: Int32 _KEY_Eject = 269025068 -- constant _KEY_Emacron _KEY_Emacron :: Int32 _KEY_Emacron = 938 -- constant _KEY_End _KEY_End :: Int32 _KEY_End = 65367 -- constant _KEY_Eogonek _KEY_Eogonek :: Int32 _KEY_Eogonek = 458 -- constant _KEY_Escape _KEY_Escape :: Int32 _KEY_Escape = 65307 -- constant _KEY_Eth _KEY_Eth :: Int32 _KEY_Eth = 208 -- constant _KEY_Etilde _KEY_Etilde :: Int32 _KEY_Etilde = 16785084 -- constant _KEY_EuroSign _KEY_EuroSign :: Int32 _KEY_EuroSign = 8364 -- constant _KEY_Excel _KEY_Excel :: Int32 _KEY_Excel = 269025116 -- constant _KEY_Execute _KEY_Execute :: Int32 _KEY_Execute = 65378 -- constant _KEY_Explorer _KEY_Explorer :: Int32 _KEY_Explorer = 269025117 -- constant _KEY_F _KEY_F :: Int32 _KEY_F = 70 -- constant _KEY_F1 _KEY_F1 :: Int32 _KEY_F1 = 65470 -- constant _KEY_F10 _KEY_F10 :: Int32 _KEY_F10 = 65479 -- constant _KEY_F11 _KEY_F11 :: Int32 _KEY_F11 = 65480 -- constant _KEY_F12 _KEY_F12 :: Int32 _KEY_F12 = 65481 -- constant _KEY_F13 _KEY_F13 :: Int32 _KEY_F13 = 65482 -- constant _KEY_F14 _KEY_F14 :: Int32 _KEY_F14 = 65483 -- constant _KEY_F15 _KEY_F15 :: Int32 _KEY_F15 = 65484 -- constant _KEY_F16 _KEY_F16 :: Int32 _KEY_F16 = 65485 -- constant _KEY_F17 _KEY_F17 :: Int32 _KEY_F17 = 65486 -- constant _KEY_F18 _KEY_F18 :: Int32 _KEY_F18 = 65487 -- constant _KEY_F19 _KEY_F19 :: Int32 _KEY_F19 = 65488 -- constant _KEY_F2 _KEY_F2 :: Int32 _KEY_F2 = 65471 -- constant _KEY_F20 _KEY_F20 :: Int32 _KEY_F20 = 65489 -- constant _KEY_F21 _KEY_F21 :: Int32 _KEY_F21 = 65490 -- constant _KEY_F22 _KEY_F22 :: Int32 _KEY_F22 = 65491 -- constant _KEY_F23 _KEY_F23 :: Int32 _KEY_F23 = 65492 -- constant _KEY_F24 _KEY_F24 :: Int32 _KEY_F24 = 65493 -- constant _KEY_F25 _KEY_F25 :: Int32 _KEY_F25 = 65494 -- constant _KEY_F26 _KEY_F26 :: Int32 _KEY_F26 = 65495 -- constant _KEY_F27 _KEY_F27 :: Int32 _KEY_F27 = 65496 -- constant _KEY_F28 _KEY_F28 :: Int32 _KEY_F28 = 65497 -- constant _KEY_F29 _KEY_F29 :: Int32 _KEY_F29 = 65498 -- constant _KEY_F3 _KEY_F3 :: Int32 _KEY_F3 = 65472 -- constant _KEY_F30 _KEY_F30 :: Int32 _KEY_F30 = 65499 -- constant _KEY_F31 _KEY_F31 :: Int32 _KEY_F31 = 65500 -- constant _KEY_F32 _KEY_F32 :: Int32 _KEY_F32 = 65501 -- constant _KEY_F33 _KEY_F33 :: Int32 _KEY_F33 = 65502 -- constant _KEY_F34 _KEY_F34 :: Int32 _KEY_F34 = 65503 -- constant _KEY_F35 _KEY_F35 :: Int32 _KEY_F35 = 65504 -- constant _KEY_F4 _KEY_F4 :: Int32 _KEY_F4 = 65473 -- constant _KEY_F5 _KEY_F5 :: Int32 _KEY_F5 = 65474 -- constant _KEY_F6 _KEY_F6 :: Int32 _KEY_F6 = 65475 -- constant _KEY_F7 _KEY_F7 :: Int32 _KEY_F7 = 65476 -- constant _KEY_F8 _KEY_F8 :: Int32 _KEY_F8 = 65477 -- constant _KEY_F9 _KEY_F9 :: Int32 _KEY_F9 = 65478 -- constant _KEY_FFrancSign _KEY_FFrancSign :: Int32 _KEY_FFrancSign = 16785571 -- constant _KEY_Fabovedot _KEY_Fabovedot :: Int32 _KEY_Fabovedot = 16784926 -- constant _KEY_Farsi_0 _KEY_Farsi_0 :: Int32 _KEY_Farsi_0 = 16778992 -- constant _KEY_Farsi_1 _KEY_Farsi_1 :: Int32 _KEY_Farsi_1 = 16778993 -- constant _KEY_Farsi_2 _KEY_Farsi_2 :: Int32 _KEY_Farsi_2 = 16778994 -- constant _KEY_Farsi_3 _KEY_Farsi_3 :: Int32 _KEY_Farsi_3 = 16778995 -- constant _KEY_Farsi_4 _KEY_Farsi_4 :: Int32 _KEY_Farsi_4 = 16778996 -- constant _KEY_Farsi_5 _KEY_Farsi_5 :: Int32 _KEY_Farsi_5 = 16778997 -- constant _KEY_Farsi_6 _KEY_Farsi_6 :: Int32 _KEY_Farsi_6 = 16778998 -- constant _KEY_Farsi_7 _KEY_Farsi_7 :: Int32 _KEY_Farsi_7 = 16778999 -- constant _KEY_Farsi_8 _KEY_Farsi_8 :: Int32 _KEY_Farsi_8 = 16779000 -- constant _KEY_Farsi_9 _KEY_Farsi_9 :: Int32 _KEY_Farsi_9 = 16779001 -- constant _KEY_Farsi_yeh _KEY_Farsi_yeh :: Int32 _KEY_Farsi_yeh = 16778956 -- constant _KEY_Favorites _KEY_Favorites :: Int32 _KEY_Favorites = 269025072 -- constant _KEY_Finance _KEY_Finance :: Int32 _KEY_Finance = 269025084 -- constant _KEY_Find _KEY_Find :: Int32 _KEY_Find = 65384 -- constant _KEY_First_Virtual_Screen _KEY_First_Virtual_Screen :: Int32 _KEY_First_Virtual_Screen = 65232 -- constant _KEY_Forward _KEY_Forward :: Int32 _KEY_Forward = 269025063 -- constant _KEY_FrameBack _KEY_FrameBack :: Int32 _KEY_FrameBack = 269025181 -- constant _KEY_FrameForward _KEY_FrameForward :: Int32 _KEY_FrameForward = 269025182 -- constant _KEY_G _KEY_G :: Int32 _KEY_G = 71 -- constant _KEY_Gabovedot _KEY_Gabovedot :: Int32 _KEY_Gabovedot = 725 -- constant _KEY_Game _KEY_Game :: Int32 _KEY_Game = 269025118 -- constant _KEY_Gbreve _KEY_Gbreve :: Int32 _KEY_Gbreve = 683 -- constant _KEY_Gcaron _KEY_Gcaron :: Int32 _KEY_Gcaron = 16777702 -- constant _KEY_Gcedilla _KEY_Gcedilla :: Int32 _KEY_Gcedilla = 939 -- constant _KEY_Gcircumflex _KEY_Gcircumflex :: Int32 _KEY_Gcircumflex = 728 -- constant _KEY_Georgian_an _KEY_Georgian_an :: Int32 _KEY_Georgian_an = 16781520 -- constant _KEY_Georgian_ban _KEY_Georgian_ban :: Int32 _KEY_Georgian_ban = 16781521 -- constant _KEY_Georgian_can _KEY_Georgian_can :: Int32 _KEY_Georgian_can = 16781546 -- constant _KEY_Georgian_char _KEY_Georgian_char :: Int32 _KEY_Georgian_char = 16781549 -- constant _KEY_Georgian_chin _KEY_Georgian_chin :: Int32 _KEY_Georgian_chin = 16781545 -- constant _KEY_Georgian_cil _KEY_Georgian_cil :: Int32 _KEY_Georgian_cil = 16781548 -- constant _KEY_Georgian_don _KEY_Georgian_don :: Int32 _KEY_Georgian_don = 16781523 -- constant _KEY_Georgian_en _KEY_Georgian_en :: Int32 _KEY_Georgian_en = 16781524 -- constant _KEY_Georgian_fi _KEY_Georgian_fi :: Int32 _KEY_Georgian_fi = 16781558 -- constant _KEY_Georgian_gan _KEY_Georgian_gan :: Int32 _KEY_Georgian_gan = 16781522 -- constant _KEY_Georgian_ghan _KEY_Georgian_ghan :: Int32 _KEY_Georgian_ghan = 16781542 -- constant _KEY_Georgian_hae _KEY_Georgian_hae :: Int32 _KEY_Georgian_hae = 16781552 -- constant _KEY_Georgian_har _KEY_Georgian_har :: Int32 _KEY_Georgian_har = 16781556 -- constant _KEY_Georgian_he _KEY_Georgian_he :: Int32 _KEY_Georgian_he = 16781553 -- constant _KEY_Georgian_hie _KEY_Georgian_hie :: Int32 _KEY_Georgian_hie = 16781554 -- constant _KEY_Georgian_hoe _KEY_Georgian_hoe :: Int32 _KEY_Georgian_hoe = 16781557 -- constant _KEY_Georgian_in _KEY_Georgian_in :: Int32 _KEY_Georgian_in = 16781528 -- constant _KEY_Georgian_jhan _KEY_Georgian_jhan :: Int32 _KEY_Georgian_jhan = 16781551 -- constant _KEY_Georgian_jil _KEY_Georgian_jil :: Int32 _KEY_Georgian_jil = 16781547 -- constant _KEY_Georgian_kan _KEY_Georgian_kan :: Int32 _KEY_Georgian_kan = 16781529 -- constant _KEY_Georgian_khar _KEY_Georgian_khar :: Int32 _KEY_Georgian_khar = 16781541 -- constant _KEY_Georgian_las _KEY_Georgian_las :: Int32 _KEY_Georgian_las = 16781530 -- constant _KEY_Georgian_man _KEY_Georgian_man :: Int32 _KEY_Georgian_man = 16781531 -- constant _KEY_Georgian_nar _KEY_Georgian_nar :: Int32 _KEY_Georgian_nar = 16781532 -- constant _KEY_Georgian_on _KEY_Georgian_on :: Int32 _KEY_Georgian_on = 16781533 -- constant _KEY_Georgian_par _KEY_Georgian_par :: Int32 _KEY_Georgian_par = 16781534 -- constant _KEY_Georgian_phar _KEY_Georgian_phar :: Int32 _KEY_Georgian_phar = 16781540 -- constant _KEY_Georgian_qar _KEY_Georgian_qar :: Int32 _KEY_Georgian_qar = 16781543 -- constant _KEY_Georgian_rae _KEY_Georgian_rae :: Int32 _KEY_Georgian_rae = 16781536 -- constant _KEY_Georgian_san _KEY_Georgian_san :: Int32 _KEY_Georgian_san = 16781537 -- constant _KEY_Georgian_shin _KEY_Georgian_shin :: Int32 _KEY_Georgian_shin = 16781544 -- constant _KEY_Georgian_tan _KEY_Georgian_tan :: Int32 _KEY_Georgian_tan = 16781527 -- constant _KEY_Georgian_tar _KEY_Georgian_tar :: Int32 _KEY_Georgian_tar = 16781538 -- constant _KEY_Georgian_un _KEY_Georgian_un :: Int32 _KEY_Georgian_un = 16781539 -- constant _KEY_Georgian_vin _KEY_Georgian_vin :: Int32 _KEY_Georgian_vin = 16781525 -- constant _KEY_Georgian_we _KEY_Georgian_we :: Int32 _KEY_Georgian_we = 16781555 -- constant _KEY_Georgian_xan _KEY_Georgian_xan :: Int32 _KEY_Georgian_xan = 16781550 -- constant _KEY_Georgian_zen _KEY_Georgian_zen :: Int32 _KEY_Georgian_zen = 16781526 -- constant _KEY_Georgian_zhar _KEY_Georgian_zhar :: Int32 _KEY_Georgian_zhar = 16781535 -- constant _KEY_Go _KEY_Go :: Int32 _KEY_Go = 269025119 -- constant _KEY_Greek_ALPHA _KEY_Greek_ALPHA :: Int32 _KEY_Greek_ALPHA = 1985 -- constant _KEY_Greek_ALPHAaccent _KEY_Greek_ALPHAaccent :: Int32 _KEY_Greek_ALPHAaccent = 1953 -- constant _KEY_Greek_BETA _KEY_Greek_BETA :: Int32 _KEY_Greek_BETA = 1986 -- constant _KEY_Greek_CHI _KEY_Greek_CHI :: Int32 _KEY_Greek_CHI = 2007 -- constant _KEY_Greek_DELTA _KEY_Greek_DELTA :: Int32 _KEY_Greek_DELTA = 1988 -- constant _KEY_Greek_EPSILON _KEY_Greek_EPSILON :: Int32 _KEY_Greek_EPSILON = 1989 -- constant _KEY_Greek_EPSILONaccent _KEY_Greek_EPSILONaccent :: Int32 _KEY_Greek_EPSILONaccent = 1954 -- constant _KEY_Greek_ETA _KEY_Greek_ETA :: Int32 _KEY_Greek_ETA = 1991 -- constant _KEY_Greek_ETAaccent _KEY_Greek_ETAaccent :: Int32 _KEY_Greek_ETAaccent = 1955 -- constant _KEY_Greek_GAMMA _KEY_Greek_GAMMA :: Int32 _KEY_Greek_GAMMA = 1987 -- constant _KEY_Greek_IOTA _KEY_Greek_IOTA :: Int32 _KEY_Greek_IOTA = 1993 -- constant _KEY_Greek_IOTAaccent _KEY_Greek_IOTAaccent :: Int32 _KEY_Greek_IOTAaccent = 1956 -- constant _KEY_Greek_IOTAdiaeresis _KEY_Greek_IOTAdiaeresis :: Int32 _KEY_Greek_IOTAdiaeresis = 1957 -- constant _KEY_Greek_IOTAdieresis _KEY_Greek_IOTAdieresis :: Int32 _KEY_Greek_IOTAdieresis = 1957 -- constant _KEY_Greek_KAPPA _KEY_Greek_KAPPA :: Int32 _KEY_Greek_KAPPA = 1994 -- constant _KEY_Greek_LAMBDA _KEY_Greek_LAMBDA :: Int32 _KEY_Greek_LAMBDA = 1995 -- constant _KEY_Greek_LAMDA _KEY_Greek_LAMDA :: Int32 _KEY_Greek_LAMDA = 1995 -- constant _KEY_Greek_MU _KEY_Greek_MU :: Int32 _KEY_Greek_MU = 1996 -- constant _KEY_Greek_NU _KEY_Greek_NU :: Int32 _KEY_Greek_NU = 1997 -- constant _KEY_Greek_OMEGA _KEY_Greek_OMEGA :: Int32 _KEY_Greek_OMEGA = 2009 -- constant _KEY_Greek_OMEGAaccent _KEY_Greek_OMEGAaccent :: Int32 _KEY_Greek_OMEGAaccent = 1963 -- constant _KEY_Greek_OMICRON _KEY_Greek_OMICRON :: Int32 _KEY_Greek_OMICRON = 1999 -- constant _KEY_Greek_OMICRONaccent _KEY_Greek_OMICRONaccent :: Int32 _KEY_Greek_OMICRONaccent = 1959 -- constant _KEY_Greek_PHI _KEY_Greek_PHI :: Int32 _KEY_Greek_PHI = 2006 -- constant _KEY_Greek_PI _KEY_Greek_PI :: Int32 _KEY_Greek_PI = 2000 -- constant _KEY_Greek_PSI _KEY_Greek_PSI :: Int32 _KEY_Greek_PSI = 2008 -- constant _KEY_Greek_RHO _KEY_Greek_RHO :: Int32 _KEY_Greek_RHO = 2001 -- constant _KEY_Greek_SIGMA _KEY_Greek_SIGMA :: Int32 _KEY_Greek_SIGMA = 2002 -- constant _KEY_Greek_TAU _KEY_Greek_TAU :: Int32 _KEY_Greek_TAU = 2004 -- constant _KEY_Greek_THETA _KEY_Greek_THETA :: Int32 _KEY_Greek_THETA = 1992 -- constant _KEY_Greek_UPSILON _KEY_Greek_UPSILON :: Int32 _KEY_Greek_UPSILON = 2005 -- constant _KEY_Greek_UPSILONaccent _KEY_Greek_UPSILONaccent :: Int32 _KEY_Greek_UPSILONaccent = 1960 -- constant _KEY_Greek_UPSILONdieresis _KEY_Greek_UPSILONdieresis :: Int32 _KEY_Greek_UPSILONdieresis = 1961 -- constant _KEY_Greek_XI _KEY_Greek_XI :: Int32 _KEY_Greek_XI = 1998 -- constant _KEY_Greek_ZETA _KEY_Greek_ZETA :: Int32 _KEY_Greek_ZETA = 1990 -- constant _KEY_Greek_accentdieresis _KEY_Greek_accentdieresis :: Int32 _KEY_Greek_accentdieresis = 1966 -- constant _KEY_Greek_alpha _KEY_Greek_alpha :: Int32 _KEY_Greek_alpha = 2017 -- constant _KEY_Greek_alphaaccent _KEY_Greek_alphaaccent :: Int32 _KEY_Greek_alphaaccent = 1969 -- constant _KEY_Greek_beta _KEY_Greek_beta :: Int32 _KEY_Greek_beta = 2018 -- constant _KEY_Greek_chi _KEY_Greek_chi :: Int32 _KEY_Greek_chi = 2039 -- constant _KEY_Greek_delta _KEY_Greek_delta :: Int32 _KEY_Greek_delta = 2020 -- constant _KEY_Greek_epsilon _KEY_Greek_epsilon :: Int32 _KEY_Greek_epsilon = 2021 -- constant _KEY_Greek_epsilonaccent _KEY_Greek_epsilonaccent :: Int32 _KEY_Greek_epsilonaccent = 1970 -- constant _KEY_Greek_eta _KEY_Greek_eta :: Int32 _KEY_Greek_eta = 2023 -- constant _KEY_Greek_etaaccent _KEY_Greek_etaaccent :: Int32 _KEY_Greek_etaaccent = 1971 -- constant _KEY_Greek_finalsmallsigma _KEY_Greek_finalsmallsigma :: Int32 _KEY_Greek_finalsmallsigma = 2035 -- constant _KEY_Greek_gamma _KEY_Greek_gamma :: Int32 _KEY_Greek_gamma = 2019 -- constant _KEY_Greek_horizbar _KEY_Greek_horizbar :: Int32 _KEY_Greek_horizbar = 1967 -- constant _KEY_Greek_iota _KEY_Greek_iota :: Int32 _KEY_Greek_iota = 2025 -- constant _KEY_Greek_iotaaccent _KEY_Greek_iotaaccent :: Int32 _KEY_Greek_iotaaccent = 1972 -- constant _KEY_Greek_iotaaccentdieresis _KEY_Greek_iotaaccentdieresis :: Int32 _KEY_Greek_iotaaccentdieresis = 1974 -- constant _KEY_Greek_iotadieresis _KEY_Greek_iotadieresis :: Int32 _KEY_Greek_iotadieresis = 1973 -- constant _KEY_Greek_kappa _KEY_Greek_kappa :: Int32 _KEY_Greek_kappa = 2026 -- constant _KEY_Greek_lambda _KEY_Greek_lambda :: Int32 _KEY_Greek_lambda = 2027 -- constant _KEY_Greek_lamda _KEY_Greek_lamda :: Int32 _KEY_Greek_lamda = 2027 -- constant _KEY_Greek_mu _KEY_Greek_mu :: Int32 _KEY_Greek_mu = 2028 -- constant _KEY_Greek_nu _KEY_Greek_nu :: Int32 _KEY_Greek_nu = 2029 -- constant _KEY_Greek_omega _KEY_Greek_omega :: Int32 _KEY_Greek_omega = 2041 -- constant _KEY_Greek_omegaaccent _KEY_Greek_omegaaccent :: Int32 _KEY_Greek_omegaaccent = 1979 -- constant _KEY_Greek_omicron _KEY_Greek_omicron :: Int32 _KEY_Greek_omicron = 2031 -- constant _KEY_Greek_omicronaccent _KEY_Greek_omicronaccent :: Int32 _KEY_Greek_omicronaccent = 1975 -- constant _KEY_Greek_phi _KEY_Greek_phi :: Int32 _KEY_Greek_phi = 2038 -- constant _KEY_Greek_pi _KEY_Greek_pi :: Int32 _KEY_Greek_pi = 2032 -- constant _KEY_Greek_psi _KEY_Greek_psi :: Int32 _KEY_Greek_psi = 2040 -- constant _KEY_Greek_rho _KEY_Greek_rho :: Int32 _KEY_Greek_rho = 2033 -- constant _KEY_Greek_sigma _KEY_Greek_sigma :: Int32 _KEY_Greek_sigma = 2034 -- constant _KEY_Greek_switch _KEY_Greek_switch :: Int32 _KEY_Greek_switch = 65406 -- constant _KEY_Greek_tau _KEY_Greek_tau :: Int32 _KEY_Greek_tau = 2036 -- constant _KEY_Greek_theta _KEY_Greek_theta :: Int32 _KEY_Greek_theta = 2024 -- constant _KEY_Greek_upsilon _KEY_Greek_upsilon :: Int32 _KEY_Greek_upsilon = 2037 -- constant _KEY_Greek_upsilonaccent _KEY_Greek_upsilonaccent :: Int32 _KEY_Greek_upsilonaccent = 1976 -- constant _KEY_Greek_upsilonaccentdieresis _KEY_Greek_upsilonaccentdieresis :: Int32 _KEY_Greek_upsilonaccentdieresis = 1978 -- constant _KEY_Greek_upsilondieresis _KEY_Greek_upsilondieresis :: Int32 _KEY_Greek_upsilondieresis = 1977 -- constant _KEY_Greek_xi _KEY_Greek_xi :: Int32 _KEY_Greek_xi = 2030 -- constant _KEY_Greek_zeta _KEY_Greek_zeta :: Int32 _KEY_Greek_zeta = 2022 -- constant _KEY_Green _KEY_Green :: Int32 _KEY_Green = 269025188 -- constant _KEY_H _KEY_H :: Int32 _KEY_H = 72 -- constant _KEY_Hangul _KEY_Hangul :: Int32 _KEY_Hangul = 65329 -- constant _KEY_Hangul_A _KEY_Hangul_A :: Int32 _KEY_Hangul_A = 3775 -- constant _KEY_Hangul_AE _KEY_Hangul_AE :: Int32 _KEY_Hangul_AE = 3776 -- constant _KEY_Hangul_AraeA _KEY_Hangul_AraeA :: Int32 _KEY_Hangul_AraeA = 3830 -- constant _KEY_Hangul_AraeAE _KEY_Hangul_AraeAE :: Int32 _KEY_Hangul_AraeAE = 3831 -- constant _KEY_Hangul_Banja _KEY_Hangul_Banja :: Int32 _KEY_Hangul_Banja = 65337 -- constant _KEY_Hangul_Cieuc _KEY_Hangul_Cieuc :: Int32 _KEY_Hangul_Cieuc = 3770 -- constant _KEY_Hangul_Codeinput _KEY_Hangul_Codeinput :: Int32 _KEY_Hangul_Codeinput = 65335 -- constant _KEY_Hangul_Dikeud _KEY_Hangul_Dikeud :: Int32 _KEY_Hangul_Dikeud = 3751 -- constant _KEY_Hangul_E _KEY_Hangul_E :: Int32 _KEY_Hangul_E = 3780 -- constant _KEY_Hangul_EO _KEY_Hangul_EO :: Int32 _KEY_Hangul_EO = 3779 -- constant _KEY_Hangul_EU _KEY_Hangul_EU :: Int32 _KEY_Hangul_EU = 3793 -- constant _KEY_Hangul_End _KEY_Hangul_End :: Int32 _KEY_Hangul_End = 65331 -- constant _KEY_Hangul_Hanja _KEY_Hangul_Hanja :: Int32 _KEY_Hangul_Hanja = 65332 -- constant _KEY_Hangul_Hieuh _KEY_Hangul_Hieuh :: Int32 _KEY_Hangul_Hieuh = 3774 -- constant _KEY_Hangul_I _KEY_Hangul_I :: Int32 _KEY_Hangul_I = 3795 -- constant _KEY_Hangul_Ieung _KEY_Hangul_Ieung :: Int32 _KEY_Hangul_Ieung = 3767 -- constant _KEY_Hangul_J_Cieuc _KEY_Hangul_J_Cieuc :: Int32 _KEY_Hangul_J_Cieuc = 3818 -- constant _KEY_Hangul_J_Dikeud _KEY_Hangul_J_Dikeud :: Int32 _KEY_Hangul_J_Dikeud = 3802 -- constant _KEY_Hangul_J_Hieuh _KEY_Hangul_J_Hieuh :: Int32 _KEY_Hangul_J_Hieuh = 3822 -- constant _KEY_Hangul_J_Ieung _KEY_Hangul_J_Ieung :: Int32 _KEY_Hangul_J_Ieung = 3816 -- constant _KEY_Hangul_J_Jieuj _KEY_Hangul_J_Jieuj :: Int32 _KEY_Hangul_J_Jieuj = 3817 -- constant _KEY_Hangul_J_Khieuq _KEY_Hangul_J_Khieuq :: Int32 _KEY_Hangul_J_Khieuq = 3819 -- constant _KEY_Hangul_J_Kiyeog _KEY_Hangul_J_Kiyeog :: Int32 _KEY_Hangul_J_Kiyeog = 3796 -- constant _KEY_Hangul_J_KiyeogSios _KEY_Hangul_J_KiyeogSios :: Int32 _KEY_Hangul_J_KiyeogSios = 3798 -- constant _KEY_Hangul_J_KkogjiDalrinIeung _KEY_Hangul_J_KkogjiDalrinIeung :: Int32 _KEY_Hangul_J_KkogjiDalrinIeung = 3833 -- constant _KEY_Hangul_J_Mieum _KEY_Hangul_J_Mieum :: Int32 _KEY_Hangul_J_Mieum = 3811 -- constant _KEY_Hangul_J_Nieun _KEY_Hangul_J_Nieun :: Int32 _KEY_Hangul_J_Nieun = 3799 -- constant _KEY_Hangul_J_NieunHieuh _KEY_Hangul_J_NieunHieuh :: Int32 _KEY_Hangul_J_NieunHieuh = 3801 -- constant _KEY_Hangul_J_NieunJieuj _KEY_Hangul_J_NieunJieuj :: Int32 _KEY_Hangul_J_NieunJieuj = 3800 -- constant _KEY_Hangul_J_PanSios _KEY_Hangul_J_PanSios :: Int32 _KEY_Hangul_J_PanSios = 3832 -- constant _KEY_Hangul_J_Phieuf _KEY_Hangul_J_Phieuf :: Int32 _KEY_Hangul_J_Phieuf = 3821 -- constant _KEY_Hangul_J_Pieub _KEY_Hangul_J_Pieub :: Int32 _KEY_Hangul_J_Pieub = 3812 -- constant _KEY_Hangul_J_PieubSios _KEY_Hangul_J_PieubSios :: Int32 _KEY_Hangul_J_PieubSios = 3813 -- constant _KEY_Hangul_J_Rieul _KEY_Hangul_J_Rieul :: Int32 _KEY_Hangul_J_Rieul = 3803 -- constant _KEY_Hangul_J_RieulHieuh _KEY_Hangul_J_RieulHieuh :: Int32 _KEY_Hangul_J_RieulHieuh = 3810 -- constant _KEY_Hangul_J_RieulKiyeog _KEY_Hangul_J_RieulKiyeog :: Int32 _KEY_Hangul_J_RieulKiyeog = 3804 -- constant _KEY_Hangul_J_RieulMieum _KEY_Hangul_J_RieulMieum :: Int32 _KEY_Hangul_J_RieulMieum = 3805 -- constant _KEY_Hangul_J_RieulPhieuf _KEY_Hangul_J_RieulPhieuf :: Int32 _KEY_Hangul_J_RieulPhieuf = 3809 -- constant _KEY_Hangul_J_RieulPieub _KEY_Hangul_J_RieulPieub :: Int32 _KEY_Hangul_J_RieulPieub = 3806 -- constant _KEY_Hangul_J_RieulSios _KEY_Hangul_J_RieulSios :: Int32 _KEY_Hangul_J_RieulSios = 3807 -- constant _KEY_Hangul_J_RieulTieut _KEY_Hangul_J_RieulTieut :: Int32 _KEY_Hangul_J_RieulTieut = 3808 -- constant _KEY_Hangul_J_Sios _KEY_Hangul_J_Sios :: Int32 _KEY_Hangul_J_Sios = 3814 -- constant _KEY_Hangul_J_SsangKiyeog _KEY_Hangul_J_SsangKiyeog :: Int32 _KEY_Hangul_J_SsangKiyeog = 3797 -- constant _KEY_Hangul_J_SsangSios _KEY_Hangul_J_SsangSios :: Int32 _KEY_Hangul_J_SsangSios = 3815 -- constant _KEY_Hangul_J_Tieut _KEY_Hangul_J_Tieut :: Int32 _KEY_Hangul_J_Tieut = 3820 -- constant _KEY_Hangul_J_YeorinHieuh _KEY_Hangul_J_YeorinHieuh :: Int32 _KEY_Hangul_J_YeorinHieuh = 3834 -- constant _KEY_Hangul_Jamo _KEY_Hangul_Jamo :: Int32 _KEY_Hangul_Jamo = 65333 -- constant _KEY_Hangul_Jeonja _KEY_Hangul_Jeonja :: Int32 _KEY_Hangul_Jeonja = 65336 -- constant _KEY_Hangul_Jieuj _KEY_Hangul_Jieuj :: Int32 _KEY_Hangul_Jieuj = 3768 -- constant _KEY_Hangul_Khieuq _KEY_Hangul_Khieuq :: Int32 _KEY_Hangul_Khieuq = 3771 -- constant _KEY_Hangul_Kiyeog _KEY_Hangul_Kiyeog :: Int32 _KEY_Hangul_Kiyeog = 3745 -- constant _KEY_Hangul_KiyeogSios _KEY_Hangul_KiyeogSios :: Int32 _KEY_Hangul_KiyeogSios = 3747 -- constant _KEY_Hangul_KkogjiDalrinIeung _KEY_Hangul_KkogjiDalrinIeung :: Int32 _KEY_Hangul_KkogjiDalrinIeung = 3827 -- constant _KEY_Hangul_Mieum _KEY_Hangul_Mieum :: Int32 _KEY_Hangul_Mieum = 3761 -- constant _KEY_Hangul_MultipleCandidate _KEY_Hangul_MultipleCandidate :: Int32 _KEY_Hangul_MultipleCandidate = 65341 -- constant _KEY_Hangul_Nieun _KEY_Hangul_Nieun :: Int32 _KEY_Hangul_Nieun = 3748 -- constant _KEY_Hangul_NieunHieuh _KEY_Hangul_NieunHieuh :: Int32 _KEY_Hangul_NieunHieuh = 3750 -- constant _KEY_Hangul_NieunJieuj _KEY_Hangul_NieunJieuj :: Int32 _KEY_Hangul_NieunJieuj = 3749 -- constant _KEY_Hangul_O _KEY_Hangul_O :: Int32 _KEY_Hangul_O = 3783 -- constant _KEY_Hangul_OE _KEY_Hangul_OE :: Int32 _KEY_Hangul_OE = 3786 -- constant _KEY_Hangul_PanSios _KEY_Hangul_PanSios :: Int32 _KEY_Hangul_PanSios = 3826 -- constant _KEY_Hangul_Phieuf _KEY_Hangul_Phieuf :: Int32 _KEY_Hangul_Phieuf = 3773 -- constant _KEY_Hangul_Pieub _KEY_Hangul_Pieub :: Int32 _KEY_Hangul_Pieub = 3762 -- constant _KEY_Hangul_PieubSios _KEY_Hangul_PieubSios :: Int32 _KEY_Hangul_PieubSios = 3764 -- constant _KEY_Hangul_PostHanja _KEY_Hangul_PostHanja :: Int32 _KEY_Hangul_PostHanja = 65339 -- constant _KEY_Hangul_PreHanja _KEY_Hangul_PreHanja :: Int32 _KEY_Hangul_PreHanja = 65338 -- constant _KEY_Hangul_PreviousCandidate _KEY_Hangul_PreviousCandidate :: Int32 _KEY_Hangul_PreviousCandidate = 65342 -- constant _KEY_Hangul_Rieul _KEY_Hangul_Rieul :: Int32 _KEY_Hangul_Rieul = 3753 -- constant _KEY_Hangul_RieulHieuh _KEY_Hangul_RieulHieuh :: Int32 _KEY_Hangul_RieulHieuh = 3760 -- constant _KEY_Hangul_RieulKiyeog _KEY_Hangul_RieulKiyeog :: Int32 _KEY_Hangul_RieulKiyeog = 3754 -- constant _KEY_Hangul_RieulMieum _KEY_Hangul_RieulMieum :: Int32 _KEY_Hangul_RieulMieum = 3755 -- constant _KEY_Hangul_RieulPhieuf _KEY_Hangul_RieulPhieuf :: Int32 _KEY_Hangul_RieulPhieuf = 3759 -- constant _KEY_Hangul_RieulPieub _KEY_Hangul_RieulPieub :: Int32 _KEY_Hangul_RieulPieub = 3756 -- constant _KEY_Hangul_RieulSios _KEY_Hangul_RieulSios :: Int32 _KEY_Hangul_RieulSios = 3757 -- constant _KEY_Hangul_RieulTieut _KEY_Hangul_RieulTieut :: Int32 _KEY_Hangul_RieulTieut = 3758 -- constant _KEY_Hangul_RieulYeorinHieuh _KEY_Hangul_RieulYeorinHieuh :: Int32 _KEY_Hangul_RieulYeorinHieuh = 3823 -- constant _KEY_Hangul_Romaja _KEY_Hangul_Romaja :: Int32 _KEY_Hangul_Romaja = 65334 -- constant _KEY_Hangul_SingleCandidate _KEY_Hangul_SingleCandidate :: Int32 _KEY_Hangul_SingleCandidate = 65340 -- constant _KEY_Hangul_Sios _KEY_Hangul_Sios :: Int32 _KEY_Hangul_Sios = 3765 -- constant _KEY_Hangul_Special _KEY_Hangul_Special :: Int32 _KEY_Hangul_Special = 65343 -- constant _KEY_Hangul_SsangDikeud _KEY_Hangul_SsangDikeud :: Int32 _KEY_Hangul_SsangDikeud = 3752 -- constant _KEY_Hangul_SsangJieuj _KEY_Hangul_SsangJieuj :: Int32 _KEY_Hangul_SsangJieuj = 3769 -- constant _KEY_Hangul_SsangKiyeog _KEY_Hangul_SsangKiyeog :: Int32 _KEY_Hangul_SsangKiyeog = 3746 -- constant _KEY_Hangul_SsangPieub _KEY_Hangul_SsangPieub :: Int32 _KEY_Hangul_SsangPieub = 3763 -- constant _KEY_Hangul_SsangSios _KEY_Hangul_SsangSios :: Int32 _KEY_Hangul_SsangSios = 3766 -- constant _KEY_Hangul_Start _KEY_Hangul_Start :: Int32 _KEY_Hangul_Start = 65330 -- constant _KEY_Hangul_SunkyeongeumMieum _KEY_Hangul_SunkyeongeumMieum :: Int32 _KEY_Hangul_SunkyeongeumMieum = 3824 -- constant _KEY_Hangul_SunkyeongeumPhieuf _KEY_Hangul_SunkyeongeumPhieuf :: Int32 _KEY_Hangul_SunkyeongeumPhieuf = 3828 -- constant _KEY_Hangul_SunkyeongeumPieub _KEY_Hangul_SunkyeongeumPieub :: Int32 _KEY_Hangul_SunkyeongeumPieub = 3825 -- constant _KEY_Hangul_Tieut _KEY_Hangul_Tieut :: Int32 _KEY_Hangul_Tieut = 3772 -- constant _KEY_Hangul_U _KEY_Hangul_U :: Int32 _KEY_Hangul_U = 3788 -- constant _KEY_Hangul_WA _KEY_Hangul_WA :: Int32 _KEY_Hangul_WA = 3784 -- constant _KEY_Hangul_WAE _KEY_Hangul_WAE :: Int32 _KEY_Hangul_WAE = 3785 -- constant _KEY_Hangul_WE _KEY_Hangul_WE :: Int32 _KEY_Hangul_WE = 3790 -- constant _KEY_Hangul_WEO _KEY_Hangul_WEO :: Int32 _KEY_Hangul_WEO = 3789 -- constant _KEY_Hangul_WI _KEY_Hangul_WI :: Int32 _KEY_Hangul_WI = 3791 -- constant _KEY_Hangul_YA _KEY_Hangul_YA :: Int32 _KEY_Hangul_YA = 3777 -- constant _KEY_Hangul_YAE _KEY_Hangul_YAE :: Int32 _KEY_Hangul_YAE = 3778 -- constant _KEY_Hangul_YE _KEY_Hangul_YE :: Int32 _KEY_Hangul_YE = 3782 -- constant _KEY_Hangul_YEO _KEY_Hangul_YEO :: Int32 _KEY_Hangul_YEO = 3781 -- constant _KEY_Hangul_YI _KEY_Hangul_YI :: Int32 _KEY_Hangul_YI = 3794 -- constant _KEY_Hangul_YO _KEY_Hangul_YO :: Int32 _KEY_Hangul_YO = 3787 -- constant _KEY_Hangul_YU _KEY_Hangul_YU :: Int32 _KEY_Hangul_YU = 3792 -- constant _KEY_Hangul_YeorinHieuh _KEY_Hangul_YeorinHieuh :: Int32 _KEY_Hangul_YeorinHieuh = 3829 -- constant _KEY_Hangul_switch _KEY_Hangul_switch :: Int32 _KEY_Hangul_switch = 65406 -- constant _KEY_Hankaku _KEY_Hankaku :: Int32 _KEY_Hankaku = 65321 -- constant _KEY_Hcircumflex _KEY_Hcircumflex :: Int32 _KEY_Hcircumflex = 678 -- constant _KEY_Hebrew_switch _KEY_Hebrew_switch :: Int32 _KEY_Hebrew_switch = 65406 -- constant _KEY_Help _KEY_Help :: Int32 _KEY_Help = 65386 -- constant _KEY_Henkan _KEY_Henkan :: Int32 _KEY_Henkan = 65315 -- constant _KEY_Henkan_Mode _KEY_Henkan_Mode :: Int32 _KEY_Henkan_Mode = 65315 -- constant _KEY_Hibernate _KEY_Hibernate :: Int32 _KEY_Hibernate = 269025192 -- constant _KEY_Hiragana _KEY_Hiragana :: Int32 _KEY_Hiragana = 65317 -- constant _KEY_Hiragana_Katakana _KEY_Hiragana_Katakana :: Int32 _KEY_Hiragana_Katakana = 65319 -- constant _KEY_History _KEY_History :: Int32 _KEY_History = 269025079 -- constant _KEY_Home _KEY_Home :: Int32 _KEY_Home = 65360 -- constant _KEY_HomePage _KEY_HomePage :: Int32 _KEY_HomePage = 269025048 -- constant _KEY_HotLinks _KEY_HotLinks :: Int32 _KEY_HotLinks = 269025082 -- constant _KEY_Hstroke _KEY_Hstroke :: Int32 _KEY_Hstroke = 673 -- constant _KEY_Hyper_L _KEY_Hyper_L :: Int32 _KEY_Hyper_L = 65517 -- constant _KEY_Hyper_R _KEY_Hyper_R :: Int32 _KEY_Hyper_R = 65518 -- constant _KEY_I _KEY_I :: Int32 _KEY_I = 73 -- constant _KEY_ISO_Center_Object _KEY_ISO_Center_Object :: Int32 _KEY_ISO_Center_Object = 65075 -- constant _KEY_ISO_Continuous_Underline _KEY_ISO_Continuous_Underline :: Int32 _KEY_ISO_Continuous_Underline = 65072 -- constant _KEY_ISO_Discontinuous_Underline _KEY_ISO_Discontinuous_Underline :: Int32 _KEY_ISO_Discontinuous_Underline = 65073 -- constant _KEY_ISO_Emphasize _KEY_ISO_Emphasize :: Int32 _KEY_ISO_Emphasize = 65074 -- constant _KEY_ISO_Enter _KEY_ISO_Enter :: Int32 _KEY_ISO_Enter = 65076 -- constant _KEY_ISO_Fast_Cursor_Down _KEY_ISO_Fast_Cursor_Down :: Int32 _KEY_ISO_Fast_Cursor_Down = 65071 -- constant _KEY_ISO_Fast_Cursor_Left _KEY_ISO_Fast_Cursor_Left :: Int32 _KEY_ISO_Fast_Cursor_Left = 65068 -- constant _KEY_ISO_Fast_Cursor_Right _KEY_ISO_Fast_Cursor_Right :: Int32 _KEY_ISO_Fast_Cursor_Right = 65069 -- constant _KEY_ISO_Fast_Cursor_Up _KEY_ISO_Fast_Cursor_Up :: Int32 _KEY_ISO_Fast_Cursor_Up = 65070 -- constant _KEY_ISO_First_Group _KEY_ISO_First_Group :: Int32 _KEY_ISO_First_Group = 65036 -- constant _KEY_ISO_First_Group_Lock _KEY_ISO_First_Group_Lock :: Int32 _KEY_ISO_First_Group_Lock = 65037 -- constant _KEY_ISO_Group_Latch _KEY_ISO_Group_Latch :: Int32 _KEY_ISO_Group_Latch = 65030 -- constant _KEY_ISO_Group_Lock _KEY_ISO_Group_Lock :: Int32 _KEY_ISO_Group_Lock = 65031 -- constant _KEY_ISO_Group_Shift _KEY_ISO_Group_Shift :: Int32 _KEY_ISO_Group_Shift = 65406 -- constant _KEY_ISO_Last_Group _KEY_ISO_Last_Group :: Int32 _KEY_ISO_Last_Group = 65038 -- constant _KEY_ISO_Last_Group_Lock _KEY_ISO_Last_Group_Lock :: Int32 _KEY_ISO_Last_Group_Lock = 65039 -- constant _KEY_ISO_Left_Tab _KEY_ISO_Left_Tab :: Int32 _KEY_ISO_Left_Tab = 65056 -- constant _KEY_ISO_Level2_Latch _KEY_ISO_Level2_Latch :: Int32 _KEY_ISO_Level2_Latch = 65026 -- constant _KEY_ISO_Level3_Latch _KEY_ISO_Level3_Latch :: Int32 _KEY_ISO_Level3_Latch = 65028 -- constant _KEY_ISO_Level3_Lock _KEY_ISO_Level3_Lock :: Int32 _KEY_ISO_Level3_Lock = 65029 -- constant _KEY_ISO_Level3_Shift _KEY_ISO_Level3_Shift :: Int32 _KEY_ISO_Level3_Shift = 65027 -- constant _KEY_ISO_Level5_Latch _KEY_ISO_Level5_Latch :: Int32 _KEY_ISO_Level5_Latch = 65042 -- constant _KEY_ISO_Level5_Lock _KEY_ISO_Level5_Lock :: Int32 _KEY_ISO_Level5_Lock = 65043 -- constant _KEY_ISO_Level5_Shift _KEY_ISO_Level5_Shift :: Int32 _KEY_ISO_Level5_Shift = 65041 -- constant _KEY_ISO_Lock _KEY_ISO_Lock :: Int32 _KEY_ISO_Lock = 65025 -- constant _KEY_ISO_Move_Line_Down _KEY_ISO_Move_Line_Down :: Int32 _KEY_ISO_Move_Line_Down = 65058 -- constant _KEY_ISO_Move_Line_Up _KEY_ISO_Move_Line_Up :: Int32 _KEY_ISO_Move_Line_Up = 65057 -- constant _KEY_ISO_Next_Group _KEY_ISO_Next_Group :: Int32 _KEY_ISO_Next_Group = 65032 -- constant _KEY_ISO_Next_Group_Lock _KEY_ISO_Next_Group_Lock :: Int32 _KEY_ISO_Next_Group_Lock = 65033 -- constant _KEY_ISO_Partial_Line_Down _KEY_ISO_Partial_Line_Down :: Int32 _KEY_ISO_Partial_Line_Down = 65060 -- constant _KEY_ISO_Partial_Line_Up _KEY_ISO_Partial_Line_Up :: Int32 _KEY_ISO_Partial_Line_Up = 65059 -- constant _KEY_ISO_Partial_Space_Left _KEY_ISO_Partial_Space_Left :: Int32 _KEY_ISO_Partial_Space_Left = 65061 -- constant _KEY_ISO_Partial_Space_Right _KEY_ISO_Partial_Space_Right :: Int32 _KEY_ISO_Partial_Space_Right = 65062 -- constant _KEY_ISO_Prev_Group _KEY_ISO_Prev_Group :: Int32 _KEY_ISO_Prev_Group = 65034 -- constant _KEY_ISO_Prev_Group_Lock _KEY_ISO_Prev_Group_Lock :: Int32 _KEY_ISO_Prev_Group_Lock = 65035 -- constant _KEY_ISO_Release_Both_Margins _KEY_ISO_Release_Both_Margins :: Int32 _KEY_ISO_Release_Both_Margins = 65067 -- constant _KEY_ISO_Release_Margin_Left _KEY_ISO_Release_Margin_Left :: Int32 _KEY_ISO_Release_Margin_Left = 65065 -- constant _KEY_ISO_Release_Margin_Right _KEY_ISO_Release_Margin_Right :: Int32 _KEY_ISO_Release_Margin_Right = 65066 -- constant _KEY_ISO_Set_Margin_Left _KEY_ISO_Set_Margin_Left :: Int32 _KEY_ISO_Set_Margin_Left = 65063 -- constant _KEY_ISO_Set_Margin_Right _KEY_ISO_Set_Margin_Right :: Int32 _KEY_ISO_Set_Margin_Right = 65064 -- constant _KEY_Iabovedot _KEY_Iabovedot :: Int32 _KEY_Iabovedot = 681 -- constant _KEY_Iacute _KEY_Iacute :: Int32 _KEY_Iacute = 205 -- constant _KEY_Ibelowdot _KEY_Ibelowdot :: Int32 _KEY_Ibelowdot = 16785098 -- constant _KEY_Ibreve _KEY_Ibreve :: Int32 _KEY_Ibreve = 16777516 -- constant _KEY_Icircumflex _KEY_Icircumflex :: Int32 _KEY_Icircumflex = 206 -- constant _KEY_Idiaeresis _KEY_Idiaeresis :: Int32 _KEY_Idiaeresis = 207 -- constant _KEY_Igrave _KEY_Igrave :: Int32 _KEY_Igrave = 204 -- constant _KEY_Ihook _KEY_Ihook :: Int32 _KEY_Ihook = 16785096 -- constant _KEY_Imacron _KEY_Imacron :: Int32 _KEY_Imacron = 975 -- constant _KEY_Insert _KEY_Insert :: Int32 _KEY_Insert = 65379 -- constant _KEY_Iogonek _KEY_Iogonek :: Int32 _KEY_Iogonek = 967 -- constant _KEY_Itilde _KEY_Itilde :: Int32 _KEY_Itilde = 933 -- constant _KEY_J _KEY_J :: Int32 _KEY_J = 74 -- constant _KEY_Jcircumflex _KEY_Jcircumflex :: Int32 _KEY_Jcircumflex = 684 -- constant _KEY_K _KEY_K :: Int32 _KEY_K = 75 -- constant _KEY_KP_0 _KEY_KP_0 :: Int32 _KEY_KP_0 = 65456 -- constant _KEY_KP_1 _KEY_KP_1 :: Int32 _KEY_KP_1 = 65457 -- constant _KEY_KP_2 _KEY_KP_2 :: Int32 _KEY_KP_2 = 65458 -- constant _KEY_KP_3 _KEY_KP_3 :: Int32 _KEY_KP_3 = 65459 -- constant _KEY_KP_4 _KEY_KP_4 :: Int32 _KEY_KP_4 = 65460 -- constant _KEY_KP_5 _KEY_KP_5 :: Int32 _KEY_KP_5 = 65461 -- constant _KEY_KP_6 _KEY_KP_6 :: Int32 _KEY_KP_6 = 65462 -- constant _KEY_KP_7 _KEY_KP_7 :: Int32 _KEY_KP_7 = 65463 -- constant _KEY_KP_8 _KEY_KP_8 :: Int32 _KEY_KP_8 = 65464 -- constant _KEY_KP_9 _KEY_KP_9 :: Int32 _KEY_KP_9 = 65465 -- constant _KEY_KP_Add _KEY_KP_Add :: Int32 _KEY_KP_Add = 65451 -- constant _KEY_KP_Begin _KEY_KP_Begin :: Int32 _KEY_KP_Begin = 65437 -- constant _KEY_KP_Decimal _KEY_KP_Decimal :: Int32 _KEY_KP_Decimal = 65454 -- constant _KEY_KP_Delete _KEY_KP_Delete :: Int32 _KEY_KP_Delete = 65439 -- constant _KEY_KP_Divide _KEY_KP_Divide :: Int32 _KEY_KP_Divide = 65455 -- constant _KEY_KP_Down _KEY_KP_Down :: Int32 _KEY_KP_Down = 65433 -- constant _KEY_KP_End _KEY_KP_End :: Int32 _KEY_KP_End = 65436 -- constant _KEY_KP_Enter _KEY_KP_Enter :: Int32 _KEY_KP_Enter = 65421 -- constant _KEY_KP_Equal _KEY_KP_Equal :: Int32 _KEY_KP_Equal = 65469 -- constant _KEY_KP_F1 _KEY_KP_F1 :: Int32 _KEY_KP_F1 = 65425 -- constant _KEY_KP_F2 _KEY_KP_F2 :: Int32 _KEY_KP_F2 = 65426 -- constant _KEY_KP_F3 _KEY_KP_F3 :: Int32 _KEY_KP_F3 = 65427 -- constant _KEY_KP_F4 _KEY_KP_F4 :: Int32 _KEY_KP_F4 = 65428 -- constant _KEY_KP_Home _KEY_KP_Home :: Int32 _KEY_KP_Home = 65429 -- constant _KEY_KP_Insert _KEY_KP_Insert :: Int32 _KEY_KP_Insert = 65438 -- constant _KEY_KP_Left _KEY_KP_Left :: Int32 _KEY_KP_Left = 65430 -- constant _KEY_KP_Multiply _KEY_KP_Multiply :: Int32 _KEY_KP_Multiply = 65450 -- constant _KEY_KP_Next _KEY_KP_Next :: Int32 _KEY_KP_Next = 65435 -- constant _KEY_KP_Page_Down _KEY_KP_Page_Down :: Int32 _KEY_KP_Page_Down = 65435 -- constant _KEY_KP_Page_Up _KEY_KP_Page_Up :: Int32 _KEY_KP_Page_Up = 65434 -- constant _KEY_KP_Prior _KEY_KP_Prior :: Int32 _KEY_KP_Prior = 65434 -- constant _KEY_KP_Right _KEY_KP_Right :: Int32 _KEY_KP_Right = 65432 -- constant _KEY_KP_Separator _KEY_KP_Separator :: Int32 _KEY_KP_Separator = 65452 -- constant _KEY_KP_Space _KEY_KP_Space :: Int32 _KEY_KP_Space = 65408 -- constant _KEY_KP_Subtract _KEY_KP_Subtract :: Int32 _KEY_KP_Subtract = 65453 -- constant _KEY_KP_Tab _KEY_KP_Tab :: Int32 _KEY_KP_Tab = 65417 -- constant _KEY_KP_Up _KEY_KP_Up :: Int32 _KEY_KP_Up = 65431 -- constant _KEY_Kana_Lock _KEY_Kana_Lock :: Int32 _KEY_Kana_Lock = 65325 -- constant _KEY_Kana_Shift _KEY_Kana_Shift :: Int32 _KEY_Kana_Shift = 65326 -- constant _KEY_Kanji _KEY_Kanji :: Int32 _KEY_Kanji = 65313 -- constant _KEY_Kanji_Bangou _KEY_Kanji_Bangou :: Int32 _KEY_Kanji_Bangou = 65335 -- constant _KEY_Katakana _KEY_Katakana :: Int32 _KEY_Katakana = 65318 -- constant _KEY_KbdBrightnessDown _KEY_KbdBrightnessDown :: Int32 _KEY_KbdBrightnessDown = 269025030 -- constant _KEY_KbdBrightnessUp _KEY_KbdBrightnessUp :: Int32 _KEY_KbdBrightnessUp = 269025029 -- constant _KEY_KbdLightOnOff _KEY_KbdLightOnOff :: Int32 _KEY_KbdLightOnOff = 269025028 -- constant _KEY_Kcedilla _KEY_Kcedilla :: Int32 _KEY_Kcedilla = 979 -- constant _KEY_Korean_Won _KEY_Korean_Won :: Int32 _KEY_Korean_Won = 3839 -- constant _KEY_L _KEY_L :: Int32 _KEY_L = 76 -- constant _KEY_L1 _KEY_L1 :: Int32 _KEY_L1 = 65480 -- constant _KEY_L10 _KEY_L10 :: Int32 _KEY_L10 = 65489 -- constant _KEY_L2 _KEY_L2 :: Int32 _KEY_L2 = 65481 -- constant _KEY_L3 _KEY_L3 :: Int32 _KEY_L3 = 65482 -- constant _KEY_L4 _KEY_L4 :: Int32 _KEY_L4 = 65483 -- constant _KEY_L5 _KEY_L5 :: Int32 _KEY_L5 = 65484 -- constant _KEY_L6 _KEY_L6 :: Int32 _KEY_L6 = 65485 -- constant _KEY_L7 _KEY_L7 :: Int32 _KEY_L7 = 65486 -- constant _KEY_L8 _KEY_L8 :: Int32 _KEY_L8 = 65487 -- constant _KEY_L9 _KEY_L9 :: Int32 _KEY_L9 = 65488 -- constant _KEY_Lacute _KEY_Lacute :: Int32 _KEY_Lacute = 453 -- constant _KEY_Last_Virtual_Screen _KEY_Last_Virtual_Screen :: Int32 _KEY_Last_Virtual_Screen = 65236 -- constant _KEY_Launch0 _KEY_Launch0 :: Int32 _KEY_Launch0 = 269025088 -- constant _KEY_Launch1 _KEY_Launch1 :: Int32 _KEY_Launch1 = 269025089 -- constant _KEY_Launch2 _KEY_Launch2 :: Int32 _KEY_Launch2 = 269025090 -- constant _KEY_Launch3 _KEY_Launch3 :: Int32 _KEY_Launch3 = 269025091 -- constant _KEY_Launch4 _KEY_Launch4 :: Int32 _KEY_Launch4 = 269025092 -- constant _KEY_Launch5 _KEY_Launch5 :: Int32 _KEY_Launch5 = 269025093 -- constant _KEY_Launch6 _KEY_Launch6 :: Int32 _KEY_Launch6 = 269025094 -- constant _KEY_Launch7 _KEY_Launch7 :: Int32 _KEY_Launch7 = 269025095 -- constant _KEY_Launch8 _KEY_Launch8 :: Int32 _KEY_Launch8 = 269025096 -- constant _KEY_Launch9 _KEY_Launch9 :: Int32 _KEY_Launch9 = 269025097 -- constant _KEY_LaunchA _KEY_LaunchA :: Int32 _KEY_LaunchA = 269025098 -- constant _KEY_LaunchB _KEY_LaunchB :: Int32 _KEY_LaunchB = 269025099 -- constant _KEY_LaunchC _KEY_LaunchC :: Int32 _KEY_LaunchC = 269025100 -- constant _KEY_LaunchD _KEY_LaunchD :: Int32 _KEY_LaunchD = 269025101 -- constant _KEY_LaunchE _KEY_LaunchE :: Int32 _KEY_LaunchE = 269025102 -- constant _KEY_LaunchF _KEY_LaunchF :: Int32 _KEY_LaunchF = 269025103 -- constant _KEY_Lbelowdot _KEY_Lbelowdot :: Int32 _KEY_Lbelowdot = 16784950 -- constant _KEY_Lcaron _KEY_Lcaron :: Int32 _KEY_Lcaron = 421 -- constant _KEY_Lcedilla _KEY_Lcedilla :: Int32 _KEY_Lcedilla = 934 -- constant _KEY_Left _KEY_Left :: Int32 _KEY_Left = 65361 -- constant _KEY_LightBulb _KEY_LightBulb :: Int32 _KEY_LightBulb = 269025077 -- constant _KEY_Linefeed _KEY_Linefeed :: Int32 _KEY_Linefeed = 65290 -- constant _KEY_LiraSign _KEY_LiraSign :: Int32 _KEY_LiraSign = 16785572 -- constant _KEY_LogGrabInfo _KEY_LogGrabInfo :: Int32 _KEY_LogGrabInfo = 269024805 -- constant _KEY_LogOff _KEY_LogOff :: Int32 _KEY_LogOff = 269025121 -- constant _KEY_LogWindowTree _KEY_LogWindowTree :: Int32 _KEY_LogWindowTree = 269024804 -- constant _KEY_Lstroke _KEY_Lstroke :: Int32 _KEY_Lstroke = 419 -- constant _KEY_M _KEY_M :: Int32 _KEY_M = 77 -- constant _KEY_Mabovedot _KEY_Mabovedot :: Int32 _KEY_Mabovedot = 16784960 -- constant _KEY_Macedonia_DSE _KEY_Macedonia_DSE :: Int32 _KEY_Macedonia_DSE = 1717 -- constant _KEY_Macedonia_GJE _KEY_Macedonia_GJE :: Int32 _KEY_Macedonia_GJE = 1714 -- constant _KEY_Macedonia_KJE _KEY_Macedonia_KJE :: Int32 _KEY_Macedonia_KJE = 1724 -- constant _KEY_Macedonia_dse _KEY_Macedonia_dse :: Int32 _KEY_Macedonia_dse = 1701 -- constant _KEY_Macedonia_gje _KEY_Macedonia_gje :: Int32 _KEY_Macedonia_gje = 1698 -- constant _KEY_Macedonia_kje _KEY_Macedonia_kje :: Int32 _KEY_Macedonia_kje = 1708 -- constant _KEY_Mae_Koho _KEY_Mae_Koho :: Int32 _KEY_Mae_Koho = 65342 -- constant _KEY_Mail _KEY_Mail :: Int32 _KEY_Mail = 269025049 -- constant _KEY_MailForward _KEY_MailForward :: Int32 _KEY_MailForward = 269025168 -- constant _KEY_Market _KEY_Market :: Int32 _KEY_Market = 269025122 -- constant _KEY_Massyo _KEY_Massyo :: Int32 _KEY_Massyo = 65324 -- constant _KEY_Meeting _KEY_Meeting :: Int32 _KEY_Meeting = 269025123 -- constant _KEY_Memo _KEY_Memo :: Int32 _KEY_Memo = 269025054 -- constant _KEY_Menu _KEY_Menu :: Int32 _KEY_Menu = 65383 -- constant _KEY_MenuKB _KEY_MenuKB :: Int32 _KEY_MenuKB = 269025125 -- constant _KEY_MenuPB _KEY_MenuPB :: Int32 _KEY_MenuPB = 269025126 -- constant _KEY_Messenger _KEY_Messenger :: Int32 _KEY_Messenger = 269025166 -- constant _KEY_Meta_L _KEY_Meta_L :: Int32 _KEY_Meta_L = 65511 -- constant _KEY_Meta_R _KEY_Meta_R :: Int32 _KEY_Meta_R = 65512 -- constant _KEY_MillSign _KEY_MillSign :: Int32 _KEY_MillSign = 16785573 -- constant _KEY_ModeLock _KEY_ModeLock :: Int32 _KEY_ModeLock = 269025025 -- constant _KEY_Mode_switch _KEY_Mode_switch :: Int32 _KEY_Mode_switch = 65406 -- constant _KEY_MonBrightnessDown _KEY_MonBrightnessDown :: Int32 _KEY_MonBrightnessDown = 269025027 -- constant _KEY_MonBrightnessUp _KEY_MonBrightnessUp :: Int32 _KEY_MonBrightnessUp = 269025026 -- constant _KEY_MouseKeys_Accel_Enable _KEY_MouseKeys_Accel_Enable :: Int32 _KEY_MouseKeys_Accel_Enable = 65143 -- constant _KEY_MouseKeys_Enable _KEY_MouseKeys_Enable :: Int32 _KEY_MouseKeys_Enable = 65142 -- constant _KEY_Muhenkan _KEY_Muhenkan :: Int32 _KEY_Muhenkan = 65314 -- constant _KEY_Multi_key _KEY_Multi_key :: Int32 _KEY_Multi_key = 65312 -- constant _KEY_MultipleCandidate _KEY_MultipleCandidate :: Int32 _KEY_MultipleCandidate = 65341 -- constant _KEY_Music _KEY_Music :: Int32 _KEY_Music = 269025170 -- constant _KEY_MyComputer _KEY_MyComputer :: Int32 _KEY_MyComputer = 269025075 -- constant _KEY_MySites _KEY_MySites :: Int32 _KEY_MySites = 269025127 -- constant _KEY_N _KEY_N :: Int32 _KEY_N = 78 -- constant _KEY_Nacute _KEY_Nacute :: Int32 _KEY_Nacute = 465 -- constant _KEY_NairaSign _KEY_NairaSign :: Int32 _KEY_NairaSign = 16785574 -- constant _KEY_Ncaron _KEY_Ncaron :: Int32 _KEY_Ncaron = 466 -- constant _KEY_Ncedilla _KEY_Ncedilla :: Int32 _KEY_Ncedilla = 977 -- constant _KEY_New _KEY_New :: Int32 _KEY_New = 269025128 -- constant _KEY_NewSheqelSign _KEY_NewSheqelSign :: Int32 _KEY_NewSheqelSign = 16785578 -- constant _KEY_News _KEY_News :: Int32 _KEY_News = 269025129 -- constant _KEY_Next _KEY_Next :: Int32 _KEY_Next = 65366 -- constant _KEY_Next_VMode _KEY_Next_VMode :: Int32 _KEY_Next_VMode = 269024802 -- constant _KEY_Next_Virtual_Screen _KEY_Next_Virtual_Screen :: Int32 _KEY_Next_Virtual_Screen = 65234 -- constant _KEY_Ntilde _KEY_Ntilde :: Int32 _KEY_Ntilde = 209 -- constant _KEY_Num_Lock _KEY_Num_Lock :: Int32 _KEY_Num_Lock = 65407 -- constant _KEY_O _KEY_O :: Int32 _KEY_O = 79 -- constant _KEY_OE _KEY_OE :: Int32 _KEY_OE = 5052 -- constant _KEY_Oacute _KEY_Oacute :: Int32 _KEY_Oacute = 211 -- constant _KEY_Obarred _KEY_Obarred :: Int32 _KEY_Obarred = 16777631 -- constant _KEY_Obelowdot _KEY_Obelowdot :: Int32 _KEY_Obelowdot = 16785100 -- constant _KEY_Ocaron _KEY_Ocaron :: Int32 _KEY_Ocaron = 16777681 -- constant _KEY_Ocircumflex _KEY_Ocircumflex :: Int32 _KEY_Ocircumflex = 212 -- constant _KEY_Ocircumflexacute _KEY_Ocircumflexacute :: Int32 _KEY_Ocircumflexacute = 16785104 -- constant _KEY_Ocircumflexbelowdot _KEY_Ocircumflexbelowdot :: Int32 _KEY_Ocircumflexbelowdot = 16785112 -- constant _KEY_Ocircumflexgrave _KEY_Ocircumflexgrave :: Int32 _KEY_Ocircumflexgrave = 16785106 -- constant _KEY_Ocircumflexhook _KEY_Ocircumflexhook :: Int32 _KEY_Ocircumflexhook = 16785108 -- constant _KEY_Ocircumflextilde _KEY_Ocircumflextilde :: Int32 _KEY_Ocircumflextilde = 16785110 -- constant _KEY_Odiaeresis _KEY_Odiaeresis :: Int32 _KEY_Odiaeresis = 214 -- constant _KEY_Odoubleacute _KEY_Odoubleacute :: Int32 _KEY_Odoubleacute = 469 -- constant _KEY_OfficeHome _KEY_OfficeHome :: Int32 _KEY_OfficeHome = 269025130 -- constant _KEY_Ograve _KEY_Ograve :: Int32 _KEY_Ograve = 210 -- constant _KEY_Ohook _KEY_Ohook :: Int32 _KEY_Ohook = 16785102 -- constant _KEY_Ohorn _KEY_Ohorn :: Int32 _KEY_Ohorn = 16777632 -- constant _KEY_Ohornacute _KEY_Ohornacute :: Int32 _KEY_Ohornacute = 16785114 -- constant _KEY_Ohornbelowdot _KEY_Ohornbelowdot :: Int32 _KEY_Ohornbelowdot = 16785122 -- constant _KEY_Ohorngrave _KEY_Ohorngrave :: Int32 _KEY_Ohorngrave = 16785116 -- constant _KEY_Ohornhook _KEY_Ohornhook :: Int32 _KEY_Ohornhook = 16785118 -- constant _KEY_Ohorntilde _KEY_Ohorntilde :: Int32 _KEY_Ohorntilde = 16785120 -- constant _KEY_Omacron _KEY_Omacron :: Int32 _KEY_Omacron = 978 -- constant _KEY_Ooblique _KEY_Ooblique :: Int32 _KEY_Ooblique = 216 -- constant _KEY_Open _KEY_Open :: Int32 _KEY_Open = 269025131 -- constant _KEY_OpenURL _KEY_OpenURL :: Int32 _KEY_OpenURL = 269025080 -- constant _KEY_Option _KEY_Option :: Int32 _KEY_Option = 269025132 -- constant _KEY_Oslash _KEY_Oslash :: Int32 _KEY_Oslash = 216 -- constant _KEY_Otilde _KEY_Otilde :: Int32 _KEY_Otilde = 213 -- constant _KEY_Overlay1_Enable _KEY_Overlay1_Enable :: Int32 _KEY_Overlay1_Enable = 65144 -- constant _KEY_Overlay2_Enable _KEY_Overlay2_Enable :: Int32 _KEY_Overlay2_Enable = 65145 -- constant _KEY_P _KEY_P :: Int32 _KEY_P = 80 -- constant _KEY_Pabovedot _KEY_Pabovedot :: Int32 _KEY_Pabovedot = 16784982 -- constant _KEY_Page_Down _KEY_Page_Down :: Int32 _KEY_Page_Down = 65366 -- constant _KEY_Page_Up _KEY_Page_Up :: Int32 _KEY_Page_Up = 65365 -- constant _KEY_Paste _KEY_Paste :: Int32 _KEY_Paste = 269025133 -- constant _KEY_Pause _KEY_Pause :: Int32 _KEY_Pause = 65299 -- constant _KEY_PesetaSign _KEY_PesetaSign :: Int32 _KEY_PesetaSign = 16785575 -- constant _KEY_Phone _KEY_Phone :: Int32 _KEY_Phone = 269025134 -- constant _KEY_Pictures _KEY_Pictures :: Int32 _KEY_Pictures = 269025169 -- constant _KEY_Pointer_Accelerate _KEY_Pointer_Accelerate :: Int32 _KEY_Pointer_Accelerate = 65274 -- constant _KEY_Pointer_Button1 _KEY_Pointer_Button1 :: Int32 _KEY_Pointer_Button1 = 65257 -- constant _KEY_Pointer_Button2 _KEY_Pointer_Button2 :: Int32 _KEY_Pointer_Button2 = 65258 -- constant _KEY_Pointer_Button3 _KEY_Pointer_Button3 :: Int32 _KEY_Pointer_Button3 = 65259 -- constant _KEY_Pointer_Button4 _KEY_Pointer_Button4 :: Int32 _KEY_Pointer_Button4 = 65260 -- constant _KEY_Pointer_Button5 _KEY_Pointer_Button5 :: Int32 _KEY_Pointer_Button5 = 65261 -- constant _KEY_Pointer_Button_Dflt _KEY_Pointer_Button_Dflt :: Int32 _KEY_Pointer_Button_Dflt = 65256 -- constant _KEY_Pointer_DblClick1 _KEY_Pointer_DblClick1 :: Int32 _KEY_Pointer_DblClick1 = 65263 -- constant _KEY_Pointer_DblClick2 _KEY_Pointer_DblClick2 :: Int32 _KEY_Pointer_DblClick2 = 65264 -- constant _KEY_Pointer_DblClick3 _KEY_Pointer_DblClick3 :: Int32 _KEY_Pointer_DblClick3 = 65265 -- constant _KEY_Pointer_DblClick4 _KEY_Pointer_DblClick4 :: Int32 _KEY_Pointer_DblClick4 = 65266 -- constant _KEY_Pointer_DblClick5 _KEY_Pointer_DblClick5 :: Int32 _KEY_Pointer_DblClick5 = 65267 -- constant _KEY_Pointer_DblClick_Dflt _KEY_Pointer_DblClick_Dflt :: Int32 _KEY_Pointer_DblClick_Dflt = 65262 -- constant _KEY_Pointer_DfltBtnNext _KEY_Pointer_DfltBtnNext :: Int32 _KEY_Pointer_DfltBtnNext = 65275 -- constant _KEY_Pointer_DfltBtnPrev _KEY_Pointer_DfltBtnPrev :: Int32 _KEY_Pointer_DfltBtnPrev = 65276 -- constant _KEY_Pointer_Down _KEY_Pointer_Down :: Int32 _KEY_Pointer_Down = 65251 -- constant _KEY_Pointer_DownLeft _KEY_Pointer_DownLeft :: Int32 _KEY_Pointer_DownLeft = 65254 -- constant _KEY_Pointer_DownRight _KEY_Pointer_DownRight :: Int32 _KEY_Pointer_DownRight = 65255 -- constant _KEY_Pointer_Drag1 _KEY_Pointer_Drag1 :: Int32 _KEY_Pointer_Drag1 = 65269 -- constant _KEY_Pointer_Drag2 _KEY_Pointer_Drag2 :: Int32 _KEY_Pointer_Drag2 = 65270 -- constant _KEY_Pointer_Drag3 _KEY_Pointer_Drag3 :: Int32 _KEY_Pointer_Drag3 = 65271 -- constant _KEY_Pointer_Drag4 _KEY_Pointer_Drag4 :: Int32 _KEY_Pointer_Drag4 = 65272 -- constant _KEY_Pointer_Drag5 _KEY_Pointer_Drag5 :: Int32 _KEY_Pointer_Drag5 = 65277 -- constant _KEY_Pointer_Drag_Dflt _KEY_Pointer_Drag_Dflt :: Int32 _KEY_Pointer_Drag_Dflt = 65268 -- constant _KEY_Pointer_EnableKeys _KEY_Pointer_EnableKeys :: Int32 _KEY_Pointer_EnableKeys = 65273 -- constant _KEY_Pointer_Left _KEY_Pointer_Left :: Int32 _KEY_Pointer_Left = 65248 -- constant _KEY_Pointer_Right _KEY_Pointer_Right :: Int32 _KEY_Pointer_Right = 65249 -- constant _KEY_Pointer_Up _KEY_Pointer_Up :: Int32 _KEY_Pointer_Up = 65250 -- constant _KEY_Pointer_UpLeft _KEY_Pointer_UpLeft :: Int32 _KEY_Pointer_UpLeft = 65252 -- constant _KEY_Pointer_UpRight _KEY_Pointer_UpRight :: Int32 _KEY_Pointer_UpRight = 65253 -- constant _KEY_PowerDown _KEY_PowerDown :: Int32 _KEY_PowerDown = 269025057 -- constant _KEY_PowerOff _KEY_PowerOff :: Int32 _KEY_PowerOff = 269025066 -- constant _KEY_Prev_VMode _KEY_Prev_VMode :: Int32 _KEY_Prev_VMode = 269024803 -- constant _KEY_Prev_Virtual_Screen _KEY_Prev_Virtual_Screen :: Int32 _KEY_Prev_Virtual_Screen = 65233 -- constant _KEY_PreviousCandidate _KEY_PreviousCandidate :: Int32 _KEY_PreviousCandidate = 65342 -- constant _KEY_Print _KEY_Print :: Int32 _KEY_Print = 65377 -- constant _KEY_Prior _KEY_Prior :: Int32 _KEY_Prior = 65365 -- constant _KEY_Q _KEY_Q :: Int32 _KEY_Q = 81 -- constant _KEY_R _KEY_R :: Int32 _KEY_R = 82 -- constant _KEY_R1 _KEY_R1 :: Int32 _KEY_R1 = 65490 -- constant _KEY_R10 _KEY_R10 :: Int32 _KEY_R10 = 65499 -- constant _KEY_R11 _KEY_R11 :: Int32 _KEY_R11 = 65500 -- constant _KEY_R12 _KEY_R12 :: Int32 _KEY_R12 = 65501 -- constant _KEY_R13 _KEY_R13 :: Int32 _KEY_R13 = 65502 -- constant _KEY_R14 _KEY_R14 :: Int32 _KEY_R14 = 65503 -- constant _KEY_R15 _KEY_R15 :: Int32 _KEY_R15 = 65504 -- constant _KEY_R2 _KEY_R2 :: Int32 _KEY_R2 = 65491 -- constant _KEY_R3 _KEY_R3 :: Int32 _KEY_R3 = 65492 -- constant _KEY_R4 _KEY_R4 :: Int32 _KEY_R4 = 65493 -- constant _KEY_R5 _KEY_R5 :: Int32 _KEY_R5 = 65494 -- constant _KEY_R6 _KEY_R6 :: Int32 _KEY_R6 = 65495 -- constant _KEY_R7 _KEY_R7 :: Int32 _KEY_R7 = 65496 -- constant _KEY_R8 _KEY_R8 :: Int32 _KEY_R8 = 65497 -- constant _KEY_R9 _KEY_R9 :: Int32 _KEY_R9 = 65498 -- constant _KEY_Racute _KEY_Racute :: Int32 _KEY_Racute = 448 -- constant _KEY_Rcaron _KEY_Rcaron :: Int32 _KEY_Rcaron = 472 -- constant _KEY_Rcedilla _KEY_Rcedilla :: Int32 _KEY_Rcedilla = 931 -- constant _KEY_Red _KEY_Red :: Int32 _KEY_Red = 269025187 -- constant _KEY_Redo _KEY_Redo :: Int32 _KEY_Redo = 65382 -- constant _KEY_Refresh _KEY_Refresh :: Int32 _KEY_Refresh = 269025065 -- constant _KEY_Reload _KEY_Reload :: Int32 _KEY_Reload = 269025139 -- constant _KEY_RepeatKeys_Enable _KEY_RepeatKeys_Enable :: Int32 _KEY_RepeatKeys_Enable = 65138 -- constant _KEY_Reply _KEY_Reply :: Int32 _KEY_Reply = 269025138 -- constant _KEY_Return _KEY_Return :: Int32 _KEY_Return = 65293 -- constant _KEY_Right _KEY_Right :: Int32 _KEY_Right = 65363 -- constant _KEY_RockerDown _KEY_RockerDown :: Int32 _KEY_RockerDown = 269025060 -- constant _KEY_RockerEnter _KEY_RockerEnter :: Int32 _KEY_RockerEnter = 269025061 -- constant _KEY_RockerUp _KEY_RockerUp :: Int32 _KEY_RockerUp = 269025059 -- constant _KEY_Romaji _KEY_Romaji :: Int32 _KEY_Romaji = 65316 -- constant _KEY_RotateWindows _KEY_RotateWindows :: Int32 _KEY_RotateWindows = 269025140 -- constant _KEY_RotationKB _KEY_RotationKB :: Int32 _KEY_RotationKB = 269025142 -- constant _KEY_RotationPB _KEY_RotationPB :: Int32 _KEY_RotationPB = 269025141 -- constant _KEY_RupeeSign _KEY_RupeeSign :: Int32 _KEY_RupeeSign = 16785576 -- constant _KEY_S _KEY_S :: Int32 _KEY_S = 83 -- constant _KEY_SCHWA _KEY_SCHWA :: Int32 _KEY_SCHWA = 16777615 -- constant _KEY_Sabovedot _KEY_Sabovedot :: Int32 _KEY_Sabovedot = 16784992 -- constant _KEY_Sacute _KEY_Sacute :: Int32 _KEY_Sacute = 422 -- constant _KEY_Save _KEY_Save :: Int32 _KEY_Save = 269025143 -- constant _KEY_Scaron _KEY_Scaron :: Int32 _KEY_Scaron = 425 -- constant _KEY_Scedilla _KEY_Scedilla :: Int32 _KEY_Scedilla = 426 -- constant _KEY_Scircumflex _KEY_Scircumflex :: Int32 _KEY_Scircumflex = 734 -- constant _KEY_ScreenSaver _KEY_ScreenSaver :: Int32 _KEY_ScreenSaver = 269025069 -- constant _KEY_ScrollClick _KEY_ScrollClick :: Int32 _KEY_ScrollClick = 269025146 -- constant _KEY_ScrollDown _KEY_ScrollDown :: Int32 _KEY_ScrollDown = 269025145 -- constant _KEY_ScrollUp _KEY_ScrollUp :: Int32 _KEY_ScrollUp = 269025144 -- constant _KEY_Scroll_Lock _KEY_Scroll_Lock :: Int32 _KEY_Scroll_Lock = 65300 -- constant _KEY_Search _KEY_Search :: Int32 _KEY_Search = 269025051 -- constant _KEY_Select _KEY_Select :: Int32 _KEY_Select = 65376 -- constant _KEY_SelectButton _KEY_SelectButton :: Int32 _KEY_SelectButton = 269025184 -- constant _KEY_Send _KEY_Send :: Int32 _KEY_Send = 269025147 -- constant _KEY_Serbian_DJE _KEY_Serbian_DJE :: Int32 _KEY_Serbian_DJE = 1713 -- constant _KEY_Serbian_DZE _KEY_Serbian_DZE :: Int32 _KEY_Serbian_DZE = 1727 -- constant _KEY_Serbian_JE _KEY_Serbian_JE :: Int32 _KEY_Serbian_JE = 1720 -- constant _KEY_Serbian_LJE _KEY_Serbian_LJE :: Int32 _KEY_Serbian_LJE = 1721 -- constant _KEY_Serbian_NJE _KEY_Serbian_NJE :: Int32 _KEY_Serbian_NJE = 1722 -- constant _KEY_Serbian_TSHE _KEY_Serbian_TSHE :: Int32 _KEY_Serbian_TSHE = 1723 -- constant _KEY_Serbian_dje _KEY_Serbian_dje :: Int32 _KEY_Serbian_dje = 1697 -- constant _KEY_Serbian_dze _KEY_Serbian_dze :: Int32 _KEY_Serbian_dze = 1711 -- constant _KEY_Serbian_je _KEY_Serbian_je :: Int32 _KEY_Serbian_je = 1704 -- constant _KEY_Serbian_lje _KEY_Serbian_lje :: Int32 _KEY_Serbian_lje = 1705 -- constant _KEY_Serbian_nje _KEY_Serbian_nje :: Int32 _KEY_Serbian_nje = 1706 -- constant _KEY_Serbian_tshe _KEY_Serbian_tshe :: Int32 _KEY_Serbian_tshe = 1707 -- constant _KEY_Shift_L _KEY_Shift_L :: Int32 _KEY_Shift_L = 65505 -- constant _KEY_Shift_Lock _KEY_Shift_Lock :: Int32 _KEY_Shift_Lock = 65510 -- constant _KEY_Shift_R _KEY_Shift_R :: Int32 _KEY_Shift_R = 65506 -- constant _KEY_Shop _KEY_Shop :: Int32 _KEY_Shop = 269025078 -- constant _KEY_SingleCandidate _KEY_SingleCandidate :: Int32 _KEY_SingleCandidate = 65340 -- constant _KEY_Sinh_a _KEY_Sinh_a :: Int32 _KEY_Sinh_a = 16780677 -- constant _KEY_Sinh_aa _KEY_Sinh_aa :: Int32 _KEY_Sinh_aa = 16780678 -- constant _KEY_Sinh_aa2 _KEY_Sinh_aa2 :: Int32 _KEY_Sinh_aa2 = 16780751 -- constant _KEY_Sinh_ae _KEY_Sinh_ae :: Int32 _KEY_Sinh_ae = 16780679 -- constant _KEY_Sinh_ae2 _KEY_Sinh_ae2 :: Int32 _KEY_Sinh_ae2 = 16780752 -- constant _KEY_Sinh_aee _KEY_Sinh_aee :: Int32 _KEY_Sinh_aee = 16780680 -- constant _KEY_Sinh_aee2 _KEY_Sinh_aee2 :: Int32 _KEY_Sinh_aee2 = 16780753 -- constant _KEY_Sinh_ai _KEY_Sinh_ai :: Int32 _KEY_Sinh_ai = 16780691 -- constant _KEY_Sinh_ai2 _KEY_Sinh_ai2 :: Int32 _KEY_Sinh_ai2 = 16780763 -- constant _KEY_Sinh_al _KEY_Sinh_al :: Int32 _KEY_Sinh_al = 16780746 -- constant _KEY_Sinh_au _KEY_Sinh_au :: Int32 _KEY_Sinh_au = 16780694 -- constant _KEY_Sinh_au2 _KEY_Sinh_au2 :: Int32 _KEY_Sinh_au2 = 16780766 -- constant _KEY_Sinh_ba _KEY_Sinh_ba :: Int32 _KEY_Sinh_ba = 16780726 -- constant _KEY_Sinh_bha _KEY_Sinh_bha :: Int32 _KEY_Sinh_bha = 16780727 -- constant _KEY_Sinh_ca _KEY_Sinh_ca :: Int32 _KEY_Sinh_ca = 16780704 -- constant _KEY_Sinh_cha _KEY_Sinh_cha :: Int32 _KEY_Sinh_cha = 16780705 -- constant _KEY_Sinh_dda _KEY_Sinh_dda :: Int32 _KEY_Sinh_dda = 16780713 -- constant _KEY_Sinh_ddha _KEY_Sinh_ddha :: Int32 _KEY_Sinh_ddha = 16780714 -- constant _KEY_Sinh_dha _KEY_Sinh_dha :: Int32 _KEY_Sinh_dha = 16780719 -- constant _KEY_Sinh_dhha _KEY_Sinh_dhha :: Int32 _KEY_Sinh_dhha = 16780720 -- constant _KEY_Sinh_e _KEY_Sinh_e :: Int32 _KEY_Sinh_e = 16780689 -- constant _KEY_Sinh_e2 _KEY_Sinh_e2 :: Int32 _KEY_Sinh_e2 = 16780761 -- constant _KEY_Sinh_ee _KEY_Sinh_ee :: Int32 _KEY_Sinh_ee = 16780690 -- constant _KEY_Sinh_ee2 _KEY_Sinh_ee2 :: Int32 _KEY_Sinh_ee2 = 16780762 -- constant _KEY_Sinh_fa _KEY_Sinh_fa :: Int32 _KEY_Sinh_fa = 16780742 -- constant _KEY_Sinh_ga _KEY_Sinh_ga :: Int32 _KEY_Sinh_ga = 16780700 -- constant _KEY_Sinh_gha _KEY_Sinh_gha :: Int32 _KEY_Sinh_gha = 16780701 -- constant _KEY_Sinh_h2 _KEY_Sinh_h2 :: Int32 _KEY_Sinh_h2 = 16780675 -- constant _KEY_Sinh_ha _KEY_Sinh_ha :: Int32 _KEY_Sinh_ha = 16780740 -- constant _KEY_Sinh_i _KEY_Sinh_i :: Int32 _KEY_Sinh_i = 16780681 -- constant _KEY_Sinh_i2 _KEY_Sinh_i2 :: Int32 _KEY_Sinh_i2 = 16780754 -- constant _KEY_Sinh_ii _KEY_Sinh_ii :: Int32 _KEY_Sinh_ii = 16780682 -- constant _KEY_Sinh_ii2 _KEY_Sinh_ii2 :: Int32 _KEY_Sinh_ii2 = 16780755 -- constant _KEY_Sinh_ja _KEY_Sinh_ja :: Int32 _KEY_Sinh_ja = 16780706 -- constant _KEY_Sinh_jha _KEY_Sinh_jha :: Int32 _KEY_Sinh_jha = 16780707 -- constant _KEY_Sinh_jnya _KEY_Sinh_jnya :: Int32 _KEY_Sinh_jnya = 16780709 -- constant _KEY_Sinh_ka _KEY_Sinh_ka :: Int32 _KEY_Sinh_ka = 16780698 -- constant _KEY_Sinh_kha _KEY_Sinh_kha :: Int32 _KEY_Sinh_kha = 16780699 -- constant _KEY_Sinh_kunddaliya _KEY_Sinh_kunddaliya :: Int32 _KEY_Sinh_kunddaliya = 16780788 -- constant _KEY_Sinh_la _KEY_Sinh_la :: Int32 _KEY_Sinh_la = 16780733 -- constant _KEY_Sinh_lla _KEY_Sinh_lla :: Int32 _KEY_Sinh_lla = 16780741 -- constant _KEY_Sinh_lu _KEY_Sinh_lu :: Int32 _KEY_Sinh_lu = 16780687 -- constant _KEY_Sinh_lu2 _KEY_Sinh_lu2 :: Int32 _KEY_Sinh_lu2 = 16780767 -- constant _KEY_Sinh_luu _KEY_Sinh_luu :: Int32 _KEY_Sinh_luu = 16780688 -- constant _KEY_Sinh_luu2 _KEY_Sinh_luu2 :: Int32 _KEY_Sinh_luu2 = 16780787 -- constant _KEY_Sinh_ma _KEY_Sinh_ma :: Int32 _KEY_Sinh_ma = 16780728 -- constant _KEY_Sinh_mba _KEY_Sinh_mba :: Int32 _KEY_Sinh_mba = 16780729 -- constant _KEY_Sinh_na _KEY_Sinh_na :: Int32 _KEY_Sinh_na = 16780721 -- constant _KEY_Sinh_ndda _KEY_Sinh_ndda :: Int32 _KEY_Sinh_ndda = 16780716 -- constant _KEY_Sinh_ndha _KEY_Sinh_ndha :: Int32 _KEY_Sinh_ndha = 16780723 -- constant _KEY_Sinh_ng _KEY_Sinh_ng :: Int32 _KEY_Sinh_ng = 16780674 -- constant _KEY_Sinh_ng2 _KEY_Sinh_ng2 :: Int32 _KEY_Sinh_ng2 = 16780702 -- constant _KEY_Sinh_nga _KEY_Sinh_nga :: Int32 _KEY_Sinh_nga = 16780703 -- constant _KEY_Sinh_nja _KEY_Sinh_nja :: Int32 _KEY_Sinh_nja = 16780710 -- constant _KEY_Sinh_nna _KEY_Sinh_nna :: Int32 _KEY_Sinh_nna = 16780715 -- constant _KEY_Sinh_nya _KEY_Sinh_nya :: Int32 _KEY_Sinh_nya = 16780708 -- constant _KEY_Sinh_o _KEY_Sinh_o :: Int32 _KEY_Sinh_o = 16780692 -- constant _KEY_Sinh_o2 _KEY_Sinh_o2 :: Int32 _KEY_Sinh_o2 = 16780764 -- constant _KEY_Sinh_oo _KEY_Sinh_oo :: Int32 _KEY_Sinh_oo = 16780693 -- constant _KEY_Sinh_oo2 _KEY_Sinh_oo2 :: Int32 _KEY_Sinh_oo2 = 16780765 -- constant _KEY_Sinh_pa _KEY_Sinh_pa :: Int32 _KEY_Sinh_pa = 16780724 -- constant _KEY_Sinh_pha _KEY_Sinh_pha :: Int32 _KEY_Sinh_pha = 16780725 -- constant _KEY_Sinh_ra _KEY_Sinh_ra :: Int32 _KEY_Sinh_ra = 16780731 -- constant _KEY_Sinh_ri _KEY_Sinh_ri :: Int32 _KEY_Sinh_ri = 16780685 -- constant _KEY_Sinh_rii _KEY_Sinh_rii :: Int32 _KEY_Sinh_rii = 16780686 -- constant _KEY_Sinh_ru2 _KEY_Sinh_ru2 :: Int32 _KEY_Sinh_ru2 = 16780760 -- constant _KEY_Sinh_ruu2 _KEY_Sinh_ruu2 :: Int32 _KEY_Sinh_ruu2 = 16780786 -- constant _KEY_Sinh_sa _KEY_Sinh_sa :: Int32 _KEY_Sinh_sa = 16780739 -- constant _KEY_Sinh_sha _KEY_Sinh_sha :: Int32 _KEY_Sinh_sha = 16780737 -- constant _KEY_Sinh_ssha _KEY_Sinh_ssha :: Int32 _KEY_Sinh_ssha = 16780738 -- constant _KEY_Sinh_tha _KEY_Sinh_tha :: Int32 _KEY_Sinh_tha = 16780717 -- constant _KEY_Sinh_thha _KEY_Sinh_thha :: Int32 _KEY_Sinh_thha = 16780718 -- constant _KEY_Sinh_tta _KEY_Sinh_tta :: Int32 _KEY_Sinh_tta = 16780711 -- constant _KEY_Sinh_ttha _KEY_Sinh_ttha :: Int32 _KEY_Sinh_ttha = 16780712 -- constant _KEY_Sinh_u _KEY_Sinh_u :: Int32 _KEY_Sinh_u = 16780683 -- constant _KEY_Sinh_u2 _KEY_Sinh_u2 :: Int32 _KEY_Sinh_u2 = 16780756 -- constant _KEY_Sinh_uu _KEY_Sinh_uu :: Int32 _KEY_Sinh_uu = 16780684 -- constant _KEY_Sinh_uu2 _KEY_Sinh_uu2 :: Int32 _KEY_Sinh_uu2 = 16780758 -- constant _KEY_Sinh_va _KEY_Sinh_va :: Int32 _KEY_Sinh_va = 16780736 -- constant _KEY_Sinh_ya _KEY_Sinh_ya :: Int32 _KEY_Sinh_ya = 16780730 -- constant _KEY_Sleep _KEY_Sleep :: Int32 _KEY_Sleep = 269025071 -- constant _KEY_SlowKeys_Enable _KEY_SlowKeys_Enable :: Int32 _KEY_SlowKeys_Enable = 65139 -- constant _KEY_Spell _KEY_Spell :: Int32 _KEY_Spell = 269025148 -- constant _KEY_SplitScreen _KEY_SplitScreen :: Int32 _KEY_SplitScreen = 269025149 -- constant _KEY_Standby _KEY_Standby :: Int32 _KEY_Standby = 269025040 -- constant _KEY_Start _KEY_Start :: Int32 _KEY_Start = 269025050 -- constant _KEY_StickyKeys_Enable _KEY_StickyKeys_Enable :: Int32 _KEY_StickyKeys_Enable = 65141 -- constant _KEY_Stop _KEY_Stop :: Int32 _KEY_Stop = 269025064 -- constant _KEY_Subtitle _KEY_Subtitle :: Int32 _KEY_Subtitle = 269025178 -- constant _KEY_Super_L _KEY_Super_L :: Int32 _KEY_Super_L = 65515 -- constant _KEY_Super_R _KEY_Super_R :: Int32 _KEY_Super_R = 65516 -- constant _KEY_Support _KEY_Support :: Int32 _KEY_Support = 269025150 -- constant _KEY_Suspend _KEY_Suspend :: Int32 _KEY_Suspend = 269025191 -- constant _KEY_Switch_VT_1 _KEY_Switch_VT_1 :: Int32 _KEY_Switch_VT_1 = 269024769 -- constant _KEY_Switch_VT_10 _KEY_Switch_VT_10 :: Int32 _KEY_Switch_VT_10 = 269024778 -- constant _KEY_Switch_VT_11 _KEY_Switch_VT_11 :: Int32 _KEY_Switch_VT_11 = 269024779 -- constant _KEY_Switch_VT_12 _KEY_Switch_VT_12 :: Int32 _KEY_Switch_VT_12 = 269024780 -- constant _KEY_Switch_VT_2 _KEY_Switch_VT_2 :: Int32 _KEY_Switch_VT_2 = 269024770 -- constant _KEY_Switch_VT_3 _KEY_Switch_VT_3 :: Int32 _KEY_Switch_VT_3 = 269024771 -- constant _KEY_Switch_VT_4 _KEY_Switch_VT_4 :: Int32 _KEY_Switch_VT_4 = 269024772 -- constant _KEY_Switch_VT_5 _KEY_Switch_VT_5 :: Int32 _KEY_Switch_VT_5 = 269024773 -- constant _KEY_Switch_VT_6 _KEY_Switch_VT_6 :: Int32 _KEY_Switch_VT_6 = 269024774 -- constant _KEY_Switch_VT_7 _KEY_Switch_VT_7 :: Int32 _KEY_Switch_VT_7 = 269024775 -- constant _KEY_Switch_VT_8 _KEY_Switch_VT_8 :: Int32 _KEY_Switch_VT_8 = 269024776 -- constant _KEY_Switch_VT_9 _KEY_Switch_VT_9 :: Int32 _KEY_Switch_VT_9 = 269024777 -- constant _KEY_Sys_Req _KEY_Sys_Req :: Int32 _KEY_Sys_Req = 65301 -- constant _KEY_T _KEY_T :: Int32 _KEY_T = 84 -- constant _KEY_THORN _KEY_THORN :: Int32 _KEY_THORN = 222 -- constant _KEY_Tab _KEY_Tab :: Int32 _KEY_Tab = 65289 -- constant _KEY_Tabovedot _KEY_Tabovedot :: Int32 _KEY_Tabovedot = 16785002 -- constant _KEY_TaskPane _KEY_TaskPane :: Int32 _KEY_TaskPane = 269025151 -- constant _KEY_Tcaron _KEY_Tcaron :: Int32 _KEY_Tcaron = 427 -- constant _KEY_Tcedilla _KEY_Tcedilla :: Int32 _KEY_Tcedilla = 478 -- constant _KEY_Terminal _KEY_Terminal :: Int32 _KEY_Terminal = 269025152 -- constant _KEY_Terminate_Server _KEY_Terminate_Server :: Int32 _KEY_Terminate_Server = 65237 -- constant _KEY_Thai_baht _KEY_Thai_baht :: Int32 _KEY_Thai_baht = 3551 -- constant _KEY_Thai_bobaimai _KEY_Thai_bobaimai :: Int32 _KEY_Thai_bobaimai = 3514 -- constant _KEY_Thai_chochan _KEY_Thai_chochan :: Int32 _KEY_Thai_chochan = 3496 -- constant _KEY_Thai_chochang _KEY_Thai_chochang :: Int32 _KEY_Thai_chochang = 3498 -- constant _KEY_Thai_choching _KEY_Thai_choching :: Int32 _KEY_Thai_choching = 3497 -- constant _KEY_Thai_chochoe _KEY_Thai_chochoe :: Int32 _KEY_Thai_chochoe = 3500 -- constant _KEY_Thai_dochada _KEY_Thai_dochada :: Int32 _KEY_Thai_dochada = 3502 -- constant _KEY_Thai_dodek _KEY_Thai_dodek :: Int32 _KEY_Thai_dodek = 3508 -- constant _KEY_Thai_fofa _KEY_Thai_fofa :: Int32 _KEY_Thai_fofa = 3517 -- constant _KEY_Thai_fofan _KEY_Thai_fofan :: Int32 _KEY_Thai_fofan = 3519 -- constant _KEY_Thai_hohip _KEY_Thai_hohip :: Int32 _KEY_Thai_hohip = 3531 -- constant _KEY_Thai_honokhuk _KEY_Thai_honokhuk :: Int32 _KEY_Thai_honokhuk = 3534 -- constant _KEY_Thai_khokhai _KEY_Thai_khokhai :: Int32 _KEY_Thai_khokhai = 3490 -- constant _KEY_Thai_khokhon _KEY_Thai_khokhon :: Int32 _KEY_Thai_khokhon = 3493 -- constant _KEY_Thai_khokhuat _KEY_Thai_khokhuat :: Int32 _KEY_Thai_khokhuat = 3491 -- constant _KEY_Thai_khokhwai _KEY_Thai_khokhwai :: Int32 _KEY_Thai_khokhwai = 3492 -- constant _KEY_Thai_khorakhang _KEY_Thai_khorakhang :: Int32 _KEY_Thai_khorakhang = 3494 -- constant _KEY_Thai_kokai _KEY_Thai_kokai :: Int32 _KEY_Thai_kokai = 3489 -- constant _KEY_Thai_lakkhangyao _KEY_Thai_lakkhangyao :: Int32 _KEY_Thai_lakkhangyao = 3557 -- constant _KEY_Thai_lekchet _KEY_Thai_lekchet :: Int32 _KEY_Thai_lekchet = 3575 -- constant _KEY_Thai_lekha _KEY_Thai_lekha :: Int32 _KEY_Thai_lekha = 3573 -- constant _KEY_Thai_lekhok _KEY_Thai_lekhok :: Int32 _KEY_Thai_lekhok = 3574 -- constant _KEY_Thai_lekkao _KEY_Thai_lekkao :: Int32 _KEY_Thai_lekkao = 3577 -- constant _KEY_Thai_leknung _KEY_Thai_leknung :: Int32 _KEY_Thai_leknung = 3569 -- constant _KEY_Thai_lekpaet _KEY_Thai_lekpaet :: Int32 _KEY_Thai_lekpaet = 3576 -- constant _KEY_Thai_leksam _KEY_Thai_leksam :: Int32 _KEY_Thai_leksam = 3571 -- constant _KEY_Thai_leksi _KEY_Thai_leksi :: Int32 _KEY_Thai_leksi = 3572 -- constant _KEY_Thai_leksong _KEY_Thai_leksong :: Int32 _KEY_Thai_leksong = 3570 -- constant _KEY_Thai_leksun _KEY_Thai_leksun :: Int32 _KEY_Thai_leksun = 3568 -- constant _KEY_Thai_lochula _KEY_Thai_lochula :: Int32 _KEY_Thai_lochula = 3532 -- constant _KEY_Thai_loling _KEY_Thai_loling :: Int32 _KEY_Thai_loling = 3525 -- constant _KEY_Thai_lu _KEY_Thai_lu :: Int32 _KEY_Thai_lu = 3526 -- constant _KEY_Thai_maichattawa _KEY_Thai_maichattawa :: Int32 _KEY_Thai_maichattawa = 3563 -- constant _KEY_Thai_maiek _KEY_Thai_maiek :: Int32 _KEY_Thai_maiek = 3560 -- constant _KEY_Thai_maihanakat _KEY_Thai_maihanakat :: Int32 _KEY_Thai_maihanakat = 3537 -- constant _KEY_Thai_maihanakat_maitho _KEY_Thai_maihanakat_maitho :: Int32 _KEY_Thai_maihanakat_maitho = 3550 -- constant _KEY_Thai_maitaikhu _KEY_Thai_maitaikhu :: Int32 _KEY_Thai_maitaikhu = 3559 -- constant _KEY_Thai_maitho _KEY_Thai_maitho :: Int32 _KEY_Thai_maitho = 3561 -- constant _KEY_Thai_maitri _KEY_Thai_maitri :: Int32 _KEY_Thai_maitri = 3562 -- constant _KEY_Thai_maiyamok _KEY_Thai_maiyamok :: Int32 _KEY_Thai_maiyamok = 3558 -- constant _KEY_Thai_moma _KEY_Thai_moma :: Int32 _KEY_Thai_moma = 3521 -- constant _KEY_Thai_ngongu _KEY_Thai_ngongu :: Int32 _KEY_Thai_ngongu = 3495 -- constant _KEY_Thai_nikhahit _KEY_Thai_nikhahit :: Int32 _KEY_Thai_nikhahit = 3565 -- constant _KEY_Thai_nonen _KEY_Thai_nonen :: Int32 _KEY_Thai_nonen = 3507 -- constant _KEY_Thai_nonu _KEY_Thai_nonu :: Int32 _KEY_Thai_nonu = 3513 -- constant _KEY_Thai_oang _KEY_Thai_oang :: Int32 _KEY_Thai_oang = 3533 -- constant _KEY_Thai_paiyannoi _KEY_Thai_paiyannoi :: Int32 _KEY_Thai_paiyannoi = 3535 -- constant _KEY_Thai_phinthu _KEY_Thai_phinthu :: Int32 _KEY_Thai_phinthu = 3546 -- constant _KEY_Thai_phophan _KEY_Thai_phophan :: Int32 _KEY_Thai_phophan = 3518 -- constant _KEY_Thai_phophung _KEY_Thai_phophung :: Int32 _KEY_Thai_phophung = 3516 -- constant _KEY_Thai_phosamphao _KEY_Thai_phosamphao :: Int32 _KEY_Thai_phosamphao = 3520 -- constant _KEY_Thai_popla _KEY_Thai_popla :: Int32 _KEY_Thai_popla = 3515 -- constant _KEY_Thai_rorua _KEY_Thai_rorua :: Int32 _KEY_Thai_rorua = 3523 -- constant _KEY_Thai_ru _KEY_Thai_ru :: Int32 _KEY_Thai_ru = 3524 -- constant _KEY_Thai_saraa _KEY_Thai_saraa :: Int32 _KEY_Thai_saraa = 3536 -- constant _KEY_Thai_saraaa _KEY_Thai_saraaa :: Int32 _KEY_Thai_saraaa = 3538 -- constant _KEY_Thai_saraae _KEY_Thai_saraae :: Int32 _KEY_Thai_saraae = 3553 -- constant _KEY_Thai_saraaimaimalai _KEY_Thai_saraaimaimalai :: Int32 _KEY_Thai_saraaimaimalai = 3556 -- constant _KEY_Thai_saraaimaimuan _KEY_Thai_saraaimaimuan :: Int32 _KEY_Thai_saraaimaimuan = 3555 -- constant _KEY_Thai_saraam _KEY_Thai_saraam :: Int32 _KEY_Thai_saraam = 3539 -- constant _KEY_Thai_sarae _KEY_Thai_sarae :: Int32 _KEY_Thai_sarae = 3552 -- constant _KEY_Thai_sarai _KEY_Thai_sarai :: Int32 _KEY_Thai_sarai = 3540 -- constant _KEY_Thai_saraii _KEY_Thai_saraii :: Int32 _KEY_Thai_saraii = 3541 -- constant _KEY_Thai_sarao _KEY_Thai_sarao :: Int32 _KEY_Thai_sarao = 3554 -- constant _KEY_Thai_sarau _KEY_Thai_sarau :: Int32 _KEY_Thai_sarau = 3544 -- constant _KEY_Thai_saraue _KEY_Thai_saraue :: Int32 _KEY_Thai_saraue = 3542 -- constant _KEY_Thai_sarauee _KEY_Thai_sarauee :: Int32 _KEY_Thai_sarauee = 3543 -- constant _KEY_Thai_sarauu _KEY_Thai_sarauu :: Int32 _KEY_Thai_sarauu = 3545 -- constant _KEY_Thai_sorusi _KEY_Thai_sorusi :: Int32 _KEY_Thai_sorusi = 3529 -- constant _KEY_Thai_sosala _KEY_Thai_sosala :: Int32 _KEY_Thai_sosala = 3528 -- constant _KEY_Thai_soso _KEY_Thai_soso :: Int32 _KEY_Thai_soso = 3499 -- constant _KEY_Thai_sosua _KEY_Thai_sosua :: Int32 _KEY_Thai_sosua = 3530 -- constant _KEY_Thai_thanthakhat _KEY_Thai_thanthakhat :: Int32 _KEY_Thai_thanthakhat = 3564 -- constant _KEY_Thai_thonangmontho _KEY_Thai_thonangmontho :: Int32 _KEY_Thai_thonangmontho = 3505 -- constant _KEY_Thai_thophuthao _KEY_Thai_thophuthao :: Int32 _KEY_Thai_thophuthao = 3506 -- constant _KEY_Thai_thothahan _KEY_Thai_thothahan :: Int32 _KEY_Thai_thothahan = 3511 -- constant _KEY_Thai_thothan _KEY_Thai_thothan :: Int32 _KEY_Thai_thothan = 3504 -- constant _KEY_Thai_thothong _KEY_Thai_thothong :: Int32 _KEY_Thai_thothong = 3512 -- constant _KEY_Thai_thothung _KEY_Thai_thothung :: Int32 _KEY_Thai_thothung = 3510 -- constant _KEY_Thai_topatak _KEY_Thai_topatak :: Int32 _KEY_Thai_topatak = 3503 -- constant _KEY_Thai_totao _KEY_Thai_totao :: Int32 _KEY_Thai_totao = 3509 -- constant _KEY_Thai_wowaen _KEY_Thai_wowaen :: Int32 _KEY_Thai_wowaen = 3527 -- constant _KEY_Thai_yoyak _KEY_Thai_yoyak :: Int32 _KEY_Thai_yoyak = 3522 -- constant _KEY_Thai_yoying _KEY_Thai_yoying :: Int32 _KEY_Thai_yoying = 3501 -- constant _KEY_Thorn _KEY_Thorn :: Int32 _KEY_Thorn = 222 -- constant _KEY_Time _KEY_Time :: Int32 _KEY_Time = 269025183 -- constant _KEY_ToDoList _KEY_ToDoList :: Int32 _KEY_ToDoList = 269025055 -- constant _KEY_Tools _KEY_Tools :: Int32 _KEY_Tools = 269025153 -- constant _KEY_TopMenu _KEY_TopMenu :: Int32 _KEY_TopMenu = 269025186 -- constant _KEY_TouchpadOff _KEY_TouchpadOff :: Int32 _KEY_TouchpadOff = 269025201 -- constant _KEY_TouchpadOn _KEY_TouchpadOn :: Int32 _KEY_TouchpadOn = 269025200 -- constant _KEY_TouchpadToggle _KEY_TouchpadToggle :: Int32 _KEY_TouchpadToggle = 269025193 -- constant _KEY_Touroku _KEY_Touroku :: Int32 _KEY_Touroku = 65323 -- constant _KEY_Travel _KEY_Travel :: Int32 _KEY_Travel = 269025154 -- constant _KEY_Tslash _KEY_Tslash :: Int32 _KEY_Tslash = 940 -- constant _KEY_U _KEY_U :: Int32 _KEY_U = 85 -- constant _KEY_UWB _KEY_UWB :: Int32 _KEY_UWB = 269025174 -- constant _KEY_Uacute _KEY_Uacute :: Int32 _KEY_Uacute = 218 -- constant _KEY_Ubelowdot _KEY_Ubelowdot :: Int32 _KEY_Ubelowdot = 16785124 -- constant _KEY_Ubreve _KEY_Ubreve :: Int32 _KEY_Ubreve = 733 -- constant _KEY_Ucircumflex _KEY_Ucircumflex :: Int32 _KEY_Ucircumflex = 219 -- constant _KEY_Udiaeresis _KEY_Udiaeresis :: Int32 _KEY_Udiaeresis = 220 -- constant _KEY_Udoubleacute _KEY_Udoubleacute :: Int32 _KEY_Udoubleacute = 475 -- constant _KEY_Ugrave _KEY_Ugrave :: Int32 _KEY_Ugrave = 217 -- constant _KEY_Uhook _KEY_Uhook :: Int32 _KEY_Uhook = 16785126 -- constant _KEY_Uhorn _KEY_Uhorn :: Int32 _KEY_Uhorn = 16777647 -- constant _KEY_Uhornacute _KEY_Uhornacute :: Int32 _KEY_Uhornacute = 16785128 -- constant _KEY_Uhornbelowdot _KEY_Uhornbelowdot :: Int32 _KEY_Uhornbelowdot = 16785136 -- constant _KEY_Uhorngrave _KEY_Uhorngrave :: Int32 _KEY_Uhorngrave = 16785130 -- constant _KEY_Uhornhook _KEY_Uhornhook :: Int32 _KEY_Uhornhook = 16785132 -- constant _KEY_Uhorntilde _KEY_Uhorntilde :: Int32 _KEY_Uhorntilde = 16785134 -- constant _KEY_Ukrainian_GHE_WITH_UPTURN _KEY_Ukrainian_GHE_WITH_UPTURN :: Int32 _KEY_Ukrainian_GHE_WITH_UPTURN = 1725 -- constant _KEY_Ukrainian_I _KEY_Ukrainian_I :: Int32 _KEY_Ukrainian_I = 1718 -- constant _KEY_Ukrainian_IE _KEY_Ukrainian_IE :: Int32 _KEY_Ukrainian_IE = 1716 -- constant _KEY_Ukrainian_YI _KEY_Ukrainian_YI :: Int32 _KEY_Ukrainian_YI = 1719 -- constant _KEY_Ukrainian_ghe_with_upturn _KEY_Ukrainian_ghe_with_upturn :: Int32 _KEY_Ukrainian_ghe_with_upturn = 1709 -- constant _KEY_Ukrainian_i _KEY_Ukrainian_i :: Int32 _KEY_Ukrainian_i = 1702 -- constant _KEY_Ukrainian_ie _KEY_Ukrainian_ie :: Int32 _KEY_Ukrainian_ie = 1700 -- constant _KEY_Ukrainian_yi _KEY_Ukrainian_yi :: Int32 _KEY_Ukrainian_yi = 1703 -- constant _KEY_Ukranian_I _KEY_Ukranian_I :: Int32 _KEY_Ukranian_I = 1718 -- constant _KEY_Ukranian_JE _KEY_Ukranian_JE :: Int32 _KEY_Ukranian_JE = 1716 -- constant _KEY_Ukranian_YI _KEY_Ukranian_YI :: Int32 _KEY_Ukranian_YI = 1719 -- constant _KEY_Ukranian_i _KEY_Ukranian_i :: Int32 _KEY_Ukranian_i = 1702 -- constant _KEY_Ukranian_je _KEY_Ukranian_je :: Int32 _KEY_Ukranian_je = 1700 -- constant _KEY_Ukranian_yi _KEY_Ukranian_yi :: Int32 _KEY_Ukranian_yi = 1703 -- constant _KEY_Umacron _KEY_Umacron :: Int32 _KEY_Umacron = 990 -- constant _KEY_Undo _KEY_Undo :: Int32 _KEY_Undo = 65381 -- constant _KEY_Ungrab _KEY_Ungrab :: Int32 _KEY_Ungrab = 269024800 -- constant _KEY_Uogonek _KEY_Uogonek :: Int32 _KEY_Uogonek = 985 -- constant _KEY_Up _KEY_Up :: Int32 _KEY_Up = 65362 -- constant _KEY_Uring _KEY_Uring :: Int32 _KEY_Uring = 473 -- constant _KEY_User1KB _KEY_User1KB :: Int32 _KEY_User1KB = 269025157 -- constant _KEY_User2KB _KEY_User2KB :: Int32 _KEY_User2KB = 269025158 -- constant _KEY_UserPB _KEY_UserPB :: Int32 _KEY_UserPB = 269025156 -- constant _KEY_Utilde _KEY_Utilde :: Int32 _KEY_Utilde = 989 -- constant _KEY_V _KEY_V :: Int32 _KEY_V = 86 -- constant _KEY_VendorHome _KEY_VendorHome :: Int32 _KEY_VendorHome = 269025076 -- constant _KEY_Video _KEY_Video :: Int32 _KEY_Video = 269025159 -- constant _KEY_View _KEY_View :: Int32 _KEY_View = 269025185 -- constant _KEY_VoidSymbol _KEY_VoidSymbol :: Int32 _KEY_VoidSymbol = 16777215 -- constant _KEY_W _KEY_W :: Int32 _KEY_W = 87 -- constant _KEY_WLAN _KEY_WLAN :: Int32 _KEY_WLAN = 269025173 -- constant _KEY_WWW _KEY_WWW :: Int32 _KEY_WWW = 269025070 -- constant _KEY_Wacute _KEY_Wacute :: Int32 _KEY_Wacute = 16785026 -- constant _KEY_WakeUp _KEY_WakeUp :: Int32 _KEY_WakeUp = 269025067 -- constant _KEY_Wcircumflex _KEY_Wcircumflex :: Int32 _KEY_Wcircumflex = 16777588 -- constant _KEY_Wdiaeresis _KEY_Wdiaeresis :: Int32 _KEY_Wdiaeresis = 16785028 -- constant _KEY_WebCam _KEY_WebCam :: Int32 _KEY_WebCam = 269025167 -- constant _KEY_Wgrave _KEY_Wgrave :: Int32 _KEY_Wgrave = 16785024 -- constant _KEY_WheelButton _KEY_WheelButton :: Int32 _KEY_WheelButton = 269025160 -- constant _KEY_WindowClear _KEY_WindowClear :: Int32 _KEY_WindowClear = 269025109 -- constant _KEY_WonSign _KEY_WonSign :: Int32 _KEY_WonSign = 16785577 -- constant _KEY_Word _KEY_Word :: Int32 _KEY_Word = 269025161 -- constant _KEY_X _KEY_X :: Int32 _KEY_X = 88 -- constant _KEY_Xabovedot _KEY_Xabovedot :: Int32 _KEY_Xabovedot = 16785034 -- constant _KEY_Xfer _KEY_Xfer :: Int32 _KEY_Xfer = 269025162 -- constant _KEY_Y _KEY_Y :: Int32 _KEY_Y = 89 -- constant _KEY_Yacute _KEY_Yacute :: Int32 _KEY_Yacute = 221 -- constant _KEY_Ybelowdot _KEY_Ybelowdot :: Int32 _KEY_Ybelowdot = 16785140 -- constant _KEY_Ycircumflex _KEY_Ycircumflex :: Int32 _KEY_Ycircumflex = 16777590 -- constant _KEY_Ydiaeresis _KEY_Ydiaeresis :: Int32 _KEY_Ydiaeresis = 5054 -- constant _KEY_Yellow _KEY_Yellow :: Int32 _KEY_Yellow = 269025189 -- constant _KEY_Ygrave _KEY_Ygrave :: Int32 _KEY_Ygrave = 16785138 -- constant _KEY_Yhook _KEY_Yhook :: Int32 _KEY_Yhook = 16785142 -- constant _KEY_Ytilde _KEY_Ytilde :: Int32 _KEY_Ytilde = 16785144 -- constant _KEY_Z _KEY_Z :: Int32 _KEY_Z = 90 -- constant _KEY_Zabovedot _KEY_Zabovedot :: Int32 _KEY_Zabovedot = 431 -- constant _KEY_Zacute _KEY_Zacute :: Int32 _KEY_Zacute = 428 -- constant _KEY_Zcaron _KEY_Zcaron :: Int32 _KEY_Zcaron = 430 -- constant _KEY_Zen_Koho _KEY_Zen_Koho :: Int32 _KEY_Zen_Koho = 65341 -- constant _KEY_Zenkaku _KEY_Zenkaku :: Int32 _KEY_Zenkaku = 65320 -- constant _KEY_Zenkaku_Hankaku _KEY_Zenkaku_Hankaku :: Int32 _KEY_Zenkaku_Hankaku = 65322 -- constant _KEY_ZoomIn _KEY_ZoomIn :: Int32 _KEY_ZoomIn = 269025163 -- constant _KEY_ZoomOut _KEY_ZoomOut :: Int32 _KEY_ZoomOut = 269025164 -- constant _KEY_Zstroke _KEY_Zstroke :: Int32 _KEY_Zstroke = 16777653 -- constant _KEY_a _KEY_a :: Int32 _KEY_a = 97 -- constant _KEY_aacute _KEY_aacute :: Int32 _KEY_aacute = 225 -- constant _KEY_abelowdot _KEY_abelowdot :: Int32 _KEY_abelowdot = 16785057 -- constant _KEY_abovedot _KEY_abovedot :: Int32 _KEY_abovedot = 511 -- constant _KEY_abreve _KEY_abreve :: Int32 _KEY_abreve = 483 -- constant _KEY_abreveacute _KEY_abreveacute :: Int32 _KEY_abreveacute = 16785071 -- constant _KEY_abrevebelowdot _KEY_abrevebelowdot :: Int32 _KEY_abrevebelowdot = 16785079 -- constant _KEY_abrevegrave _KEY_abrevegrave :: Int32 _KEY_abrevegrave = 16785073 -- constant _KEY_abrevehook _KEY_abrevehook :: Int32 _KEY_abrevehook = 16785075 -- constant _KEY_abrevetilde _KEY_abrevetilde :: Int32 _KEY_abrevetilde = 16785077 -- constant _KEY_acircumflex _KEY_acircumflex :: Int32 _KEY_acircumflex = 226 -- constant _KEY_acircumflexacute _KEY_acircumflexacute :: Int32 _KEY_acircumflexacute = 16785061 -- constant _KEY_acircumflexbelowdot _KEY_acircumflexbelowdot :: Int32 _KEY_acircumflexbelowdot = 16785069 -- constant _KEY_acircumflexgrave _KEY_acircumflexgrave :: Int32 _KEY_acircumflexgrave = 16785063 -- constant _KEY_acircumflexhook _KEY_acircumflexhook :: Int32 _KEY_acircumflexhook = 16785065 -- constant _KEY_acircumflextilde _KEY_acircumflextilde :: Int32 _KEY_acircumflextilde = 16785067 -- constant _KEY_acute _KEY_acute :: Int32 _KEY_acute = 180 -- constant _KEY_adiaeresis _KEY_adiaeresis :: Int32 _KEY_adiaeresis = 228 -- constant _KEY_ae _KEY_ae :: Int32 _KEY_ae = 230 -- constant _KEY_agrave _KEY_agrave :: Int32 _KEY_agrave = 224 -- constant _KEY_ahook _KEY_ahook :: Int32 _KEY_ahook = 16785059 -- constant _KEY_amacron _KEY_amacron :: Int32 _KEY_amacron = 992 -- constant _KEY_ampersand _KEY_ampersand :: Int32 _KEY_ampersand = 38 -- constant _KEY_aogonek _KEY_aogonek :: Int32 _KEY_aogonek = 433 -- constant _KEY_apostrophe _KEY_apostrophe :: Int32 _KEY_apostrophe = 39 -- constant _KEY_approxeq _KEY_approxeq :: Int32 _KEY_approxeq = 16785992 -- constant _KEY_approximate _KEY_approximate :: Int32 _KEY_approximate = 2248 -- constant _KEY_aring _KEY_aring :: Int32 _KEY_aring = 229 -- constant _KEY_asciicircum _KEY_asciicircum :: Int32 _KEY_asciicircum = 94 -- constant _KEY_asciitilde _KEY_asciitilde :: Int32 _KEY_asciitilde = 126 -- constant _KEY_asterisk _KEY_asterisk :: Int32 _KEY_asterisk = 42 -- constant _KEY_at _KEY_at :: Int32 _KEY_at = 64 -- constant _KEY_atilde _KEY_atilde :: Int32 _KEY_atilde = 227 -- constant _KEY_b _KEY_b :: Int32 _KEY_b = 98 -- constant _KEY_babovedot _KEY_babovedot :: Int32 _KEY_babovedot = 16784899 -- constant _KEY_backslash _KEY_backslash :: Int32 _KEY_backslash = 92 -- constant _KEY_ballotcross _KEY_ballotcross :: Int32 _KEY_ballotcross = 2804 -- constant _KEY_bar _KEY_bar :: Int32 _KEY_bar = 124 -- constant _KEY_because _KEY_because :: Int32 _KEY_because = 16785973 -- constant _KEY_blank _KEY_blank :: Int32 _KEY_blank = 2527 -- constant _KEY_botintegral _KEY_botintegral :: Int32 _KEY_botintegral = 2213 -- constant _KEY_botleftparens _KEY_botleftparens :: Int32 _KEY_botleftparens = 2220 -- constant _KEY_botleftsqbracket _KEY_botleftsqbracket :: Int32 _KEY_botleftsqbracket = 2216 -- constant _KEY_botleftsummation _KEY_botleftsummation :: Int32 _KEY_botleftsummation = 2226 -- constant _KEY_botrightparens _KEY_botrightparens :: Int32 _KEY_botrightparens = 2222 -- constant _KEY_botrightsqbracket _KEY_botrightsqbracket :: Int32 _KEY_botrightsqbracket = 2218 -- constant _KEY_botrightsummation _KEY_botrightsummation :: Int32 _KEY_botrightsummation = 2230 -- constant _KEY_bott _KEY_bott :: Int32 _KEY_bott = 2550 -- constant _KEY_botvertsummationconnector _KEY_botvertsummationconnector :: Int32 _KEY_botvertsummationconnector = 2228 -- constant _KEY_braceleft _KEY_braceleft :: Int32 _KEY_braceleft = 123 -- constant _KEY_braceright _KEY_braceright :: Int32 _KEY_braceright = 125 -- constant _KEY_bracketleft _KEY_bracketleft :: Int32 _KEY_bracketleft = 91 -- constant _KEY_bracketright _KEY_bracketright :: Int32 _KEY_bracketright = 93 -- constant _KEY_braille_blank _KEY_braille_blank :: Int32 _KEY_braille_blank = 16787456 -- constant _KEY_braille_dot_1 _KEY_braille_dot_1 :: Int32 _KEY_braille_dot_1 = 65521 -- constant _KEY_braille_dot_10 _KEY_braille_dot_10 :: Int32 _KEY_braille_dot_10 = 65530 -- constant _KEY_braille_dot_2 _KEY_braille_dot_2 :: Int32 _KEY_braille_dot_2 = 65522 -- constant _KEY_braille_dot_3 _KEY_braille_dot_3 :: Int32 _KEY_braille_dot_3 = 65523 -- constant _KEY_braille_dot_4 _KEY_braille_dot_4 :: Int32 _KEY_braille_dot_4 = 65524 -- constant _KEY_braille_dot_5 _KEY_braille_dot_5 :: Int32 _KEY_braille_dot_5 = 65525 -- constant _KEY_braille_dot_6 _KEY_braille_dot_6 :: Int32 _KEY_braille_dot_6 = 65526 -- constant _KEY_braille_dot_7 _KEY_braille_dot_7 :: Int32 _KEY_braille_dot_7 = 65527 -- constant _KEY_braille_dot_8 _KEY_braille_dot_8 :: Int32 _KEY_braille_dot_8 = 65528 -- constant _KEY_braille_dot_9 _KEY_braille_dot_9 :: Int32 _KEY_braille_dot_9 = 65529 -- constant _KEY_braille_dots_1 _KEY_braille_dots_1 :: Int32 _KEY_braille_dots_1 = 16787457 -- constant _KEY_braille_dots_12 _KEY_braille_dots_12 :: Int32 _KEY_braille_dots_12 = 16787459 -- constant _KEY_braille_dots_123 _KEY_braille_dots_123 :: Int32 _KEY_braille_dots_123 = 16787463 -- constant _KEY_braille_dots_1234 _KEY_braille_dots_1234 :: Int32 _KEY_braille_dots_1234 = 16787471 -- constant _KEY_braille_dots_12345 _KEY_braille_dots_12345 :: Int32 _KEY_braille_dots_12345 = 16787487 -- constant _KEY_braille_dots_123456 _KEY_braille_dots_123456 :: Int32 _KEY_braille_dots_123456 = 16787519 -- constant _KEY_braille_dots_1234567 _KEY_braille_dots_1234567 :: Int32 _KEY_braille_dots_1234567 = 16787583 -- constant _KEY_braille_dots_12345678 _KEY_braille_dots_12345678 :: Int32 _KEY_braille_dots_12345678 = 16787711 -- constant _KEY_braille_dots_1234568 _KEY_braille_dots_1234568 :: Int32 _KEY_braille_dots_1234568 = 16787647 -- constant _KEY_braille_dots_123457 _KEY_braille_dots_123457 :: Int32 _KEY_braille_dots_123457 = 16787551 -- constant _KEY_braille_dots_1234578 _KEY_braille_dots_1234578 :: Int32 _KEY_braille_dots_1234578 = 16787679 -- constant _KEY_braille_dots_123458 _KEY_braille_dots_123458 :: Int32 _KEY_braille_dots_123458 = 16787615 -- constant _KEY_braille_dots_12346 _KEY_braille_dots_12346 :: Int32 _KEY_braille_dots_12346 = 16787503 -- constant _KEY_braille_dots_123467 _KEY_braille_dots_123467 :: Int32 _KEY_braille_dots_123467 = 16787567 -- constant _KEY_braille_dots_1234678 _KEY_braille_dots_1234678 :: Int32 _KEY_braille_dots_1234678 = 16787695 -- constant _KEY_braille_dots_123468 _KEY_braille_dots_123468 :: Int32 _KEY_braille_dots_123468 = 16787631 -- constant _KEY_braille_dots_12347 _KEY_braille_dots_12347 :: Int32 _KEY_braille_dots_12347 = 16787535 -- constant _KEY_braille_dots_123478 _KEY_braille_dots_123478 :: Int32 _KEY_braille_dots_123478 = 16787663 -- constant _KEY_braille_dots_12348 _KEY_braille_dots_12348 :: Int32 _KEY_braille_dots_12348 = 16787599 -- constant _KEY_braille_dots_1235 _KEY_braille_dots_1235 :: Int32 _KEY_braille_dots_1235 = 16787479 -- constant _KEY_braille_dots_12356 _KEY_braille_dots_12356 :: Int32 _KEY_braille_dots_12356 = 16787511 -- constant _KEY_braille_dots_123567 _KEY_braille_dots_123567 :: Int32 _KEY_braille_dots_123567 = 16787575 -- constant _KEY_braille_dots_1235678 _KEY_braille_dots_1235678 :: Int32 _KEY_braille_dots_1235678 = 16787703 -- constant _KEY_braille_dots_123568 _KEY_braille_dots_123568 :: Int32 _KEY_braille_dots_123568 = 16787639 -- constant _KEY_braille_dots_12357 _KEY_braille_dots_12357 :: Int32 _KEY_braille_dots_12357 = 16787543 -- constant _KEY_braille_dots_123578 _KEY_braille_dots_123578 :: Int32 _KEY_braille_dots_123578 = 16787671 -- constant _KEY_braille_dots_12358 _KEY_braille_dots_12358 :: Int32 _KEY_braille_dots_12358 = 16787607 -- constant _KEY_braille_dots_1236 _KEY_braille_dots_1236 :: Int32 _KEY_braille_dots_1236 = 16787495 -- constant _KEY_braille_dots_12367 _KEY_braille_dots_12367 :: Int32 _KEY_braille_dots_12367 = 16787559 -- constant _KEY_braille_dots_123678 _KEY_braille_dots_123678 :: Int32 _KEY_braille_dots_123678 = 16787687 -- constant _KEY_braille_dots_12368 _KEY_braille_dots_12368 :: Int32 _KEY_braille_dots_12368 = 16787623 -- constant _KEY_braille_dots_1237 _KEY_braille_dots_1237 :: Int32 _KEY_braille_dots_1237 = 16787527 -- constant _KEY_braille_dots_12378 _KEY_braille_dots_12378 :: Int32 _KEY_braille_dots_12378 = 16787655 -- constant _KEY_braille_dots_1238 _KEY_braille_dots_1238 :: Int32 _KEY_braille_dots_1238 = 16787591 -- constant _KEY_braille_dots_124 _KEY_braille_dots_124 :: Int32 _KEY_braille_dots_124 = 16787467 -- constant _KEY_braille_dots_1245 _KEY_braille_dots_1245 :: Int32 _KEY_braille_dots_1245 = 16787483 -- constant _KEY_braille_dots_12456 _KEY_braille_dots_12456 :: Int32 _KEY_braille_dots_12456 = 16787515 -- constant _KEY_braille_dots_124567 _KEY_braille_dots_124567 :: Int32 _KEY_braille_dots_124567 = 16787579 -- constant _KEY_braille_dots_1245678 _KEY_braille_dots_1245678 :: Int32 _KEY_braille_dots_1245678 = 16787707 -- constant _KEY_braille_dots_124568 _KEY_braille_dots_124568 :: Int32 _KEY_braille_dots_124568 = 16787643 -- constant _KEY_braille_dots_12457 _KEY_braille_dots_12457 :: Int32 _KEY_braille_dots_12457 = 16787547 -- constant _KEY_braille_dots_124578 _KEY_braille_dots_124578 :: Int32 _KEY_braille_dots_124578 = 16787675 -- constant _KEY_braille_dots_12458 _KEY_braille_dots_12458 :: Int32 _KEY_braille_dots_12458 = 16787611 -- constant _KEY_braille_dots_1246 _KEY_braille_dots_1246 :: Int32 _KEY_braille_dots_1246 = 16787499 -- constant _KEY_braille_dots_12467 _KEY_braille_dots_12467 :: Int32 _KEY_braille_dots_12467 = 16787563 -- constant _KEY_braille_dots_124678 _KEY_braille_dots_124678 :: Int32 _KEY_braille_dots_124678 = 16787691 -- constant _KEY_braille_dots_12468 _KEY_braille_dots_12468 :: Int32 _KEY_braille_dots_12468 = 16787627 -- constant _KEY_braille_dots_1247 _KEY_braille_dots_1247 :: Int32 _KEY_braille_dots_1247 = 16787531 -- constant _KEY_braille_dots_12478 _KEY_braille_dots_12478 :: Int32 _KEY_braille_dots_12478 = 16787659 -- constant _KEY_braille_dots_1248 _KEY_braille_dots_1248 :: Int32 _KEY_braille_dots_1248 = 16787595 -- constant _KEY_braille_dots_125 _KEY_braille_dots_125 :: Int32 _KEY_braille_dots_125 = 16787475 -- constant _KEY_braille_dots_1256 _KEY_braille_dots_1256 :: Int32 _KEY_braille_dots_1256 = 16787507 -- constant _KEY_braille_dots_12567 _KEY_braille_dots_12567 :: Int32 _KEY_braille_dots_12567 = 16787571 -- constant _KEY_braille_dots_125678 _KEY_braille_dots_125678 :: Int32 _KEY_braille_dots_125678 = 16787699 -- constant _KEY_braille_dots_12568 _KEY_braille_dots_12568 :: Int32 _KEY_braille_dots_12568 = 16787635 -- constant _KEY_braille_dots_1257 _KEY_braille_dots_1257 :: Int32 _KEY_braille_dots_1257 = 16787539 -- constant _KEY_braille_dots_12578 _KEY_braille_dots_12578 :: Int32 _KEY_braille_dots_12578 = 16787667 -- constant _KEY_braille_dots_1258 _KEY_braille_dots_1258 :: Int32 _KEY_braille_dots_1258 = 16787603 -- constant _KEY_braille_dots_126 _KEY_braille_dots_126 :: Int32 _KEY_braille_dots_126 = 16787491 -- constant _KEY_braille_dots_1267 _KEY_braille_dots_1267 :: Int32 _KEY_braille_dots_1267 = 16787555 -- constant _KEY_braille_dots_12678 _KEY_braille_dots_12678 :: Int32 _KEY_braille_dots_12678 = 16787683 -- constant _KEY_braille_dots_1268 _KEY_braille_dots_1268 :: Int32 _KEY_braille_dots_1268 = 16787619 -- constant _KEY_braille_dots_127 _KEY_braille_dots_127 :: Int32 _KEY_braille_dots_127 = 16787523 -- constant _KEY_braille_dots_1278 _KEY_braille_dots_1278 :: Int32 _KEY_braille_dots_1278 = 16787651 -- constant _KEY_braille_dots_128 _KEY_braille_dots_128 :: Int32 _KEY_braille_dots_128 = 16787587 -- constant _KEY_braille_dots_13 _KEY_braille_dots_13 :: Int32 _KEY_braille_dots_13 = 16787461 -- constant _KEY_braille_dots_134 _KEY_braille_dots_134 :: Int32 _KEY_braille_dots_134 = 16787469 -- constant _KEY_braille_dots_1345 _KEY_braille_dots_1345 :: Int32 _KEY_braille_dots_1345 = 16787485 -- constant _KEY_braille_dots_13456 _KEY_braille_dots_13456 :: Int32 _KEY_braille_dots_13456 = 16787517 -- constant _KEY_braille_dots_134567 _KEY_braille_dots_134567 :: Int32 _KEY_braille_dots_134567 = 16787581 -- constant _KEY_braille_dots_1345678 _KEY_braille_dots_1345678 :: Int32 _KEY_braille_dots_1345678 = 16787709 -- constant _KEY_braille_dots_134568 _KEY_braille_dots_134568 :: Int32 _KEY_braille_dots_134568 = 16787645 -- constant _KEY_braille_dots_13457 _KEY_braille_dots_13457 :: Int32 _KEY_braille_dots_13457 = 16787549 -- constant _KEY_braille_dots_134578 _KEY_braille_dots_134578 :: Int32 _KEY_braille_dots_134578 = 16787677 -- constant _KEY_braille_dots_13458 _KEY_braille_dots_13458 :: Int32 _KEY_braille_dots_13458 = 16787613 -- constant _KEY_braille_dots_1346 _KEY_braille_dots_1346 :: Int32 _KEY_braille_dots_1346 = 16787501 -- constant _KEY_braille_dots_13467 _KEY_braille_dots_13467 :: Int32 _KEY_braille_dots_13467 = 16787565 -- constant _KEY_braille_dots_134678 _KEY_braille_dots_134678 :: Int32 _KEY_braille_dots_134678 = 16787693 -- constant _KEY_braille_dots_13468 _KEY_braille_dots_13468 :: Int32 _KEY_braille_dots_13468 = 16787629 -- constant _KEY_braille_dots_1347 _KEY_braille_dots_1347 :: Int32 _KEY_braille_dots_1347 = 16787533 -- constant _KEY_braille_dots_13478 _KEY_braille_dots_13478 :: Int32 _KEY_braille_dots_13478 = 16787661 -- constant _KEY_braille_dots_1348 _KEY_braille_dots_1348 :: Int32 _KEY_braille_dots_1348 = 16787597 -- constant _KEY_braille_dots_135 _KEY_braille_dots_135 :: Int32 _KEY_braille_dots_135 = 16787477 -- constant _KEY_braille_dots_1356 _KEY_braille_dots_1356 :: Int32 _KEY_braille_dots_1356 = 16787509 -- constant _KEY_braille_dots_13567 _KEY_braille_dots_13567 :: Int32 _KEY_braille_dots_13567 = 16787573 -- constant _KEY_braille_dots_135678 _KEY_braille_dots_135678 :: Int32 _KEY_braille_dots_135678 = 16787701 -- constant _KEY_braille_dots_13568 _KEY_braille_dots_13568 :: Int32 _KEY_braille_dots_13568 = 16787637 -- constant _KEY_braille_dots_1357 _KEY_braille_dots_1357 :: Int32 _KEY_braille_dots_1357 = 16787541 -- constant _KEY_braille_dots_13578 _KEY_braille_dots_13578 :: Int32 _KEY_braille_dots_13578 = 16787669 -- constant _KEY_braille_dots_1358 _KEY_braille_dots_1358 :: Int32 _KEY_braille_dots_1358 = 16787605 -- constant _KEY_braille_dots_136 _KEY_braille_dots_136 :: Int32 _KEY_braille_dots_136 = 16787493 -- constant _KEY_braille_dots_1367 _KEY_braille_dots_1367 :: Int32 _KEY_braille_dots_1367 = 16787557 -- constant _KEY_braille_dots_13678 _KEY_braille_dots_13678 :: Int32 _KEY_braille_dots_13678 = 16787685 -- constant _KEY_braille_dots_1368 _KEY_braille_dots_1368 :: Int32 _KEY_braille_dots_1368 = 16787621 -- constant _KEY_braille_dots_137 _KEY_braille_dots_137 :: Int32 _KEY_braille_dots_137 = 16787525 -- constant _KEY_braille_dots_1378 _KEY_braille_dots_1378 :: Int32 _KEY_braille_dots_1378 = 16787653 -- constant _KEY_braille_dots_138 _KEY_braille_dots_138 :: Int32 _KEY_braille_dots_138 = 16787589 -- constant _KEY_braille_dots_14 _KEY_braille_dots_14 :: Int32 _KEY_braille_dots_14 = 16787465 -- constant _KEY_braille_dots_145 _KEY_braille_dots_145 :: Int32 _KEY_braille_dots_145 = 16787481 -- constant _KEY_braille_dots_1456 _KEY_braille_dots_1456 :: Int32 _KEY_braille_dots_1456 = 16787513 -- constant _KEY_braille_dots_14567 _KEY_braille_dots_14567 :: Int32 _KEY_braille_dots_14567 = 16787577 -- constant _KEY_braille_dots_145678 _KEY_braille_dots_145678 :: Int32 _KEY_braille_dots_145678 = 16787705 -- constant _KEY_braille_dots_14568 _KEY_braille_dots_14568 :: Int32 _KEY_braille_dots_14568 = 16787641 -- constant _KEY_braille_dots_1457 _KEY_braille_dots_1457 :: Int32 _KEY_braille_dots_1457 = 16787545 -- constant _KEY_braille_dots_14578 _KEY_braille_dots_14578 :: Int32 _KEY_braille_dots_14578 = 16787673 -- constant _KEY_braille_dots_1458 _KEY_braille_dots_1458 :: Int32 _KEY_braille_dots_1458 = 16787609 -- constant _KEY_braille_dots_146 _KEY_braille_dots_146 :: Int32 _KEY_braille_dots_146 = 16787497 -- constant _KEY_braille_dots_1467 _KEY_braille_dots_1467 :: Int32 _KEY_braille_dots_1467 = 16787561 -- constant _KEY_braille_dots_14678 _KEY_braille_dots_14678 :: Int32 _KEY_braille_dots_14678 = 16787689 -- constant _KEY_braille_dots_1468 _KEY_braille_dots_1468 :: Int32 _KEY_braille_dots_1468 = 16787625 -- constant _KEY_braille_dots_147 _KEY_braille_dots_147 :: Int32 _KEY_braille_dots_147 = 16787529 -- constant _KEY_braille_dots_1478 _KEY_braille_dots_1478 :: Int32 _KEY_braille_dots_1478 = 16787657 -- constant _KEY_braille_dots_148 _KEY_braille_dots_148 :: Int32 _KEY_braille_dots_148 = 16787593 -- constant _KEY_braille_dots_15 _KEY_braille_dots_15 :: Int32 _KEY_braille_dots_15 = 16787473 -- constant _KEY_braille_dots_156 _KEY_braille_dots_156 :: Int32 _KEY_braille_dots_156 = 16787505 -- constant _KEY_braille_dots_1567 _KEY_braille_dots_1567 :: Int32 _KEY_braille_dots_1567 = 16787569 -- constant _KEY_braille_dots_15678 _KEY_braille_dots_15678 :: Int32 _KEY_braille_dots_15678 = 16787697 -- constant _KEY_braille_dots_1568 _KEY_braille_dots_1568 :: Int32 _KEY_braille_dots_1568 = 16787633 -- constant _KEY_braille_dots_157 _KEY_braille_dots_157 :: Int32 _KEY_braille_dots_157 = 16787537 -- constant _KEY_braille_dots_1578 _KEY_braille_dots_1578 :: Int32 _KEY_braille_dots_1578 = 16787665 -- constant _KEY_braille_dots_158 _KEY_braille_dots_158 :: Int32 _KEY_braille_dots_158 = 16787601 -- constant _KEY_braille_dots_16 _KEY_braille_dots_16 :: Int32 _KEY_braille_dots_16 = 16787489 -- constant _KEY_braille_dots_167 _KEY_braille_dots_167 :: Int32 _KEY_braille_dots_167 = 16787553 -- constant _KEY_braille_dots_1678 _KEY_braille_dots_1678 :: Int32 _KEY_braille_dots_1678 = 16787681 -- constant _KEY_braille_dots_168 _KEY_braille_dots_168 :: Int32 _KEY_braille_dots_168 = 16787617 -- constant _KEY_braille_dots_17 _KEY_braille_dots_17 :: Int32 _KEY_braille_dots_17 = 16787521 -- constant _KEY_braille_dots_178 _KEY_braille_dots_178 :: Int32 _KEY_braille_dots_178 = 16787649 -- constant _KEY_braille_dots_18 _KEY_braille_dots_18 :: Int32 _KEY_braille_dots_18 = 16787585 -- constant _KEY_braille_dots_2 _KEY_braille_dots_2 :: Int32 _KEY_braille_dots_2 = 16787458 -- constant _KEY_braille_dots_23 _KEY_braille_dots_23 :: Int32 _KEY_braille_dots_23 = 16787462 -- constant _KEY_braille_dots_234 _KEY_braille_dots_234 :: Int32 _KEY_braille_dots_234 = 16787470 -- constant _KEY_braille_dots_2345 _KEY_braille_dots_2345 :: Int32 _KEY_braille_dots_2345 = 16787486 -- constant _KEY_braille_dots_23456 _KEY_braille_dots_23456 :: Int32 _KEY_braille_dots_23456 = 16787518 -- constant _KEY_braille_dots_234567 _KEY_braille_dots_234567 :: Int32 _KEY_braille_dots_234567 = 16787582 -- constant _KEY_braille_dots_2345678 _KEY_braille_dots_2345678 :: Int32 _KEY_braille_dots_2345678 = 16787710 -- constant _KEY_braille_dots_234568 _KEY_braille_dots_234568 :: Int32 _KEY_braille_dots_234568 = 16787646 -- constant _KEY_braille_dots_23457 _KEY_braille_dots_23457 :: Int32 _KEY_braille_dots_23457 = 16787550 -- constant _KEY_braille_dots_234578 _KEY_braille_dots_234578 :: Int32 _KEY_braille_dots_234578 = 16787678 -- constant _KEY_braille_dots_23458 _KEY_braille_dots_23458 :: Int32 _KEY_braille_dots_23458 = 16787614 -- constant _KEY_braille_dots_2346 _KEY_braille_dots_2346 :: Int32 _KEY_braille_dots_2346 = 16787502 -- constant _KEY_braille_dots_23467 _KEY_braille_dots_23467 :: Int32 _KEY_braille_dots_23467 = 16787566 -- constant _KEY_braille_dots_234678 _KEY_braille_dots_234678 :: Int32 _KEY_braille_dots_234678 = 16787694 -- constant _KEY_braille_dots_23468 _KEY_braille_dots_23468 :: Int32 _KEY_braille_dots_23468 = 16787630 -- constant _KEY_braille_dots_2347 _KEY_braille_dots_2347 :: Int32 _KEY_braille_dots_2347 = 16787534 -- constant _KEY_braille_dots_23478 _KEY_braille_dots_23478 :: Int32 _KEY_braille_dots_23478 = 16787662 -- constant _KEY_braille_dots_2348 _KEY_braille_dots_2348 :: Int32 _KEY_braille_dots_2348 = 16787598 -- constant _KEY_braille_dots_235 _KEY_braille_dots_235 :: Int32 _KEY_braille_dots_235 = 16787478 -- constant _KEY_braille_dots_2356 _KEY_braille_dots_2356 :: Int32 _KEY_braille_dots_2356 = 16787510 -- constant _KEY_braille_dots_23567 _KEY_braille_dots_23567 :: Int32 _KEY_braille_dots_23567 = 16787574 -- constant _KEY_braille_dots_235678 _KEY_braille_dots_235678 :: Int32 _KEY_braille_dots_235678 = 16787702 -- constant _KEY_braille_dots_23568 _KEY_braille_dots_23568 :: Int32 _KEY_braille_dots_23568 = 16787638 -- constant _KEY_braille_dots_2357 _KEY_braille_dots_2357 :: Int32 _KEY_braille_dots_2357 = 16787542 -- constant _KEY_braille_dots_23578 _KEY_braille_dots_23578 :: Int32 _KEY_braille_dots_23578 = 16787670 -- constant _KEY_braille_dots_2358 _KEY_braille_dots_2358 :: Int32 _KEY_braille_dots_2358 = 16787606 -- constant _KEY_braille_dots_236 _KEY_braille_dots_236 :: Int32 _KEY_braille_dots_236 = 16787494 -- constant _KEY_braille_dots_2367 _KEY_braille_dots_2367 :: Int32 _KEY_braille_dots_2367 = 16787558 -- constant _KEY_braille_dots_23678 _KEY_braille_dots_23678 :: Int32 _KEY_braille_dots_23678 = 16787686 -- constant _KEY_braille_dots_2368 _KEY_braille_dots_2368 :: Int32 _KEY_braille_dots_2368 = 16787622 -- constant _KEY_braille_dots_237 _KEY_braille_dots_237 :: Int32 _KEY_braille_dots_237 = 16787526 -- constant _KEY_braille_dots_2378 _KEY_braille_dots_2378 :: Int32 _KEY_braille_dots_2378 = 16787654 -- constant _KEY_braille_dots_238 _KEY_braille_dots_238 :: Int32 _KEY_braille_dots_238 = 16787590 -- constant _KEY_braille_dots_24 _KEY_braille_dots_24 :: Int32 _KEY_braille_dots_24 = 16787466 -- constant _KEY_braille_dots_245 _KEY_braille_dots_245 :: Int32 _KEY_braille_dots_245 = 16787482 -- constant _KEY_braille_dots_2456 _KEY_braille_dots_2456 :: Int32 _KEY_braille_dots_2456 = 16787514 -- constant _KEY_braille_dots_24567 _KEY_braille_dots_24567 :: Int32 _KEY_braille_dots_24567 = 16787578 -- constant _KEY_braille_dots_245678 _KEY_braille_dots_245678 :: Int32 _KEY_braille_dots_245678 = 16787706 -- constant _KEY_braille_dots_24568 _KEY_braille_dots_24568 :: Int32 _KEY_braille_dots_24568 = 16787642 -- constant _KEY_braille_dots_2457 _KEY_braille_dots_2457 :: Int32 _KEY_braille_dots_2457 = 16787546 -- constant _KEY_braille_dots_24578 _KEY_braille_dots_24578 :: Int32 _KEY_braille_dots_24578 = 16787674 -- constant _KEY_braille_dots_2458 _KEY_braille_dots_2458 :: Int32 _KEY_braille_dots_2458 = 16787610 -- constant _KEY_braille_dots_246 _KEY_braille_dots_246 :: Int32 _KEY_braille_dots_246 = 16787498 -- constant _KEY_braille_dots_2467 _KEY_braille_dots_2467 :: Int32 _KEY_braille_dots_2467 = 16787562 -- constant _KEY_braille_dots_24678 _KEY_braille_dots_24678 :: Int32 _KEY_braille_dots_24678 = 16787690 -- constant _KEY_braille_dots_2468 _KEY_braille_dots_2468 :: Int32 _KEY_braille_dots_2468 = 16787626 -- constant _KEY_braille_dots_247 _KEY_braille_dots_247 :: Int32 _KEY_braille_dots_247 = 16787530 -- constant _KEY_braille_dots_2478 _KEY_braille_dots_2478 :: Int32 _KEY_braille_dots_2478 = 16787658 -- constant _KEY_braille_dots_248 _KEY_braille_dots_248 :: Int32 _KEY_braille_dots_248 = 16787594 -- constant _KEY_braille_dots_25 _KEY_braille_dots_25 :: Int32 _KEY_braille_dots_25 = 16787474 -- constant _KEY_braille_dots_256 _KEY_braille_dots_256 :: Int32 _KEY_braille_dots_256 = 16787506 -- constant _KEY_braille_dots_2567 _KEY_braille_dots_2567 :: Int32 _KEY_braille_dots_2567 = 16787570 -- constant _KEY_braille_dots_25678 _KEY_braille_dots_25678 :: Int32 _KEY_braille_dots_25678 = 16787698 -- constant _KEY_braille_dots_2568 _KEY_braille_dots_2568 :: Int32 _KEY_braille_dots_2568 = 16787634 -- constant _KEY_braille_dots_257 _KEY_braille_dots_257 :: Int32 _KEY_braille_dots_257 = 16787538 -- constant _KEY_braille_dots_2578 _KEY_braille_dots_2578 :: Int32 _KEY_braille_dots_2578 = 16787666 -- constant _KEY_braille_dots_258 _KEY_braille_dots_258 :: Int32 _KEY_braille_dots_258 = 16787602 -- constant _KEY_braille_dots_26 _KEY_braille_dots_26 :: Int32 _KEY_braille_dots_26 = 16787490 -- constant _KEY_braille_dots_267 _KEY_braille_dots_267 :: Int32 _KEY_braille_dots_267 = 16787554 -- constant _KEY_braille_dots_2678 _KEY_braille_dots_2678 :: Int32 _KEY_braille_dots_2678 = 16787682 -- constant _KEY_braille_dots_268 _KEY_braille_dots_268 :: Int32 _KEY_braille_dots_268 = 16787618 -- constant _KEY_braille_dots_27 _KEY_braille_dots_27 :: Int32 _KEY_braille_dots_27 = 16787522 -- constant _KEY_braille_dots_278 _KEY_braille_dots_278 :: Int32 _KEY_braille_dots_278 = 16787650 -- constant _KEY_braille_dots_28 _KEY_braille_dots_28 :: Int32 _KEY_braille_dots_28 = 16787586 -- constant _KEY_braille_dots_3 _KEY_braille_dots_3 :: Int32 _KEY_braille_dots_3 = 16787460 -- constant _KEY_braille_dots_34 _KEY_braille_dots_34 :: Int32 _KEY_braille_dots_34 = 16787468 -- constant _KEY_braille_dots_345 _KEY_braille_dots_345 :: Int32 _KEY_braille_dots_345 = 16787484 -- constant _KEY_braille_dots_3456 _KEY_braille_dots_3456 :: Int32 _KEY_braille_dots_3456 = 16787516 -- constant _KEY_braille_dots_34567 _KEY_braille_dots_34567 :: Int32 _KEY_braille_dots_34567 = 16787580 -- constant _KEY_braille_dots_345678 _KEY_braille_dots_345678 :: Int32 _KEY_braille_dots_345678 = 16787708 -- constant _KEY_braille_dots_34568 _KEY_braille_dots_34568 :: Int32 _KEY_braille_dots_34568 = 16787644 -- constant _KEY_braille_dots_3457 _KEY_braille_dots_3457 :: Int32 _KEY_braille_dots_3457 = 16787548 -- constant _KEY_braille_dots_34578 _KEY_braille_dots_34578 :: Int32 _KEY_braille_dots_34578 = 16787676 -- constant _KEY_braille_dots_3458 _KEY_braille_dots_3458 :: Int32 _KEY_braille_dots_3458 = 16787612 -- constant _KEY_braille_dots_346 _KEY_braille_dots_346 :: Int32 _KEY_braille_dots_346 = 16787500 -- constant _KEY_braille_dots_3467 _KEY_braille_dots_3467 :: Int32 _KEY_braille_dots_3467 = 16787564 -- constant _KEY_braille_dots_34678 _KEY_braille_dots_34678 :: Int32 _KEY_braille_dots_34678 = 16787692 -- constant _KEY_braille_dots_3468 _KEY_braille_dots_3468 :: Int32 _KEY_braille_dots_3468 = 16787628 -- constant _KEY_braille_dots_347 _KEY_braille_dots_347 :: Int32 _KEY_braille_dots_347 = 16787532 -- constant _KEY_braille_dots_3478 _KEY_braille_dots_3478 :: Int32 _KEY_braille_dots_3478 = 16787660 -- constant _KEY_braille_dots_348 _KEY_braille_dots_348 :: Int32 _KEY_braille_dots_348 = 16787596 -- constant _KEY_braille_dots_35 _KEY_braille_dots_35 :: Int32 _KEY_braille_dots_35 = 16787476 -- constant _KEY_braille_dots_356 _KEY_braille_dots_356 :: Int32 _KEY_braille_dots_356 = 16787508 -- constant _KEY_braille_dots_3567 _KEY_braille_dots_3567 :: Int32 _KEY_braille_dots_3567 = 16787572 -- constant _KEY_braille_dots_35678 _KEY_braille_dots_35678 :: Int32 _KEY_braille_dots_35678 = 16787700 -- constant _KEY_braille_dots_3568 _KEY_braille_dots_3568 :: Int32 _KEY_braille_dots_3568 = 16787636 -- constant _KEY_braille_dots_357 _KEY_braille_dots_357 :: Int32 _KEY_braille_dots_357 = 16787540 -- constant _KEY_braille_dots_3578 _KEY_braille_dots_3578 :: Int32 _KEY_braille_dots_3578 = 16787668 -- constant _KEY_braille_dots_358 _KEY_braille_dots_358 :: Int32 _KEY_braille_dots_358 = 16787604 -- constant _KEY_braille_dots_36 _KEY_braille_dots_36 :: Int32 _KEY_braille_dots_36 = 16787492 -- constant _KEY_braille_dots_367 _KEY_braille_dots_367 :: Int32 _KEY_braille_dots_367 = 16787556 -- constant _KEY_braille_dots_3678 _KEY_braille_dots_3678 :: Int32 _KEY_braille_dots_3678 = 16787684 -- constant _KEY_braille_dots_368 _KEY_braille_dots_368 :: Int32 _KEY_braille_dots_368 = 16787620 -- constant _KEY_braille_dots_37 _KEY_braille_dots_37 :: Int32 _KEY_braille_dots_37 = 16787524 -- constant _KEY_braille_dots_378 _KEY_braille_dots_378 :: Int32 _KEY_braille_dots_378 = 16787652 -- constant _KEY_braille_dots_38 _KEY_braille_dots_38 :: Int32 _KEY_braille_dots_38 = 16787588 -- constant _KEY_braille_dots_4 _KEY_braille_dots_4 :: Int32 _KEY_braille_dots_4 = 16787464 -- constant _KEY_braille_dots_45 _KEY_braille_dots_45 :: Int32 _KEY_braille_dots_45 = 16787480 -- constant _KEY_braille_dots_456 _KEY_braille_dots_456 :: Int32 _KEY_braille_dots_456 = 16787512 -- constant _KEY_braille_dots_4567 _KEY_braille_dots_4567 :: Int32 _KEY_braille_dots_4567 = 16787576 -- constant _KEY_braille_dots_45678 _KEY_braille_dots_45678 :: Int32 _KEY_braille_dots_45678 = 16787704 -- constant _KEY_braille_dots_4568 _KEY_braille_dots_4568 :: Int32 _KEY_braille_dots_4568 = 16787640 -- constant _KEY_braille_dots_457 _KEY_braille_dots_457 :: Int32 _KEY_braille_dots_457 = 16787544 -- constant _KEY_braille_dots_4578 _KEY_braille_dots_4578 :: Int32 _KEY_braille_dots_4578 = 16787672 -- constant _KEY_braille_dots_458 _KEY_braille_dots_458 :: Int32 _KEY_braille_dots_458 = 16787608 -- constant _KEY_braille_dots_46 _KEY_braille_dots_46 :: Int32 _KEY_braille_dots_46 = 16787496 -- constant _KEY_braille_dots_467 _KEY_braille_dots_467 :: Int32 _KEY_braille_dots_467 = 16787560 -- constant _KEY_braille_dots_4678 _KEY_braille_dots_4678 :: Int32 _KEY_braille_dots_4678 = 16787688 -- constant _KEY_braille_dots_468 _KEY_braille_dots_468 :: Int32 _KEY_braille_dots_468 = 16787624 -- constant _KEY_braille_dots_47 _KEY_braille_dots_47 :: Int32 _KEY_braille_dots_47 = 16787528 -- constant _KEY_braille_dots_478 _KEY_braille_dots_478 :: Int32 _KEY_braille_dots_478 = 16787656 -- constant _KEY_braille_dots_48 _KEY_braille_dots_48 :: Int32 _KEY_braille_dots_48 = 16787592 -- constant _KEY_braille_dots_5 _KEY_braille_dots_5 :: Int32 _KEY_braille_dots_5 = 16787472 -- constant _KEY_braille_dots_56 _KEY_braille_dots_56 :: Int32 _KEY_braille_dots_56 = 16787504 -- constant _KEY_braille_dots_567 _KEY_braille_dots_567 :: Int32 _KEY_braille_dots_567 = 16787568 -- constant _KEY_braille_dots_5678 _KEY_braille_dots_5678 :: Int32 _KEY_braille_dots_5678 = 16787696 -- constant _KEY_braille_dots_568 _KEY_braille_dots_568 :: Int32 _KEY_braille_dots_568 = 16787632 -- constant _KEY_braille_dots_57 _KEY_braille_dots_57 :: Int32 _KEY_braille_dots_57 = 16787536 -- constant _KEY_braille_dots_578 _KEY_braille_dots_578 :: Int32 _KEY_braille_dots_578 = 16787664 -- constant _KEY_braille_dots_58 _KEY_braille_dots_58 :: Int32 _KEY_braille_dots_58 = 16787600 -- constant _KEY_braille_dots_6 _KEY_braille_dots_6 :: Int32 _KEY_braille_dots_6 = 16787488 -- constant _KEY_braille_dots_67 _KEY_braille_dots_67 :: Int32 _KEY_braille_dots_67 = 16787552 -- constant _KEY_braille_dots_678 _KEY_braille_dots_678 :: Int32 _KEY_braille_dots_678 = 16787680 -- constant _KEY_braille_dots_68 _KEY_braille_dots_68 :: Int32 _KEY_braille_dots_68 = 16787616 -- constant _KEY_braille_dots_7 _KEY_braille_dots_7 :: Int32 _KEY_braille_dots_7 = 16787520 -- constant _KEY_braille_dots_78 _KEY_braille_dots_78 :: Int32 _KEY_braille_dots_78 = 16787648 -- constant _KEY_braille_dots_8 _KEY_braille_dots_8 :: Int32 _KEY_braille_dots_8 = 16787584 -- constant _KEY_breve _KEY_breve :: Int32 _KEY_breve = 418 -- constant _KEY_brokenbar _KEY_brokenbar :: Int32 _KEY_brokenbar = 166 -- constant _KEY_c _KEY_c :: Int32 _KEY_c = 99 -- constant _KEY_c_h _KEY_c_h :: Int32 _KEY_c_h = 65187 -- constant _KEY_cabovedot _KEY_cabovedot :: Int32 _KEY_cabovedot = 741 -- constant _KEY_cacute _KEY_cacute :: Int32 _KEY_cacute = 486 -- constant _KEY_careof _KEY_careof :: Int32 _KEY_careof = 2744 -- constant _KEY_caret _KEY_caret :: Int32 _KEY_caret = 2812 -- constant _KEY_caron _KEY_caron :: Int32 _KEY_caron = 439 -- constant _KEY_ccaron _KEY_ccaron :: Int32 _KEY_ccaron = 488 -- constant _KEY_ccedilla _KEY_ccedilla :: Int32 _KEY_ccedilla = 231 -- constant _KEY_ccircumflex _KEY_ccircumflex :: Int32 _KEY_ccircumflex = 742 -- constant _KEY_cedilla _KEY_cedilla :: Int32 _KEY_cedilla = 184 -- constant _KEY_cent _KEY_cent :: Int32 _KEY_cent = 162 -- constant _KEY_ch _KEY_ch :: Int32 _KEY_ch = 65184 -- constant _KEY_checkerboard _KEY_checkerboard :: Int32 _KEY_checkerboard = 2529 -- constant _KEY_checkmark _KEY_checkmark :: Int32 _KEY_checkmark = 2803 -- constant _KEY_circle _KEY_circle :: Int32 _KEY_circle = 3023 -- constant _KEY_club _KEY_club :: Int32 _KEY_club = 2796 -- constant _KEY_colon _KEY_colon :: Int32 _KEY_colon = 58 -- constant _KEY_comma _KEY_comma :: Int32 _KEY_comma = 44 -- constant _KEY_containsas _KEY_containsas :: Int32 _KEY_containsas = 16785931 -- constant _KEY_copyright _KEY_copyright :: Int32 _KEY_copyright = 169 -- constant _KEY_cr _KEY_cr :: Int32 _KEY_cr = 2532 -- constant _KEY_crossinglines _KEY_crossinglines :: Int32 _KEY_crossinglines = 2542 -- constant _KEY_cuberoot _KEY_cuberoot :: Int32 _KEY_cuberoot = 16785947 -- constant _KEY_currency _KEY_currency :: Int32 _KEY_currency = 164 -- constant _KEY_cursor _KEY_cursor :: Int32 _KEY_cursor = 2815 -- constant _KEY_d _KEY_d :: Int32 _KEY_d = 100 -- constant _KEY_dabovedot _KEY_dabovedot :: Int32 _KEY_dabovedot = 16784907 -- constant _KEY_dagger _KEY_dagger :: Int32 _KEY_dagger = 2801 -- constant _KEY_dcaron _KEY_dcaron :: Int32 _KEY_dcaron = 495 -- constant _KEY_dead_A _KEY_dead_A :: Int32 _KEY_dead_A = 65153 -- constant _KEY_dead_E _KEY_dead_E :: Int32 _KEY_dead_E = 65155 -- constant _KEY_dead_I _KEY_dead_I :: Int32 _KEY_dead_I = 65157 -- constant _KEY_dead_O _KEY_dead_O :: Int32 _KEY_dead_O = 65159 -- constant _KEY_dead_U _KEY_dead_U :: Int32 _KEY_dead_U = 65161 -- constant _KEY_dead_a _KEY_dead_a :: Int32 _KEY_dead_a = 65152 -- constant _KEY_dead_abovecomma _KEY_dead_abovecomma :: Int32 _KEY_dead_abovecomma = 65124 -- constant _KEY_dead_abovedot _KEY_dead_abovedot :: Int32 _KEY_dead_abovedot = 65110 -- constant _KEY_dead_abovereversedcomma _KEY_dead_abovereversedcomma :: Int32 _KEY_dead_abovereversedcomma = 65125 -- constant _KEY_dead_abovering _KEY_dead_abovering :: Int32 _KEY_dead_abovering = 65112 -- constant _KEY_dead_acute _KEY_dead_acute :: Int32 _KEY_dead_acute = 65105 -- constant _KEY_dead_belowbreve _KEY_dead_belowbreve :: Int32 _KEY_dead_belowbreve = 65131 -- constant _KEY_dead_belowcircumflex _KEY_dead_belowcircumflex :: Int32 _KEY_dead_belowcircumflex = 65129 -- constant _KEY_dead_belowcomma _KEY_dead_belowcomma :: Int32 _KEY_dead_belowcomma = 65134 -- constant _KEY_dead_belowdiaeresis _KEY_dead_belowdiaeresis :: Int32 _KEY_dead_belowdiaeresis = 65132 -- constant _KEY_dead_belowdot _KEY_dead_belowdot :: Int32 _KEY_dead_belowdot = 65120 -- constant _KEY_dead_belowmacron _KEY_dead_belowmacron :: Int32 _KEY_dead_belowmacron = 65128 -- constant _KEY_dead_belowring _KEY_dead_belowring :: Int32 _KEY_dead_belowring = 65127 -- constant _KEY_dead_belowtilde _KEY_dead_belowtilde :: Int32 _KEY_dead_belowtilde = 65130 -- constant _KEY_dead_breve _KEY_dead_breve :: Int32 _KEY_dead_breve = 65109 -- constant _KEY_dead_capital_schwa _KEY_dead_capital_schwa :: Int32 _KEY_dead_capital_schwa = 65163 -- constant _KEY_dead_caron _KEY_dead_caron :: Int32 _KEY_dead_caron = 65114 -- constant _KEY_dead_cedilla _KEY_dead_cedilla :: Int32 _KEY_dead_cedilla = 65115 -- constant _KEY_dead_circumflex _KEY_dead_circumflex :: Int32 _KEY_dead_circumflex = 65106 -- constant _KEY_dead_currency _KEY_dead_currency :: Int32 _KEY_dead_currency = 65135 -- constant _KEY_dead_dasia _KEY_dead_dasia :: Int32 _KEY_dead_dasia = 65125 -- constant _KEY_dead_diaeresis _KEY_dead_diaeresis :: Int32 _KEY_dead_diaeresis = 65111 -- constant _KEY_dead_doubleacute _KEY_dead_doubleacute :: Int32 _KEY_dead_doubleacute = 65113 -- constant _KEY_dead_doublegrave _KEY_dead_doublegrave :: Int32 _KEY_dead_doublegrave = 65126 -- constant _KEY_dead_e _KEY_dead_e :: Int32 _KEY_dead_e = 65154 -- constant _KEY_dead_grave _KEY_dead_grave :: Int32 _KEY_dead_grave = 65104 -- constant _KEY_dead_greek _KEY_dead_greek :: Int32 _KEY_dead_greek = 65164 -- constant _KEY_dead_hook _KEY_dead_hook :: Int32 _KEY_dead_hook = 65121 -- constant _KEY_dead_horn _KEY_dead_horn :: Int32 _KEY_dead_horn = 65122 -- constant _KEY_dead_i _KEY_dead_i :: Int32 _KEY_dead_i = 65156 -- constant _KEY_dead_invertedbreve _KEY_dead_invertedbreve :: Int32 _KEY_dead_invertedbreve = 65133 -- constant _KEY_dead_iota _KEY_dead_iota :: Int32 _KEY_dead_iota = 65117 -- constant _KEY_dead_macron _KEY_dead_macron :: Int32 _KEY_dead_macron = 65108 -- constant _KEY_dead_o _KEY_dead_o :: Int32 _KEY_dead_o = 65158 -- constant _KEY_dead_ogonek _KEY_dead_ogonek :: Int32 _KEY_dead_ogonek = 65116 -- constant _KEY_dead_perispomeni _KEY_dead_perispomeni :: Int32 _KEY_dead_perispomeni = 65107 -- constant _KEY_dead_psili _KEY_dead_psili :: Int32 _KEY_dead_psili = 65124 -- constant _KEY_dead_semivoiced_sound _KEY_dead_semivoiced_sound :: Int32 _KEY_dead_semivoiced_sound = 65119 -- constant _KEY_dead_small_schwa _KEY_dead_small_schwa :: Int32 _KEY_dead_small_schwa = 65162 -- constant _KEY_dead_stroke _KEY_dead_stroke :: Int32 _KEY_dead_stroke = 65123 -- constant _KEY_dead_tilde _KEY_dead_tilde :: Int32 _KEY_dead_tilde = 65107 -- constant _KEY_dead_u _KEY_dead_u :: Int32 _KEY_dead_u = 65160 -- constant _KEY_dead_voiced_sound _KEY_dead_voiced_sound :: Int32 _KEY_dead_voiced_sound = 65118 -- constant _KEY_decimalpoint _KEY_decimalpoint :: Int32 _KEY_decimalpoint = 2749 -- constant _KEY_degree _KEY_degree :: Int32 _KEY_degree = 176 -- constant _KEY_diaeresis _KEY_diaeresis :: Int32 _KEY_diaeresis = 168 -- constant _KEY_diamond _KEY_diamond :: Int32 _KEY_diamond = 2797 -- constant _KEY_digitspace _KEY_digitspace :: Int32 _KEY_digitspace = 2725 -- constant _KEY_dintegral _KEY_dintegral :: Int32 _KEY_dintegral = 16785964 -- constant _KEY_division _KEY_division :: Int32 _KEY_division = 247 -- constant _KEY_dollar _KEY_dollar :: Int32 _KEY_dollar = 36 -- constant _KEY_doubbaselinedot _KEY_doubbaselinedot :: Int32 _KEY_doubbaselinedot = 2735 -- constant _KEY_doubleacute _KEY_doubleacute :: Int32 _KEY_doubleacute = 445 -- constant _KEY_doubledagger _KEY_doubledagger :: Int32 _KEY_doubledagger = 2802 -- constant _KEY_doublelowquotemark _KEY_doublelowquotemark :: Int32 _KEY_doublelowquotemark = 2814 -- constant _KEY_downarrow _KEY_downarrow :: Int32 _KEY_downarrow = 2302 -- constant _KEY_downcaret _KEY_downcaret :: Int32 _KEY_downcaret = 2984 -- constant _KEY_downshoe _KEY_downshoe :: Int32 _KEY_downshoe = 3030 -- constant _KEY_downstile _KEY_downstile :: Int32 _KEY_downstile = 3012 -- constant _KEY_downtack _KEY_downtack :: Int32 _KEY_downtack = 3010 -- constant _KEY_dstroke _KEY_dstroke :: Int32 _KEY_dstroke = 496 -- constant _KEY_e _KEY_e :: Int32 _KEY_e = 101 -- constant _KEY_eabovedot _KEY_eabovedot :: Int32 _KEY_eabovedot = 1004 -- constant _KEY_eacute _KEY_eacute :: Int32 _KEY_eacute = 233 -- constant _KEY_ebelowdot _KEY_ebelowdot :: Int32 _KEY_ebelowdot = 16785081 -- constant _KEY_ecaron _KEY_ecaron :: Int32 _KEY_ecaron = 492 -- constant _KEY_ecircumflex _KEY_ecircumflex :: Int32 _KEY_ecircumflex = 234 -- constant _KEY_ecircumflexacute _KEY_ecircumflexacute :: Int32 _KEY_ecircumflexacute = 16785087 -- constant _KEY_ecircumflexbelowdot _KEY_ecircumflexbelowdot :: Int32 _KEY_ecircumflexbelowdot = 16785095 -- constant _KEY_ecircumflexgrave _KEY_ecircumflexgrave :: Int32 _KEY_ecircumflexgrave = 16785089 -- constant _KEY_ecircumflexhook _KEY_ecircumflexhook :: Int32 _KEY_ecircumflexhook = 16785091 -- constant _KEY_ecircumflextilde _KEY_ecircumflextilde :: Int32 _KEY_ecircumflextilde = 16785093 -- constant _KEY_ediaeresis _KEY_ediaeresis :: Int32 _KEY_ediaeresis = 235 -- constant _KEY_egrave _KEY_egrave :: Int32 _KEY_egrave = 232 -- constant _KEY_ehook _KEY_ehook :: Int32 _KEY_ehook = 16785083 -- constant _KEY_eightsubscript _KEY_eightsubscript :: Int32 _KEY_eightsubscript = 16785544 -- constant _KEY_eightsuperior _KEY_eightsuperior :: Int32 _KEY_eightsuperior = 16785528 -- constant _KEY_elementof _KEY_elementof :: Int32 _KEY_elementof = 16785928 -- constant _KEY_ellipsis _KEY_ellipsis :: Int32 _KEY_ellipsis = 2734 -- constant _KEY_em3space _KEY_em3space :: Int32 _KEY_em3space = 2723 -- constant _KEY_em4space _KEY_em4space :: Int32 _KEY_em4space = 2724 -- constant _KEY_emacron _KEY_emacron :: Int32 _KEY_emacron = 954 -- constant _KEY_emdash _KEY_emdash :: Int32 _KEY_emdash = 2729 -- constant _KEY_emfilledcircle _KEY_emfilledcircle :: Int32 _KEY_emfilledcircle = 2782 -- constant _KEY_emfilledrect _KEY_emfilledrect :: Int32 _KEY_emfilledrect = 2783 -- constant _KEY_emopencircle _KEY_emopencircle :: Int32 _KEY_emopencircle = 2766 -- constant _KEY_emopenrectangle _KEY_emopenrectangle :: Int32 _KEY_emopenrectangle = 2767 -- constant _KEY_emptyset _KEY_emptyset :: Int32 _KEY_emptyset = 16785925 -- constant _KEY_emspace _KEY_emspace :: Int32 _KEY_emspace = 2721 -- constant _KEY_endash _KEY_endash :: Int32 _KEY_endash = 2730 -- constant _KEY_enfilledcircbullet _KEY_enfilledcircbullet :: Int32 _KEY_enfilledcircbullet = 2790 -- constant _KEY_enfilledsqbullet _KEY_enfilledsqbullet :: Int32 _KEY_enfilledsqbullet = 2791 -- constant _KEY_eng _KEY_eng :: Int32 _KEY_eng = 959 -- constant _KEY_enopencircbullet _KEY_enopencircbullet :: Int32 _KEY_enopencircbullet = 2784 -- constant _KEY_enopensquarebullet _KEY_enopensquarebullet :: Int32 _KEY_enopensquarebullet = 2785 -- constant _KEY_enspace _KEY_enspace :: Int32 _KEY_enspace = 2722 -- constant _KEY_eogonek _KEY_eogonek :: Int32 _KEY_eogonek = 490 -- constant _KEY_equal _KEY_equal :: Int32 _KEY_equal = 61 -- constant _KEY_eth _KEY_eth :: Int32 _KEY_eth = 240 -- constant _KEY_etilde _KEY_etilde :: Int32 _KEY_etilde = 16785085 -- constant _KEY_exclam _KEY_exclam :: Int32 _KEY_exclam = 33 -- constant _KEY_exclamdown _KEY_exclamdown :: Int32 _KEY_exclamdown = 161 -- constant _KEY_ezh _KEY_ezh :: Int32 _KEY_ezh = 16777874 -- constant _KEY_f _KEY_f :: Int32 _KEY_f = 102 -- constant _KEY_fabovedot _KEY_fabovedot :: Int32 _KEY_fabovedot = 16784927 -- constant _KEY_femalesymbol _KEY_femalesymbol :: Int32 _KEY_femalesymbol = 2808 -- constant _KEY_ff _KEY_ff :: Int32 _KEY_ff = 2531 -- constant _KEY_figdash _KEY_figdash :: Int32 _KEY_figdash = 2747 -- constant _KEY_filledlefttribullet _KEY_filledlefttribullet :: Int32 _KEY_filledlefttribullet = 2780 -- constant _KEY_filledrectbullet _KEY_filledrectbullet :: Int32 _KEY_filledrectbullet = 2779 -- constant _KEY_filledrighttribullet _KEY_filledrighttribullet :: Int32 _KEY_filledrighttribullet = 2781 -- constant _KEY_filledtribulletdown _KEY_filledtribulletdown :: Int32 _KEY_filledtribulletdown = 2793 -- constant _KEY_filledtribulletup _KEY_filledtribulletup :: Int32 _KEY_filledtribulletup = 2792 -- constant _KEY_fiveeighths _KEY_fiveeighths :: Int32 _KEY_fiveeighths = 2757 -- constant _KEY_fivesixths _KEY_fivesixths :: Int32 _KEY_fivesixths = 2743 -- constant _KEY_fivesubscript _KEY_fivesubscript :: Int32 _KEY_fivesubscript = 16785541 -- constant _KEY_fivesuperior _KEY_fivesuperior :: Int32 _KEY_fivesuperior = 16785525 -- constant _KEY_fourfifths _KEY_fourfifths :: Int32 _KEY_fourfifths = 2741 -- constant _KEY_foursubscript _KEY_foursubscript :: Int32 _KEY_foursubscript = 16785540 -- constant _KEY_foursuperior _KEY_foursuperior :: Int32 _KEY_foursuperior = 16785524 -- constant _KEY_fourthroot _KEY_fourthroot :: Int32 _KEY_fourthroot = 16785948 -- constant _KEY_function _KEY_function :: Int32 _KEY_function = 2294 -- constant _KEY_g _KEY_g :: Int32 _KEY_g = 103 -- constant _KEY_gabovedot _KEY_gabovedot :: Int32 _KEY_gabovedot = 757 -- constant _KEY_gbreve _KEY_gbreve :: Int32 _KEY_gbreve = 699 -- constant _KEY_gcaron _KEY_gcaron :: Int32 _KEY_gcaron = 16777703 -- constant _KEY_gcedilla _KEY_gcedilla :: Int32 _KEY_gcedilla = 955 -- constant _KEY_gcircumflex _KEY_gcircumflex :: Int32 _KEY_gcircumflex = 760 -- constant _KEY_grave _KEY_grave :: Int32 _KEY_grave = 96 -- constant _KEY_greater _KEY_greater :: Int32 _KEY_greater = 62 -- constant _KEY_greaterthanequal _KEY_greaterthanequal :: Int32 _KEY_greaterthanequal = 2238 -- constant _KEY_guillemotleft _KEY_guillemotleft :: Int32 _KEY_guillemotleft = 171 -- constant _KEY_guillemotright _KEY_guillemotright :: Int32 _KEY_guillemotright = 187 -- constant _KEY_h _KEY_h :: Int32 _KEY_h = 104 -- constant _KEY_hairspace _KEY_hairspace :: Int32 _KEY_hairspace = 2728 -- constant _KEY_hcircumflex _KEY_hcircumflex :: Int32 _KEY_hcircumflex = 694 -- constant _KEY_heart _KEY_heart :: Int32 _KEY_heart = 2798 -- constant _KEY_hebrew_aleph _KEY_hebrew_aleph :: Int32 _KEY_hebrew_aleph = 3296 -- constant _KEY_hebrew_ayin _KEY_hebrew_ayin :: Int32 _KEY_hebrew_ayin = 3314 -- constant _KEY_hebrew_bet _KEY_hebrew_bet :: Int32 _KEY_hebrew_bet = 3297 -- constant _KEY_hebrew_beth _KEY_hebrew_beth :: Int32 _KEY_hebrew_beth = 3297 -- constant _KEY_hebrew_chet _KEY_hebrew_chet :: Int32 _KEY_hebrew_chet = 3303 -- constant _KEY_hebrew_dalet _KEY_hebrew_dalet :: Int32 _KEY_hebrew_dalet = 3299 -- constant _KEY_hebrew_daleth _KEY_hebrew_daleth :: Int32 _KEY_hebrew_daleth = 3299 -- constant _KEY_hebrew_doublelowline _KEY_hebrew_doublelowline :: Int32 _KEY_hebrew_doublelowline = 3295 -- constant _KEY_hebrew_finalkaph _KEY_hebrew_finalkaph :: Int32 _KEY_hebrew_finalkaph = 3306 -- constant _KEY_hebrew_finalmem _KEY_hebrew_finalmem :: Int32 _KEY_hebrew_finalmem = 3309 -- constant _KEY_hebrew_finalnun _KEY_hebrew_finalnun :: Int32 _KEY_hebrew_finalnun = 3311 -- constant _KEY_hebrew_finalpe _KEY_hebrew_finalpe :: Int32 _KEY_hebrew_finalpe = 3315 -- constant _KEY_hebrew_finalzade _KEY_hebrew_finalzade :: Int32 _KEY_hebrew_finalzade = 3317 -- constant _KEY_hebrew_finalzadi _KEY_hebrew_finalzadi :: Int32 _KEY_hebrew_finalzadi = 3317 -- constant _KEY_hebrew_gimel _KEY_hebrew_gimel :: Int32 _KEY_hebrew_gimel = 3298 -- constant _KEY_hebrew_gimmel _KEY_hebrew_gimmel :: Int32 _KEY_hebrew_gimmel = 3298 -- constant _KEY_hebrew_he _KEY_hebrew_he :: Int32 _KEY_hebrew_he = 3300 -- constant _KEY_hebrew_het _KEY_hebrew_het :: Int32 _KEY_hebrew_het = 3303 -- constant _KEY_hebrew_kaph _KEY_hebrew_kaph :: Int32 _KEY_hebrew_kaph = 3307 -- constant _KEY_hebrew_kuf _KEY_hebrew_kuf :: Int32 _KEY_hebrew_kuf = 3319 -- constant _KEY_hebrew_lamed _KEY_hebrew_lamed :: Int32 _KEY_hebrew_lamed = 3308 -- constant _KEY_hebrew_mem _KEY_hebrew_mem :: Int32 _KEY_hebrew_mem = 3310 -- constant _KEY_hebrew_nun _KEY_hebrew_nun :: Int32 _KEY_hebrew_nun = 3312 -- constant _KEY_hebrew_pe _KEY_hebrew_pe :: Int32 _KEY_hebrew_pe = 3316 -- constant _KEY_hebrew_qoph _KEY_hebrew_qoph :: Int32 _KEY_hebrew_qoph = 3319 -- constant _KEY_hebrew_resh _KEY_hebrew_resh :: Int32 _KEY_hebrew_resh = 3320 -- constant _KEY_hebrew_samech _KEY_hebrew_samech :: Int32 _KEY_hebrew_samech = 3313 -- constant _KEY_hebrew_samekh _KEY_hebrew_samekh :: Int32 _KEY_hebrew_samekh = 3313 -- constant _KEY_hebrew_shin _KEY_hebrew_shin :: Int32 _KEY_hebrew_shin = 3321 -- constant _KEY_hebrew_taf _KEY_hebrew_taf :: Int32 _KEY_hebrew_taf = 3322 -- constant _KEY_hebrew_taw _KEY_hebrew_taw :: Int32 _KEY_hebrew_taw = 3322 -- constant _KEY_hebrew_tet _KEY_hebrew_tet :: Int32 _KEY_hebrew_tet = 3304 -- constant _KEY_hebrew_teth _KEY_hebrew_teth :: Int32 _KEY_hebrew_teth = 3304 -- constant _KEY_hebrew_waw _KEY_hebrew_waw :: Int32 _KEY_hebrew_waw = 3301 -- constant _KEY_hebrew_yod _KEY_hebrew_yod :: Int32 _KEY_hebrew_yod = 3305 -- constant _KEY_hebrew_zade _KEY_hebrew_zade :: Int32 _KEY_hebrew_zade = 3318 -- constant _KEY_hebrew_zadi _KEY_hebrew_zadi :: Int32 _KEY_hebrew_zadi = 3318 -- constant _KEY_hebrew_zain _KEY_hebrew_zain :: Int32 _KEY_hebrew_zain = 3302 -- constant _KEY_hebrew_zayin _KEY_hebrew_zayin :: Int32 _KEY_hebrew_zayin = 3302 -- constant _KEY_hexagram _KEY_hexagram :: Int32 _KEY_hexagram = 2778 -- constant _KEY_horizconnector _KEY_horizconnector :: Int32 _KEY_horizconnector = 2211 -- constant _KEY_horizlinescan1 _KEY_horizlinescan1 :: Int32 _KEY_horizlinescan1 = 2543 -- constant _KEY_horizlinescan3 _KEY_horizlinescan3 :: Int32 _KEY_horizlinescan3 = 2544 -- constant _KEY_horizlinescan5 _KEY_horizlinescan5 :: Int32 _KEY_horizlinescan5 = 2545 -- constant _KEY_horizlinescan7 _KEY_horizlinescan7 :: Int32 _KEY_horizlinescan7 = 2546 -- constant _KEY_horizlinescan9 _KEY_horizlinescan9 :: Int32 _KEY_horizlinescan9 = 2547 -- constant _KEY_hstroke _KEY_hstroke :: Int32 _KEY_hstroke = 689 -- constant _KEY_ht _KEY_ht :: Int32 _KEY_ht = 2530 -- constant _KEY_hyphen _KEY_hyphen :: Int32 _KEY_hyphen = 173 -- constant _KEY_i _KEY_i :: Int32 _KEY_i = 105 -- constant _KEY_iTouch _KEY_iTouch :: Int32 _KEY_iTouch = 269025120 -- constant _KEY_iacute _KEY_iacute :: Int32 _KEY_iacute = 237 -- constant _KEY_ibelowdot _KEY_ibelowdot :: Int32 _KEY_ibelowdot = 16785099 -- constant _KEY_ibreve _KEY_ibreve :: Int32 _KEY_ibreve = 16777517 -- constant _KEY_icircumflex _KEY_icircumflex :: Int32 _KEY_icircumflex = 238 -- constant _KEY_identical _KEY_identical :: Int32 _KEY_identical = 2255 -- constant _KEY_idiaeresis _KEY_idiaeresis :: Int32 _KEY_idiaeresis = 239 -- constant _KEY_idotless _KEY_idotless :: Int32 _KEY_idotless = 697 -- constant _KEY_ifonlyif _KEY_ifonlyif :: Int32 _KEY_ifonlyif = 2253 -- constant _KEY_igrave _KEY_igrave :: Int32 _KEY_igrave = 236 -- constant _KEY_ihook _KEY_ihook :: Int32 _KEY_ihook = 16785097 -- constant _KEY_imacron _KEY_imacron :: Int32 _KEY_imacron = 1007 -- constant _KEY_implies _KEY_implies :: Int32 _KEY_implies = 2254 -- constant _KEY_includedin _KEY_includedin :: Int32 _KEY_includedin = 2266 -- constant _KEY_includes _KEY_includes :: Int32 _KEY_includes = 2267 -- constant _KEY_infinity _KEY_infinity :: Int32 _KEY_infinity = 2242 -- constant _KEY_integral _KEY_integral :: Int32 _KEY_integral = 2239 -- constant _KEY_intersection _KEY_intersection :: Int32 _KEY_intersection = 2268 -- constant _KEY_iogonek _KEY_iogonek :: Int32 _KEY_iogonek = 999 -- constant _KEY_itilde _KEY_itilde :: Int32 _KEY_itilde = 949 -- constant _KEY_j _KEY_j :: Int32 _KEY_j = 106 -- constant _KEY_jcircumflex _KEY_jcircumflex :: Int32 _KEY_jcircumflex = 700 -- constant _KEY_jot _KEY_jot :: Int32 _KEY_jot = 3018 -- constant _KEY_k _KEY_k :: Int32 _KEY_k = 107 -- constant _KEY_kana_A _KEY_kana_A :: Int32 _KEY_kana_A = 1201 -- constant _KEY_kana_CHI _KEY_kana_CHI :: Int32 _KEY_kana_CHI = 1217 -- constant _KEY_kana_E _KEY_kana_E :: Int32 _KEY_kana_E = 1204 -- constant _KEY_kana_FU _KEY_kana_FU :: Int32 _KEY_kana_FU = 1228 -- constant _KEY_kana_HA _KEY_kana_HA :: Int32 _KEY_kana_HA = 1226 -- constant _KEY_kana_HE _KEY_kana_HE :: Int32 _KEY_kana_HE = 1229 -- constant _KEY_kana_HI _KEY_kana_HI :: Int32 _KEY_kana_HI = 1227 -- constant _KEY_kana_HO _KEY_kana_HO :: Int32 _KEY_kana_HO = 1230 -- constant _KEY_kana_HU _KEY_kana_HU :: Int32 _KEY_kana_HU = 1228 -- constant _KEY_kana_I _KEY_kana_I :: Int32 _KEY_kana_I = 1202 -- constant _KEY_kana_KA _KEY_kana_KA :: Int32 _KEY_kana_KA = 1206 -- constant _KEY_kana_KE _KEY_kana_KE :: Int32 _KEY_kana_KE = 1209 -- constant _KEY_kana_KI _KEY_kana_KI :: Int32 _KEY_kana_KI = 1207 -- constant _KEY_kana_KO _KEY_kana_KO :: Int32 _KEY_kana_KO = 1210 -- constant _KEY_kana_KU _KEY_kana_KU :: Int32 _KEY_kana_KU = 1208 -- constant _KEY_kana_MA _KEY_kana_MA :: Int32 _KEY_kana_MA = 1231 -- constant _KEY_kana_ME _KEY_kana_ME :: Int32 _KEY_kana_ME = 1234 -- constant _KEY_kana_MI _KEY_kana_MI :: Int32 _KEY_kana_MI = 1232 -- constant _KEY_kana_MO _KEY_kana_MO :: Int32 _KEY_kana_MO = 1235 -- constant _KEY_kana_MU _KEY_kana_MU :: Int32 _KEY_kana_MU = 1233 -- constant _KEY_kana_N _KEY_kana_N :: Int32 _KEY_kana_N = 1245 -- constant _KEY_kana_NA _KEY_kana_NA :: Int32 _KEY_kana_NA = 1221 -- constant _KEY_kana_NE _KEY_kana_NE :: Int32 _KEY_kana_NE = 1224 -- constant _KEY_kana_NI _KEY_kana_NI :: Int32 _KEY_kana_NI = 1222 -- constant _KEY_kana_NO _KEY_kana_NO :: Int32 _KEY_kana_NO = 1225 -- constant _KEY_kana_NU _KEY_kana_NU :: Int32 _KEY_kana_NU = 1223 -- constant _KEY_kana_O _KEY_kana_O :: Int32 _KEY_kana_O = 1205 -- constant _KEY_kana_RA _KEY_kana_RA :: Int32 _KEY_kana_RA = 1239 -- constant _KEY_kana_RE _KEY_kana_RE :: Int32 _KEY_kana_RE = 1242 -- constant _KEY_kana_RI _KEY_kana_RI :: Int32 _KEY_kana_RI = 1240 -- constant _KEY_kana_RO _KEY_kana_RO :: Int32 _KEY_kana_RO = 1243 -- constant _KEY_kana_RU _KEY_kana_RU :: Int32 _KEY_kana_RU = 1241 -- constant _KEY_kana_SA _KEY_kana_SA :: Int32 _KEY_kana_SA = 1211 -- constant _KEY_kana_SE _KEY_kana_SE :: Int32 _KEY_kana_SE = 1214 -- constant _KEY_kana_SHI _KEY_kana_SHI :: Int32 _KEY_kana_SHI = 1212 -- constant _KEY_kana_SO _KEY_kana_SO :: Int32 _KEY_kana_SO = 1215 -- constant _KEY_kana_SU _KEY_kana_SU :: Int32 _KEY_kana_SU = 1213 -- constant _KEY_kana_TA _KEY_kana_TA :: Int32 _KEY_kana_TA = 1216 -- constant _KEY_kana_TE _KEY_kana_TE :: Int32 _KEY_kana_TE = 1219 -- constant _KEY_kana_TI _KEY_kana_TI :: Int32 _KEY_kana_TI = 1217 -- constant _KEY_kana_TO _KEY_kana_TO :: Int32 _KEY_kana_TO = 1220 -- constant _KEY_kana_TSU _KEY_kana_TSU :: Int32 _KEY_kana_TSU = 1218 -- constant _KEY_kana_TU _KEY_kana_TU :: Int32 _KEY_kana_TU = 1218 -- constant _KEY_kana_U _KEY_kana_U :: Int32 _KEY_kana_U = 1203 -- constant _KEY_kana_WA _KEY_kana_WA :: Int32 _KEY_kana_WA = 1244 -- constant _KEY_kana_WO _KEY_kana_WO :: Int32 _KEY_kana_WO = 1190 -- constant _KEY_kana_YA _KEY_kana_YA :: Int32 _KEY_kana_YA = 1236 -- constant _KEY_kana_YO _KEY_kana_YO :: Int32 _KEY_kana_YO = 1238 -- constant _KEY_kana_YU _KEY_kana_YU :: Int32 _KEY_kana_YU = 1237 -- constant _KEY_kana_a _KEY_kana_a :: Int32 _KEY_kana_a = 1191 -- constant _KEY_kana_closingbracket _KEY_kana_closingbracket :: Int32 _KEY_kana_closingbracket = 1187 -- constant _KEY_kana_comma _KEY_kana_comma :: Int32 _KEY_kana_comma = 1188 -- constant _KEY_kana_conjunctive _KEY_kana_conjunctive :: Int32 _KEY_kana_conjunctive = 1189 -- constant _KEY_kana_e _KEY_kana_e :: Int32 _KEY_kana_e = 1194 -- constant _KEY_kana_fullstop _KEY_kana_fullstop :: Int32 _KEY_kana_fullstop = 1185 -- constant _KEY_kana_i _KEY_kana_i :: Int32 _KEY_kana_i = 1192 -- constant _KEY_kana_middledot _KEY_kana_middledot :: Int32 _KEY_kana_middledot = 1189 -- constant _KEY_kana_o _KEY_kana_o :: Int32 _KEY_kana_o = 1195 -- constant _KEY_kana_openingbracket _KEY_kana_openingbracket :: Int32 _KEY_kana_openingbracket = 1186 -- constant _KEY_kana_switch _KEY_kana_switch :: Int32 _KEY_kana_switch = 65406 -- constant _KEY_kana_tsu _KEY_kana_tsu :: Int32 _KEY_kana_tsu = 1199 -- constant _KEY_kana_tu _KEY_kana_tu :: Int32 _KEY_kana_tu = 1199 -- constant _KEY_kana_u _KEY_kana_u :: Int32 _KEY_kana_u = 1193 -- constant _KEY_kana_ya _KEY_kana_ya :: Int32 _KEY_kana_ya = 1196 -- constant _KEY_kana_yo _KEY_kana_yo :: Int32 _KEY_kana_yo = 1198 -- constant _KEY_kana_yu _KEY_kana_yu :: Int32 _KEY_kana_yu = 1197 -- constant _KEY_kappa _KEY_kappa :: Int32 _KEY_kappa = 930 -- constant _KEY_kcedilla _KEY_kcedilla :: Int32 _KEY_kcedilla = 1011 -- constant _KEY_kra _KEY_kra :: Int32 _KEY_kra = 930 -- constant _KEY_l _KEY_l :: Int32 _KEY_l = 108 -- constant _KEY_lacute _KEY_lacute :: Int32 _KEY_lacute = 485 -- constant _KEY_latincross _KEY_latincross :: Int32 _KEY_latincross = 2777 -- constant _KEY_lbelowdot _KEY_lbelowdot :: Int32 _KEY_lbelowdot = 16784951 -- constant _KEY_lcaron _KEY_lcaron :: Int32 _KEY_lcaron = 437 -- constant _KEY_lcedilla _KEY_lcedilla :: Int32 _KEY_lcedilla = 950 -- constant _KEY_leftanglebracket _KEY_leftanglebracket :: Int32 _KEY_leftanglebracket = 2748 -- constant _KEY_leftarrow _KEY_leftarrow :: Int32 _KEY_leftarrow = 2299 -- constant _KEY_leftcaret _KEY_leftcaret :: Int32 _KEY_leftcaret = 2979 -- constant _KEY_leftdoublequotemark _KEY_leftdoublequotemark :: Int32 _KEY_leftdoublequotemark = 2770 -- constant _KEY_leftmiddlecurlybrace _KEY_leftmiddlecurlybrace :: Int32 _KEY_leftmiddlecurlybrace = 2223 -- constant _KEY_leftopentriangle _KEY_leftopentriangle :: Int32 _KEY_leftopentriangle = 2764 -- constant _KEY_leftpointer _KEY_leftpointer :: Int32 _KEY_leftpointer = 2794 -- constant _KEY_leftradical _KEY_leftradical :: Int32 _KEY_leftradical = 2209 -- constant _KEY_leftshoe _KEY_leftshoe :: Int32 _KEY_leftshoe = 3034 -- constant _KEY_leftsinglequotemark _KEY_leftsinglequotemark :: Int32 _KEY_leftsinglequotemark = 2768 -- constant _KEY_leftt _KEY_leftt :: Int32 _KEY_leftt = 2548 -- constant _KEY_lefttack _KEY_lefttack :: Int32 _KEY_lefttack = 3036 -- constant _KEY_less _KEY_less :: Int32 _KEY_less = 60 -- constant _KEY_lessthanequal _KEY_lessthanequal :: Int32 _KEY_lessthanequal = 2236 -- constant _KEY_lf _KEY_lf :: Int32 _KEY_lf = 2533 -- constant _KEY_logicaland _KEY_logicaland :: Int32 _KEY_logicaland = 2270 -- constant _KEY_logicalor _KEY_logicalor :: Int32 _KEY_logicalor = 2271 -- constant _KEY_lowleftcorner _KEY_lowleftcorner :: Int32 _KEY_lowleftcorner = 2541 -- constant _KEY_lowrightcorner _KEY_lowrightcorner :: Int32 _KEY_lowrightcorner = 2538 -- constant _KEY_lstroke _KEY_lstroke :: Int32 _KEY_lstroke = 435 -- constant _KEY_m _KEY_m :: Int32 _KEY_m = 109 -- constant _KEY_mabovedot _KEY_mabovedot :: Int32 _KEY_mabovedot = 16784961 -- constant _KEY_macron _KEY_macron :: Int32 _KEY_macron = 175 -- constant _KEY_malesymbol _KEY_malesymbol :: Int32 _KEY_malesymbol = 2807 -- constant _KEY_maltesecross _KEY_maltesecross :: Int32 _KEY_maltesecross = 2800 -- constant _KEY_marker _KEY_marker :: Int32 _KEY_marker = 2751 -- constant _KEY_masculine _KEY_masculine :: Int32 _KEY_masculine = 186 -- constant _KEY_minus _KEY_minus :: Int32 _KEY_minus = 45 -- constant _KEY_minutes _KEY_minutes :: Int32 _KEY_minutes = 2774 -- constant _KEY_mu _KEY_mu :: Int32 _KEY_mu = 181 -- constant _KEY_multiply _KEY_multiply :: Int32 _KEY_multiply = 215 -- constant _KEY_musicalflat _KEY_musicalflat :: Int32 _KEY_musicalflat = 2806 -- constant _KEY_musicalsharp _KEY_musicalsharp :: Int32 _KEY_musicalsharp = 2805 -- constant _KEY_n _KEY_n :: Int32 _KEY_n = 110 -- constant _KEY_nabla _KEY_nabla :: Int32 _KEY_nabla = 2245 -- constant _KEY_nacute _KEY_nacute :: Int32 _KEY_nacute = 497 -- constant _KEY_ncaron _KEY_ncaron :: Int32 _KEY_ncaron = 498 -- constant _KEY_ncedilla _KEY_ncedilla :: Int32 _KEY_ncedilla = 1009 -- constant _KEY_ninesubscript _KEY_ninesubscript :: Int32 _KEY_ninesubscript = 16785545 -- constant _KEY_ninesuperior _KEY_ninesuperior :: Int32 _KEY_ninesuperior = 16785529 -- constant _KEY_nl _KEY_nl :: Int32 _KEY_nl = 2536 -- constant _KEY_nobreakspace _KEY_nobreakspace :: Int32 _KEY_nobreakspace = 160 -- constant _KEY_notapproxeq _KEY_notapproxeq :: Int32 _KEY_notapproxeq = 16785991 -- constant _KEY_notelementof _KEY_notelementof :: Int32 _KEY_notelementof = 16785929 -- constant _KEY_notequal _KEY_notequal :: Int32 _KEY_notequal = 2237 -- constant _KEY_notidentical _KEY_notidentical :: Int32 _KEY_notidentical = 16786018 -- constant _KEY_notsign _KEY_notsign :: Int32 _KEY_notsign = 172 -- constant _KEY_ntilde _KEY_ntilde :: Int32 _KEY_ntilde = 241 -- constant _KEY_numbersign _KEY_numbersign :: Int32 _KEY_numbersign = 35 -- constant _KEY_numerosign _KEY_numerosign :: Int32 _KEY_numerosign = 1712 -- constant _KEY_o _KEY_o :: Int32 _KEY_o = 111 -- constant _KEY_oacute _KEY_oacute :: Int32 _KEY_oacute = 243 -- constant _KEY_obarred _KEY_obarred :: Int32 _KEY_obarred = 16777845 -- constant _KEY_obelowdot _KEY_obelowdot :: Int32 _KEY_obelowdot = 16785101 -- constant _KEY_ocaron _KEY_ocaron :: Int32 _KEY_ocaron = 16777682 -- constant _KEY_ocircumflex _KEY_ocircumflex :: Int32 _KEY_ocircumflex = 244 -- constant _KEY_ocircumflexacute _KEY_ocircumflexacute :: Int32 _KEY_ocircumflexacute = 16785105 -- constant _KEY_ocircumflexbelowdot _KEY_ocircumflexbelowdot :: Int32 _KEY_ocircumflexbelowdot = 16785113 -- constant _KEY_ocircumflexgrave _KEY_ocircumflexgrave :: Int32 _KEY_ocircumflexgrave = 16785107 -- constant _KEY_ocircumflexhook _KEY_ocircumflexhook :: Int32 _KEY_ocircumflexhook = 16785109 -- constant _KEY_ocircumflextilde _KEY_ocircumflextilde :: Int32 _KEY_ocircumflextilde = 16785111 -- constant _KEY_odiaeresis _KEY_odiaeresis :: Int32 _KEY_odiaeresis = 246 -- constant _KEY_odoubleacute _KEY_odoubleacute :: Int32 _KEY_odoubleacute = 501 -- constant _KEY_oe _KEY_oe :: Int32 _KEY_oe = 5053 -- constant _KEY_ogonek _KEY_ogonek :: Int32 _KEY_ogonek = 434 -- constant _KEY_ograve _KEY_ograve :: Int32 _KEY_ograve = 242 -- constant _KEY_ohook _KEY_ohook :: Int32 _KEY_ohook = 16785103 -- constant _KEY_ohorn _KEY_ohorn :: Int32 _KEY_ohorn = 16777633 -- constant _KEY_ohornacute _KEY_ohornacute :: Int32 _KEY_ohornacute = 16785115 -- constant _KEY_ohornbelowdot _KEY_ohornbelowdot :: Int32 _KEY_ohornbelowdot = 16785123 -- constant _KEY_ohorngrave _KEY_ohorngrave :: Int32 _KEY_ohorngrave = 16785117 -- constant _KEY_ohornhook _KEY_ohornhook :: Int32 _KEY_ohornhook = 16785119 -- constant _KEY_ohorntilde _KEY_ohorntilde :: Int32 _KEY_ohorntilde = 16785121 -- constant _KEY_omacron _KEY_omacron :: Int32 _KEY_omacron = 1010 -- constant _KEY_oneeighth _KEY_oneeighth :: Int32 _KEY_oneeighth = 2755 -- constant _KEY_onefifth _KEY_onefifth :: Int32 _KEY_onefifth = 2738 -- constant _KEY_onehalf _KEY_onehalf :: Int32 _KEY_onehalf = 189 -- constant _KEY_onequarter _KEY_onequarter :: Int32 _KEY_onequarter = 188 -- constant _KEY_onesixth _KEY_onesixth :: Int32 _KEY_onesixth = 2742 -- constant _KEY_onesubscript _KEY_onesubscript :: Int32 _KEY_onesubscript = 16785537 -- constant _KEY_onesuperior _KEY_onesuperior :: Int32 _KEY_onesuperior = 185 -- constant _KEY_onethird _KEY_onethird :: Int32 _KEY_onethird = 2736 -- constant _KEY_ooblique _KEY_ooblique :: Int32 _KEY_ooblique = 248 -- constant _KEY_openrectbullet _KEY_openrectbullet :: Int32 _KEY_openrectbullet = 2786 -- constant _KEY_openstar _KEY_openstar :: Int32 _KEY_openstar = 2789 -- constant _KEY_opentribulletdown _KEY_opentribulletdown :: Int32 _KEY_opentribulletdown = 2788 -- constant _KEY_opentribulletup _KEY_opentribulletup :: Int32 _KEY_opentribulletup = 2787 -- constant _KEY_ordfeminine _KEY_ordfeminine :: Int32 _KEY_ordfeminine = 170 -- constant _KEY_oslash _KEY_oslash :: Int32 _KEY_oslash = 248 -- constant _KEY_otilde _KEY_otilde :: Int32 _KEY_otilde = 245 -- constant _KEY_overbar _KEY_overbar :: Int32 _KEY_overbar = 3008 -- constant _KEY_overline _KEY_overline :: Int32 _KEY_overline = 1150 -- constant _KEY_p _KEY_p :: Int32 _KEY_p = 112 -- constant _KEY_pabovedot _KEY_pabovedot :: Int32 _KEY_pabovedot = 16784983 -- constant _KEY_paragraph _KEY_paragraph :: Int32 _KEY_paragraph = 182 -- constant _KEY_parenleft _KEY_parenleft :: Int32 _KEY_parenleft = 40 -- constant _KEY_parenright _KEY_parenright :: Int32 _KEY_parenright = 41 -- constant _KEY_partdifferential _KEY_partdifferential :: Int32 _KEY_partdifferential = 16785922 -- constant _KEY_partialderivative _KEY_partialderivative :: Int32 _KEY_partialderivative = 2287 -- constant _KEY_percent _KEY_percent :: Int32 _KEY_percent = 37 -- constant _KEY_period _KEY_period :: Int32 _KEY_period = 46 -- constant _KEY_periodcentered _KEY_periodcentered :: Int32 _KEY_periodcentered = 183 -- constant _KEY_permille _KEY_permille :: Int32 _KEY_permille = 2773 -- constant _KEY_phonographcopyright _KEY_phonographcopyright :: Int32 _KEY_phonographcopyright = 2811 -- constant _KEY_plus _KEY_plus :: Int32 _KEY_plus = 43 -- constant _KEY_plusminus _KEY_plusminus :: Int32 _KEY_plusminus = 177 -- constant _KEY_prescription _KEY_prescription :: Int32 _KEY_prescription = 2772 -- constant _KEY_prolongedsound _KEY_prolongedsound :: Int32 _KEY_prolongedsound = 1200 -- constant _KEY_punctspace _KEY_punctspace :: Int32 _KEY_punctspace = 2726 -- constant _KEY_q _KEY_q :: Int32 _KEY_q = 113 -- constant _KEY_quad _KEY_quad :: Int32 _KEY_quad = 3020 -- constant _KEY_question _KEY_question :: Int32 _KEY_question = 63 -- constant _KEY_questiondown _KEY_questiondown :: Int32 _KEY_questiondown = 191 -- constant _KEY_quotedbl _KEY_quotedbl :: Int32 _KEY_quotedbl = 34 -- constant _KEY_quoteleft _KEY_quoteleft :: Int32 _KEY_quoteleft = 96 -- constant _KEY_quoteright _KEY_quoteright :: Int32 _KEY_quoteright = 39 -- constant _KEY_r _KEY_r :: Int32 _KEY_r = 114 -- constant _KEY_racute _KEY_racute :: Int32 _KEY_racute = 480 -- constant _KEY_radical _KEY_radical :: Int32 _KEY_radical = 2262 -- constant _KEY_rcaron _KEY_rcaron :: Int32 _KEY_rcaron = 504 -- constant _KEY_rcedilla _KEY_rcedilla :: Int32 _KEY_rcedilla = 947 -- constant _KEY_registered _KEY_registered :: Int32 _KEY_registered = 174 -- constant _KEY_rightanglebracket _KEY_rightanglebracket :: Int32 _KEY_rightanglebracket = 2750 -- constant _KEY_rightarrow _KEY_rightarrow :: Int32 _KEY_rightarrow = 2301 -- constant _KEY_rightcaret _KEY_rightcaret :: Int32 _KEY_rightcaret = 2982 -- constant _KEY_rightdoublequotemark _KEY_rightdoublequotemark :: Int32 _KEY_rightdoublequotemark = 2771 -- constant _KEY_rightmiddlecurlybrace _KEY_rightmiddlecurlybrace :: Int32 _KEY_rightmiddlecurlybrace = 2224 -- constant _KEY_rightmiddlesummation _KEY_rightmiddlesummation :: Int32 _KEY_rightmiddlesummation = 2231 -- constant _KEY_rightopentriangle _KEY_rightopentriangle :: Int32 _KEY_rightopentriangle = 2765 -- constant _KEY_rightpointer _KEY_rightpointer :: Int32 _KEY_rightpointer = 2795 -- constant _KEY_rightshoe _KEY_rightshoe :: Int32 _KEY_rightshoe = 3032 -- constant _KEY_rightsinglequotemark _KEY_rightsinglequotemark :: Int32 _KEY_rightsinglequotemark = 2769 -- constant _KEY_rightt _KEY_rightt :: Int32 _KEY_rightt = 2549 -- constant _KEY_righttack _KEY_righttack :: Int32 _KEY_righttack = 3068 -- constant _KEY_s _KEY_s :: Int32 _KEY_s = 115 -- constant _KEY_sabovedot _KEY_sabovedot :: Int32 _KEY_sabovedot = 16784993 -- constant _KEY_sacute _KEY_sacute :: Int32 _KEY_sacute = 438 -- constant _KEY_scaron _KEY_scaron :: Int32 _KEY_scaron = 441 -- constant _KEY_scedilla _KEY_scedilla :: Int32 _KEY_scedilla = 442 -- constant _KEY_schwa _KEY_schwa :: Int32 _KEY_schwa = 16777817 -- constant _KEY_scircumflex _KEY_scircumflex :: Int32 _KEY_scircumflex = 766 -- constant _KEY_script_switch _KEY_script_switch :: Int32 _KEY_script_switch = 65406 -- constant _KEY_seconds _KEY_seconds :: Int32 _KEY_seconds = 2775 -- constant _KEY_section _KEY_section :: Int32 _KEY_section = 167 -- constant _KEY_semicolon _KEY_semicolon :: Int32 _KEY_semicolon = 59 -- constant _KEY_semivoicedsound _KEY_semivoicedsound :: Int32 _KEY_semivoicedsound = 1247 -- constant _KEY_seveneighths _KEY_seveneighths :: Int32 _KEY_seveneighths = 2758 -- constant _KEY_sevensubscript _KEY_sevensubscript :: Int32 _KEY_sevensubscript = 16785543 -- constant _KEY_sevensuperior _KEY_sevensuperior :: Int32 _KEY_sevensuperior = 16785527 -- constant _KEY_signaturemark _KEY_signaturemark :: Int32 _KEY_signaturemark = 2762 -- constant _KEY_signifblank _KEY_signifblank :: Int32 _KEY_signifblank = 2732 -- constant _KEY_similarequal _KEY_similarequal :: Int32 _KEY_similarequal = 2249 -- constant _KEY_singlelowquotemark _KEY_singlelowquotemark :: Int32 _KEY_singlelowquotemark = 2813 -- constant _KEY_sixsubscript _KEY_sixsubscript :: Int32 _KEY_sixsubscript = 16785542 -- constant _KEY_sixsuperior _KEY_sixsuperior :: Int32 _KEY_sixsuperior = 16785526 -- constant _KEY_slash _KEY_slash :: Int32 _KEY_slash = 47 -- constant _KEY_soliddiamond _KEY_soliddiamond :: Int32 _KEY_soliddiamond = 2528 -- constant _KEY_space _KEY_space :: Int32 _KEY_space = 32 -- constant _KEY_squareroot _KEY_squareroot :: Int32 _KEY_squareroot = 16785946 -- constant _KEY_ssharp _KEY_ssharp :: Int32 _KEY_ssharp = 223 -- constant _KEY_sterling _KEY_sterling :: Int32 _KEY_sterling = 163 -- constant _KEY_stricteq _KEY_stricteq :: Int32 _KEY_stricteq = 16786019 -- constant _KEY_t _KEY_t :: Int32 _KEY_t = 116 -- constant _KEY_tabovedot _KEY_tabovedot :: Int32 _KEY_tabovedot = 16785003 -- constant _KEY_tcaron _KEY_tcaron :: Int32 _KEY_tcaron = 443 -- constant _KEY_tcedilla _KEY_tcedilla :: Int32 _KEY_tcedilla = 510 -- constant _KEY_telephone _KEY_telephone :: Int32 _KEY_telephone = 2809 -- constant _KEY_telephonerecorder _KEY_telephonerecorder :: Int32 _KEY_telephonerecorder = 2810 -- constant _KEY_therefore _KEY_therefore :: Int32 _KEY_therefore = 2240 -- constant _KEY_thinspace _KEY_thinspace :: Int32 _KEY_thinspace = 2727 -- constant _KEY_thorn _KEY_thorn :: Int32 _KEY_thorn = 254 -- constant _KEY_threeeighths _KEY_threeeighths :: Int32 _KEY_threeeighths = 2756 -- constant _KEY_threefifths _KEY_threefifths :: Int32 _KEY_threefifths = 2740 -- constant _KEY_threequarters _KEY_threequarters :: Int32 _KEY_threequarters = 190 -- constant _KEY_threesubscript _KEY_threesubscript :: Int32 _KEY_threesubscript = 16785539 -- constant _KEY_threesuperior _KEY_threesuperior :: Int32 _KEY_threesuperior = 179 -- constant _KEY_tintegral _KEY_tintegral :: Int32 _KEY_tintegral = 16785965 -- constant _KEY_topintegral _KEY_topintegral :: Int32 _KEY_topintegral = 2212 -- constant _KEY_topleftparens _KEY_topleftparens :: Int32 _KEY_topleftparens = 2219 -- constant _KEY_topleftradical _KEY_topleftradical :: Int32 _KEY_topleftradical = 2210 -- constant _KEY_topleftsqbracket _KEY_topleftsqbracket :: Int32 _KEY_topleftsqbracket = 2215 -- constant _KEY_topleftsummation _KEY_topleftsummation :: Int32 _KEY_topleftsummation = 2225 -- constant _KEY_toprightparens _KEY_toprightparens :: Int32 _KEY_toprightparens = 2221 -- constant _KEY_toprightsqbracket _KEY_toprightsqbracket :: Int32 _KEY_toprightsqbracket = 2217 -- constant _KEY_toprightsummation _KEY_toprightsummation :: Int32 _KEY_toprightsummation = 2229 -- constant _KEY_topt _KEY_topt :: Int32 _KEY_topt = 2551 -- constant _KEY_topvertsummationconnector _KEY_topvertsummationconnector :: Int32 _KEY_topvertsummationconnector = 2227 -- constant _KEY_trademark _KEY_trademark :: Int32 _KEY_trademark = 2761 -- constant _KEY_trademarkincircle _KEY_trademarkincircle :: Int32 _KEY_trademarkincircle = 2763 -- constant _KEY_tslash _KEY_tslash :: Int32 _KEY_tslash = 956 -- constant _KEY_twofifths _KEY_twofifths :: Int32 _KEY_twofifths = 2739 -- constant _KEY_twosubscript _KEY_twosubscript :: Int32 _KEY_twosubscript = 16785538 -- constant _KEY_twosuperior _KEY_twosuperior :: Int32 _KEY_twosuperior = 178 -- constant _KEY_twothirds _KEY_twothirds :: Int32 _KEY_twothirds = 2737 -- constant _KEY_u _KEY_u :: Int32 _KEY_u = 117 -- constant _KEY_uacute _KEY_uacute :: Int32 _KEY_uacute = 250 -- constant _KEY_ubelowdot _KEY_ubelowdot :: Int32 _KEY_ubelowdot = 16785125 -- constant _KEY_ubreve _KEY_ubreve :: Int32 _KEY_ubreve = 765 -- constant _KEY_ucircumflex _KEY_ucircumflex :: Int32 _KEY_ucircumflex = 251 -- constant _KEY_udiaeresis _KEY_udiaeresis :: Int32 _KEY_udiaeresis = 252 -- constant _KEY_udoubleacute _KEY_udoubleacute :: Int32 _KEY_udoubleacute = 507 -- constant _KEY_ugrave _KEY_ugrave :: Int32 _KEY_ugrave = 249 -- constant _KEY_uhook _KEY_uhook :: Int32 _KEY_uhook = 16785127 -- constant _KEY_uhorn _KEY_uhorn :: Int32 _KEY_uhorn = 16777648 -- constant _KEY_uhornacute _KEY_uhornacute :: Int32 _KEY_uhornacute = 16785129 -- constant _KEY_uhornbelowdot _KEY_uhornbelowdot :: Int32 _KEY_uhornbelowdot = 16785137 -- constant _KEY_uhorngrave _KEY_uhorngrave :: Int32 _KEY_uhorngrave = 16785131 -- constant _KEY_uhornhook _KEY_uhornhook :: Int32 _KEY_uhornhook = 16785133 -- constant _KEY_uhorntilde _KEY_uhorntilde :: Int32 _KEY_uhorntilde = 16785135 -- constant _KEY_umacron _KEY_umacron :: Int32 _KEY_umacron = 1022 -- constant _KEY_underbar _KEY_underbar :: Int32 _KEY_underbar = 3014 -- constant _KEY_underscore _KEY_underscore :: Int32 _KEY_underscore = 95 -- constant _KEY_union _KEY_union :: Int32 _KEY_union = 2269 -- constant _KEY_uogonek _KEY_uogonek :: Int32 _KEY_uogonek = 1017 -- constant _KEY_uparrow _KEY_uparrow :: Int32 _KEY_uparrow = 2300 -- constant _KEY_upcaret _KEY_upcaret :: Int32 _KEY_upcaret = 2985 -- constant _KEY_upleftcorner _KEY_upleftcorner :: Int32 _KEY_upleftcorner = 2540 -- constant _KEY_uprightcorner _KEY_uprightcorner :: Int32 _KEY_uprightcorner = 2539 -- constant _KEY_upshoe _KEY_upshoe :: Int32 _KEY_upshoe = 3011 -- constant _KEY_upstile _KEY_upstile :: Int32 _KEY_upstile = 3027 -- constant _KEY_uptack _KEY_uptack :: Int32 _KEY_uptack = 3022 -- constant _KEY_uring _KEY_uring :: Int32 _KEY_uring = 505 -- constant _KEY_utilde _KEY_utilde :: Int32 _KEY_utilde = 1021 -- constant _KEY_v _KEY_v :: Int32 _KEY_v = 118 -- constant _KEY_variation _KEY_variation :: Int32 _KEY_variation = 2241 -- constant _KEY_vertbar _KEY_vertbar :: Int32 _KEY_vertbar = 2552 -- constant _KEY_vertconnector _KEY_vertconnector :: Int32 _KEY_vertconnector = 2214 -- constant _KEY_voicedsound _KEY_voicedsound :: Int32 _KEY_voicedsound = 1246 -- constant _KEY_vt _KEY_vt :: Int32 _KEY_vt = 2537 -- constant _KEY_w _KEY_w :: Int32 _KEY_w = 119 -- constant _KEY_wacute _KEY_wacute :: Int32 _KEY_wacute = 16785027 -- constant _KEY_wcircumflex _KEY_wcircumflex :: Int32 _KEY_wcircumflex = 16777589 -- constant _KEY_wdiaeresis _KEY_wdiaeresis :: Int32 _KEY_wdiaeresis = 16785029 -- constant _KEY_wgrave _KEY_wgrave :: Int32 _KEY_wgrave = 16785025 -- constant _KEY_x _KEY_x :: Int32 _KEY_x = 120 -- constant _KEY_xabovedot _KEY_xabovedot :: Int32 _KEY_xabovedot = 16785035 -- constant _KEY_y _KEY_y :: Int32 _KEY_y = 121 -- constant _KEY_yacute _KEY_yacute :: Int32 _KEY_yacute = 253 -- constant _KEY_ybelowdot _KEY_ybelowdot :: Int32 _KEY_ybelowdot = 16785141 -- constant _KEY_ycircumflex _KEY_ycircumflex :: Int32 _KEY_ycircumflex = 16777591 -- constant _KEY_ydiaeresis _KEY_ydiaeresis :: Int32 _KEY_ydiaeresis = 255 -- constant _KEY_yen _KEY_yen :: Int32 _KEY_yen = 165 -- constant _KEY_ygrave _KEY_ygrave :: Int32 _KEY_ygrave = 16785139 -- constant _KEY_yhook _KEY_yhook :: Int32 _KEY_yhook = 16785143 -- constant _KEY_ytilde _KEY_ytilde :: Int32 _KEY_ytilde = 16785145 -- constant _KEY_z _KEY_z :: Int32 _KEY_z = 122 -- constant _KEY_zabovedot _KEY_zabovedot :: Int32 _KEY_zabovedot = 447 -- constant _KEY_zacute _KEY_zacute :: Int32 _KEY_zacute = 444 -- constant _KEY_zcaron _KEY_zcaron :: Int32 _KEY_zcaron = 446 -- constant _KEY_zerosubscript _KEY_zerosubscript :: Int32 _KEY_zerosubscript = 16785536 -- constant _KEY_zerosuperior _KEY_zerosuperior :: Int32 _KEY_zerosuperior = 16785520 -- constant _KEY_zstroke _KEY_zstroke :: Int32 _KEY_zstroke = 16777654 -- constant _MAX_TIMECOORD_AXES _MAX_TIMECOORD_AXES :: Int32 _MAX_TIMECOORD_AXES = 128 -- constant _PARENT_RELATIVE _PARENT_RELATIVE :: Int32 _PARENT_RELATIVE = 1 -- constant _PRIORITY_REDRAW _PRIORITY_REDRAW :: Int32 _PRIORITY_REDRAW = 20 -- function gdk_add_option_entries_libgtk_only -- Args : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_add_option_entries_libgtk_only" gdk_add_option_entries_libgtk_only :: Ptr GLib.OptionGroup -> -- group : TInterface "GLib" "OptionGroup" IO () {-# DEPRECATED addOptionEntriesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} addOptionEntriesLibgtkOnly :: (MonadIO m) => GLib.OptionGroup -> -- group m () addOptionEntriesLibgtkOnly group = liftIO $ do let group' = unsafeManagedPtrGetPtr group gdk_add_option_entries_libgtk_only group' touchManagedPtr group return () -- function gdk_atom_intern -- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False foreign import ccall "gdk_atom_intern" gdk_atom_intern :: CString -> -- atom_name : TBasicType TUTF8 CInt -> -- only_if_exists : TBasicType TBoolean IO (Ptr Atom) atomIntern :: (MonadIO m) => T.Text -> -- atom_name Bool -> -- only_if_exists m Atom atomIntern atom_name only_if_exists = liftIO $ do atom_name' <- textToCString atom_name let only_if_exists' = (fromIntegral . fromEnum) only_if_exists result <- gdk_atom_intern atom_name' only_if_exists' checkUnexpectedReturnNULL "gdk_atom_intern" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result freeMem atom_name' return result' -- function gdk_atom_intern_static_string -- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False foreign import ccall "gdk_atom_intern_static_string" gdk_atom_intern_static_string :: CString -> -- atom_name : TBasicType TUTF8 IO (Ptr Atom) atomInternStaticString :: (MonadIO m) => T.Text -> -- atom_name m Atom atomInternStaticString atom_name = liftIO $ do atom_name' <- textToCString atom_name result <- gdk_atom_intern_static_string atom_name' checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result freeMem atom_name' return result' -- function gdk_beep -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_beep" gdk_beep :: IO () beep :: (MonadIO m) => m () beep = liftIO $ do gdk_beep return () -- function gdk_cairo_create -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Context" -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_create" gdk_cairo_create :: Ptr Window -> -- window : TInterface "Gdk" "Window" IO (Ptr Cairo.Context) cairoCreate :: (MonadIO m, WindowK a) => a -> -- window m Cairo.Context cairoCreate window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_cairo_create window' checkUnexpectedReturnNULL "gdk_cairo_create" result result' <- (wrapBoxed Cairo.Context) result touchManagedPtr window return result' -- function gdk_cairo_draw_from_gl -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_draw_from_gl" gdk_cairo_draw_from_gl :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Window -> -- window : TInterface "Gdk" "Window" Int32 -> -- source : TBasicType TInt32 Int32 -> -- source_type : TBasicType TInt32 Int32 -> -- buffer_scale : TBasicType TInt32 Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO () cairoDrawFromGl :: (MonadIO m, WindowK a) => Cairo.Context -> -- cr a -> -- window Int32 -> -- source Int32 -> -- source_type Int32 -> -- buffer_scale Int32 -> -- x Int32 -> -- y Int32 -> -- width Int32 -> -- height m () cairoDrawFromGl cr window source source_type buffer_scale x y width height = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let window' = unsafeManagedPtrCastPtr window gdk_cairo_draw_from_gl cr' window' source source_type buffer_scale x y width height touchManagedPtr cr touchManagedPtr window return () -- function gdk_cairo_get_clip_rectangle -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_get_clip_rectangle" gdk_cairo_get_clip_rectangle :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" IO CInt cairoGetClipRectangle :: (MonadIO m) => Cairo.Context -> -- cr m (Bool,Cairo.RectangleInt) cairoGetClipRectangle cr = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) result <- gdk_cairo_get_clip_rectangle cr' rect let result' = (/= 0) result rect' <- (wrapBoxed Cairo.RectangleInt) rect touchManagedPtr cr return (result', rect') -- function gdk_cairo_rectangle -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_rectangle" gdk_cairo_rectangle :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Cairo.RectangleInt -> -- rectangle : TInterface "cairo" "RectangleInt" IO () cairoRectangle :: (MonadIO m) => Cairo.Context -> -- cr Cairo.RectangleInt -> -- rectangle m () cairoRectangle cr rectangle = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let rectangle' = unsafeManagedPtrGetPtr rectangle gdk_cairo_rectangle cr' rectangle' touchManagedPtr cr touchManagedPtr rectangle return () -- function gdk_cairo_region -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_region" gdk_cairo_region :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" IO () cairoRegion :: (MonadIO m) => Cairo.Context -> -- cr Cairo.Region -> -- region m () cairoRegion cr region = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let region' = unsafeManagedPtrGetPtr region gdk_cairo_region cr' region' touchManagedPtr cr touchManagedPtr region return () -- function gdk_cairo_region_create_from_surface -- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Region" -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_region_create_from_surface" gdk_cairo_region_create_from_surface :: Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" IO (Ptr Cairo.Region) cairoRegionCreateFromSurface :: (MonadIO m) => Cairo.Surface -> -- surface m Cairo.Region cairoRegionCreateFromSurface surface = liftIO $ do let surface' = unsafeManagedPtrGetPtr surface result <- gdk_cairo_region_create_from_surface surface' checkUnexpectedReturnNULL "gdk_cairo_region_create_from_surface" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr surface return result' -- function gdk_cairo_set_source_color -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_set_source_color" gdk_cairo_set_source_color :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Color -> -- color : TInterface "Gdk" "Color" IO () {-# DEPRECATED cairoSetSourceColor ["(Since version 3.4)","Use gdk_cairo_set_source_rgba() instead"]#-} cairoSetSourceColor :: (MonadIO m) => Cairo.Context -> -- cr Color -> -- color m () cairoSetSourceColor cr color = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let color' = unsafeManagedPtrGetPtr color gdk_cairo_set_source_color cr' color' touchManagedPtr cr touchManagedPtr color return () -- function gdk_cairo_set_source_pixbuf -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_set_source_pixbuf" gdk_cairo_set_source_pixbuf :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" CDouble -> -- pixbuf_x : TBasicType TDouble CDouble -> -- pixbuf_y : TBasicType TDouble IO () cairoSetSourcePixbuf :: (MonadIO m, GdkPixbuf.PixbufK a) => Cairo.Context -> -- cr a -> -- pixbuf Double -> -- pixbuf_x Double -> -- pixbuf_y m () cairoSetSourcePixbuf cr pixbuf pixbuf_x pixbuf_y = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let pixbuf' = unsafeManagedPtrCastPtr pixbuf let pixbuf_x' = realToFrac pixbuf_x let pixbuf_y' = realToFrac pixbuf_y gdk_cairo_set_source_pixbuf cr' pixbuf' pixbuf_x' pixbuf_y' touchManagedPtr cr touchManagedPtr pixbuf return () -- function gdk_cairo_set_source_rgba -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_set_source_rgba" gdk_cairo_set_source_rgba :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr RGBA -> -- rgba : TInterface "Gdk" "RGBA" IO () cairoSetSourceRgba :: (MonadIO m) => Cairo.Context -> -- cr RGBA -> -- rgba m () cairoSetSourceRgba cr rgba = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let rgba' = unsafeManagedPtrGetPtr rgba gdk_cairo_set_source_rgba cr' rgba' touchManagedPtr cr touchManagedPtr rgba return () -- function gdk_cairo_set_source_window -- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_set_source_window" gdk_cairo_set_source_window :: Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Window -> -- window : TInterface "Gdk" "Window" CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble IO () cairoSetSourceWindow :: (MonadIO m, WindowK a) => Cairo.Context -> -- cr a -> -- window Double -> -- x Double -> -- y m () cairoSetSourceWindow cr window x y = liftIO $ do let cr' = unsafeManagedPtrGetPtr cr let window' = unsafeManagedPtrCastPtr window let x' = realToFrac x let y' = realToFrac y gdk_cairo_set_source_window cr' window' x' y' touchManagedPtr cr touchManagedPtr window return () -- function gdk_cairo_surface_create_from_pixbuf -- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False foreign import ccall "gdk_cairo_surface_create_from_pixbuf" gdk_cairo_surface_create_from_pixbuf :: Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" Int32 -> -- scale : TBasicType TInt32 Ptr Window -> -- for_window : TInterface "Gdk" "Window" IO (Ptr Cairo.Surface) cairoSurfaceCreateFromPixbuf :: (MonadIO m, GdkPixbuf.PixbufK a, WindowK b) => a -> -- pixbuf Int32 -> -- scale Maybe (b) -> -- for_window m Cairo.Surface cairoSurfaceCreateFromPixbuf pixbuf scale for_window = liftIO $ do let pixbuf' = unsafeManagedPtrCastPtr pixbuf maybeFor_window <- case for_window of Nothing -> return nullPtr Just jFor_window -> do let jFor_window' = unsafeManagedPtrCastPtr jFor_window return jFor_window' result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeFor_window checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr pixbuf whenJust for_window touchManagedPtr return result' -- function gdk_color_parse -- Args : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_color_parse" gdk_color_parse :: CString -> -- spec : TBasicType TUTF8 Ptr Color -> -- color : TInterface "Gdk" "Color" IO CInt {-# DEPRECATED colorParse ["(Since version 3.14)","Use #GdkRGBA"]#-} colorParse :: (MonadIO m) => T.Text -> -- spec m (Bool,Color) colorParse spec = liftIO $ do spec' <- textToCString spec color <- callocBoxedBytes 12 :: IO (Ptr Color) result <- gdk_color_parse spec' color let result' = (/= 0) result color' <- (wrapBoxed Color) color freeMem spec' return (result', color') -- function gdk_disable_multidevice -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: IO () disableMultidevice :: (MonadIO m) => m () disableMultidevice = liftIO $ do gdk_disable_multidevice return () -- function gdk_drag_abort -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drag_abort" gdk_drag_abort :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" Word32 -> -- time_ : TBasicType TUInt32 IO () dragAbort :: (MonadIO m, DragContextK a) => a -> -- context Word32 -> -- time_ m () dragAbort context time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context gdk_drag_abort context' time_ touchManagedPtr context return () -- function gdk_drag_begin -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragContext" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_begin" gdk_drag_begin :: Ptr Window -> -- window : TInterface "Gdk" "Window" Ptr (GList (Ptr Atom)) -> -- targets : TGList (TInterface "Gdk" "Atom") IO (Ptr DragContext) dragBegin :: (MonadIO m, WindowK a) => a -> -- window [Atom] -> -- targets m DragContext dragBegin window targets = liftIO $ do let window' = unsafeManagedPtrCastPtr window let targets' = map unsafeManagedPtrGetPtr targets targets'' <- packGList targets' result <- gdk_drag_begin window' targets'' checkUnexpectedReturnNULL "gdk_drag_begin" result result' <- (wrapObject DragContext) result touchManagedPtr window mapM_ touchManagedPtr targets g_list_free targets'' return result' -- function gdk_drag_begin_for_device -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "DragContext" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_begin_for_device" gdk_drag_begin_for_device :: Ptr Window -> -- window : TInterface "Gdk" "Window" Ptr Device -> -- device : TInterface "Gdk" "Device" Ptr (GList (Ptr Atom)) -> -- targets : TGList (TInterface "Gdk" "Atom") IO (Ptr DragContext) dragBeginForDevice :: (MonadIO m, WindowK a, DeviceK b) => a -> -- window b -> -- device [Atom] -> -- targets m DragContext dragBeginForDevice window device targets = liftIO $ do let window' = unsafeManagedPtrCastPtr window let device' = unsafeManagedPtrCastPtr device let targets' = map unsafeManagedPtrGetPtr targets targets'' <- packGList targets' result <- gdk_drag_begin_for_device window' device' targets'' checkUnexpectedReturnNULL "gdk_drag_begin_for_device" result result' <- (wrapObject DragContext) result touchManagedPtr window touchManagedPtr device mapM_ touchManagedPtr targets g_list_free targets'' return result' -- function gdk_drag_drop -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drag_drop" gdk_drag_drop :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" Word32 -> -- time_ : TBasicType TUInt32 IO () dragDrop :: (MonadIO m, DragContextK a) => a -> -- context Word32 -> -- time_ m () dragDrop context time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context gdk_drag_drop context' time_ touchManagedPtr context return () -- function gdk_drag_drop_succeeded -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_drag_drop_succeeded" gdk_drag_drop_succeeded :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" IO CInt dragDropSucceeded :: (MonadIO m, DragContextK a) => a -> -- context m Bool dragDropSucceeded context = liftIO $ do let context' = unsafeManagedPtrCastPtr context result <- gdk_drag_drop_succeeded context' let result' = (/= 0) result touchManagedPtr context return result' -- function gdk_drag_find_window_for_screen -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drag_find_window_for_screen" gdk_drag_find_window_for_screen :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Window -> -- drag_window : TInterface "Gdk" "Window" Ptr Screen -> -- screen : TInterface "Gdk" "Screen" Int32 -> -- x_root : TBasicType TInt32 Int32 -> -- y_root : TBasicType TInt32 Ptr (Ptr Window) -> -- dest_window : TInterface "Gdk" "Window" Ptr CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" IO () dragFindWindowForScreen :: (MonadIO m, DragContextK a, WindowK b, ScreenK c) => a -> -- context b -> -- drag_window c -> -- screen Int32 -> -- x_root Int32 -> -- y_root m (Window,DragProtocol) dragFindWindowForScreen context drag_window screen x_root y_root = liftIO $ do let context' = unsafeManagedPtrCastPtr context let drag_window' = unsafeManagedPtrCastPtr drag_window let screen' = unsafeManagedPtrCastPtr screen dest_window <- allocMem :: IO (Ptr (Ptr Window)) protocol <- allocMem :: IO (Ptr CUInt) gdk_drag_find_window_for_screen context' drag_window' screen' x_root y_root dest_window protocol dest_window' <- peek dest_window dest_window'' <- (wrapObject Window) dest_window' protocol' <- peek protocol let protocol'' = (toEnum . fromIntegral) protocol' touchManagedPtr context touchManagedPtr drag_window touchManagedPtr screen freeMem dest_window freeMem protocol return (dest_window'', protocol'') -- function gdk_drag_get_selection -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Atom" -- throws : False -- Skip return : False foreign import ccall "gdk_drag_get_selection" gdk_drag_get_selection :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" IO (Ptr Atom) dragGetSelection :: (MonadIO m, DragContextK a) => a -> -- context m Atom dragGetSelection context = liftIO $ do let context' = unsafeManagedPtrCastPtr context result <- gdk_drag_get_selection context' checkUnexpectedReturnNULL "gdk_drag_get_selection" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result touchManagedPtr context return result' -- function gdk_drag_motion -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_drag_motion" gdk_drag_motion :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Window -> -- dest_window : TInterface "Gdk" "Window" CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" Int32 -> -- x_root : TBasicType TInt32 Int32 -> -- y_root : TBasicType TInt32 CUInt -> -- suggested_action : TInterface "Gdk" "DragAction" CUInt -> -- possible_actions : TInterface "Gdk" "DragAction" Word32 -> -- time_ : TBasicType TUInt32 IO CInt dragMotion :: (MonadIO m, DragContextK a, WindowK b) => a -> -- context b -> -- dest_window DragProtocol -> -- protocol Int32 -> -- x_root Int32 -> -- y_root [DragAction] -> -- suggested_action [DragAction] -> -- possible_actions Word32 -> -- time_ m Bool dragMotion context dest_window protocol x_root y_root suggested_action possible_actions time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let dest_window' = unsafeManagedPtrCastPtr dest_window let protocol' = (fromIntegral . fromEnum) protocol let suggested_action' = gflagsToWord suggested_action let possible_actions' = gflagsToWord possible_actions result <- gdk_drag_motion context' dest_window' protocol' x_root y_root suggested_action' possible_actions' time_ let result' = (/= 0) result touchManagedPtr context touchManagedPtr dest_window return result' -- function gdk_drag_status -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drag_status" gdk_drag_status :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" CUInt -> -- action : TInterface "Gdk" "DragAction" Word32 -> -- time_ : TBasicType TUInt32 IO () dragStatus :: (MonadIO m, DragContextK a) => a -> -- context [DragAction] -> -- action Word32 -> -- time_ m () dragStatus context action time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let action' = gflagsToWord action gdk_drag_status context' action' time_ touchManagedPtr context return () -- function gdk_drop_finish -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drop_finish" gdk_drop_finish :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" CInt -> -- success : TBasicType TBoolean Word32 -> -- time_ : TBasicType TUInt32 IO () dropFinish :: (MonadIO m, DragContextK a) => a -> -- context Bool -> -- success Word32 -> -- time_ m () dropFinish context success time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let success' = (fromIntegral . fromEnum) success gdk_drop_finish context' success' time_ touchManagedPtr context return () -- function gdk_drop_reply -- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_drop_reply" gdk_drop_reply :: Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" CInt -> -- accepted : TBasicType TBoolean Word32 -> -- time_ : TBasicType TUInt32 IO () dropReply :: (MonadIO m, DragContextK a) => a -> -- context Bool -> -- accepted Word32 -> -- time_ m () dropReply context accepted time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let accepted' = (fromIntegral . fromEnum) accepted gdk_drop_reply context' accepted' time_ touchManagedPtr context return () -- function gdk_error_trap_pop -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_error_trap_pop" gdk_error_trap_pop :: IO Int32 errorTrapPop :: (MonadIO m) => m Int32 errorTrapPop = liftIO $ do result <- gdk_error_trap_pop return result -- function gdk_error_trap_pop_ignored -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_error_trap_pop_ignored" gdk_error_trap_pop_ignored :: IO () errorTrapPopIgnored :: (MonadIO m) => m () errorTrapPopIgnored = liftIO $ do gdk_error_trap_pop_ignored return () -- function gdk_error_trap_push -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: IO () errorTrapPush :: (MonadIO m) => m () errorTrapPush = liftIO $ do gdk_error_trap_push return () -- function gdk_event_get -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_event_get" gdk_event_get :: IO (Ptr Event) eventGet :: (MonadIO m) => m Event eventGet = liftIO $ do result <- gdk_event_get checkUnexpectedReturnNULL "gdk_event_get" result result' <- (wrapBoxed Event) result return result' -- function gdk_event_handler_set -- Args : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_handler_set" gdk_event_handler_set :: FunPtr EventFuncC -> -- func : TInterface "Gdk" "EventFunc" Ptr () -> -- data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () eventHandlerSet :: (MonadIO m) => EventFunc -> -- func m () eventHandlerSet func = liftIO $ do func' <- mkEventFunc (eventFuncWrapper Nothing func) let data_ = castFunPtrToPtr func' let notify = safeFreeFunPtrPtr gdk_event_handler_set func' data_ notify return () -- function gdk_event_peek -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Event" -- throws : False -- Skip return : False foreign import ccall "gdk_event_peek" gdk_event_peek :: IO (Ptr Event) eventPeek :: (MonadIO m) => m Event eventPeek = liftIO $ do result <- gdk_event_peek checkUnexpectedReturnNULL "gdk_event_peek" result result' <- (wrapBoxed Event) result return result' -- function gdk_event_request_motions -- Args : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_event_request_motions" gdk_event_request_motions :: Ptr EventMotion -> -- event : TInterface "Gdk" "EventMotion" IO () eventRequestMotions :: (MonadIO m) => EventMotion -> -- event m () eventRequestMotions event = liftIO $ do let event' = unsafeManagedPtrGetPtr event gdk_event_request_motions event' touchManagedPtr event return () -- function gdk_events_get_angle -- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_events_get_angle" gdk_events_get_angle :: Ptr Event -> -- event1 : TInterface "Gdk" "Event" Ptr Event -> -- event2 : TInterface "Gdk" "Event" Ptr CDouble -> -- angle : TBasicType TDouble IO CInt eventsGetAngle :: (MonadIO m) => Event -> -- event1 Event -> -- event2 m (Bool,Double) eventsGetAngle event1 event2 = liftIO $ do let event1' = unsafeManagedPtrGetPtr event1 let event2' = unsafeManagedPtrGetPtr event2 angle <- allocMem :: IO (Ptr CDouble) result <- gdk_events_get_angle event1' event2' angle let result' = (/= 0) result angle' <- peek angle let angle'' = realToFrac angle' touchManagedPtr event1 touchManagedPtr event2 freeMem angle return (result', angle'') -- function gdk_events_get_center -- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_events_get_center" gdk_events_get_center :: Ptr Event -> -- event1 : TInterface "Gdk" "Event" Ptr Event -> -- event2 : TInterface "Gdk" "Event" Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble IO CInt eventsGetCenter :: (MonadIO m) => Event -> -- event1 Event -> -- event2 m (Bool,Double,Double) eventsGetCenter event1 event2 = liftIO $ do let event1' = unsafeManagedPtrGetPtr event1 let event2' = unsafeManagedPtrGetPtr event2 x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) result <- gdk_events_get_center event1' event2' x y let result' = (/= 0) result x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' touchManagedPtr event1 touchManagedPtr event2 freeMem x freeMem y return (result', x'', y'') -- function gdk_events_get_distance -- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_events_get_distance" gdk_events_get_distance :: Ptr Event -> -- event1 : TInterface "Gdk" "Event" Ptr Event -> -- event2 : TInterface "Gdk" "Event" Ptr CDouble -> -- distance : TBasicType TDouble IO CInt eventsGetDistance :: (MonadIO m) => Event -> -- event1 Event -> -- event2 m (Bool,Double) eventsGetDistance event1 event2 = liftIO $ do let event1' = unsafeManagedPtrGetPtr event1 let event2' = unsafeManagedPtrGetPtr event2 distance <- allocMem :: IO (Ptr CDouble) result <- gdk_events_get_distance event1' event2' distance let result' = (/= 0) result distance' <- peek distance let distance'' = realToFrac distance' touchManagedPtr event1 touchManagedPtr event2 freeMem distance return (result', distance'') -- function gdk_events_pending -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_events_pending" gdk_events_pending :: IO CInt eventsPending :: (MonadIO m) => m Bool eventsPending = liftIO $ do result <- gdk_events_pending let result' = (/= 0) result return result' -- function gdk_flush -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_flush" gdk_flush :: IO () flush :: (MonadIO m) => m () flush = liftIO $ do gdk_flush return () -- function gdk_get_default_root_window -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_get_default_root_window" gdk_get_default_root_window :: IO (Ptr Window) getDefaultRootWindow :: (MonadIO m) => m Window getDefaultRootWindow = liftIO $ do result <- gdk_get_default_root_window checkUnexpectedReturnNULL "gdk_get_default_root_window" result result' <- (newObject Window) result return result' -- function gdk_get_display -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_get_display" gdk_get_display :: IO CString {-# DEPRECATED getDisplay ["(Since version 3.8)","Call gdk_display_get_name (gdk_display_get_default ()))"," instead."]#-} getDisplay :: (MonadIO m) => m T.Text getDisplay = liftIO $ do result <- gdk_get_display checkUnexpectedReturnNULL "gdk_get_display" result result' <- cstringToText result freeMem result return result' -- function gdk_get_display_arg_name -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_get_display_arg_name" gdk_get_display_arg_name :: IO CString getDisplayArgName :: (MonadIO m) => m T.Text getDisplayArgName = liftIO $ do result <- gdk_get_display_arg_name checkUnexpectedReturnNULL "gdk_get_display_arg_name" result result' <- cstringToText result return result' -- function gdk_get_program_class -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_get_program_class" gdk_get_program_class :: IO CString getProgramClass :: (MonadIO m) => m T.Text getProgramClass = liftIO $ do result <- gdk_get_program_class checkUnexpectedReturnNULL "gdk_get_program_class" result result' <- cstringToText result return result' -- function gdk_get_show_events -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_get_show_events" gdk_get_show_events :: IO CInt getShowEvents :: (MonadIO m) => m Bool getShowEvents = liftIO $ do result <- gdk_get_show_events let result' = (/= 0) result return result' -- function gdk_gl_error_quark -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_gl_error_quark" gdk_gl_error_quark :: IO Word32 glErrorQuark :: (MonadIO m) => m Word32 glErrorQuark = liftIO $ do result <- gdk_gl_error_quark return result -- function gdk_init -- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_init" gdk_init :: Ptr Int32 -> -- argc : TBasicType TInt32 Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO () init :: (MonadIO m) => [T.Text] -> -- argv m ([T.Text]) init argv = liftIO $ do let argc = fromIntegral $ length argv argc' <- allocMem :: IO (Ptr Int32) poke argc' argc argv' <- packUTF8CArray argv argv'' <- allocMem :: IO (Ptr (Ptr CString)) poke argv'' argv' gdk_init argc' argv'' argc'' <- peek argc' argv''' <- peek argv'' argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' (mapCArrayWithLength argc'') freeMem argv''' freeMem argv''' freeMem argc' freeMem argv'' return argv'''' -- function gdk_init_check -- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_init_check" gdk_init_check :: Ptr Int32 -> -- argc : TBasicType TInt32 Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO CInt initCheck :: (MonadIO m) => [T.Text] -> -- argv m (Bool,[T.Text]) initCheck argv = liftIO $ do let argc = fromIntegral $ length argv argc' <- allocMem :: IO (Ptr Int32) poke argc' argc argv' <- packUTF8CArray argv argv'' <- allocMem :: IO (Ptr (Ptr CString)) poke argv'' argv' result <- gdk_init_check argc' argv'' argc'' <- peek argc' let result' = (/= 0) result argv''' <- peek argv'' argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' (mapCArrayWithLength argc'') freeMem argv''' freeMem argv''' freeMem argc' freeMem argv'' return (result', argv'''') -- function gdk_keyboard_grab -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GrabStatus" -- throws : False -- Skip return : False foreign import ccall "gdk_keyboard_grab" gdk_keyboard_grab :: Ptr Window -> -- window : TInterface "Gdk" "Window" CInt -> -- owner_events : TBasicType TBoolean Word32 -> -- time_ : TBasicType TUInt32 IO CUInt {-# DEPRECATED keyboardGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-} keyboardGrab :: (MonadIO m, WindowK a) => a -> -- window Bool -> -- owner_events Word32 -> -- time_ m GrabStatus keyboardGrab window owner_events time_ = liftIO $ do let window' = unsafeManagedPtrCastPtr window let owner_events' = (fromIntegral . fromEnum) owner_events result <- gdk_keyboard_grab window' owner_events' time_ let result' = (toEnum . fromIntegral) result touchManagedPtr window return result' -- function gdk_keyboard_ungrab -- Args : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_keyboard_ungrab" gdk_keyboard_ungrab :: Word32 -> -- time_ : TBasicType TUInt32 IO () {-# DEPRECATED keyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} keyboardUngrab :: (MonadIO m) => Word32 -> -- time_ m () keyboardUngrab time_ = liftIO $ do gdk_keyboard_ungrab time_ return () -- function gdk_keyval_convert_case -- Args : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "upper", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_convert_case" gdk_keyval_convert_case :: Word32 -> -- symbol : TBasicType TUInt32 Ptr Word32 -> -- lower : TBasicType TUInt32 Ptr Word32 -> -- upper : TBasicType TUInt32 IO () keyvalConvertCase :: (MonadIO m) => Word32 -> -- symbol m (Word32,Word32) keyvalConvertCase symbol = liftIO $ do lower <- allocMem :: IO (Ptr Word32) upper <- allocMem :: IO (Ptr Word32) gdk_keyval_convert_case symbol lower upper lower' <- peek lower upper' <- peek upper freeMem lower freeMem upper return (lower', upper') -- function gdk_keyval_from_name -- Args : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_from_name" gdk_keyval_from_name :: CString -> -- keyval_name : TBasicType TUTF8 IO Word32 keyvalFromName :: (MonadIO m) => T.Text -> -- keyval_name m Word32 keyvalFromName keyval_name = liftIO $ do keyval_name' <- textToCString keyval_name result <- gdk_keyval_from_name keyval_name' freeMem keyval_name' return result -- function gdk_keyval_is_lower -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: Word32 -> -- keyval : TBasicType TUInt32 IO CInt keyvalIsLower :: (MonadIO m) => Word32 -> -- keyval m Bool keyvalIsLower keyval = liftIO $ do result <- gdk_keyval_is_lower keyval let result' = (/= 0) result return result' -- function gdk_keyval_is_upper -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: Word32 -> -- keyval : TBasicType TUInt32 IO CInt keyvalIsUpper :: (MonadIO m) => Word32 -> -- keyval m Bool keyvalIsUpper keyval = liftIO $ do result <- gdk_keyval_is_upper keyval let result' = (/= 0) result return result' -- function gdk_keyval_name -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_name" gdk_keyval_name :: Word32 -> -- keyval : TBasicType TUInt32 IO CString keyvalName :: (MonadIO m) => Word32 -> -- keyval m T.Text keyvalName keyval = liftIO $ do result <- gdk_keyval_name keyval checkUnexpectedReturnNULL "gdk_keyval_name" result result' <- cstringToText result return result' -- function gdk_keyval_to_lower -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: Word32 -> -- keyval : TBasicType TUInt32 IO Word32 keyvalToLower :: (MonadIO m) => Word32 -> -- keyval m Word32 keyvalToLower keyval = liftIO $ do result <- gdk_keyval_to_lower keyval return result -- function gdk_keyval_to_unicode -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: Word32 -> -- keyval : TBasicType TUInt32 IO Word32 keyvalToUnicode :: (MonadIO m) => Word32 -> -- keyval m Word32 keyvalToUnicode keyval = liftIO $ do result <- gdk_keyval_to_unicode keyval return result -- function gdk_keyval_to_upper -- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: Word32 -> -- keyval : TBasicType TUInt32 IO Word32 keyvalToUpper :: (MonadIO m) => Word32 -> -- keyval m Word32 keyvalToUpper keyval = liftIO $ do result <- gdk_keyval_to_upper keyval return result -- function gdk_list_visuals -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TGList (TInterface "Gdk" "Visual") -- throws : False -- Skip return : False foreign import ccall "gdk_list_visuals" gdk_list_visuals :: IO (Ptr (GList (Ptr Visual))) listVisuals :: (MonadIO m) => m [Visual] listVisuals = liftIO $ do result <- gdk_list_visuals checkUnexpectedReturnNULL "gdk_list_visuals" result result' <- unpackGList result result'' <- mapM (newObject Visual) result' g_list_free result return result'' -- function gdk_notify_startup_complete -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: IO () notifyStartupComplete :: (MonadIO m) => m () notifyStartupComplete = liftIO $ do gdk_notify_startup_complete return () -- function gdk_notify_startup_complete_with_id -- Args : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_notify_startup_complete_with_id" gdk_notify_startup_complete_with_id :: CString -> -- startup_id : TBasicType TUTF8 IO () notifyStartupCompleteWithId :: (MonadIO m) => T.Text -> -- startup_id m () notifyStartupCompleteWithId startup_id = liftIO $ do startup_id' <- textToCString startup_id gdk_notify_startup_complete_with_id startup_id' freeMem startup_id' return () -- function gdk_offscreen_window_get_embedder -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_offscreen_window_get_embedder" gdk_offscreen_window_get_embedder :: Ptr Window -> -- window : TInterface "Gdk" "Window" IO (Ptr Window) offscreenWindowGetEmbedder :: (MonadIO m, WindowK a) => a -> -- window m Window offscreenWindowGetEmbedder window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_offscreen_window_get_embedder window' checkUnexpectedReturnNULL "gdk_offscreen_window_get_embedder" result result' <- (newObject Window) result touchManagedPtr window return result' -- function gdk_offscreen_window_get_surface -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "cairo" "Surface" -- throws : False -- Skip return : False foreign import ccall "gdk_offscreen_window_get_surface" gdk_offscreen_window_get_surface :: Ptr Window -> -- window : TInterface "Gdk" "Window" IO (Ptr Cairo.Surface) offscreenWindowGetSurface :: (MonadIO m, WindowK a) => a -> -- window m Cairo.Surface offscreenWindowGetSurface window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_offscreen_window_get_surface window' checkUnexpectedReturnNULL "gdk_offscreen_window_get_surface" result result' <- (newBoxed Cairo.Surface) result touchManagedPtr window return result' -- function gdk_offscreen_window_set_embedder -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_offscreen_window_set_embedder" gdk_offscreen_window_set_embedder :: Ptr Window -> -- window : TInterface "Gdk" "Window" Ptr Window -> -- embedder : TInterface "Gdk" "Window" IO () offscreenWindowSetEmbedder :: (MonadIO m, WindowK a, WindowK b) => a -> -- window b -> -- embedder m () offscreenWindowSetEmbedder window embedder = liftIO $ do let window' = unsafeManagedPtrCastPtr window let embedder' = unsafeManagedPtrCastPtr embedder gdk_offscreen_window_set_embedder window' embedder' touchManagedPtr window touchManagedPtr embedder return () -- function gdk_pango_context_get -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TInterface "Pango" "Context" -- throws : False -- Skip return : False foreign import ccall "gdk_pango_context_get" gdk_pango_context_get :: IO (Ptr Pango.Context) pangoContextGet :: (MonadIO m) => m Pango.Context pangoContextGet = liftIO $ do result <- gdk_pango_context_get checkUnexpectedReturnNULL "gdk_pango_context_get" result result' <- (wrapObject Pango.Context) result return result' -- function gdk_pango_context_get_for_screen -- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Pango" "Context" -- throws : False -- Skip return : False foreign import ccall "gdk_pango_context_get_for_screen" gdk_pango_context_get_for_screen :: Ptr Screen -> -- screen : TInterface "Gdk" "Screen" IO (Ptr Pango.Context) pangoContextGetForScreen :: (MonadIO m, ScreenK a) => a -> -- screen m Pango.Context pangoContextGetForScreen screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen result <- gdk_pango_context_get_for_screen screen' checkUnexpectedReturnNULL "gdk_pango_context_get_for_screen" result result' <- (wrapObject Pango.Context) result touchManagedPtr screen return result' -- function gdk_parse_args -- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_parse_args" gdk_parse_args :: Ptr Int32 -> -- argc : TBasicType TInt32 Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO () parseArgs :: (MonadIO m) => [T.Text] -> -- argv m ([T.Text]) parseArgs argv = liftIO $ do let argc = fromIntegral $ length argv argc' <- allocMem :: IO (Ptr Int32) poke argc' argc argv' <- packUTF8CArray argv argv'' <- allocMem :: IO (Ptr (Ptr CString)) poke argv'' argv' gdk_parse_args argc' argv'' argc'' <- peek argc' argv''' <- peek argv'' argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' (mapCArrayWithLength argc'') freeMem argv''' freeMem argv''' freeMem argc' freeMem argv'' return argv'''' -- function gdk_pixbuf_get_from_surface -- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False foreign import ccall "gdk_pixbuf_get_from_surface" gdk_pixbuf_get_from_surface :: Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" Int32 -> -- src_x : TBasicType TInt32 Int32 -> -- src_y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO (Ptr GdkPixbuf.Pixbuf) pixbufGetFromSurface :: (MonadIO m) => Cairo.Surface -> -- surface Int32 -> -- src_x Int32 -> -- src_y Int32 -> -- width Int32 -> -- height m GdkPixbuf.Pixbuf pixbufGetFromSurface surface src_x src_y width height = liftIO $ do let surface' = unsafeManagedPtrGetPtr surface result <- gdk_pixbuf_get_from_surface surface' src_x src_y width height checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr surface return result' -- function gdk_pixbuf_get_from_window -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False foreign import ccall "gdk_pixbuf_get_from_window" gdk_pixbuf_get_from_window :: Ptr Window -> -- window : TInterface "Gdk" "Window" Int32 -> -- src_x : TBasicType TInt32 Int32 -> -- src_y : TBasicType TInt32 Int32 -> -- width : TBasicType TInt32 Int32 -> -- height : TBasicType TInt32 IO (Ptr GdkPixbuf.Pixbuf) pixbufGetFromWindow :: (MonadIO m, WindowK a) => a -> -- window Int32 -> -- src_x Int32 -> -- src_y Int32 -> -- width Int32 -> -- height m GdkPixbuf.Pixbuf pixbufGetFromWindow window src_x src_y width height = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_pixbuf_get_from_window window' src_x src_y width height checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr window return result' -- function gdk_pointer_grab -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "GrabStatus" -- throws : False -- Skip return : False foreign import ccall "gdk_pointer_grab" gdk_pointer_grab :: Ptr Window -> -- window : TInterface "Gdk" "Window" CInt -> -- owner_events : TBasicType TBoolean CUInt -> -- event_mask : TInterface "Gdk" "EventMask" Ptr Window -> -- confine_to : TInterface "Gdk" "Window" Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" Word32 -> -- time_ : TBasicType TUInt32 IO CUInt {-# DEPRECATED pointerGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-} pointerGrab :: (MonadIO m, WindowK a, WindowK b, CursorK c) => a -> -- window Bool -> -- owner_events [EventMask] -> -- event_mask Maybe (b) -> -- confine_to Maybe (c) -> -- cursor Word32 -> -- time_ m GrabStatus pointerGrab window owner_events event_mask confine_to cursor time_ = liftIO $ do let window' = unsafeManagedPtrCastPtr window let owner_events' = (fromIntegral . fromEnum) owner_events let event_mask' = gflagsToWord event_mask maybeConfine_to <- case confine_to of Nothing -> return nullPtr Just jConfine_to -> do let jConfine_to' = unsafeManagedPtrCastPtr jConfine_to return jConfine_to' maybeCursor <- case cursor of Nothing -> return nullPtr Just jCursor -> do let jCursor' = unsafeManagedPtrCastPtr jCursor return jCursor' result <- gdk_pointer_grab window' owner_events' event_mask' maybeConfine_to maybeCursor time_ let result' = (toEnum . fromIntegral) result touchManagedPtr window whenJust confine_to touchManagedPtr whenJust cursor touchManagedPtr return result' -- function gdk_pointer_is_grabbed -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_pointer_is_grabbed" gdk_pointer_is_grabbed :: IO CInt {-# DEPRECATED pointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-} pointerIsGrabbed :: (MonadIO m) => m Bool pointerIsGrabbed = liftIO $ do result <- gdk_pointer_is_grabbed let result' = (/= 0) result return result' -- function gdk_pointer_ungrab -- Args : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_pointer_ungrab" gdk_pointer_ungrab :: Word32 -> -- time_ : TBasicType TUInt32 IO () {-# DEPRECATED pointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} pointerUngrab :: (MonadIO m) => Word32 -> -- time_ m () pointerUngrab time_ = liftIO $ do gdk_pointer_ungrab time_ return () -- function gdk_pre_parse_libgtk_only -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_pre_parse_libgtk_only" gdk_pre_parse_libgtk_only :: IO () {-# DEPRECATED preParseLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} preParseLibgtkOnly :: (MonadIO m) => m () preParseLibgtkOnly = liftIO $ do gdk_pre_parse_libgtk_only return () -- function gdk_property_delete -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_property_delete" gdk_property_delete :: Ptr Window -> -- window : TInterface "Gdk" "Window" Ptr Atom -> -- property : TInterface "Gdk" "Atom" IO () propertyDelete :: (MonadIO m, WindowK a) => a -> -- window Atom -> -- property m () propertyDelete window property = liftIO $ do let window' = unsafeManagedPtrCastPtr window let property' = unsafeManagedPtrGetPtr property gdk_property_delete window' property' touchManagedPtr window touchManagedPtr property return () -- function gdk_property_get -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_format", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_property_get" gdk_property_get :: Ptr Window -> -- window : TInterface "Gdk" "Window" Ptr Atom -> -- property : TInterface "Gdk" "Atom" Ptr Atom -> -- type : TInterface "Gdk" "Atom" Word64 -> -- offset : TBasicType TUInt64 Word64 -> -- length : TBasicType TUInt64 Int32 -> -- pdelete : TBasicType TInt32 Ptr (Ptr Atom) -> -- actual_property_type : TInterface "Gdk" "Atom" Ptr Int32 -> -- actual_format : TBasicType TInt32 Ptr Int32 -> -- actual_length : TBasicType TInt32 Ptr (Ptr Word8) -> -- data : TCArray False (-1) 8 (TBasicType TUInt8) IO CInt propertyGet :: (MonadIO m, WindowK a) => a -> -- window Atom -> -- property Atom -> -- type Word64 -> -- offset Word64 -> -- length Int32 -> -- pdelete m (Bool,Atom,Int32,ByteString) propertyGet window property type_ offset length_ pdelete = liftIO $ do let window' = unsafeManagedPtrCastPtr window let property' = unsafeManagedPtrGetPtr property let type_' = unsafeManagedPtrGetPtr type_ actual_property_type <- allocMem :: IO (Ptr (Ptr Atom)) actual_format <- allocMem :: IO (Ptr Int32) actual_length <- allocMem :: IO (Ptr Int32) data_ <- allocMem :: IO (Ptr (Ptr Word8)) result <- gdk_property_get window' property' type_' offset length_ pdelete actual_property_type actual_format actual_length data_ actual_length' <- peek actual_length let result' = (/= 0) result actual_property_type' <- peek actual_property_type -- XXX Wrapping a foreign struct/union with no known destructor, leak? actual_property_type'' <- (\x -> Atom <$> newForeignPtr_ x) actual_property_type' actual_format' <- peek actual_format data_' <- peek data_ data_'' <- (unpackByteStringWithLength actual_length') data_' freeMem data_' touchManagedPtr window touchManagedPtr property touchManagedPtr type_ freeMem actual_property_type freeMem actual_format freeMem actual_length freeMem data_ return (result', actual_property_type'', actual_format', data_'') -- function gdk_query_depths -- Args : [Arg {argName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_query_depths" gdk_query_depths :: Ptr (Ptr Int32) -> -- depths : TCArray False (-1) 1 (TBasicType TInt32) Ptr Int32 -> -- count : TBasicType TInt32 IO () queryDepths :: (MonadIO m) => m ([Int32]) queryDepths = liftIO $ do depths <- allocMem :: IO (Ptr (Ptr Int32)) count <- allocMem :: IO (Ptr Int32) gdk_query_depths depths count count' <- peek count depths' <- peek depths depths'' <- (unpackStorableArrayWithLength count') depths' freeMem depths freeMem count return depths'' -- function gdk_query_visual_types -- Args : [Arg {argName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_query_visual_types" gdk_query_visual_types :: Ptr (Ptr CUInt) -> -- visual_types : TCArray False (-1) 1 (TInterface "Gdk" "VisualType") Ptr Int32 -> -- count : TBasicType TInt32 IO () queryVisualTypes :: (MonadIO m) => m ([VisualType]) queryVisualTypes = liftIO $ do visual_types <- allocMem :: IO (Ptr (Ptr CUInt)) count <- allocMem :: IO (Ptr Int32) gdk_query_visual_types visual_types count count' <- peek count visual_types' <- peek visual_types visual_types'' <- (unpackStorableArrayWithLength count') visual_types' let visual_types''' = map (toEnum . fromIntegral) visual_types'' freeMem visual_types freeMem count return visual_types''' -- function gdk_rectangle_get_type -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TGType -- throws : False -- Skip return : False foreign import ccall "gdk_rectangle_get_type" gdk_rectangle_get_type :: IO CGType rectangleGetType :: (MonadIO m) => m GType rectangleGetType = liftIO $ do result <- gdk_rectangle_get_type let result' = GType result return result' -- function gdk_rectangle_intersect -- Args : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_rectangle_intersect" gdk_rectangle_intersect :: Ptr Cairo.RectangleInt -> -- src1 : TInterface "cairo" "RectangleInt" Ptr Cairo.RectangleInt -> -- src2 : TInterface "cairo" "RectangleInt" Ptr Cairo.RectangleInt -> -- dest : TInterface "cairo" "RectangleInt" IO CInt rectangleIntersect :: (MonadIO m) => Cairo.RectangleInt -> -- src1 Cairo.RectangleInt -> -- src2 m (Bool,Cairo.RectangleInt) rectangleIntersect src1 src2 = liftIO $ do let src1' = unsafeManagedPtrGetPtr src1 let src2' = unsafeManagedPtrGetPtr src2 dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) result <- gdk_rectangle_intersect src1' src2' dest let result' = (/= 0) result dest' <- (wrapBoxed Cairo.RectangleInt) dest touchManagedPtr src1 touchManagedPtr src2 return (result', dest') -- function gdk_rectangle_union -- Args : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_rectangle_union" gdk_rectangle_union :: Ptr Cairo.RectangleInt -> -- src1 : TInterface "cairo" "RectangleInt" Ptr Cairo.RectangleInt -> -- src2 : TInterface "cairo" "RectangleInt" Ptr Cairo.RectangleInt -> -- dest : TInterface "cairo" "RectangleInt" IO () rectangleUnion :: (MonadIO m) => Cairo.RectangleInt -> -- src1 Cairo.RectangleInt -> -- src2 m (Cairo.RectangleInt) rectangleUnion src1 src2 = liftIO $ do let src1' = unsafeManagedPtrGetPtr src1 let src2' = unsafeManagedPtrGetPtr src2 dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) gdk_rectangle_union src1' src2' dest dest' <- (wrapBoxed Cairo.RectangleInt) dest touchManagedPtr src1 touchManagedPtr src2 return dest' -- function gdk_selection_convert -- Args : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_selection_convert" gdk_selection_convert :: Ptr Window -> -- requestor : TInterface "Gdk" "Window" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" Ptr Atom -> -- target : TInterface "Gdk" "Atom" Word32 -> -- time_ : TBasicType TUInt32 IO () selectionConvert :: (MonadIO m, WindowK a) => a -> -- requestor Atom -> -- selection Atom -> -- target Word32 -> -- time_ m () selectionConvert requestor selection target time_ = liftIO $ do let requestor' = unsafeManagedPtrCastPtr requestor let selection' = unsafeManagedPtrGetPtr selection let target' = unsafeManagedPtrGetPtr target gdk_selection_convert requestor' selection' target' time_ touchManagedPtr requestor touchManagedPtr selection touchManagedPtr target return () -- function gdk_selection_owner_get -- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_selection_owner_get" gdk_selection_owner_get :: Ptr Atom -> -- selection : TInterface "Gdk" "Atom" IO (Ptr Window) selectionOwnerGet :: (MonadIO m) => Atom -> -- selection m Window selectionOwnerGet selection = liftIO $ do let selection' = unsafeManagedPtrGetPtr selection result <- gdk_selection_owner_get selection' checkUnexpectedReturnNULL "gdk_selection_owner_get" result result' <- (newObject Window) result touchManagedPtr selection return result' -- function gdk_selection_owner_get_for_display -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Gdk" "Window" -- throws : False -- Skip return : False foreign import ccall "gdk_selection_owner_get_for_display" gdk_selection_owner_get_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" IO (Ptr Window) selectionOwnerGetForDisplay :: (MonadIO m, DisplayK a) => a -> -- display Atom -> -- selection m Window selectionOwnerGetForDisplay display selection = liftIO $ do let display' = unsafeManagedPtrCastPtr display let selection' = unsafeManagedPtrGetPtr selection result <- gdk_selection_owner_get_for_display display' selection' checkUnexpectedReturnNULL "gdk_selection_owner_get_for_display" result result' <- (newObject Window) result touchManagedPtr display touchManagedPtr selection return result' -- function gdk_selection_owner_set -- Args : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_selection_owner_set" gdk_selection_owner_set :: Ptr Window -> -- owner : TInterface "Gdk" "Window" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" Word32 -> -- time_ : TBasicType TUInt32 CInt -> -- send_event : TBasicType TBoolean IO CInt selectionOwnerSet :: (MonadIO m, WindowK a) => Maybe (a) -> -- owner Atom -> -- selection Word32 -> -- time_ Bool -> -- send_event m Bool selectionOwnerSet owner selection time_ send_event = liftIO $ do maybeOwner <- case owner of Nothing -> return nullPtr Just jOwner -> do let jOwner' = unsafeManagedPtrCastPtr jOwner return jOwner' let selection' = unsafeManagedPtrGetPtr selection let send_event' = (fromIntegral . fromEnum) send_event result <- gdk_selection_owner_set maybeOwner selection' time_ send_event' let result' = (/= 0) result whenJust owner touchManagedPtr touchManagedPtr selection return result' -- function gdk_selection_owner_set_for_display -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_selection_owner_set_for_display" gdk_selection_owner_set_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Window -> -- owner : TInterface "Gdk" "Window" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" Word32 -> -- time_ : TBasicType TUInt32 CInt -> -- send_event : TBasicType TBoolean IO CInt selectionOwnerSetForDisplay :: (MonadIO m, DisplayK a, WindowK b) => a -> -- display Maybe (b) -> -- owner Atom -> -- selection Word32 -> -- time_ Bool -> -- send_event m Bool selectionOwnerSetForDisplay display owner selection time_ send_event = liftIO $ do let display' = unsafeManagedPtrCastPtr display maybeOwner <- case owner of Nothing -> return nullPtr Just jOwner -> do let jOwner' = unsafeManagedPtrCastPtr jOwner return jOwner' let selection' = unsafeManagedPtrGetPtr selection let send_event' = (fromIntegral . fromEnum) send_event result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ send_event' let result' = (/= 0) result touchManagedPtr display whenJust owner touchManagedPtr touchManagedPtr selection return result' -- function gdk_selection_send_notify -- Args : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_selection_send_notify" gdk_selection_send_notify :: Ptr Window -> -- requestor : TInterface "Gdk" "Window" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" Ptr Atom -> -- target : TInterface "Gdk" "Atom" Ptr Atom -> -- property : TInterface "Gdk" "Atom" Word32 -> -- time_ : TBasicType TUInt32 IO () selectionSendNotify :: (MonadIO m, WindowK a) => a -> -- requestor Atom -> -- selection Atom -> -- target Atom -> -- property Word32 -> -- time_ m () selectionSendNotify requestor selection target property time_ = liftIO $ do let requestor' = unsafeManagedPtrCastPtr requestor let selection' = unsafeManagedPtrGetPtr selection let target' = unsafeManagedPtrGetPtr target let property' = unsafeManagedPtrGetPtr property gdk_selection_send_notify requestor' selection' target' property' time_ touchManagedPtr requestor touchManagedPtr selection touchManagedPtr target touchManagedPtr property return () -- function gdk_selection_send_notify_for_display -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_selection_send_notify_for_display" gdk_selection_send_notify_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Window -> -- requestor : TInterface "Gdk" "Window" Ptr Atom -> -- selection : TInterface "Gdk" "Atom" Ptr Atom -> -- target : TInterface "Gdk" "Atom" Ptr Atom -> -- property : TInterface "Gdk" "Atom" Word32 -> -- time_ : TBasicType TUInt32 IO () selectionSendNotifyForDisplay :: (MonadIO m, DisplayK a, WindowK b) => a -> -- display b -> -- requestor Atom -> -- selection Atom -> -- target Atom -> -- property Word32 -> -- time_ m () selectionSendNotifyForDisplay display requestor selection target property time_ = liftIO $ do let display' = unsafeManagedPtrCastPtr display let requestor' = unsafeManagedPtrCastPtr requestor let selection' = unsafeManagedPtrGetPtr selection let target' = unsafeManagedPtrGetPtr target let property' = unsafeManagedPtrGetPtr property gdk_selection_send_notify_for_display display' requestor' selection' target' property' time_ touchManagedPtr display touchManagedPtr requestor touchManagedPtr selection touchManagedPtr target touchManagedPtr property return () -- function gdk_set_allowed_backends -- Args : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_set_allowed_backends" gdk_set_allowed_backends :: CString -> -- backends : TBasicType TUTF8 IO () setAllowedBackends :: (MonadIO m) => T.Text -> -- backends m () setAllowedBackends backends = liftIO $ do backends' <- textToCString backends gdk_set_allowed_backends backends' freeMem backends' return () -- function gdk_set_double_click_time -- Args : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: Word32 -> -- msec : TBasicType TUInt32 IO () setDoubleClickTime :: (MonadIO m) => Word32 -> -- msec m () setDoubleClickTime msec = liftIO $ do gdk_set_double_click_time msec return () -- function gdk_set_program_class -- Args : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_set_program_class" gdk_set_program_class :: CString -> -- program_class : TBasicType TUTF8 IO () setProgramClass :: (MonadIO m) => T.Text -> -- program_class m () setProgramClass program_class = liftIO $ do program_class' <- textToCString program_class gdk_set_program_class program_class' freeMem program_class' return () -- function gdk_set_show_events -- Args : [Arg {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_set_show_events" gdk_set_show_events :: CInt -> -- show_events : TBasicType TBoolean IO () setShowEvents :: (MonadIO m) => Bool -> -- show_events m () setShowEvents show_events = liftIO $ do let show_events' = (fromIntegral . fromEnum) show_events gdk_set_show_events show_events' return () -- function gdk_setting_get -- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_setting_get" gdk_setting_get :: CString -> -- name : TBasicType TUTF8 Ptr GValue -> -- value : TInterface "GObject" "Value" IO CInt settingGet :: (MonadIO m) => T.Text -> -- name GValue -> -- value m Bool settingGet name value = liftIO $ do name' <- textToCString name let value' = unsafeManagedPtrGetPtr value result <- gdk_setting_get name' value' let result' = (/= 0) result touchManagedPtr value freeMem name' return result' -- function gdk_synthesize_window_state -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_synthesize_window_state" gdk_synthesize_window_state :: Ptr Window -> -- window : TInterface "Gdk" "Window" CUInt -> -- unset_flags : TInterface "Gdk" "WindowState" CUInt -> -- set_flags : TInterface "Gdk" "WindowState" IO () synthesizeWindowState :: (MonadIO m, WindowK a) => a -> -- window [WindowState] -> -- unset_flags [WindowState] -> -- set_flags m () synthesizeWindowState window unset_flags set_flags_ = liftIO $ do let window' = unsafeManagedPtrCastPtr window let unset_flags' = gflagsToWord unset_flags let set_flags_' = gflagsToWord set_flags_ gdk_synthesize_window_state window' unset_flags' set_flags_' touchManagedPtr window return () -- function gdk_test_render_sync -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_test_render_sync" gdk_test_render_sync :: Ptr Window -> -- window : TInterface "Gdk" "Window" IO () testRenderSync :: (MonadIO m, WindowK a) => a -> -- window m () testRenderSync window = liftIO $ do let window' = unsafeManagedPtrCastPtr window gdk_test_render_sync window' touchManagedPtr window return () -- function gdk_test_simulate_button -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_test_simulate_button" gdk_test_simulate_button :: Ptr Window -> -- window : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Word32 -> -- button : TBasicType TUInt32 CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" CUInt -> -- button_pressrelease : TInterface "Gdk" "EventType" IO CInt testSimulateButton :: (MonadIO m, WindowK a) => a -> -- window Int32 -> -- x Int32 -> -- y Word32 -> -- button [ModifierType] -> -- modifiers EventType -> -- button_pressrelease m Bool testSimulateButton window x y button modifiers button_pressrelease = liftIO $ do let window' = unsafeManagedPtrCastPtr window let modifiers' = gflagsToWord modifiers let button_pressrelease' = (fromIntegral . fromEnum) button_pressrelease result <- gdk_test_simulate_button window' x y button modifiers' button_pressrelease' let result' = (/= 0) result touchManagedPtr window return result' -- function gdk_test_simulate_key -- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "gdk_test_simulate_key" gdk_test_simulate_key :: Ptr Window -> -- window : TInterface "Gdk" "Window" Int32 -> -- x : TBasicType TInt32 Int32 -> -- y : TBasicType TInt32 Word32 -> -- keyval : TBasicType TUInt32 CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" CUInt -> -- key_pressrelease : TInterface "Gdk" "EventType" IO CInt testSimulateKey :: (MonadIO m, WindowK a) => a -> -- window Int32 -> -- x Int32 -> -- y Word32 -> -- keyval [ModifierType] -> -- modifiers EventType -> -- key_pressrelease m Bool testSimulateKey window x y keyval modifiers key_pressrelease = liftIO $ do let window' = unsafeManagedPtrCastPtr window let modifiers' = gflagsToWord modifiers let key_pressrelease' = (fromIntegral . fromEnum) key_pressrelease result <- gdk_test_simulate_key window' x y keyval modifiers' key_pressrelease' let result' = (/= 0) result touchManagedPtr window return result' -- function gdk_text_property_to_utf8_list_for_display -- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_text_property_to_utf8_list_for_display" gdk_text_property_to_utf8_list_for_display :: Ptr Display -> -- display : TInterface "Gdk" "Display" Ptr Atom -> -- encoding : TInterface "Gdk" "Atom" Int32 -> -- format : TBasicType TInt32 Ptr Word8 -> -- text : TCArray False (-1) 4 (TBasicType TUInt8) Int32 -> -- length : TBasicType TInt32 Ptr (Ptr CString) -> -- list : TCArray True (-1) (-1) (TBasicType TUTF8) IO Int32 textPropertyToUtf8ListForDisplay :: (MonadIO m, DisplayK a) => a -> -- display Atom -> -- encoding Int32 -> -- format ByteString -> -- text m (Int32,[T.Text]) textPropertyToUtf8ListForDisplay display encoding format text = liftIO $ do let length_ = fromIntegral $ B.length text let display' = unsafeManagedPtrCastPtr display let encoding' = unsafeManagedPtrGetPtr encoding text' <- packByteString text list <- allocMem :: IO (Ptr (Ptr CString)) result <- gdk_text_property_to_utf8_list_for_display display' encoding' format text' length_ list list' <- peek list list'' <- unpackZeroTerminatedUTF8CArray list' mapZeroTerminatedCArray freeMem list' freeMem list' touchManagedPtr display touchManagedPtr encoding freeMem text' freeMem list return (result, list'') -- function gdk_threads_add_idle_full -- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: Int32 -> -- priority : TBasicType TInt32 FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" Ptr () -> -- data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO Word32 threadsAddIdle :: (MonadIO m) => Int32 -> -- priority GLib.SourceFunc -> -- function m Word32 threadsAddIdle priority function = liftIO $ do function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) let data_ = castFunPtrToPtr function' let notify = safeFreeFunPtrPtr result <- gdk_threads_add_idle_full priority function' data_ notify return result -- function gdk_threads_add_timeout_full -- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: Int32 -> -- priority : TBasicType TInt32 Word32 -> -- interval : TBasicType TUInt32 FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" Ptr () -> -- data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO Word32 threadsAddTimeout :: (MonadIO m) => Int32 -> -- priority Word32 -> -- interval GLib.SourceFunc -> -- function m Word32 threadsAddTimeout priority interval function = liftIO $ do function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) let data_ = castFunPtrToPtr function' let notify = safeFreeFunPtrPtr result <- gdk_threads_add_timeout_full priority interval function' data_ notify return result -- function gdk_threads_add_timeout_seconds_full -- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: Int32 -> -- priority : TBasicType TInt32 Word32 -> -- interval : TBasicType TUInt32 FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" Ptr () -> -- data : TBasicType TVoid FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO Word32 threadsAddTimeoutSeconds :: (MonadIO m) => Int32 -> -- priority Word32 -> -- interval GLib.SourceFunc -> -- function m Word32 threadsAddTimeoutSeconds priority interval function = liftIO $ do function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) let data_ = castFunPtrToPtr function' let notify = safeFreeFunPtrPtr result <- gdk_threads_add_timeout_seconds_full priority interval function' data_ notify return result -- function gdk_threads_enter -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_threads_enter" gdk_threads_enter :: IO () {-# DEPRECATED threadsEnter ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} threadsEnter :: (MonadIO m) => m () threadsEnter = liftIO $ do gdk_threads_enter return () -- function gdk_threads_init -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_threads_init" gdk_threads_init :: IO () {-# DEPRECATED threadsInit ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} threadsInit :: (MonadIO m) => m () threadsInit = liftIO $ do gdk_threads_init return () -- function gdk_threads_leave -- Args : [] -- Lengths : [] -- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "gdk_threads_leave" gdk_threads_leave :: IO () {-# DEPRECATED threadsLeave ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} threadsLeave :: (MonadIO m) => m () threadsLeave = liftIO $ do gdk_threads_leave return () -- function gdk_unicode_to_keyval -- Args : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "gdk_unicode_to_keyval" gdk_unicode_to_keyval :: Word32 -> -- wc : TBasicType TUInt32 IO Word32 unicodeToKeyval :: (MonadIO m) => Word32 -> -- wc m Word32 unicodeToKeyval wc = liftIO $ do result <- gdk_unicode_to_keyval wc return result -- function gdk_utf8_to_string_target -- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "gdk_utf8_to_string_target" gdk_utf8_to_string_target :: CString -> -- str : TBasicType TUTF8 IO CString utf8ToStringTarget :: (MonadIO m) => T.Text -> -- str m T.Text utf8ToStringTarget str = liftIO $ do str' <- textToCString str result <- gdk_utf8_to_string_target str' checkUnexpectedReturnNULL "gdk_utf8_to_string_target" result result' <- cstringToText result freeMem result freeMem str' return result'