diff --git a/GI/Gdk.hs b/GI/Gdk.hs --- a/GI/Gdk.hs +++ b/GI/Gdk.hs @@ -1,27611 +1,40 @@ --- 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' - -eventReadTouchpadSwipe :: Event -> IO EventTouchpadSwipe -eventReadTouchpadSwipe s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadSwipe) - val' <- (newPtr 88 EventTouchpadSwipe) val - return val' - -eventReadTouchpadPinch :: Event -> IO EventTouchpadPinch -eventReadTouchpadPinch s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadPinch) - val' <- (newPtr 104 EventTouchpadPinch) 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 Rectangle -eventExposeReadArea s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO (Ptr Rectangle) - val' <- (newBoxed Rectangle) 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 - | EventMaskTouchpadGestureMask - | 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 EventMaskTouchpadGestureMask = 16777216 - 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 16777216 = EventMaskTouchpadGestureMask - 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' - --- struct EventTouchpadPinch -newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch) -noEventTouchpadPinch :: Maybe EventTouchpadPinch -noEventTouchpadPinch = Nothing - -eventTouchpadPinchReadType :: EventTouchpadPinch -> IO EventType -eventTouchpadPinchReadType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadPinchReadWindow :: EventTouchpadPinch -> IO Window -eventTouchpadPinchReadWindow s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - val' <- (newObject Window) val - return val' - -eventTouchpadPinchReadSendEvent :: EventTouchpadPinch -> IO Int8 -eventTouchpadPinchReadSendEvent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventTouchpadPinchReadPhase :: EventTouchpadPinch -> IO TouchpadGesturePhase -eventTouchpadPinchReadPhase s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadPinchReadNFingers :: EventTouchpadPinch -> IO Int8 -eventTouchpadPinchReadNFingers s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int8 - return val - -eventTouchpadPinchReadTime :: EventTouchpadPinch -> IO Word32 -eventTouchpadPinchReadTime s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -eventTouchpadPinchReadX :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadY :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadDx :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadDx s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadDy :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadDy s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadAngleDelta :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadAngleDelta s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadScale :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadScale s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadXRoot :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadXRoot s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadYRoot :: EventTouchpadPinch -> IO Double -eventTouchpadPinchReadYRoot s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchReadState :: EventTouchpadPinch -> IO [ModifierType] -eventTouchpadPinchReadState s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO CUInt - let val' = wordToGFlags val - return val' - --- struct EventTouchpadSwipe -newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe) -noEventTouchpadSwipe :: Maybe EventTouchpadSwipe -noEventTouchpadSwipe = Nothing - -eventTouchpadSwipeReadType :: EventTouchpadSwipe -> IO EventType -eventTouchpadSwipeReadType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadSwipeReadWindow :: EventTouchpadSwipe -> IO Window -eventTouchpadSwipeReadWindow s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - val' <- (newObject Window) val - return val' - -eventTouchpadSwipeReadSendEvent :: EventTouchpadSwipe -> IO Int8 -eventTouchpadSwipeReadSendEvent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventTouchpadSwipeReadPhase :: EventTouchpadSwipe -> IO TouchpadGesturePhase -eventTouchpadSwipeReadPhase s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadSwipeReadNFingers :: EventTouchpadSwipe -> IO Int8 -eventTouchpadSwipeReadNFingers s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int8 - return val - -eventTouchpadSwipeReadTime :: EventTouchpadSwipe -> IO Word32 -eventTouchpadSwipeReadTime s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -eventTouchpadSwipeReadX :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadY :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadDx :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadDx s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadDy :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadDy s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadXRoot :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadXRoot s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadYRoot :: EventTouchpadSwipe -> IO Double -eventTouchpadSwipeReadYRoot s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeReadState :: EventTouchpadSwipe -> IO [ModifierType] -eventTouchpadSwipeReadState s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CUInt - let val' = wordToGFlags 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 - | EventTypeTouchpadSwipe - | EventTypeTouchpadPinch - | 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 EventTypeTouchpadSwipe = 41 - fromEnum EventTypeTouchpadPinch = 42 - fromEnum EventTypeEventLast = 43 - 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 = EventTypeTouchpadSwipe - toEnum 42 = EventTypeTouchpadPinch - toEnum 43 = 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::get_scroll_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_scroll_lock_state" gdk_keymap_get_scroll_lock_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CInt - - -keymapGetScrollLockState :: - (MonadIO m, KeymapK a) => - a -> -- _obj - m Bool -keymapGetScrollLockState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_scroll_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 - | ModifierIntentDefaultModMask - | 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 ModifierIntentDefaultModMask = 6 - fromEnum (AnotherModifierIntent k) = k - - toEnum 0 = ModifierIntentPrimaryAccelerator - toEnum 1 = ModifierIntentContextMenu - toEnum 2 = ModifierIntentExtendSelection - toEnum 3 = ModifierIntentModifySelection - toEnum 4 = ModifierIntentNoTextInput - toEnum 5 = ModifierIntentShiftGroup - toEnum 6 = ModifierIntentDefaultModMask - 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' - --- struct Rectangle -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -noRectangle :: Maybe Rectangle -noRectangle = Nothing - -foreign import ccall "gdk_rectangle_get_type" c_gdk_rectangle_get_type :: - IO GType - -instance BoxedObject Rectangle where - boxedType _ = c_gdk_rectangle_get_type - -rectangleReadX :: Rectangle -> IO Int32 -rectangleReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -rectangleReadY :: Rectangle -> IO Int32 -rectangleReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -rectangleReadWidth :: Rectangle -> IO Int32 -rectangleReadWidth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -rectangleReadHeight :: Rectangle -> IO Int32 -rectangleReadHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - --- method Rectangle::intersect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", 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 Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO CInt - - -rectangleIntersect :: - (MonadIO m) => - Rectangle -> -- _obj - Rectangle -> -- src2 - m (Bool,Rectangle) -rectangleIntersect _obj src2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let src2' = unsafeManagedPtrGetPtr src2 - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - result <- gdk_rectangle_intersect _obj' src2' dest - let result' = (/= 0) result - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - touchManagedPtr src2 - return (result', dest') - --- method Rectangle::union --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", 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 Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -rectangleUnion :: - (MonadIO m) => - Rectangle -> -- _obj - Rectangle -> -- src2 - m (Rectangle) -rectangleUnion _obj src2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let src2' = unsafeManagedPtrGetPtr src2 - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_rectangle_union _obj' src2' dest - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - touchManagedPtr src2 - return dest' - --- 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 "Gdk" "Rectangle", 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 Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -screenGetMonitorGeometry :: - (MonadIO m, ScreenK a) => - a -> -- _obj - Int32 -> -- monitor_num - m (Rectangle) -screenGetMonitorGeometry _obj monitor_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_screen_get_monitor_geometry _obj' monitor_num dest - dest' <- (wrapBoxed Rectangle) 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 "Gdk" "Rectangle", 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 Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -screenGetMonitorWorkarea :: - (MonadIO m, ScreenK a) => - a -> -- _obj - Int32 -> -- monitor_num - m (Rectangle) -screenGetMonitorWorkarea _obj monitor_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_screen_get_monitor_workarea _obj' monitor_num dest - dest' <- (wrapBoxed Rectangle) 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 TouchpadGesturePhase - -data TouchpadGesturePhase = - TouchpadGesturePhaseBegin - | TouchpadGesturePhaseUpdate - | TouchpadGesturePhaseEnd - | TouchpadGesturePhaseCancel - | AnotherTouchpadGesturePhase Int - deriving (Show, Eq) - -instance Enum TouchpadGesturePhase where - fromEnum TouchpadGesturePhaseBegin = 0 - fromEnum TouchpadGesturePhaseUpdate = 1 - fromEnum TouchpadGesturePhaseEnd = 2 - fromEnum TouchpadGesturePhaseCancel = 3 - fromEnum (AnotherTouchpadGesturePhase k) = k - - toEnum 0 = TouchpadGesturePhaseBegin - toEnum 1 = TouchpadGesturePhaseUpdate - toEnum 2 = TouchpadGesturePhaseEnd - toEnum 3 = TouchpadGesturePhaseCancel - toEnum k = AnotherTouchpadGesturePhase k - -foreign import ccall "gdk_touchpad_gesture_phase_get_type" c_gdk_touchpad_gesture_phase_get_type :: - IO GType - -instance BoxedEnum TouchpadGesturePhase where - boxedEnumType _ = c_gdk_touchpad_gesture_phase_get_type - --- 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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" - IO () - - -windowBeginPaintRect :: - (MonadIO m, WindowK a) => - a -> -- _obj - Rectangle -> -- 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::fullscreen_on_monitor --- 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 = "monitor", 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 = "monitor", 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_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- monitor : TBasicType TInt32 - IO () - - -windowFullscreenOnMonitor :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- monitor - m () -windowFullscreenOnMonitor _obj monitor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_fullscreen_on_monitor _obj' monitor - 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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -windowGetFrameExtents :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Rectangle) -windowGetFrameExtents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_window_get_frame_extents _obj' rect - rect' <- (wrapBoxed Rectangle) 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_pass_through --- 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_pass_through" gdk_window_get_pass_through :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetPassThrough :: - (MonadIO m, WindowK a) => - a -> -- _obj - m Bool -windowGetPassThrough _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_pass_through _obj' - let result' = (/= 0) 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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - CInt -> -- invalidate_children : TBasicType TBoolean - IO () - - -windowInvalidateRect :: - (MonadIO m, WindowK a) => - a -> -- _obj - Maybe (Rectangle) -> -- 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_pass_through --- 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 = "pass_through", 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 = "pass_through", 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_pass_through" gdk_window_set_pass_through :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- pass_through : TBasicType TBoolean - IO () - - -windowSetPassThrough :: - (MonadIO m, WindowK a) => - a -> -- _obj - Bool -> -- pass_through - m () -windowSetPassThrough _obj pass_through = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pass_through' = (fromIntegral . fromEnum) pass_through - gdk_window_set_pass_through _obj' pass_through' - 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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -cairoGetClipRectangle :: - (MonadIO m) => - Cairo.Context -> -- cr - m (Bool,Rectangle) -cairoGetClipRectangle cr = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - result <- gdk_cairo_get_clip_rectangle cr' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Rectangle) 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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" - IO () - - -cairoRectangle :: - (MonadIO m) => - Cairo.Context -> -- cr - Rectangle -> -- 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_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' + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk + ( module GI.Gdk.Callbacks , + module GI.Gdk.Constants , + module GI.Gdk.Enums , + module GI.Gdk.Flags , + module GI.Gdk.Functions , + module GI.Gdk.Objects , + module GI.Gdk.Structs , + module GI.Gdk.Unions , + + + ) where + +import GI.Gdk.Callbacks +import GI.Gdk.Constants +import GI.Gdk.Enums +import GI.Gdk.Flags +import GI.Gdk.Functions +import GI.Gdk.Objects +import GI.Gdk.Structs +import GI.Gdk.Unions + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + diff --git a/GI/Gdk/Callbacks.hs b/GI/Gdk/Callbacks.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Callbacks.hs @@ -0,0 +1,196 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Callbacks + ( + + -- * Signals +-- ** EventFunc + EventFunc , + EventFuncC , + eventFuncClosure , + eventFuncWrapper , + mkEventFunc , + noEventFunc , + + +-- ** FilterFunc + FilterFunc , + FilterFuncC , + filterFuncClosure , + filterFuncWrapper , + mkFilterFunc , + noFilterFunc , + + +-- ** WindowChildFunc + WindowChildFunc , + WindowChildFuncC , + mkWindowChildFunc , + noWindowChildFunc , + windowChildFuncClosure , + windowChildFuncWrapper , + + +-- ** WindowInvalidateHandlerFunc + WindowInvalidateHandlerFunc , + WindowInvalidateHandlerFuncC , + mkWindowInvalidateHandlerFunc , + noWindowInvalidateHandlerFunc , + windowInvalidateHandlerFuncClosure , + windowInvalidateHandlerFuncWrapper , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types + +import qualified GI.Cairo as Cairo + +-- 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 + +-- 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' + +-- 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' + +-- 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 + + diff --git a/GI/Gdk/Constants.hs b/GI/Gdk/Constants.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Constants.hs @@ -0,0 +1,9140 @@ +{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Constants + ( + pattern PRIORITY_REDRAW , + pattern PARENT_RELATIVE , + pattern MAX_TIMECOORD_AXES , + pattern KEY_zstroke , + pattern KEY_zerosuperior , + pattern KEY_zerosubscript , + pattern KEY_zcaron , + pattern KEY_zacute , + pattern KEY_zabovedot , + pattern KEY_z , + pattern KEY_ytilde , + pattern KEY_yhook , + pattern KEY_ygrave , + pattern KEY_yen , + pattern KEY_ydiaeresis , + pattern KEY_ycircumflex , + pattern KEY_ybelowdot , + pattern KEY_yacute , + pattern KEY_y , + pattern KEY_xabovedot , + pattern KEY_x , + pattern KEY_wgrave , + pattern KEY_wdiaeresis , + pattern KEY_wcircumflex , + pattern KEY_wacute , + pattern KEY_w , + pattern KEY_vt , + pattern KEY_voicedsound , + pattern KEY_vertconnector , + pattern KEY_vertbar , + pattern KEY_variation , + pattern KEY_v , + pattern KEY_utilde , + pattern KEY_uring , + pattern KEY_uptack , + pattern KEY_upstile , + pattern KEY_upshoe , + pattern KEY_uprightcorner , + pattern KEY_upleftcorner , + pattern KEY_upcaret , + pattern KEY_uparrow , + pattern KEY_uogonek , + pattern KEY_union , + pattern KEY_underscore , + pattern KEY_underbar , + pattern KEY_umacron , + pattern KEY_uhorntilde , + pattern KEY_uhornhook , + pattern KEY_uhorngrave , + pattern KEY_uhornbelowdot , + pattern KEY_uhornacute , + pattern KEY_uhorn , + pattern KEY_uhook , + pattern KEY_ugrave , + pattern KEY_udoubleacute , + pattern KEY_udiaeresis , + pattern KEY_ucircumflex , + pattern KEY_ubreve , + pattern KEY_ubelowdot , + pattern KEY_uacute , + pattern KEY_u , + pattern KEY_twothirds , + pattern KEY_twosuperior , + pattern KEY_twosubscript , + pattern KEY_twofifths , + pattern KEY_tslash , + pattern KEY_trademarkincircle , + pattern KEY_trademark , + pattern KEY_topvertsummationconnector , + pattern KEY_topt , + pattern KEY_toprightsummation , + pattern KEY_toprightsqbracket , + pattern KEY_toprightparens , + pattern KEY_topleftsummation , + pattern KEY_topleftsqbracket , + pattern KEY_topleftradical , + pattern KEY_topleftparens , + pattern KEY_topintegral , + pattern KEY_tintegral , + pattern KEY_threesuperior , + pattern KEY_threesubscript , + pattern KEY_threequarters , + pattern KEY_threefifths , + pattern KEY_threeeighths , + pattern KEY_thorn , + pattern KEY_thinspace , + pattern KEY_therefore , + pattern KEY_telephonerecorder , + pattern KEY_telephone , + pattern KEY_tcedilla , + pattern KEY_tcaron , + pattern KEY_tabovedot , + pattern KEY_t , + pattern KEY_stricteq , + pattern KEY_sterling , + pattern KEY_ssharp , + pattern KEY_squareroot , + pattern KEY_space , + pattern KEY_soliddiamond , + pattern KEY_slash , + pattern KEY_sixsuperior , + pattern KEY_sixsubscript , + pattern KEY_singlelowquotemark , + pattern KEY_similarequal , + pattern KEY_signifblank , + pattern KEY_signaturemark , + pattern KEY_sevensuperior , + pattern KEY_sevensubscript , + pattern KEY_seveneighths , + pattern KEY_semivoicedsound , + pattern KEY_semicolon , + pattern KEY_section , + pattern KEY_seconds , + pattern KEY_script_switch , + pattern KEY_scircumflex , + pattern KEY_schwa , + pattern KEY_scedilla , + pattern KEY_scaron , + pattern KEY_sacute , + pattern KEY_sabovedot , + pattern KEY_s , + pattern KEY_righttack , + pattern KEY_rightt , + pattern KEY_rightsinglequotemark , + pattern KEY_rightshoe , + pattern KEY_rightpointer , + pattern KEY_rightopentriangle , + pattern KEY_rightmiddlesummation , + pattern KEY_rightmiddlecurlybrace , + pattern KEY_rightdoublequotemark , + pattern KEY_rightcaret , + pattern KEY_rightarrow , + pattern KEY_rightanglebracket , + pattern KEY_registered , + pattern KEY_rcedilla , + pattern KEY_rcaron , + pattern KEY_radical , + pattern KEY_racute , + pattern KEY_r , + pattern KEY_quoteright , + pattern KEY_quoteleft , + pattern KEY_quotedbl , + pattern KEY_questiondown , + pattern KEY_question , + pattern KEY_quad , + pattern KEY_q , + pattern KEY_punctspace , + pattern KEY_prolongedsound , + pattern KEY_prescription , + pattern KEY_plusminus , + pattern KEY_plus , + pattern KEY_phonographcopyright , + pattern KEY_permille , + pattern KEY_periodcentered , + pattern KEY_period , + pattern KEY_percent , + pattern KEY_partialderivative , + pattern KEY_partdifferential , + pattern KEY_parenright , + pattern KEY_parenleft , + pattern KEY_paragraph , + pattern KEY_pabovedot , + pattern KEY_p , + pattern KEY_overline , + pattern KEY_overbar , + pattern KEY_otilde , + pattern KEY_oslash , + pattern KEY_ordfeminine , + pattern KEY_opentribulletup , + pattern KEY_opentribulletdown , + pattern KEY_openstar , + pattern KEY_openrectbullet , + pattern KEY_ooblique , + pattern KEY_onethird , + pattern KEY_onesuperior , + pattern KEY_onesubscript , + pattern KEY_onesixth , + pattern KEY_onequarter , + pattern KEY_onehalf , + pattern KEY_onefifth , + pattern KEY_oneeighth , + pattern KEY_omacron , + pattern KEY_ohorntilde , + pattern KEY_ohornhook , + pattern KEY_ohorngrave , + pattern KEY_ohornbelowdot , + pattern KEY_ohornacute , + pattern KEY_ohorn , + pattern KEY_ohook , + pattern KEY_ograve , + pattern KEY_ogonek , + pattern KEY_oe , + pattern KEY_odoubleacute , + pattern KEY_odiaeresis , + pattern KEY_ocircumflextilde , + pattern KEY_ocircumflexhook , + pattern KEY_ocircumflexgrave , + pattern KEY_ocircumflexbelowdot , + pattern KEY_ocircumflexacute , + pattern KEY_ocircumflex , + pattern KEY_ocaron , + pattern KEY_obelowdot , + pattern KEY_obarred , + pattern KEY_oacute , + pattern KEY_o , + pattern KEY_numerosign , + pattern KEY_numbersign , + pattern KEY_ntilde , + pattern KEY_notsign , + pattern KEY_notidentical , + pattern KEY_notequal , + pattern KEY_notelementof , + pattern KEY_notapproxeq , + pattern KEY_nobreakspace , + pattern KEY_nl , + pattern KEY_ninesuperior , + pattern KEY_ninesubscript , + pattern KEY_ncedilla , + pattern KEY_ncaron , + pattern KEY_nacute , + pattern KEY_nabla , + pattern KEY_n , + pattern KEY_musicalsharp , + pattern KEY_musicalflat , + pattern KEY_multiply , + pattern KEY_mu , + pattern KEY_minutes , + pattern KEY_minus , + pattern KEY_masculine , + pattern KEY_marker , + pattern KEY_maltesecross , + pattern KEY_malesymbol , + pattern KEY_macron , + pattern KEY_mabovedot , + pattern KEY_m , + pattern KEY_lstroke , + pattern KEY_lowrightcorner , + pattern KEY_lowleftcorner , + pattern KEY_logicalor , + pattern KEY_logicaland , + pattern KEY_lf , + pattern KEY_lessthanequal , + pattern KEY_less , + pattern KEY_lefttack , + pattern KEY_leftt , + pattern KEY_leftsinglequotemark , + pattern KEY_leftshoe , + pattern KEY_leftradical , + pattern KEY_leftpointer , + pattern KEY_leftopentriangle , + pattern KEY_leftmiddlecurlybrace , + pattern KEY_leftdoublequotemark , + pattern KEY_leftcaret , + pattern KEY_leftarrow , + pattern KEY_leftanglebracket , + pattern KEY_lcedilla , + pattern KEY_lcaron , + pattern KEY_lbelowdot , + pattern KEY_latincross , + pattern KEY_lacute , + pattern KEY_l , + pattern KEY_kra , + pattern KEY_kcedilla , + pattern KEY_kappa , + pattern KEY_kana_yu , + pattern KEY_kana_yo , + pattern KEY_kana_ya , + pattern KEY_kana_u , + pattern KEY_kana_tu , + pattern KEY_kana_tsu , + pattern KEY_kana_switch , + pattern KEY_kana_openingbracket , + pattern KEY_kana_o , + pattern KEY_kana_middledot , + pattern KEY_kana_i , + pattern KEY_kana_fullstop , + pattern KEY_kana_e , + pattern KEY_kana_conjunctive , + pattern KEY_kana_comma , + pattern KEY_kana_closingbracket , + pattern KEY_kana_a , + pattern KEY_kana_YU , + pattern KEY_kana_YO , + pattern KEY_kana_YA , + pattern KEY_kana_WO , + pattern KEY_kana_WA , + pattern KEY_kana_U , + pattern KEY_kana_TU , + pattern KEY_kana_TSU , + pattern KEY_kana_TO , + pattern KEY_kana_TI , + pattern KEY_kana_TE , + pattern KEY_kana_TA , + pattern KEY_kana_SU , + pattern KEY_kana_SO , + pattern KEY_kana_SHI , + pattern KEY_kana_SE , + pattern KEY_kana_SA , + pattern KEY_kana_RU , + pattern KEY_kana_RO , + pattern KEY_kana_RI , + pattern KEY_kana_RE , + pattern KEY_kana_RA , + pattern KEY_kana_O , + pattern KEY_kana_NU , + pattern KEY_kana_NO , + pattern KEY_kana_NI , + pattern KEY_kana_NE , + pattern KEY_kana_NA , + pattern KEY_kana_N , + pattern KEY_kana_MU , + pattern KEY_kana_MO , + pattern KEY_kana_MI , + pattern KEY_kana_ME , + pattern KEY_kana_MA , + pattern KEY_kana_KU , + pattern KEY_kana_KO , + pattern KEY_kana_KI , + pattern KEY_kana_KE , + pattern KEY_kana_KA , + pattern KEY_kana_I , + pattern KEY_kana_HU , + pattern KEY_kana_HO , + pattern KEY_kana_HI , + pattern KEY_kana_HE , + pattern KEY_kana_HA , + pattern KEY_kana_FU , + pattern KEY_kana_E , + pattern KEY_kana_CHI , + pattern KEY_kana_A , + pattern KEY_k , + pattern KEY_jot , + pattern KEY_jcircumflex , + pattern KEY_j , + pattern KEY_itilde , + pattern KEY_iogonek , + pattern KEY_intersection , + pattern KEY_integral , + pattern KEY_infinity , + pattern KEY_includes , + pattern KEY_includedin , + pattern KEY_implies , + pattern KEY_imacron , + pattern KEY_ihook , + pattern KEY_igrave , + pattern KEY_ifonlyif , + pattern KEY_idotless , + pattern KEY_idiaeresis , + pattern KEY_identical , + pattern KEY_icircumflex , + pattern KEY_ibreve , + pattern KEY_ibelowdot , + pattern KEY_iacute , + pattern KEY_iTouch , + pattern KEY_i , + pattern KEY_hyphen , + pattern KEY_ht , + pattern KEY_hstroke , + pattern KEY_horizlinescan9 , + pattern KEY_horizlinescan7 , + pattern KEY_horizlinescan5 , + pattern KEY_horizlinescan3 , + pattern KEY_horizlinescan1 , + pattern KEY_horizconnector , + pattern KEY_hexagram , + pattern KEY_hebrew_zayin , + pattern KEY_hebrew_zain , + pattern KEY_hebrew_zadi , + pattern KEY_hebrew_zade , + pattern KEY_hebrew_yod , + pattern KEY_hebrew_waw , + pattern KEY_hebrew_teth , + pattern KEY_hebrew_tet , + pattern KEY_hebrew_taw , + pattern KEY_hebrew_taf , + pattern KEY_hebrew_shin , + pattern KEY_hebrew_samekh , + pattern KEY_hebrew_samech , + pattern KEY_hebrew_resh , + pattern KEY_hebrew_qoph , + pattern KEY_hebrew_pe , + pattern KEY_hebrew_nun , + pattern KEY_hebrew_mem , + pattern KEY_hebrew_lamed , + pattern KEY_hebrew_kuf , + pattern KEY_hebrew_kaph , + pattern KEY_hebrew_het , + pattern KEY_hebrew_he , + pattern KEY_hebrew_gimmel , + pattern KEY_hebrew_gimel , + pattern KEY_hebrew_finalzadi , + pattern KEY_hebrew_finalzade , + pattern KEY_hebrew_finalpe , + pattern KEY_hebrew_finalnun , + pattern KEY_hebrew_finalmem , + pattern KEY_hebrew_finalkaph , + pattern KEY_hebrew_doublelowline , + pattern KEY_hebrew_daleth , + pattern KEY_hebrew_dalet , + pattern KEY_hebrew_chet , + pattern KEY_hebrew_beth , + pattern KEY_hebrew_bet , + pattern KEY_hebrew_ayin , + pattern KEY_hebrew_aleph , + pattern KEY_heart , + pattern KEY_hcircumflex , + pattern KEY_hairspace , + pattern KEY_h , + pattern KEY_guillemotright , + pattern KEY_guillemotleft , + pattern KEY_greaterthanequal , + pattern KEY_greater , + pattern KEY_grave , + pattern KEY_gcircumflex , + pattern KEY_gcedilla , + pattern KEY_gcaron , + pattern KEY_gbreve , + pattern KEY_gabovedot , + pattern KEY_g , + pattern KEY_function , + pattern KEY_fourthroot , + pattern KEY_foursuperior , + pattern KEY_foursubscript , + pattern KEY_fourfifths , + pattern KEY_fivesuperior , + pattern KEY_fivesubscript , + pattern KEY_fivesixths , + pattern KEY_fiveeighths , + pattern KEY_filledtribulletup , + pattern KEY_filledtribulletdown , + pattern KEY_filledrighttribullet , + pattern KEY_filledrectbullet , + pattern KEY_filledlefttribullet , + pattern KEY_figdash , + pattern KEY_ff , + pattern KEY_femalesymbol , + pattern KEY_fabovedot , + pattern KEY_f , + pattern KEY_ezh , + pattern KEY_exclamdown , + pattern KEY_exclam , + pattern KEY_etilde , + pattern KEY_eth , + pattern KEY_equal , + pattern KEY_eogonek , + pattern KEY_enspace , + pattern KEY_enopensquarebullet , + pattern KEY_enopencircbullet , + pattern KEY_eng , + pattern KEY_enfilledsqbullet , + pattern KEY_enfilledcircbullet , + pattern KEY_endash , + pattern KEY_emspace , + pattern KEY_emptyset , + pattern KEY_emopenrectangle , + pattern KEY_emopencircle , + pattern KEY_emfilledrect , + pattern KEY_emfilledcircle , + pattern KEY_emdash , + pattern KEY_emacron , + pattern KEY_em4space , + pattern KEY_em3space , + pattern KEY_ellipsis , + pattern KEY_elementof , + pattern KEY_eightsuperior , + pattern KEY_eightsubscript , + pattern KEY_ehook , + pattern KEY_egrave , + pattern KEY_ediaeresis , + pattern KEY_ecircumflextilde , + pattern KEY_ecircumflexhook , + pattern KEY_ecircumflexgrave , + pattern KEY_ecircumflexbelowdot , + pattern KEY_ecircumflexacute , + pattern KEY_ecircumflex , + pattern KEY_ecaron , + pattern KEY_ebelowdot , + pattern KEY_eacute , + pattern KEY_eabovedot , + pattern KEY_e , + pattern KEY_dstroke , + pattern KEY_downtack , + pattern KEY_downstile , + pattern KEY_downshoe , + pattern KEY_downcaret , + pattern KEY_downarrow , + pattern KEY_doublelowquotemark , + pattern KEY_doubledagger , + pattern KEY_doubleacute , + pattern KEY_doubbaselinedot , + pattern KEY_dollar , + pattern KEY_division , + pattern KEY_dintegral , + pattern KEY_digitspace , + pattern KEY_diamond , + pattern KEY_diaeresis , + pattern KEY_degree , + pattern KEY_decimalpoint , + pattern KEY_dead_voiced_sound , + pattern KEY_dead_u , + pattern KEY_dead_tilde , + pattern KEY_dead_stroke , + pattern KEY_dead_small_schwa , + pattern KEY_dead_semivoiced_sound , + pattern KEY_dead_psili , + pattern KEY_dead_perispomeni , + pattern KEY_dead_ogonek , + pattern KEY_dead_o , + pattern KEY_dead_macron , + pattern KEY_dead_iota , + pattern KEY_dead_invertedbreve , + pattern KEY_dead_i , + pattern KEY_dead_horn , + pattern KEY_dead_hook , + pattern KEY_dead_greek , + pattern KEY_dead_grave , + pattern KEY_dead_e , + pattern KEY_dead_doublegrave , + pattern KEY_dead_doubleacute , + pattern KEY_dead_diaeresis , + pattern KEY_dead_dasia , + pattern KEY_dead_currency , + pattern KEY_dead_circumflex , + pattern KEY_dead_cedilla , + pattern KEY_dead_caron , + pattern KEY_dead_capital_schwa , + pattern KEY_dead_breve , + pattern KEY_dead_belowtilde , + pattern KEY_dead_belowring , + pattern KEY_dead_belowmacron , + pattern KEY_dead_belowdot , + pattern KEY_dead_belowdiaeresis , + pattern KEY_dead_belowcomma , + pattern KEY_dead_belowcircumflex , + pattern KEY_dead_belowbreve , + pattern KEY_dead_acute , + pattern KEY_dead_abovering , + pattern KEY_dead_abovereversedcomma , + pattern KEY_dead_abovedot , + pattern KEY_dead_abovecomma , + pattern KEY_dead_a , + pattern KEY_dead_U , + pattern KEY_dead_O , + pattern KEY_dead_I , + pattern KEY_dead_E , + pattern KEY_dead_A , + pattern KEY_dcaron , + pattern KEY_dagger , + pattern KEY_dabovedot , + pattern KEY_d , + pattern KEY_cursor , + pattern KEY_currency , + pattern KEY_cuberoot , + pattern KEY_crossinglines , + pattern KEY_cr , + pattern KEY_copyright , + pattern KEY_containsas , + pattern KEY_comma , + pattern KEY_colon , + pattern KEY_club , + pattern KEY_circle , + pattern KEY_checkmark , + pattern KEY_checkerboard , + pattern KEY_ch , + pattern KEY_cent , + pattern KEY_cedilla , + pattern KEY_ccircumflex , + pattern KEY_ccedilla , + pattern KEY_ccaron , + pattern KEY_caron , + pattern KEY_caret , + pattern KEY_careof , + pattern KEY_cacute , + pattern KEY_cabovedot , + pattern KEY_c_h , + pattern KEY_c , + pattern KEY_brokenbar , + pattern KEY_breve , + pattern KEY_braille_dots_8 , + pattern KEY_braille_dots_78 , + pattern KEY_braille_dots_7 , + pattern KEY_braille_dots_68 , + pattern KEY_braille_dots_678 , + pattern KEY_braille_dots_67 , + pattern KEY_braille_dots_6 , + pattern KEY_braille_dots_58 , + pattern KEY_braille_dots_578 , + pattern KEY_braille_dots_57 , + pattern KEY_braille_dots_568 , + pattern KEY_braille_dots_5678 , + pattern KEY_braille_dots_567 , + pattern KEY_braille_dots_56 , + pattern KEY_braille_dots_5 , + pattern KEY_braille_dots_48 , + pattern KEY_braille_dots_478 , + pattern KEY_braille_dots_47 , + pattern KEY_braille_dots_468 , + pattern KEY_braille_dots_4678 , + pattern KEY_braille_dots_467 , + pattern KEY_braille_dots_46 , + pattern KEY_braille_dots_458 , + pattern KEY_braille_dots_4578 , + pattern KEY_braille_dots_457 , + pattern KEY_braille_dots_4568 , + pattern KEY_braille_dots_45678 , + pattern KEY_braille_dots_4567 , + pattern KEY_braille_dots_456 , + pattern KEY_braille_dots_45 , + pattern KEY_braille_dots_4 , + pattern KEY_braille_dots_38 , + pattern KEY_braille_dots_378 , + pattern KEY_braille_dots_37 , + pattern KEY_braille_dots_368 , + pattern KEY_braille_dots_3678 , + pattern KEY_braille_dots_367 , + pattern KEY_braille_dots_36 , + pattern KEY_braille_dots_358 , + pattern KEY_braille_dots_3578 , + pattern KEY_braille_dots_357 , + pattern KEY_braille_dots_3568 , + pattern KEY_braille_dots_35678 , + pattern KEY_braille_dots_3567 , + pattern KEY_braille_dots_356 , + pattern KEY_braille_dots_35 , + pattern KEY_braille_dots_348 , + pattern KEY_braille_dots_3478 , + pattern KEY_braille_dots_347 , + pattern KEY_braille_dots_3468 , + pattern KEY_braille_dots_34678 , + pattern KEY_braille_dots_3467 , + pattern KEY_braille_dots_346 , + pattern KEY_braille_dots_3458 , + pattern KEY_braille_dots_34578 , + pattern KEY_braille_dots_3457 , + pattern KEY_braille_dots_34568 , + pattern KEY_braille_dots_345678 , + pattern KEY_braille_dots_34567 , + pattern KEY_braille_dots_3456 , + pattern KEY_braille_dots_345 , + pattern KEY_braille_dots_34 , + pattern KEY_braille_dots_3 , + pattern KEY_braille_dots_28 , + pattern KEY_braille_dots_278 , + pattern KEY_braille_dots_27 , + pattern KEY_braille_dots_268 , + pattern KEY_braille_dots_2678 , + pattern KEY_braille_dots_267 , + pattern KEY_braille_dots_26 , + pattern KEY_braille_dots_258 , + pattern KEY_braille_dots_2578 , + pattern KEY_braille_dots_257 , + pattern KEY_braille_dots_2568 , + pattern KEY_braille_dots_25678 , + pattern KEY_braille_dots_2567 , + pattern KEY_braille_dots_256 , + pattern KEY_braille_dots_25 , + pattern KEY_braille_dots_248 , + pattern KEY_braille_dots_2478 , + pattern KEY_braille_dots_247 , + pattern KEY_braille_dots_2468 , + pattern KEY_braille_dots_24678 , + pattern KEY_braille_dots_2467 , + pattern KEY_braille_dots_246 , + pattern KEY_braille_dots_2458 , + pattern KEY_braille_dots_24578 , + pattern KEY_braille_dots_2457 , + pattern KEY_braille_dots_24568 , + pattern KEY_braille_dots_245678 , + pattern KEY_braille_dots_24567 , + pattern KEY_braille_dots_2456 , + pattern KEY_braille_dots_245 , + pattern KEY_braille_dots_24 , + pattern KEY_braille_dots_238 , + pattern KEY_braille_dots_2378 , + pattern KEY_braille_dots_237 , + pattern KEY_braille_dots_2368 , + pattern KEY_braille_dots_23678 , + pattern KEY_braille_dots_2367 , + pattern KEY_braille_dots_236 , + pattern KEY_braille_dots_2358 , + pattern KEY_braille_dots_23578 , + pattern KEY_braille_dots_2357 , + pattern KEY_braille_dots_23568 , + pattern KEY_braille_dots_235678 , + pattern KEY_braille_dots_23567 , + pattern KEY_braille_dots_2356 , + pattern KEY_braille_dots_235 , + pattern KEY_braille_dots_2348 , + pattern KEY_braille_dots_23478 , + pattern KEY_braille_dots_2347 , + pattern KEY_braille_dots_23468 , + pattern KEY_braille_dots_234678 , + pattern KEY_braille_dots_23467 , + pattern KEY_braille_dots_2346 , + pattern KEY_braille_dots_23458 , + pattern KEY_braille_dots_234578 , + pattern KEY_braille_dots_23457 , + pattern KEY_braille_dots_234568 , + pattern KEY_braille_dots_2345678 , + pattern KEY_braille_dots_234567 , + pattern KEY_braille_dots_23456 , + pattern KEY_braille_dots_2345 , + pattern KEY_braille_dots_234 , + pattern KEY_braille_dots_23 , + pattern KEY_braille_dots_2 , + pattern KEY_braille_dots_18 , + pattern KEY_braille_dots_178 , + pattern KEY_braille_dots_17 , + pattern KEY_braille_dots_168 , + pattern KEY_braille_dots_1678 , + pattern KEY_braille_dots_167 , + pattern KEY_braille_dots_16 , + pattern KEY_braille_dots_158 , + pattern KEY_braille_dots_1578 , + pattern KEY_braille_dots_157 , + pattern KEY_braille_dots_1568 , + pattern KEY_braille_dots_15678 , + pattern KEY_braille_dots_1567 , + pattern KEY_braille_dots_156 , + pattern KEY_braille_dots_15 , + pattern KEY_braille_dots_148 , + pattern KEY_braille_dots_1478 , + pattern KEY_braille_dots_147 , + pattern KEY_braille_dots_1468 , + pattern KEY_braille_dots_14678 , + pattern KEY_braille_dots_1467 , + pattern KEY_braille_dots_146 , + pattern KEY_braille_dots_1458 , + pattern KEY_braille_dots_14578 , + pattern KEY_braille_dots_1457 , + pattern KEY_braille_dots_14568 , + pattern KEY_braille_dots_145678 , + pattern KEY_braille_dots_14567 , + pattern KEY_braille_dots_1456 , + pattern KEY_braille_dots_145 , + pattern KEY_braille_dots_14 , + pattern KEY_braille_dots_138 , + pattern KEY_braille_dots_1378 , + pattern KEY_braille_dots_137 , + pattern KEY_braille_dots_1368 , + pattern KEY_braille_dots_13678 , + pattern KEY_braille_dots_1367 , + pattern KEY_braille_dots_136 , + pattern KEY_braille_dots_1358 , + pattern KEY_braille_dots_13578 , + pattern KEY_braille_dots_1357 , + pattern KEY_braille_dots_13568 , + pattern KEY_braille_dots_135678 , + pattern KEY_braille_dots_13567 , + pattern KEY_braille_dots_1356 , + pattern KEY_braille_dots_135 , + pattern KEY_braille_dots_1348 , + pattern KEY_braille_dots_13478 , + pattern KEY_braille_dots_1347 , + pattern KEY_braille_dots_13468 , + pattern KEY_braille_dots_134678 , + pattern KEY_braille_dots_13467 , + pattern KEY_braille_dots_1346 , + pattern KEY_braille_dots_13458 , + pattern KEY_braille_dots_134578 , + pattern KEY_braille_dots_13457 , + pattern KEY_braille_dots_134568 , + pattern KEY_braille_dots_1345678 , + pattern KEY_braille_dots_134567 , + pattern KEY_braille_dots_13456 , + pattern KEY_braille_dots_1345 , + pattern KEY_braille_dots_134 , + pattern KEY_braille_dots_13 , + pattern KEY_braille_dots_128 , + pattern KEY_braille_dots_1278 , + pattern KEY_braille_dots_127 , + pattern KEY_braille_dots_1268 , + pattern KEY_braille_dots_12678 , + pattern KEY_braille_dots_1267 , + pattern KEY_braille_dots_126 , + pattern KEY_braille_dots_1258 , + pattern KEY_braille_dots_12578 , + pattern KEY_braille_dots_1257 , + pattern KEY_braille_dots_12568 , + pattern KEY_braille_dots_125678 , + pattern KEY_braille_dots_12567 , + pattern KEY_braille_dots_1256 , + pattern KEY_braille_dots_125 , + pattern KEY_braille_dots_1248 , + pattern KEY_braille_dots_12478 , + pattern KEY_braille_dots_1247 , + pattern KEY_braille_dots_12468 , + pattern KEY_braille_dots_124678 , + pattern KEY_braille_dots_12467 , + pattern KEY_braille_dots_1246 , + pattern KEY_braille_dots_12458 , + pattern KEY_braille_dots_124578 , + pattern KEY_braille_dots_12457 , + pattern KEY_braille_dots_124568 , + pattern KEY_braille_dots_1245678 , + pattern KEY_braille_dots_124567 , + pattern KEY_braille_dots_12456 , + pattern KEY_braille_dots_1245 , + pattern KEY_braille_dots_124 , + pattern KEY_braille_dots_1238 , + pattern KEY_braille_dots_12378 , + pattern KEY_braille_dots_1237 , + pattern KEY_braille_dots_12368 , + pattern KEY_braille_dots_123678 , + pattern KEY_braille_dots_12367 , + pattern KEY_braille_dots_1236 , + pattern KEY_braille_dots_12358 , + pattern KEY_braille_dots_123578 , + pattern KEY_braille_dots_12357 , + pattern KEY_braille_dots_123568 , + pattern KEY_braille_dots_1235678 , + pattern KEY_braille_dots_123567 , + pattern KEY_braille_dots_12356 , + pattern KEY_braille_dots_1235 , + pattern KEY_braille_dots_12348 , + pattern KEY_braille_dots_123478 , + pattern KEY_braille_dots_12347 , + pattern KEY_braille_dots_123468 , + pattern KEY_braille_dots_1234678 , + pattern KEY_braille_dots_123467 , + pattern KEY_braille_dots_12346 , + pattern KEY_braille_dots_123458 , + pattern KEY_braille_dots_1234578 , + pattern KEY_braille_dots_123457 , + pattern KEY_braille_dots_1234568 , + pattern KEY_braille_dots_12345678 , + pattern KEY_braille_dots_1234567 , + pattern KEY_braille_dots_123456 , + pattern KEY_braille_dots_12345 , + pattern KEY_braille_dots_1234 , + pattern KEY_braille_dots_123 , + pattern KEY_braille_dots_12 , + pattern KEY_braille_dots_1 , + pattern KEY_braille_dot_9 , + pattern KEY_braille_dot_8 , + pattern KEY_braille_dot_7 , + pattern KEY_braille_dot_6 , + pattern KEY_braille_dot_5 , + pattern KEY_braille_dot_4 , + pattern KEY_braille_dot_3 , + pattern KEY_braille_dot_2 , + pattern KEY_braille_dot_10 , + pattern KEY_braille_dot_1 , + pattern KEY_braille_blank , + pattern KEY_bracketright , + pattern KEY_bracketleft , + pattern KEY_braceright , + pattern KEY_braceleft , + pattern KEY_botvertsummationconnector , + pattern KEY_bott , + pattern KEY_botrightsummation , + pattern KEY_botrightsqbracket , + pattern KEY_botrightparens , + pattern KEY_botleftsummation , + pattern KEY_botleftsqbracket , + pattern KEY_botleftparens , + pattern KEY_botintegral , + pattern KEY_blank , + pattern KEY_because , + pattern KEY_bar , + pattern KEY_ballotcross , + pattern KEY_backslash , + pattern KEY_babovedot , + pattern KEY_b , + pattern KEY_atilde , + pattern KEY_at , + pattern KEY_asterisk , + pattern KEY_asciitilde , + pattern KEY_asciicircum , + pattern KEY_aring , + pattern KEY_approximate , + pattern KEY_approxeq , + pattern KEY_apostrophe , + pattern KEY_aogonek , + pattern KEY_ampersand , + pattern KEY_amacron , + pattern KEY_ahook , + pattern KEY_agrave , + pattern KEY_ae , + pattern KEY_adiaeresis , + pattern KEY_acute , + pattern KEY_acircumflextilde , + pattern KEY_acircumflexhook , + pattern KEY_acircumflexgrave , + pattern KEY_acircumflexbelowdot , + pattern KEY_acircumflexacute , + pattern KEY_acircumflex , + pattern KEY_abrevetilde , + pattern KEY_abrevehook , + pattern KEY_abrevegrave , + pattern KEY_abrevebelowdot , + pattern KEY_abreveacute , + pattern KEY_abreve , + pattern KEY_abovedot , + pattern KEY_abelowdot , + pattern KEY_aacute , + pattern KEY_a , + pattern KEY_Zstroke , + pattern KEY_ZoomOut , + pattern KEY_ZoomIn , + pattern KEY_Zenkaku_Hankaku , + pattern KEY_Zenkaku , + pattern KEY_Zen_Koho , + pattern KEY_Zcaron , + pattern KEY_Zacute , + pattern KEY_Zabovedot , + pattern KEY_Z , + pattern KEY_Ytilde , + pattern KEY_Yhook , + pattern KEY_Ygrave , + pattern KEY_Yellow , + pattern KEY_Ydiaeresis , + pattern KEY_Ycircumflex , + pattern KEY_Ybelowdot , + pattern KEY_Yacute , + pattern KEY_Y , + pattern KEY_Xfer , + pattern KEY_Xabovedot , + pattern KEY_X , + pattern KEY_Word , + pattern KEY_WonSign , + pattern KEY_WindowClear , + pattern KEY_WheelButton , + pattern KEY_Wgrave , + pattern KEY_WebCam , + pattern KEY_Wdiaeresis , + pattern KEY_Wcircumflex , + pattern KEY_WakeUp , + pattern KEY_Wacute , + pattern KEY_WWW , + pattern KEY_WLAN , + pattern KEY_W , + pattern KEY_VoidSymbol , + pattern KEY_View , + pattern KEY_Video , + pattern KEY_VendorHome , + pattern KEY_V , + pattern KEY_Utilde , + pattern KEY_UserPB , + pattern KEY_User2KB , + pattern KEY_User1KB , + pattern KEY_Uring , + pattern KEY_Up , + pattern KEY_Uogonek , + pattern KEY_Ungrab , + pattern KEY_Undo , + pattern KEY_Umacron , + pattern KEY_Ukranian_yi , + pattern KEY_Ukranian_je , + pattern KEY_Ukranian_i , + pattern KEY_Ukranian_YI , + pattern KEY_Ukranian_JE , + pattern KEY_Ukranian_I , + pattern KEY_Ukrainian_yi , + pattern KEY_Ukrainian_ie , + pattern KEY_Ukrainian_i , + pattern KEY_Ukrainian_ghe_with_upturn , + pattern KEY_Ukrainian_YI , + pattern KEY_Ukrainian_IE , + pattern KEY_Ukrainian_I , + pattern KEY_Ukrainian_GHE_WITH_UPTURN , + pattern KEY_Uhorntilde , + pattern KEY_Uhornhook , + pattern KEY_Uhorngrave , + pattern KEY_Uhornbelowdot , + pattern KEY_Uhornacute , + pattern KEY_Uhorn , + pattern KEY_Uhook , + pattern KEY_Ugrave , + pattern KEY_Udoubleacute , + pattern KEY_Udiaeresis , + pattern KEY_Ucircumflex , + pattern KEY_Ubreve , + pattern KEY_Ubelowdot , + pattern KEY_Uacute , + pattern KEY_UWB , + pattern KEY_U , + pattern KEY_Tslash , + pattern KEY_Travel , + pattern KEY_Touroku , + pattern KEY_TouchpadToggle , + pattern KEY_TouchpadOn , + pattern KEY_TouchpadOff , + pattern KEY_TopMenu , + pattern KEY_Tools , + pattern KEY_ToDoList , + pattern KEY_Time , + pattern KEY_Thorn , + pattern KEY_Thai_yoying , + pattern KEY_Thai_yoyak , + pattern KEY_Thai_wowaen , + pattern KEY_Thai_totao , + pattern KEY_Thai_topatak , + pattern KEY_Thai_thothung , + pattern KEY_Thai_thothong , + pattern KEY_Thai_thothan , + pattern KEY_Thai_thothahan , + pattern KEY_Thai_thophuthao , + pattern KEY_Thai_thonangmontho , + pattern KEY_Thai_thanthakhat , + pattern KEY_Thai_sosua , + pattern KEY_Thai_soso , + pattern KEY_Thai_sosala , + pattern KEY_Thai_sorusi , + pattern KEY_Thai_sarauu , + pattern KEY_Thai_sarauee , + pattern KEY_Thai_saraue , + pattern KEY_Thai_sarau , + pattern KEY_Thai_sarao , + pattern KEY_Thai_saraii , + pattern KEY_Thai_sarai , + pattern KEY_Thai_sarae , + pattern KEY_Thai_saraam , + pattern KEY_Thai_saraaimaimuan , + pattern KEY_Thai_saraaimaimalai , + pattern KEY_Thai_saraae , + pattern KEY_Thai_saraaa , + pattern KEY_Thai_saraa , + pattern KEY_Thai_ru , + pattern KEY_Thai_rorua , + pattern KEY_Thai_popla , + pattern KEY_Thai_phosamphao , + pattern KEY_Thai_phophung , + pattern KEY_Thai_phophan , + pattern KEY_Thai_phinthu , + pattern KEY_Thai_paiyannoi , + pattern KEY_Thai_oang , + pattern KEY_Thai_nonu , + pattern KEY_Thai_nonen , + pattern KEY_Thai_nikhahit , + pattern KEY_Thai_ngongu , + pattern KEY_Thai_moma , + pattern KEY_Thai_maiyamok , + pattern KEY_Thai_maitri , + pattern KEY_Thai_maitho , + pattern KEY_Thai_maitaikhu , + pattern KEY_Thai_maihanakat_maitho , + pattern KEY_Thai_maihanakat , + pattern KEY_Thai_maiek , + pattern KEY_Thai_maichattawa , + pattern KEY_Thai_lu , + pattern KEY_Thai_loling , + pattern KEY_Thai_lochula , + pattern KEY_Thai_leksun , + pattern KEY_Thai_leksong , + pattern KEY_Thai_leksi , + pattern KEY_Thai_leksam , + pattern KEY_Thai_lekpaet , + pattern KEY_Thai_leknung , + pattern KEY_Thai_lekkao , + pattern KEY_Thai_lekhok , + pattern KEY_Thai_lekha , + pattern KEY_Thai_lekchet , + pattern KEY_Thai_lakkhangyao , + pattern KEY_Thai_kokai , + pattern KEY_Thai_khorakhang , + pattern KEY_Thai_khokhwai , + pattern KEY_Thai_khokhuat , + pattern KEY_Thai_khokhon , + pattern KEY_Thai_khokhai , + pattern KEY_Thai_honokhuk , + pattern KEY_Thai_hohip , + pattern KEY_Thai_fofan , + pattern KEY_Thai_fofa , + pattern KEY_Thai_dodek , + pattern KEY_Thai_dochada , + pattern KEY_Thai_chochoe , + pattern KEY_Thai_choching , + pattern KEY_Thai_chochang , + pattern KEY_Thai_chochan , + pattern KEY_Thai_bobaimai , + pattern KEY_Thai_baht , + pattern KEY_Terminate_Server , + pattern KEY_Terminal , + pattern KEY_Tcedilla , + pattern KEY_Tcaron , + pattern KEY_TaskPane , + pattern KEY_Tabovedot , + pattern KEY_Tab , + pattern KEY_THORN , + pattern KEY_T , + pattern KEY_Sys_Req , + pattern KEY_Switch_VT_9 , + pattern KEY_Switch_VT_8 , + pattern KEY_Switch_VT_7 , + pattern KEY_Switch_VT_6 , + pattern KEY_Switch_VT_5 , + pattern KEY_Switch_VT_4 , + pattern KEY_Switch_VT_3 , + pattern KEY_Switch_VT_2 , + pattern KEY_Switch_VT_12 , + pattern KEY_Switch_VT_11 , + pattern KEY_Switch_VT_10 , + pattern KEY_Switch_VT_1 , + pattern KEY_Suspend , + pattern KEY_Support , + pattern KEY_Super_R , + pattern KEY_Super_L , + pattern KEY_Subtitle , + pattern KEY_Stop , + pattern KEY_StickyKeys_Enable , + pattern KEY_Start , + pattern KEY_Standby , + pattern KEY_SplitScreen , + pattern KEY_Spell , + pattern KEY_SlowKeys_Enable , + pattern KEY_Sleep , + pattern KEY_Sinh_ya , + pattern KEY_Sinh_va , + pattern KEY_Sinh_uu2 , + pattern KEY_Sinh_uu , + pattern KEY_Sinh_u2 , + pattern KEY_Sinh_u , + pattern KEY_Sinh_ttha , + pattern KEY_Sinh_tta , + pattern KEY_Sinh_thha , + pattern KEY_Sinh_tha , + pattern KEY_Sinh_ssha , + pattern KEY_Sinh_sha , + pattern KEY_Sinh_sa , + pattern KEY_Sinh_ruu2 , + pattern KEY_Sinh_ru2 , + pattern KEY_Sinh_rii , + pattern KEY_Sinh_ri , + pattern KEY_Sinh_ra , + pattern KEY_Sinh_pha , + pattern KEY_Sinh_pa , + pattern KEY_Sinh_oo2 , + pattern KEY_Sinh_oo , + pattern KEY_Sinh_o2 , + pattern KEY_Sinh_o , + pattern KEY_Sinh_nya , + pattern KEY_Sinh_nna , + pattern KEY_Sinh_nja , + pattern KEY_Sinh_nga , + pattern KEY_Sinh_ng2 , + pattern KEY_Sinh_ng , + pattern KEY_Sinh_ndha , + pattern KEY_Sinh_ndda , + pattern KEY_Sinh_na , + pattern KEY_Sinh_mba , + pattern KEY_Sinh_ma , + pattern KEY_Sinh_luu2 , + pattern KEY_Sinh_luu , + pattern KEY_Sinh_lu2 , + pattern KEY_Sinh_lu , + pattern KEY_Sinh_lla , + pattern KEY_Sinh_la , + pattern KEY_Sinh_kunddaliya , + pattern KEY_Sinh_kha , + pattern KEY_Sinh_ka , + pattern KEY_Sinh_jnya , + pattern KEY_Sinh_jha , + pattern KEY_Sinh_ja , + pattern KEY_Sinh_ii2 , + pattern KEY_Sinh_ii , + pattern KEY_Sinh_i2 , + pattern KEY_Sinh_i , + pattern KEY_Sinh_ha , + pattern KEY_Sinh_h2 , + pattern KEY_Sinh_gha , + pattern KEY_Sinh_ga , + pattern KEY_Sinh_fa , + pattern KEY_Sinh_ee2 , + pattern KEY_Sinh_ee , + pattern KEY_Sinh_e2 , + pattern KEY_Sinh_e , + pattern KEY_Sinh_dhha , + pattern KEY_Sinh_dha , + pattern KEY_Sinh_ddha , + pattern KEY_Sinh_dda , + pattern KEY_Sinh_cha , + pattern KEY_Sinh_ca , + pattern KEY_Sinh_bha , + pattern KEY_Sinh_ba , + pattern KEY_Sinh_au2 , + pattern KEY_Sinh_au , + pattern KEY_Sinh_al , + pattern KEY_Sinh_ai2 , + pattern KEY_Sinh_ai , + pattern KEY_Sinh_aee2 , + pattern KEY_Sinh_aee , + pattern KEY_Sinh_ae2 , + pattern KEY_Sinh_ae , + pattern KEY_Sinh_aa2 , + pattern KEY_Sinh_aa , + pattern KEY_Sinh_a , + pattern KEY_SingleCandidate , + pattern KEY_Shop , + pattern KEY_Shift_R , + pattern KEY_Shift_Lock , + pattern KEY_Shift_L , + pattern KEY_Serbian_tshe , + pattern KEY_Serbian_nje , + pattern KEY_Serbian_lje , + pattern KEY_Serbian_je , + pattern KEY_Serbian_dze , + pattern KEY_Serbian_dje , + pattern KEY_Serbian_TSHE , + pattern KEY_Serbian_NJE , + pattern KEY_Serbian_LJE , + pattern KEY_Serbian_JE , + pattern KEY_Serbian_DZE , + pattern KEY_Serbian_DJE , + pattern KEY_Send , + pattern KEY_SelectButton , + pattern KEY_Select , + pattern KEY_Search , + pattern KEY_Scroll_Lock , + pattern KEY_ScrollUp , + pattern KEY_ScrollDown , + pattern KEY_ScrollClick , + pattern KEY_ScreenSaver , + pattern KEY_Scircumflex , + pattern KEY_Scedilla , + pattern KEY_Scaron , + pattern KEY_Save , + pattern KEY_Sacute , + pattern KEY_Sabovedot , + pattern KEY_SCHWA , + pattern KEY_S , + pattern KEY_RupeeSign , + pattern KEY_RotationPB , + pattern KEY_RotationKB , + pattern KEY_RotateWindows , + pattern KEY_Romaji , + pattern KEY_RockerUp , + pattern KEY_RockerEnter , + pattern KEY_RockerDown , + pattern KEY_Right , + pattern KEY_Return , + pattern KEY_Reply , + pattern KEY_RepeatKeys_Enable , + pattern KEY_Reload , + pattern KEY_Refresh , + pattern KEY_Redo , + pattern KEY_Red , + pattern KEY_Rcedilla , + pattern KEY_Rcaron , + pattern KEY_Racute , + pattern KEY_R9 , + pattern KEY_R8 , + pattern KEY_R7 , + pattern KEY_R6 , + pattern KEY_R5 , + pattern KEY_R4 , + pattern KEY_R3 , + pattern KEY_R2 , + pattern KEY_R15 , + pattern KEY_R14 , + pattern KEY_R13 , + pattern KEY_R12 , + pattern KEY_R11 , + pattern KEY_R10 , + pattern KEY_R1 , + pattern KEY_R , + pattern KEY_Q , + pattern KEY_Prior , + pattern KEY_Print , + pattern KEY_PreviousCandidate , + pattern KEY_Prev_Virtual_Screen , + pattern KEY_Prev_VMode , + pattern KEY_PowerOff , + pattern KEY_PowerDown , + pattern KEY_Pointer_UpRight , + pattern KEY_Pointer_UpLeft , + pattern KEY_Pointer_Up , + pattern KEY_Pointer_Right , + pattern KEY_Pointer_Left , + pattern KEY_Pointer_EnableKeys , + pattern KEY_Pointer_Drag_Dflt , + pattern KEY_Pointer_Drag5 , + pattern KEY_Pointer_Drag4 , + pattern KEY_Pointer_Drag3 , + pattern KEY_Pointer_Drag2 , + pattern KEY_Pointer_Drag1 , + pattern KEY_Pointer_DownRight , + pattern KEY_Pointer_DownLeft , + pattern KEY_Pointer_Down , + pattern KEY_Pointer_DfltBtnPrev , + pattern KEY_Pointer_DfltBtnNext , + pattern KEY_Pointer_DblClick_Dflt , + pattern KEY_Pointer_DblClick5 , + pattern KEY_Pointer_DblClick4 , + pattern KEY_Pointer_DblClick3 , + pattern KEY_Pointer_DblClick2 , + pattern KEY_Pointer_DblClick1 , + pattern KEY_Pointer_Button_Dflt , + pattern KEY_Pointer_Button5 , + pattern KEY_Pointer_Button4 , + pattern KEY_Pointer_Button3 , + pattern KEY_Pointer_Button2 , + pattern KEY_Pointer_Button1 , + pattern KEY_Pointer_Accelerate , + pattern KEY_Pictures , + pattern KEY_Phone , + pattern KEY_PesetaSign , + pattern KEY_Pause , + pattern KEY_Paste , + pattern KEY_Page_Up , + pattern KEY_Page_Down , + pattern KEY_Pabovedot , + pattern KEY_P , + pattern KEY_Overlay2_Enable , + pattern KEY_Overlay1_Enable , + pattern KEY_Otilde , + pattern KEY_Oslash , + pattern KEY_Option , + pattern KEY_OpenURL , + pattern KEY_Open , + pattern KEY_Ooblique , + pattern KEY_Omacron , + pattern KEY_Ohorntilde , + pattern KEY_Ohornhook , + pattern KEY_Ohorngrave , + pattern KEY_Ohornbelowdot , + pattern KEY_Ohornacute , + pattern KEY_Ohorn , + pattern KEY_Ohook , + pattern KEY_Ograve , + pattern KEY_OfficeHome , + pattern KEY_Odoubleacute , + pattern KEY_Odiaeresis , + pattern KEY_Ocircumflextilde , + pattern KEY_Ocircumflexhook , + pattern KEY_Ocircumflexgrave , + pattern KEY_Ocircumflexbelowdot , + pattern KEY_Ocircumflexacute , + pattern KEY_Ocircumflex , + pattern KEY_Ocaron , + pattern KEY_Obelowdot , + pattern KEY_Obarred , + pattern KEY_Oacute , + pattern KEY_OE , + pattern KEY_O , + pattern KEY_Num_Lock , + pattern KEY_Ntilde , + pattern KEY_Next_Virtual_Screen , + pattern KEY_Next_VMode , + pattern KEY_Next , + pattern KEY_News , + pattern KEY_NewSheqelSign , + pattern KEY_New , + pattern KEY_Ncedilla , + pattern KEY_Ncaron , + pattern KEY_NairaSign , + pattern KEY_Nacute , + pattern KEY_N , + pattern KEY_MySites , + pattern KEY_MyComputer , + pattern KEY_Music , + pattern KEY_MultipleCandidate , + pattern KEY_Multi_key , + pattern KEY_Muhenkan , + pattern KEY_MouseKeys_Enable , + pattern KEY_MouseKeys_Accel_Enable , + pattern KEY_MonBrightnessUp , + pattern KEY_MonBrightnessDown , + pattern KEY_Mode_switch , + pattern KEY_ModeLock , + pattern KEY_MillSign , + pattern KEY_Meta_R , + pattern KEY_Meta_L , + pattern KEY_Messenger , + pattern KEY_MenuPB , + pattern KEY_MenuKB , + pattern KEY_Menu , + pattern KEY_Memo , + pattern KEY_Meeting , + pattern KEY_Massyo , + pattern KEY_Market , + pattern KEY_MailForward , + pattern KEY_Mail , + pattern KEY_Mae_Koho , + pattern KEY_Macedonia_kje , + pattern KEY_Macedonia_gje , + pattern KEY_Macedonia_dse , + pattern KEY_Macedonia_KJE , + pattern KEY_Macedonia_GJE , + pattern KEY_Macedonia_DSE , + pattern KEY_Mabovedot , + pattern KEY_M , + pattern KEY_Lstroke , + pattern KEY_LogWindowTree , + pattern KEY_LogOff , + pattern KEY_LogGrabInfo , + pattern KEY_LiraSign , + pattern KEY_Linefeed , + pattern KEY_LightBulb , + pattern KEY_Left , + pattern KEY_Lcedilla , + pattern KEY_Lcaron , + pattern KEY_Lbelowdot , + pattern KEY_LaunchF , + pattern KEY_LaunchE , + pattern KEY_LaunchD , + pattern KEY_LaunchC , + pattern KEY_LaunchB , + pattern KEY_LaunchA , + pattern KEY_Launch9 , + pattern KEY_Launch8 , + pattern KEY_Launch7 , + pattern KEY_Launch6 , + pattern KEY_Launch5 , + pattern KEY_Launch4 , + pattern KEY_Launch3 , + pattern KEY_Launch2 , + pattern KEY_Launch1 , + pattern KEY_Launch0 , + pattern KEY_Last_Virtual_Screen , + pattern KEY_Lacute , + pattern KEY_L9 , + pattern KEY_L8 , + pattern KEY_L7 , + pattern KEY_L6 , + pattern KEY_L5 , + pattern KEY_L4 , + pattern KEY_L3 , + pattern KEY_L2 , + pattern KEY_L10 , + pattern KEY_L1 , + pattern KEY_L , + pattern KEY_Korean_Won , + pattern KEY_Kcedilla , + pattern KEY_KbdLightOnOff , + pattern KEY_KbdBrightnessUp , + pattern KEY_KbdBrightnessDown , + pattern KEY_Katakana , + pattern KEY_Kanji_Bangou , + pattern KEY_Kanji , + pattern KEY_Kana_Shift , + pattern KEY_Kana_Lock , + pattern KEY_KP_Up , + pattern KEY_KP_Tab , + pattern KEY_KP_Subtract , + pattern KEY_KP_Space , + pattern KEY_KP_Separator , + pattern KEY_KP_Right , + pattern KEY_KP_Prior , + pattern KEY_KP_Page_Up , + pattern KEY_KP_Page_Down , + pattern KEY_KP_Next , + pattern KEY_KP_Multiply , + pattern KEY_KP_Left , + pattern KEY_KP_Insert , + pattern KEY_KP_Home , + pattern KEY_KP_F4 , + pattern KEY_KP_F3 , + pattern KEY_KP_F2 , + pattern KEY_KP_F1 , + pattern KEY_KP_Equal , + pattern KEY_KP_Enter , + pattern KEY_KP_End , + pattern KEY_KP_Down , + pattern KEY_KP_Divide , + pattern KEY_KP_Delete , + pattern KEY_KP_Decimal , + pattern KEY_KP_Begin , + pattern KEY_KP_Add , + pattern KEY_KP_9 , + pattern KEY_KP_8 , + pattern KEY_KP_7 , + pattern KEY_KP_6 , + pattern KEY_KP_5 , + pattern KEY_KP_4 , + pattern KEY_KP_3 , + pattern KEY_KP_2 , + pattern KEY_KP_1 , + pattern KEY_KP_0 , + pattern KEY_K , + pattern KEY_Jcircumflex , + pattern KEY_J , + pattern KEY_Itilde , + pattern KEY_Iogonek , + pattern KEY_Insert , + pattern KEY_Imacron , + pattern KEY_Ihook , + pattern KEY_Igrave , + pattern KEY_Idiaeresis , + pattern KEY_Icircumflex , + pattern KEY_Ibreve , + pattern KEY_Ibelowdot , + pattern KEY_Iacute , + pattern KEY_Iabovedot , + pattern KEY_ISO_Set_Margin_Right , + pattern KEY_ISO_Set_Margin_Left , + pattern KEY_ISO_Release_Margin_Right , + pattern KEY_ISO_Release_Margin_Left , + pattern KEY_ISO_Release_Both_Margins , + pattern KEY_ISO_Prev_Group_Lock , + pattern KEY_ISO_Prev_Group , + pattern KEY_ISO_Partial_Space_Right , + pattern KEY_ISO_Partial_Space_Left , + pattern KEY_ISO_Partial_Line_Up , + pattern KEY_ISO_Partial_Line_Down , + pattern KEY_ISO_Next_Group_Lock , + pattern KEY_ISO_Next_Group , + pattern KEY_ISO_Move_Line_Up , + pattern KEY_ISO_Move_Line_Down , + pattern KEY_ISO_Lock , + pattern KEY_ISO_Level5_Shift , + pattern KEY_ISO_Level5_Lock , + pattern KEY_ISO_Level5_Latch , + pattern KEY_ISO_Level3_Shift , + pattern KEY_ISO_Level3_Lock , + pattern KEY_ISO_Level3_Latch , + pattern KEY_ISO_Level2_Latch , + pattern KEY_ISO_Left_Tab , + pattern KEY_ISO_Last_Group_Lock , + pattern KEY_ISO_Last_Group , + pattern KEY_ISO_Group_Shift , + pattern KEY_ISO_Group_Lock , + pattern KEY_ISO_Group_Latch , + pattern KEY_ISO_First_Group_Lock , + pattern KEY_ISO_First_Group , + pattern KEY_ISO_Fast_Cursor_Up , + pattern KEY_ISO_Fast_Cursor_Right , + pattern KEY_ISO_Fast_Cursor_Left , + pattern KEY_ISO_Fast_Cursor_Down , + pattern KEY_ISO_Enter , + pattern KEY_ISO_Emphasize , + pattern KEY_ISO_Discontinuous_Underline , + pattern KEY_ISO_Continuous_Underline , + pattern KEY_ISO_Center_Object , + pattern KEY_I , + pattern KEY_Hyper_R , + pattern KEY_Hyper_L , + pattern KEY_Hstroke , + pattern KEY_HotLinks , + pattern KEY_HomePage , + pattern KEY_Home , + pattern KEY_History , + pattern KEY_Hiragana_Katakana , + pattern KEY_Hiragana , + pattern KEY_Hibernate , + pattern KEY_Henkan_Mode , + pattern KEY_Henkan , + pattern KEY_Help , + pattern KEY_Hebrew_switch , + pattern KEY_Hcircumflex , + pattern KEY_Hankaku , + pattern KEY_Hangul_switch , + pattern KEY_Hangul_YeorinHieuh , + pattern KEY_Hangul_YU , + pattern KEY_Hangul_YO , + pattern KEY_Hangul_YI , + pattern KEY_Hangul_YEO , + pattern KEY_Hangul_YE , + pattern KEY_Hangul_YAE , + pattern KEY_Hangul_YA , + pattern KEY_Hangul_WI , + pattern KEY_Hangul_WEO , + pattern KEY_Hangul_WE , + pattern KEY_Hangul_WAE , + pattern KEY_Hangul_WA , + pattern KEY_Hangul_U , + pattern KEY_Hangul_Tieut , + pattern KEY_Hangul_SunkyeongeumPieub , + pattern KEY_Hangul_SunkyeongeumPhieuf , + pattern KEY_Hangul_SunkyeongeumMieum , + pattern KEY_Hangul_Start , + pattern KEY_Hangul_SsangSios , + pattern KEY_Hangul_SsangPieub , + pattern KEY_Hangul_SsangKiyeog , + pattern KEY_Hangul_SsangJieuj , + pattern KEY_Hangul_SsangDikeud , + pattern KEY_Hangul_Special , + pattern KEY_Hangul_Sios , + pattern KEY_Hangul_SingleCandidate , + pattern KEY_Hangul_Romaja , + pattern KEY_Hangul_RieulYeorinHieuh , + pattern KEY_Hangul_RieulTieut , + pattern KEY_Hangul_RieulSios , + pattern KEY_Hangul_RieulPieub , + pattern KEY_Hangul_RieulPhieuf , + pattern KEY_Hangul_RieulMieum , + pattern KEY_Hangul_RieulKiyeog , + pattern KEY_Hangul_RieulHieuh , + pattern KEY_Hangul_Rieul , + pattern KEY_Hangul_PreviousCandidate , + pattern KEY_Hangul_PreHanja , + pattern KEY_Hangul_PostHanja , + pattern KEY_Hangul_PieubSios , + pattern KEY_Hangul_Pieub , + pattern KEY_Hangul_Phieuf , + pattern KEY_Hangul_PanSios , + pattern KEY_Hangul_OE , + pattern KEY_Hangul_O , + pattern KEY_Hangul_NieunJieuj , + pattern KEY_Hangul_NieunHieuh , + pattern KEY_Hangul_Nieun , + pattern KEY_Hangul_MultipleCandidate , + pattern KEY_Hangul_Mieum , + pattern KEY_Hangul_KkogjiDalrinIeung , + pattern KEY_Hangul_KiyeogSios , + pattern KEY_Hangul_Kiyeog , + pattern KEY_Hangul_Khieuq , + pattern KEY_Hangul_Jieuj , + pattern KEY_Hangul_Jeonja , + pattern KEY_Hangul_Jamo , + pattern KEY_Hangul_J_YeorinHieuh , + pattern KEY_Hangul_J_Tieut , + pattern KEY_Hangul_J_SsangSios , + pattern KEY_Hangul_J_SsangKiyeog , + pattern KEY_Hangul_J_Sios , + pattern KEY_Hangul_J_RieulTieut , + pattern KEY_Hangul_J_RieulSios , + pattern KEY_Hangul_J_RieulPieub , + pattern KEY_Hangul_J_RieulPhieuf , + pattern KEY_Hangul_J_RieulMieum , + pattern KEY_Hangul_J_RieulKiyeog , + pattern KEY_Hangul_J_RieulHieuh , + pattern KEY_Hangul_J_Rieul , + pattern KEY_Hangul_J_PieubSios , + pattern KEY_Hangul_J_Pieub , + pattern KEY_Hangul_J_Phieuf , + pattern KEY_Hangul_J_PanSios , + pattern KEY_Hangul_J_NieunJieuj , + pattern KEY_Hangul_J_NieunHieuh , + pattern KEY_Hangul_J_Nieun , + pattern KEY_Hangul_J_Mieum , + pattern KEY_Hangul_J_KkogjiDalrinIeung , + pattern KEY_Hangul_J_KiyeogSios , + pattern KEY_Hangul_J_Kiyeog , + pattern KEY_Hangul_J_Khieuq , + pattern KEY_Hangul_J_Jieuj , + pattern KEY_Hangul_J_Ieung , + pattern KEY_Hangul_J_Hieuh , + pattern KEY_Hangul_J_Dikeud , + pattern KEY_Hangul_J_Cieuc , + pattern KEY_Hangul_Ieung , + pattern KEY_Hangul_I , + pattern KEY_Hangul_Hieuh , + pattern KEY_Hangul_Hanja , + pattern KEY_Hangul_End , + pattern KEY_Hangul_EU , + pattern KEY_Hangul_EO , + pattern KEY_Hangul_E , + pattern KEY_Hangul_Dikeud , + pattern KEY_Hangul_Codeinput , + pattern KEY_Hangul_Cieuc , + pattern KEY_Hangul_Banja , + pattern KEY_Hangul_AraeAE , + pattern KEY_Hangul_AraeA , + pattern KEY_Hangul_AE , + pattern KEY_Hangul_A , + pattern KEY_Hangul , + pattern KEY_H , + pattern KEY_Green , + pattern KEY_Greek_zeta , + pattern KEY_Greek_xi , + pattern KEY_Greek_upsilondieresis , + pattern KEY_Greek_upsilonaccentdieresis , + pattern KEY_Greek_upsilonaccent , + pattern KEY_Greek_upsilon , + pattern KEY_Greek_theta , + pattern KEY_Greek_tau , + pattern KEY_Greek_switch , + pattern KEY_Greek_sigma , + pattern KEY_Greek_rho , + pattern KEY_Greek_psi , + pattern KEY_Greek_pi , + pattern KEY_Greek_phi , + pattern KEY_Greek_omicronaccent , + pattern KEY_Greek_omicron , + pattern KEY_Greek_omegaaccent , + pattern KEY_Greek_omega , + pattern KEY_Greek_nu , + pattern KEY_Greek_mu , + pattern KEY_Greek_lamda , + pattern KEY_Greek_lambda , + pattern KEY_Greek_kappa , + pattern KEY_Greek_iotadieresis , + pattern KEY_Greek_iotaaccentdieresis , + pattern KEY_Greek_iotaaccent , + pattern KEY_Greek_iota , + pattern KEY_Greek_horizbar , + pattern KEY_Greek_gamma , + pattern KEY_Greek_finalsmallsigma , + pattern KEY_Greek_etaaccent , + pattern KEY_Greek_eta , + pattern KEY_Greek_epsilonaccent , + pattern KEY_Greek_epsilon , + pattern KEY_Greek_delta , + pattern KEY_Greek_chi , + pattern KEY_Greek_beta , + pattern KEY_Greek_alphaaccent , + pattern KEY_Greek_alpha , + pattern KEY_Greek_accentdieresis , + pattern KEY_Greek_ZETA , + pattern KEY_Greek_XI , + pattern KEY_Greek_UPSILONdieresis , + pattern KEY_Greek_UPSILONaccent , + pattern KEY_Greek_UPSILON , + pattern KEY_Greek_THETA , + pattern KEY_Greek_TAU , + pattern KEY_Greek_SIGMA , + pattern KEY_Greek_RHO , + pattern KEY_Greek_PSI , + pattern KEY_Greek_PI , + pattern KEY_Greek_PHI , + pattern KEY_Greek_OMICRONaccent , + pattern KEY_Greek_OMICRON , + pattern KEY_Greek_OMEGAaccent , + pattern KEY_Greek_OMEGA , + pattern KEY_Greek_NU , + pattern KEY_Greek_MU , + pattern KEY_Greek_LAMDA , + pattern KEY_Greek_LAMBDA , + pattern KEY_Greek_KAPPA , + pattern KEY_Greek_IOTAdieresis , + pattern KEY_Greek_IOTAdiaeresis , + pattern KEY_Greek_IOTAaccent , + pattern KEY_Greek_IOTA , + pattern KEY_Greek_GAMMA , + pattern KEY_Greek_ETAaccent , + pattern KEY_Greek_ETA , + pattern KEY_Greek_EPSILONaccent , + pattern KEY_Greek_EPSILON , + pattern KEY_Greek_DELTA , + pattern KEY_Greek_CHI , + pattern KEY_Greek_BETA , + pattern KEY_Greek_ALPHAaccent , + pattern KEY_Greek_ALPHA , + pattern KEY_Go , + pattern KEY_Georgian_zhar , + pattern KEY_Georgian_zen , + pattern KEY_Georgian_xan , + pattern KEY_Georgian_we , + pattern KEY_Georgian_vin , + pattern KEY_Georgian_un , + pattern KEY_Georgian_tar , + pattern KEY_Georgian_tan , + pattern KEY_Georgian_shin , + pattern KEY_Georgian_san , + pattern KEY_Georgian_rae , + pattern KEY_Georgian_qar , + pattern KEY_Georgian_phar , + pattern KEY_Georgian_par , + pattern KEY_Georgian_on , + pattern KEY_Georgian_nar , + pattern KEY_Georgian_man , + pattern KEY_Georgian_las , + pattern KEY_Georgian_khar , + pattern KEY_Georgian_kan , + pattern KEY_Georgian_jil , + pattern KEY_Georgian_jhan , + pattern KEY_Georgian_in , + pattern KEY_Georgian_hoe , + pattern KEY_Georgian_hie , + pattern KEY_Georgian_he , + pattern KEY_Georgian_har , + pattern KEY_Georgian_hae , + pattern KEY_Georgian_ghan , + pattern KEY_Georgian_gan , + pattern KEY_Georgian_fi , + pattern KEY_Georgian_en , + pattern KEY_Georgian_don , + pattern KEY_Georgian_cil , + pattern KEY_Georgian_chin , + pattern KEY_Georgian_char , + pattern KEY_Georgian_can , + pattern KEY_Georgian_ban , + pattern KEY_Georgian_an , + pattern KEY_Gcircumflex , + pattern KEY_Gcedilla , + pattern KEY_Gcaron , + pattern KEY_Gbreve , + pattern KEY_Game , + pattern KEY_Gabovedot , + pattern KEY_G , + pattern KEY_FrameForward , + pattern KEY_FrameBack , + pattern KEY_Forward , + pattern KEY_First_Virtual_Screen , + pattern KEY_Find , + pattern KEY_Finance , + pattern KEY_Favorites , + pattern KEY_Farsi_yeh , + pattern KEY_Farsi_9 , + pattern KEY_Farsi_8 , + pattern KEY_Farsi_7 , + pattern KEY_Farsi_6 , + pattern KEY_Farsi_5 , + pattern KEY_Farsi_4 , + pattern KEY_Farsi_3 , + pattern KEY_Farsi_2 , + pattern KEY_Farsi_1 , + pattern KEY_Farsi_0 , + pattern KEY_Fabovedot , + pattern KEY_FFrancSign , + pattern KEY_F9 , + pattern KEY_F8 , + pattern KEY_F7 , + pattern KEY_F6 , + pattern KEY_F5 , + pattern KEY_F4 , + pattern KEY_F35 , + pattern KEY_F34 , + pattern KEY_F33 , + pattern KEY_F32 , + pattern KEY_F31 , + pattern KEY_F30 , + pattern KEY_F3 , + pattern KEY_F29 , + pattern KEY_F28 , + pattern KEY_F27 , + pattern KEY_F26 , + pattern KEY_F25 , + pattern KEY_F24 , + pattern KEY_F23 , + pattern KEY_F22 , + pattern KEY_F21 , + pattern KEY_F20 , + pattern KEY_F2 , + pattern KEY_F19 , + pattern KEY_F18 , + pattern KEY_F17 , + pattern KEY_F16 , + pattern KEY_F15 , + pattern KEY_F14 , + pattern KEY_F13 , + pattern KEY_F12 , + pattern KEY_F11 , + pattern KEY_F10 , + pattern KEY_F1 , + pattern KEY_F , + pattern KEY_Explorer , + pattern KEY_Execute , + pattern KEY_Excel , + pattern KEY_EuroSign , + pattern KEY_Etilde , + pattern KEY_Eth , + pattern KEY_Escape , + pattern KEY_Eogonek , + pattern KEY_End , + pattern KEY_Emacron , + pattern KEY_Eject , + pattern KEY_Eisu_toggle , + pattern KEY_Eisu_Shift , + pattern KEY_Ehook , + pattern KEY_Egrave , + pattern KEY_Ediaeresis , + pattern KEY_EcuSign , + pattern KEY_Ecircumflextilde , + pattern KEY_Ecircumflexhook , + pattern KEY_Ecircumflexgrave , + pattern KEY_Ecircumflexbelowdot , + pattern KEY_Ecircumflexacute , + pattern KEY_Ecircumflex , + pattern KEY_Ecaron , + pattern KEY_Ebelowdot , + pattern KEY_Eacute , + pattern KEY_Eabovedot , + pattern KEY_EZH , + pattern KEY_ETH , + pattern KEY_ENG , + pattern KEY_E , + pattern KEY_Dstroke , + pattern KEY_Down , + pattern KEY_DongSign , + pattern KEY_Documents , + pattern KEY_Display , + pattern KEY_Delete , + pattern KEY_Dcaron , + pattern KEY_Dabovedot , + pattern KEY_DOS , + pattern KEY_D , + pattern KEY_Cyrillic_zhe_descender , + pattern KEY_Cyrillic_zhe , + pattern KEY_Cyrillic_ze , + pattern KEY_Cyrillic_yu , + pattern KEY_Cyrillic_yeru , + pattern KEY_Cyrillic_ya , + pattern KEY_Cyrillic_ve , + pattern KEY_Cyrillic_u_straight_bar , + pattern KEY_Cyrillic_u_straight , + pattern KEY_Cyrillic_u_macron , + pattern KEY_Cyrillic_u , + pattern KEY_Cyrillic_tse , + pattern KEY_Cyrillic_te , + pattern KEY_Cyrillic_softsign , + pattern KEY_Cyrillic_shorti , + pattern KEY_Cyrillic_shha , + pattern KEY_Cyrillic_shcha , + pattern KEY_Cyrillic_sha , + pattern KEY_Cyrillic_schwa , + pattern KEY_Cyrillic_pe , + pattern KEY_Cyrillic_o_bar , + pattern KEY_Cyrillic_o , + pattern KEY_Cyrillic_nje , + pattern KEY_Cyrillic_lje , + pattern KEY_Cyrillic_ka_vertstroke , + pattern KEY_Cyrillic_ka_descender , + pattern KEY_Cyrillic_ka , + pattern KEY_Cyrillic_je , + pattern KEY_Cyrillic_io , + pattern KEY_Cyrillic_ie , + pattern KEY_Cyrillic_i_macron , + pattern KEY_Cyrillic_i , + pattern KEY_Cyrillic_hardsign , + pattern KEY_Cyrillic_ha_descender , + pattern KEY_Cyrillic_ha , + pattern KEY_Cyrillic_ghe_bar , + pattern KEY_Cyrillic_ghe , + pattern KEY_Cyrillic_es , + pattern KEY_Cyrillic_er , + pattern KEY_Cyrillic_en_descender , + pattern KEY_Cyrillic_en , + pattern KEY_Cyrillic_em , + pattern KEY_Cyrillic_el , + pattern KEY_Cyrillic_ef , + pattern KEY_Cyrillic_e , + pattern KEY_Cyrillic_dzhe , + pattern KEY_Cyrillic_de , + pattern KEY_Cyrillic_che_vertstroke , + pattern KEY_Cyrillic_che_descender , + pattern KEY_Cyrillic_che , + pattern KEY_Cyrillic_be , + pattern KEY_Cyrillic_a , + pattern KEY_Cyrillic_ZHE_descender , + pattern KEY_Cyrillic_ZHE , + pattern KEY_Cyrillic_ZE , + pattern KEY_Cyrillic_YU , + pattern KEY_Cyrillic_YERU , + pattern KEY_Cyrillic_YA , + pattern KEY_Cyrillic_VE , + pattern KEY_Cyrillic_U_straight_bar , + pattern KEY_Cyrillic_U_straight , + pattern KEY_Cyrillic_U_macron , + pattern KEY_Cyrillic_U , + pattern KEY_Cyrillic_TSE , + pattern KEY_Cyrillic_TE , + pattern KEY_Cyrillic_SOFTSIGN , + pattern KEY_Cyrillic_SHORTI , + pattern KEY_Cyrillic_SHHA , + pattern KEY_Cyrillic_SHCHA , + pattern KEY_Cyrillic_SHA , + pattern KEY_Cyrillic_SCHWA , + pattern KEY_Cyrillic_PE , + pattern KEY_Cyrillic_O_bar , + pattern KEY_Cyrillic_O , + pattern KEY_Cyrillic_NJE , + pattern KEY_Cyrillic_LJE , + pattern KEY_Cyrillic_KA_vertstroke , + pattern KEY_Cyrillic_KA_descender , + pattern KEY_Cyrillic_KA , + pattern KEY_Cyrillic_JE , + pattern KEY_Cyrillic_I_macron , + pattern KEY_Cyrillic_IO , + pattern KEY_Cyrillic_IE , + pattern KEY_Cyrillic_I , + pattern KEY_Cyrillic_HA_descender , + pattern KEY_Cyrillic_HARDSIGN , + pattern KEY_Cyrillic_HA , + pattern KEY_Cyrillic_GHE_bar , + pattern KEY_Cyrillic_GHE , + pattern KEY_Cyrillic_ES , + pattern KEY_Cyrillic_ER , + pattern KEY_Cyrillic_EN_descender , + pattern KEY_Cyrillic_EN , + pattern KEY_Cyrillic_EM , + pattern KEY_Cyrillic_EL , + pattern KEY_Cyrillic_EF , + pattern KEY_Cyrillic_E , + pattern KEY_Cyrillic_DZHE , + pattern KEY_Cyrillic_DE , + pattern KEY_Cyrillic_CHE_vertstroke , + pattern KEY_Cyrillic_CHE_descender , + pattern KEY_Cyrillic_CHE , + pattern KEY_Cyrillic_BE , + pattern KEY_Cyrillic_A , + pattern KEY_CycleAngle , + pattern KEY_Cut , + pattern KEY_CruzeiroSign , + pattern KEY_Copy , + pattern KEY_Control_R , + pattern KEY_Control_L , + pattern KEY_ContrastAdjust , + pattern KEY_Community , + pattern KEY_ColonSign , + pattern KEY_Codeinput , + pattern KEY_Close , + pattern KEY_ClearGrab , + pattern KEY_Clear , + pattern KEY_Ch , + pattern KEY_Ccircumflex , + pattern KEY_Ccedilla , + pattern KEY_Ccaron , + pattern KEY_Caps_Lock , + pattern KEY_Cancel , + pattern KEY_Calendar , + pattern KEY_Calculator , + pattern KEY_Cacute , + pattern KEY_Cabovedot , + pattern KEY_C_h , + pattern KEY_C_H , + pattern KEY_CH , + pattern KEY_CD , + pattern KEY_C , + pattern KEY_Byelorussian_shortu , + pattern KEY_Byelorussian_SHORTU , + pattern KEY_BrightnessAdjust , + pattern KEY_Break , + pattern KEY_BounceKeys_Enable , + pattern KEY_Book , + pattern KEY_Bluetooth , + pattern KEY_Blue , + pattern KEY_Begin , + pattern KEY_Battery , + pattern KEY_BackSpace , + pattern KEY_BackForward , + pattern KEY_Back , + pattern KEY_Babovedot , + pattern KEY_B , + pattern KEY_Away , + pattern KEY_AudioStop , + pattern KEY_AudioRewind , + pattern KEY_AudioRepeat , + pattern KEY_AudioRecord , + pattern KEY_AudioRandomPlay , + pattern KEY_AudioRaiseVolume , + pattern KEY_AudioPrev , + pattern KEY_AudioPlay , + pattern KEY_AudioPause , + pattern KEY_AudioNext , + pattern KEY_AudioMute , + pattern KEY_AudioMicMute , + pattern KEY_AudioMedia , + pattern KEY_AudioLowerVolume , + pattern KEY_AudioForward , + pattern KEY_AudioCycleTrack , + pattern KEY_AudibleBell_Enable , + pattern KEY_Atilde , + pattern KEY_Armenian_zhe , + pattern KEY_Armenian_za , + pattern KEY_Armenian_yentamna , + pattern KEY_Armenian_yech , + pattern KEY_Armenian_vyun , + pattern KEY_Armenian_vo , + pattern KEY_Armenian_vev , + pattern KEY_Armenian_verjaket , + pattern KEY_Armenian_tyun , + pattern KEY_Armenian_tso , + pattern KEY_Armenian_tsa , + pattern KEY_Armenian_to , + pattern KEY_Armenian_tche , + pattern KEY_Armenian_shesht , + pattern KEY_Armenian_sha , + pattern KEY_Armenian_separation_mark , + pattern KEY_Armenian_se , + pattern KEY_Armenian_re , + pattern KEY_Armenian_ra , + pattern KEY_Armenian_question , + pattern KEY_Armenian_pyur , + pattern KEY_Armenian_pe , + pattern KEY_Armenian_paruyk , + pattern KEY_Armenian_o , + pattern KEY_Armenian_nu , + pattern KEY_Armenian_men , + pattern KEY_Armenian_lyun , + pattern KEY_Armenian_ligature_ew , + pattern KEY_Armenian_khe , + pattern KEY_Armenian_ken , + pattern KEY_Armenian_ke , + pattern KEY_Armenian_je , + pattern KEY_Armenian_ini , + pattern KEY_Armenian_hyphen , + pattern KEY_Armenian_ho , + pattern KEY_Armenian_hi , + pattern KEY_Armenian_gim , + pattern KEY_Armenian_ghat , + pattern KEY_Armenian_full_stop , + pattern KEY_Armenian_fe , + pattern KEY_Armenian_exclam , + pattern KEY_Armenian_e , + pattern KEY_Armenian_dza , + pattern KEY_Armenian_da , + pattern KEY_Armenian_cha , + pattern KEY_Armenian_but , + pattern KEY_Armenian_ben , + pattern KEY_Armenian_ayb , + pattern KEY_Armenian_at , + pattern KEY_Armenian_apostrophe , + pattern KEY_Armenian_amanak , + pattern KEY_Armenian_accent , + pattern KEY_Armenian_ZHE , + pattern KEY_Armenian_ZA , + pattern KEY_Armenian_YECH , + pattern KEY_Armenian_VYUN , + pattern KEY_Armenian_VO , + pattern KEY_Armenian_VEV , + pattern KEY_Armenian_TYUN , + pattern KEY_Armenian_TSO , + pattern KEY_Armenian_TSA , + pattern KEY_Armenian_TO , + pattern KEY_Armenian_TCHE , + pattern KEY_Armenian_SHA , + pattern KEY_Armenian_SE , + pattern KEY_Armenian_RE , + pattern KEY_Armenian_RA , + pattern KEY_Armenian_PYUR , + pattern KEY_Armenian_PE , + pattern KEY_Armenian_O , + pattern KEY_Armenian_NU , + pattern KEY_Armenian_MEN , + pattern KEY_Armenian_LYUN , + pattern KEY_Armenian_KHE , + pattern KEY_Armenian_KEN , + pattern KEY_Armenian_KE , + pattern KEY_Armenian_JE , + pattern KEY_Armenian_INI , + pattern KEY_Armenian_HO , + pattern KEY_Armenian_HI , + pattern KEY_Armenian_GIM , + pattern KEY_Armenian_GHAT , + pattern KEY_Armenian_FE , + pattern KEY_Armenian_E , + pattern KEY_Armenian_DZA , + pattern KEY_Armenian_DA , + pattern KEY_Armenian_CHA , + pattern KEY_Armenian_BEN , + pattern KEY_Armenian_AYB , + pattern KEY_Armenian_AT , + pattern KEY_Aring , + pattern KEY_Arabic_zain , + pattern KEY_Arabic_zah , + pattern KEY_Arabic_yeh_baree , + pattern KEY_Arabic_yeh , + pattern KEY_Arabic_waw , + pattern KEY_Arabic_veh , + pattern KEY_Arabic_tteh , + pattern KEY_Arabic_theh , + pattern KEY_Arabic_thal , + pattern KEY_Arabic_tehmarbuta , + pattern KEY_Arabic_teh , + pattern KEY_Arabic_tcheh , + pattern KEY_Arabic_tatweel , + pattern KEY_Arabic_tah , + pattern KEY_Arabic_switch , + pattern KEY_Arabic_superscript_alef , + pattern KEY_Arabic_sukun , + pattern KEY_Arabic_sheen , + pattern KEY_Arabic_shadda , + pattern KEY_Arabic_semicolon , + pattern KEY_Arabic_seen , + pattern KEY_Arabic_sad , + pattern KEY_Arabic_rreh , + pattern KEY_Arabic_ra , + pattern KEY_Arabic_question_mark , + pattern KEY_Arabic_qaf , + pattern KEY_Arabic_percent , + pattern KEY_Arabic_peh , + pattern KEY_Arabic_noon_ghunna , + pattern KEY_Arabic_noon , + pattern KEY_Arabic_meem , + pattern KEY_Arabic_maddaonalef , + pattern KEY_Arabic_madda_above , + pattern KEY_Arabic_lam , + pattern KEY_Arabic_khah , + pattern KEY_Arabic_keheh , + pattern KEY_Arabic_kasratan , + pattern KEY_Arabic_kasra , + pattern KEY_Arabic_kaf , + pattern KEY_Arabic_jeh , + pattern KEY_Arabic_jeem , + pattern KEY_Arabic_heh_goal , + pattern KEY_Arabic_heh_doachashmee , + pattern KEY_Arabic_heh , + pattern KEY_Arabic_hamzaunderalef , + pattern KEY_Arabic_hamzaonyeh , + pattern KEY_Arabic_hamzaonwaw , + pattern KEY_Arabic_hamzaonalef , + pattern KEY_Arabic_hamza_below , + pattern KEY_Arabic_hamza_above , + pattern KEY_Arabic_hamza , + pattern KEY_Arabic_hah , + pattern KEY_Arabic_ha , + pattern KEY_Arabic_ghain , + pattern KEY_Arabic_gaf , + pattern KEY_Arabic_fullstop , + pattern KEY_Arabic_feh , + pattern KEY_Arabic_fathatan , + pattern KEY_Arabic_fatha , + pattern KEY_Arabic_farsi_yeh , + pattern KEY_Arabic_ddal , + pattern KEY_Arabic_dammatan , + pattern KEY_Arabic_damma , + pattern KEY_Arabic_dal , + pattern KEY_Arabic_dad , + pattern KEY_Arabic_comma , + pattern KEY_Arabic_beh , + pattern KEY_Arabic_alefmaksura , + pattern KEY_Arabic_alef , + pattern KEY_Arabic_ain , + pattern KEY_Arabic_9 , + pattern KEY_Arabic_8 , + pattern KEY_Arabic_7 , + pattern KEY_Arabic_6 , + pattern KEY_Arabic_5 , + pattern KEY_Arabic_4 , + pattern KEY_Arabic_3 , + pattern KEY_Arabic_2 , + pattern KEY_Arabic_1 , + pattern KEY_Arabic_0 , + pattern KEY_ApplicationRight , + pattern KEY_ApplicationLeft , + pattern KEY_Aogonek , + pattern KEY_Amacron , + pattern KEY_Alt_R , + pattern KEY_Alt_L , + pattern KEY_Ahook , + pattern KEY_Agrave , + pattern KEY_Adiaeresis , + pattern KEY_AddFavorite , + pattern KEY_Acircumflextilde , + pattern KEY_Acircumflexhook , + pattern KEY_Acircumflexgrave , + pattern KEY_Acircumflexbelowdot , + pattern KEY_Acircumflexacute , + pattern KEY_Acircumflex , + pattern KEY_AccessX_Feedback_Enable , + pattern KEY_AccessX_Enable , + pattern KEY_Abrevetilde , + pattern KEY_Abrevehook , + pattern KEY_Abrevegrave , + pattern KEY_Abrevebelowdot , + pattern KEY_Abreveacute , + pattern KEY_Abreve , + pattern KEY_Abelowdot , + pattern KEY_Aacute , + pattern KEY_AE , + pattern KEY_A , + pattern KEY_9 , + pattern KEY_8 , + pattern KEY_7 , + pattern KEY_6 , + pattern KEY_5 , + pattern KEY_4 , + pattern KEY_3270_Test , + pattern KEY_3270_Setup , + pattern KEY_3270_Rule , + pattern KEY_3270_Right2 , + pattern KEY_3270_Reset , + pattern KEY_3270_Record , + pattern KEY_3270_Quit , + pattern KEY_3270_PrintScreen , + pattern KEY_3270_Play , + pattern KEY_3270_PA3 , + pattern KEY_3270_PA2 , + pattern KEY_3270_PA1 , + pattern KEY_3270_Left2 , + pattern KEY_3270_KeyClick , + pattern KEY_3270_Jump , + pattern KEY_3270_Ident , + pattern KEY_3270_FieldMark , + pattern KEY_3270_ExSelect , + pattern KEY_3270_EraseInput , + pattern KEY_3270_EraseEOF , + pattern KEY_3270_Enter , + pattern KEY_3270_Duplicate , + pattern KEY_3270_DeleteWord , + pattern KEY_3270_CursorSelect , + pattern KEY_3270_CursorBlink , + pattern KEY_3270_Copy , + pattern KEY_3270_ChangeScreen , + pattern KEY_3270_BackTab , + pattern KEY_3270_Attn , + pattern KEY_3270_AltCursor , + pattern KEY_3 , + pattern KEY_2 , + pattern KEY_1 , + pattern KEY_0 , + pattern EVENT_STOP , + pattern EVENT_PROPAGATE , + pattern CURRENT_TIME , + pattern BUTTON_SECONDARY , + pattern BUTTON_PRIMARY , + pattern BUTTON_MIDDLE , + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + + +pattern PRIORITY_REDRAW = 20 :: Int32 + + +pattern PARENT_RELATIVE = 1 :: Int32 + + +pattern MAX_TIMECOORD_AXES = 128 :: Int32 + + +pattern KEY_zstroke = 16777654 :: Int32 + + +pattern KEY_zerosuperior = 16785520 :: Int32 + + +pattern KEY_zerosubscript = 16785536 :: Int32 + + +pattern KEY_zcaron = 446 :: Int32 + + +pattern KEY_zacute = 444 :: Int32 + + +pattern KEY_zabovedot = 447 :: Int32 + + +pattern KEY_z = 122 :: Int32 + + +pattern KEY_ytilde = 16785145 :: Int32 + + +pattern KEY_yhook = 16785143 :: Int32 + + +pattern KEY_ygrave = 16785139 :: Int32 + + +pattern KEY_yen = 165 :: Int32 + + +pattern KEY_ydiaeresis = 255 :: Int32 + + +pattern KEY_ycircumflex = 16777591 :: Int32 + + +pattern KEY_ybelowdot = 16785141 :: Int32 + + +pattern KEY_yacute = 253 :: Int32 + + +pattern KEY_y = 121 :: Int32 + + +pattern KEY_xabovedot = 16785035 :: Int32 + + +pattern KEY_x = 120 :: Int32 + + +pattern KEY_wgrave = 16785025 :: Int32 + + +pattern KEY_wdiaeresis = 16785029 :: Int32 + + +pattern KEY_wcircumflex = 16777589 :: Int32 + + +pattern KEY_wacute = 16785027 :: Int32 + + +pattern KEY_w = 119 :: Int32 + + +pattern KEY_vt = 2537 :: Int32 + + +pattern KEY_voicedsound = 1246 :: Int32 + + +pattern KEY_vertconnector = 2214 :: Int32 + + +pattern KEY_vertbar = 2552 :: Int32 + + +pattern KEY_variation = 2241 :: Int32 + + +pattern KEY_v = 118 :: Int32 + + +pattern KEY_utilde = 1021 :: Int32 + + +pattern KEY_uring = 505 :: Int32 + + +pattern KEY_uptack = 3022 :: Int32 + + +pattern KEY_upstile = 3027 :: Int32 + + +pattern KEY_upshoe = 3011 :: Int32 + + +pattern KEY_uprightcorner = 2539 :: Int32 + + +pattern KEY_upleftcorner = 2540 :: Int32 + + +pattern KEY_upcaret = 2985 :: Int32 + + +pattern KEY_uparrow = 2300 :: Int32 + + +pattern KEY_uogonek = 1017 :: Int32 + + +pattern KEY_union = 2269 :: Int32 + + +pattern KEY_underscore = 95 :: Int32 + + +pattern KEY_underbar = 3014 :: Int32 + + +pattern KEY_umacron = 1022 :: Int32 + + +pattern KEY_uhorntilde = 16785135 :: Int32 + + +pattern KEY_uhornhook = 16785133 :: Int32 + + +pattern KEY_uhorngrave = 16785131 :: Int32 + + +pattern KEY_uhornbelowdot = 16785137 :: Int32 + + +pattern KEY_uhornacute = 16785129 :: Int32 + + +pattern KEY_uhorn = 16777648 :: Int32 + + +pattern KEY_uhook = 16785127 :: Int32 + + +pattern KEY_ugrave = 249 :: Int32 + + +pattern KEY_udoubleacute = 507 :: Int32 + + +pattern KEY_udiaeresis = 252 :: Int32 + + +pattern KEY_ucircumflex = 251 :: Int32 + + +pattern KEY_ubreve = 765 :: Int32 + + +pattern KEY_ubelowdot = 16785125 :: Int32 + + +pattern KEY_uacute = 250 :: Int32 + + +pattern KEY_u = 117 :: Int32 + + +pattern KEY_twothirds = 2737 :: Int32 + + +pattern KEY_twosuperior = 178 :: Int32 + + +pattern KEY_twosubscript = 16785538 :: Int32 + + +pattern KEY_twofifths = 2739 :: Int32 + + +pattern KEY_tslash = 956 :: Int32 + + +pattern KEY_trademarkincircle = 2763 :: Int32 + + +pattern KEY_trademark = 2761 :: Int32 + + +pattern KEY_topvertsummationconnector = 2227 :: Int32 + + +pattern KEY_topt = 2551 :: Int32 + + +pattern KEY_toprightsummation = 2229 :: Int32 + + +pattern KEY_toprightsqbracket = 2217 :: Int32 + + +pattern KEY_toprightparens = 2221 :: Int32 + + +pattern KEY_topleftsummation = 2225 :: Int32 + + +pattern KEY_topleftsqbracket = 2215 :: Int32 + + +pattern KEY_topleftradical = 2210 :: Int32 + + +pattern KEY_topleftparens = 2219 :: Int32 + + +pattern KEY_topintegral = 2212 :: Int32 + + +pattern KEY_tintegral = 16785965 :: Int32 + + +pattern KEY_threesuperior = 179 :: Int32 + + +pattern KEY_threesubscript = 16785539 :: Int32 + + +pattern KEY_threequarters = 190 :: Int32 + + +pattern KEY_threefifths = 2740 :: Int32 + + +pattern KEY_threeeighths = 2756 :: Int32 + + +pattern KEY_thorn = 254 :: Int32 + + +pattern KEY_thinspace = 2727 :: Int32 + + +pattern KEY_therefore = 2240 :: Int32 + + +pattern KEY_telephonerecorder = 2810 :: Int32 + + +pattern KEY_telephone = 2809 :: Int32 + + +pattern KEY_tcedilla = 510 :: Int32 + + +pattern KEY_tcaron = 443 :: Int32 + + +pattern KEY_tabovedot = 16785003 :: Int32 + + +pattern KEY_t = 116 :: Int32 + + +pattern KEY_stricteq = 16786019 :: Int32 + + +pattern KEY_sterling = 163 :: Int32 + + +pattern KEY_ssharp = 223 :: Int32 + + +pattern KEY_squareroot = 16785946 :: Int32 + + +pattern KEY_space = 32 :: Int32 + + +pattern KEY_soliddiamond = 2528 :: Int32 + + +pattern KEY_slash = 47 :: Int32 + + +pattern KEY_sixsuperior = 16785526 :: Int32 + + +pattern KEY_sixsubscript = 16785542 :: Int32 + + +pattern KEY_singlelowquotemark = 2813 :: Int32 + + +pattern KEY_similarequal = 2249 :: Int32 + + +pattern KEY_signifblank = 2732 :: Int32 + + +pattern KEY_signaturemark = 2762 :: Int32 + + +pattern KEY_sevensuperior = 16785527 :: Int32 + + +pattern KEY_sevensubscript = 16785543 :: Int32 + + +pattern KEY_seveneighths = 2758 :: Int32 + + +pattern KEY_semivoicedsound = 1247 :: Int32 + + +pattern KEY_semicolon = 59 :: Int32 + + +pattern KEY_section = 167 :: Int32 + + +pattern KEY_seconds = 2775 :: Int32 + + +pattern KEY_script_switch = 65406 :: Int32 + + +pattern KEY_scircumflex = 766 :: Int32 + + +pattern KEY_schwa = 16777817 :: Int32 + + +pattern KEY_scedilla = 442 :: Int32 + + +pattern KEY_scaron = 441 :: Int32 + + +pattern KEY_sacute = 438 :: Int32 + + +pattern KEY_sabovedot = 16784993 :: Int32 + + +pattern KEY_s = 115 :: Int32 + + +pattern KEY_righttack = 3068 :: Int32 + + +pattern KEY_rightt = 2549 :: Int32 + + +pattern KEY_rightsinglequotemark = 2769 :: Int32 + + +pattern KEY_rightshoe = 3032 :: Int32 + + +pattern KEY_rightpointer = 2795 :: Int32 + + +pattern KEY_rightopentriangle = 2765 :: Int32 + + +pattern KEY_rightmiddlesummation = 2231 :: Int32 + + +pattern KEY_rightmiddlecurlybrace = 2224 :: Int32 + + +pattern KEY_rightdoublequotemark = 2771 :: Int32 + + +pattern KEY_rightcaret = 2982 :: Int32 + + +pattern KEY_rightarrow = 2301 :: Int32 + + +pattern KEY_rightanglebracket = 2750 :: Int32 + + +pattern KEY_registered = 174 :: Int32 + + +pattern KEY_rcedilla = 947 :: Int32 + + +pattern KEY_rcaron = 504 :: Int32 + + +pattern KEY_radical = 2262 :: Int32 + + +pattern KEY_racute = 480 :: Int32 + + +pattern KEY_r = 114 :: Int32 + + +pattern KEY_quoteright = 39 :: Int32 + + +pattern KEY_quoteleft = 96 :: Int32 + + +pattern KEY_quotedbl = 34 :: Int32 + + +pattern KEY_questiondown = 191 :: Int32 + + +pattern KEY_question = 63 :: Int32 + + +pattern KEY_quad = 3020 :: Int32 + + +pattern KEY_q = 113 :: Int32 + + +pattern KEY_punctspace = 2726 :: Int32 + + +pattern KEY_prolongedsound = 1200 :: Int32 + + +pattern KEY_prescription = 2772 :: Int32 + + +pattern KEY_plusminus = 177 :: Int32 + + +pattern KEY_plus = 43 :: Int32 + + +pattern KEY_phonographcopyright = 2811 :: Int32 + + +pattern KEY_permille = 2773 :: Int32 + + +pattern KEY_periodcentered = 183 :: Int32 + + +pattern KEY_period = 46 :: Int32 + + +pattern KEY_percent = 37 :: Int32 + + +pattern KEY_partialderivative = 2287 :: Int32 + + +pattern KEY_partdifferential = 16785922 :: Int32 + + +pattern KEY_parenright = 41 :: Int32 + + +pattern KEY_parenleft = 40 :: Int32 + + +pattern KEY_paragraph = 182 :: Int32 + + +pattern KEY_pabovedot = 16784983 :: Int32 + + +pattern KEY_p = 112 :: Int32 + + +pattern KEY_overline = 1150 :: Int32 + + +pattern KEY_overbar = 3008 :: Int32 + + +pattern KEY_otilde = 245 :: Int32 + + +pattern KEY_oslash = 248 :: Int32 + + +pattern KEY_ordfeminine = 170 :: Int32 + + +pattern KEY_opentribulletup = 2787 :: Int32 + + +pattern KEY_opentribulletdown = 2788 :: Int32 + + +pattern KEY_openstar = 2789 :: Int32 + + +pattern KEY_openrectbullet = 2786 :: Int32 + + +pattern KEY_ooblique = 248 :: Int32 + + +pattern KEY_onethird = 2736 :: Int32 + + +pattern KEY_onesuperior = 185 :: Int32 + + +pattern KEY_onesubscript = 16785537 :: Int32 + + +pattern KEY_onesixth = 2742 :: Int32 + + +pattern KEY_onequarter = 188 :: Int32 + + +pattern KEY_onehalf = 189 :: Int32 + + +pattern KEY_onefifth = 2738 :: Int32 + + +pattern KEY_oneeighth = 2755 :: Int32 + + +pattern KEY_omacron = 1010 :: Int32 + + +pattern KEY_ohorntilde = 16785121 :: Int32 + + +pattern KEY_ohornhook = 16785119 :: Int32 + + +pattern KEY_ohorngrave = 16785117 :: Int32 + + +pattern KEY_ohornbelowdot = 16785123 :: Int32 + + +pattern KEY_ohornacute = 16785115 :: Int32 + + +pattern KEY_ohorn = 16777633 :: Int32 + + +pattern KEY_ohook = 16785103 :: Int32 + + +pattern KEY_ograve = 242 :: Int32 + + +pattern KEY_ogonek = 434 :: Int32 + + +pattern KEY_oe = 5053 :: Int32 + + +pattern KEY_odoubleacute = 501 :: Int32 + + +pattern KEY_odiaeresis = 246 :: Int32 + + +pattern KEY_ocircumflextilde = 16785111 :: Int32 + + +pattern KEY_ocircumflexhook = 16785109 :: Int32 + + +pattern KEY_ocircumflexgrave = 16785107 :: Int32 + + +pattern KEY_ocircumflexbelowdot = 16785113 :: Int32 + + +pattern KEY_ocircumflexacute = 16785105 :: Int32 + + +pattern KEY_ocircumflex = 244 :: Int32 + + +pattern KEY_ocaron = 16777682 :: Int32 + + +pattern KEY_obelowdot = 16785101 :: Int32 + + +pattern KEY_obarred = 16777845 :: Int32 + + +pattern KEY_oacute = 243 :: Int32 + + +pattern KEY_o = 111 :: Int32 + + +pattern KEY_numerosign = 1712 :: Int32 + + +pattern KEY_numbersign = 35 :: Int32 + + +pattern KEY_ntilde = 241 :: Int32 + + +pattern KEY_notsign = 172 :: Int32 + + +pattern KEY_notidentical = 16786018 :: Int32 + + +pattern KEY_notequal = 2237 :: Int32 + + +pattern KEY_notelementof = 16785929 :: Int32 + + +pattern KEY_notapproxeq = 16785991 :: Int32 + + +pattern KEY_nobreakspace = 160 :: Int32 + + +pattern KEY_nl = 2536 :: Int32 + + +pattern KEY_ninesuperior = 16785529 :: Int32 + + +pattern KEY_ninesubscript = 16785545 :: Int32 + + +pattern KEY_ncedilla = 1009 :: Int32 + + +pattern KEY_ncaron = 498 :: Int32 + + +pattern KEY_nacute = 497 :: Int32 + + +pattern KEY_nabla = 2245 :: Int32 + + +pattern KEY_n = 110 :: Int32 + + +pattern KEY_musicalsharp = 2805 :: Int32 + + +pattern KEY_musicalflat = 2806 :: Int32 + + +pattern KEY_multiply = 215 :: Int32 + + +pattern KEY_mu = 181 :: Int32 + + +pattern KEY_minutes = 2774 :: Int32 + + +pattern KEY_minus = 45 :: Int32 + + +pattern KEY_masculine = 186 :: Int32 + + +pattern KEY_marker = 2751 :: Int32 + + +pattern KEY_maltesecross = 2800 :: Int32 + + +pattern KEY_malesymbol = 2807 :: Int32 + + +pattern KEY_macron = 175 :: Int32 + + +pattern KEY_mabovedot = 16784961 :: Int32 + + +pattern KEY_m = 109 :: Int32 + + +pattern KEY_lstroke = 435 :: Int32 + + +pattern KEY_lowrightcorner = 2538 :: Int32 + + +pattern KEY_lowleftcorner = 2541 :: Int32 + + +pattern KEY_logicalor = 2271 :: Int32 + + +pattern KEY_logicaland = 2270 :: Int32 + + +pattern KEY_lf = 2533 :: Int32 + + +pattern KEY_lessthanequal = 2236 :: Int32 + + +pattern KEY_less = 60 :: Int32 + + +pattern KEY_lefttack = 3036 :: Int32 + + +pattern KEY_leftt = 2548 :: Int32 + + +pattern KEY_leftsinglequotemark = 2768 :: Int32 + + +pattern KEY_leftshoe = 3034 :: Int32 + + +pattern KEY_leftradical = 2209 :: Int32 + + +pattern KEY_leftpointer = 2794 :: Int32 + + +pattern KEY_leftopentriangle = 2764 :: Int32 + + +pattern KEY_leftmiddlecurlybrace = 2223 :: Int32 + + +pattern KEY_leftdoublequotemark = 2770 :: Int32 + + +pattern KEY_leftcaret = 2979 :: Int32 + + +pattern KEY_leftarrow = 2299 :: Int32 + + +pattern KEY_leftanglebracket = 2748 :: Int32 + + +pattern KEY_lcedilla = 950 :: Int32 + + +pattern KEY_lcaron = 437 :: Int32 + + +pattern KEY_lbelowdot = 16784951 :: Int32 + + +pattern KEY_latincross = 2777 :: Int32 + + +pattern KEY_lacute = 485 :: Int32 + + +pattern KEY_l = 108 :: Int32 + + +pattern KEY_kra = 930 :: Int32 + + +pattern KEY_kcedilla = 1011 :: Int32 + + +pattern KEY_kappa = 930 :: Int32 + + +pattern KEY_kana_yu = 1197 :: Int32 + + +pattern KEY_kana_yo = 1198 :: Int32 + + +pattern KEY_kana_ya = 1196 :: Int32 + + +pattern KEY_kana_u = 1193 :: Int32 + + +pattern KEY_kana_tu = 1199 :: Int32 + + +pattern KEY_kana_tsu = 1199 :: Int32 + + +pattern KEY_kana_switch = 65406 :: Int32 + + +pattern KEY_kana_openingbracket = 1186 :: Int32 + + +pattern KEY_kana_o = 1195 :: Int32 + + +pattern KEY_kana_middledot = 1189 :: Int32 + + +pattern KEY_kana_i = 1192 :: Int32 + + +pattern KEY_kana_fullstop = 1185 :: Int32 + + +pattern KEY_kana_e = 1194 :: Int32 + + +pattern KEY_kana_conjunctive = 1189 :: Int32 + + +pattern KEY_kana_comma = 1188 :: Int32 + + +pattern KEY_kana_closingbracket = 1187 :: Int32 + + +pattern KEY_kana_a = 1191 :: Int32 + + +pattern KEY_kana_YU = 1237 :: Int32 + + +pattern KEY_kana_YO = 1238 :: Int32 + + +pattern KEY_kana_YA = 1236 :: Int32 + + +pattern KEY_kana_WO = 1190 :: Int32 + + +pattern KEY_kana_WA = 1244 :: Int32 + + +pattern KEY_kana_U = 1203 :: Int32 + + +pattern KEY_kana_TU = 1218 :: Int32 + + +pattern KEY_kana_TSU = 1218 :: Int32 + + +pattern KEY_kana_TO = 1220 :: Int32 + + +pattern KEY_kana_TI = 1217 :: Int32 + + +pattern KEY_kana_TE = 1219 :: Int32 + + +pattern KEY_kana_TA = 1216 :: Int32 + + +pattern KEY_kana_SU = 1213 :: Int32 + + +pattern KEY_kana_SO = 1215 :: Int32 + + +pattern KEY_kana_SHI = 1212 :: Int32 + + +pattern KEY_kana_SE = 1214 :: Int32 + + +pattern KEY_kana_SA = 1211 :: Int32 + + +pattern KEY_kana_RU = 1241 :: Int32 + + +pattern KEY_kana_RO = 1243 :: Int32 + + +pattern KEY_kana_RI = 1240 :: Int32 + + +pattern KEY_kana_RE = 1242 :: Int32 + + +pattern KEY_kana_RA = 1239 :: Int32 + + +pattern KEY_kana_O = 1205 :: Int32 + + +pattern KEY_kana_NU = 1223 :: Int32 + + +pattern KEY_kana_NO = 1225 :: Int32 + + +pattern KEY_kana_NI = 1222 :: Int32 + + +pattern KEY_kana_NE = 1224 :: Int32 + + +pattern KEY_kana_NA = 1221 :: Int32 + + +pattern KEY_kana_N = 1245 :: Int32 + + +pattern KEY_kana_MU = 1233 :: Int32 + + +pattern KEY_kana_MO = 1235 :: Int32 + + +pattern KEY_kana_MI = 1232 :: Int32 + + +pattern KEY_kana_ME = 1234 :: Int32 + + +pattern KEY_kana_MA = 1231 :: Int32 + + +pattern KEY_kana_KU = 1208 :: Int32 + + +pattern KEY_kana_KO = 1210 :: Int32 + + +pattern KEY_kana_KI = 1207 :: Int32 + + +pattern KEY_kana_KE = 1209 :: Int32 + + +pattern KEY_kana_KA = 1206 :: Int32 + + +pattern KEY_kana_I = 1202 :: Int32 + + +pattern KEY_kana_HU = 1228 :: Int32 + + +pattern KEY_kana_HO = 1230 :: Int32 + + +pattern KEY_kana_HI = 1227 :: Int32 + + +pattern KEY_kana_HE = 1229 :: Int32 + + +pattern KEY_kana_HA = 1226 :: Int32 + + +pattern KEY_kana_FU = 1228 :: Int32 + + +pattern KEY_kana_E = 1204 :: Int32 + + +pattern KEY_kana_CHI = 1217 :: Int32 + + +pattern KEY_kana_A = 1201 :: Int32 + + +pattern KEY_k = 107 :: Int32 + + +pattern KEY_jot = 3018 :: Int32 + + +pattern KEY_jcircumflex = 700 :: Int32 + + +pattern KEY_j = 106 :: Int32 + + +pattern KEY_itilde = 949 :: Int32 + + +pattern KEY_iogonek = 999 :: Int32 + + +pattern KEY_intersection = 2268 :: Int32 + + +pattern KEY_integral = 2239 :: Int32 + + +pattern KEY_infinity = 2242 :: Int32 + + +pattern KEY_includes = 2267 :: Int32 + + +pattern KEY_includedin = 2266 :: Int32 + + +pattern KEY_implies = 2254 :: Int32 + + +pattern KEY_imacron = 1007 :: Int32 + + +pattern KEY_ihook = 16785097 :: Int32 + + +pattern KEY_igrave = 236 :: Int32 + + +pattern KEY_ifonlyif = 2253 :: Int32 + + +pattern KEY_idotless = 697 :: Int32 + + +pattern KEY_idiaeresis = 239 :: Int32 + + +pattern KEY_identical = 2255 :: Int32 + + +pattern KEY_icircumflex = 238 :: Int32 + + +pattern KEY_ibreve = 16777517 :: Int32 + + +pattern KEY_ibelowdot = 16785099 :: Int32 + + +pattern KEY_iacute = 237 :: Int32 + + +pattern KEY_iTouch = 269025120 :: Int32 + + +pattern KEY_i = 105 :: Int32 + + +pattern KEY_hyphen = 173 :: Int32 + + +pattern KEY_ht = 2530 :: Int32 + + +pattern KEY_hstroke = 689 :: Int32 + + +pattern KEY_horizlinescan9 = 2547 :: Int32 + + +pattern KEY_horizlinescan7 = 2546 :: Int32 + + +pattern KEY_horizlinescan5 = 2545 :: Int32 + + +pattern KEY_horizlinescan3 = 2544 :: Int32 + + +pattern KEY_horizlinescan1 = 2543 :: Int32 + + +pattern KEY_horizconnector = 2211 :: Int32 + + +pattern KEY_hexagram = 2778 :: Int32 + + +pattern KEY_hebrew_zayin = 3302 :: Int32 + + +pattern KEY_hebrew_zain = 3302 :: Int32 + + +pattern KEY_hebrew_zadi = 3318 :: Int32 + + +pattern KEY_hebrew_zade = 3318 :: Int32 + + +pattern KEY_hebrew_yod = 3305 :: Int32 + + +pattern KEY_hebrew_waw = 3301 :: Int32 + + +pattern KEY_hebrew_teth = 3304 :: Int32 + + +pattern KEY_hebrew_tet = 3304 :: Int32 + + +pattern KEY_hebrew_taw = 3322 :: Int32 + + +pattern KEY_hebrew_taf = 3322 :: Int32 + + +pattern KEY_hebrew_shin = 3321 :: Int32 + + +pattern KEY_hebrew_samekh = 3313 :: Int32 + + +pattern KEY_hebrew_samech = 3313 :: Int32 + + +pattern KEY_hebrew_resh = 3320 :: Int32 + + +pattern KEY_hebrew_qoph = 3319 :: Int32 + + +pattern KEY_hebrew_pe = 3316 :: Int32 + + +pattern KEY_hebrew_nun = 3312 :: Int32 + + +pattern KEY_hebrew_mem = 3310 :: Int32 + + +pattern KEY_hebrew_lamed = 3308 :: Int32 + + +pattern KEY_hebrew_kuf = 3319 :: Int32 + + +pattern KEY_hebrew_kaph = 3307 :: Int32 + + +pattern KEY_hebrew_het = 3303 :: Int32 + + +pattern KEY_hebrew_he = 3300 :: Int32 + + +pattern KEY_hebrew_gimmel = 3298 :: Int32 + + +pattern KEY_hebrew_gimel = 3298 :: Int32 + + +pattern KEY_hebrew_finalzadi = 3317 :: Int32 + + +pattern KEY_hebrew_finalzade = 3317 :: Int32 + + +pattern KEY_hebrew_finalpe = 3315 :: Int32 + + +pattern KEY_hebrew_finalnun = 3311 :: Int32 + + +pattern KEY_hebrew_finalmem = 3309 :: Int32 + + +pattern KEY_hebrew_finalkaph = 3306 :: Int32 + + +pattern KEY_hebrew_doublelowline = 3295 :: Int32 + + +pattern KEY_hebrew_daleth = 3299 :: Int32 + + +pattern KEY_hebrew_dalet = 3299 :: Int32 + + +pattern KEY_hebrew_chet = 3303 :: Int32 + + +pattern KEY_hebrew_beth = 3297 :: Int32 + + +pattern KEY_hebrew_bet = 3297 :: Int32 + + +pattern KEY_hebrew_ayin = 3314 :: Int32 + + +pattern KEY_hebrew_aleph = 3296 :: Int32 + + +pattern KEY_heart = 2798 :: Int32 + + +pattern KEY_hcircumflex = 694 :: Int32 + + +pattern KEY_hairspace = 2728 :: Int32 + + +pattern KEY_h = 104 :: Int32 + + +pattern KEY_guillemotright = 187 :: Int32 + + +pattern KEY_guillemotleft = 171 :: Int32 + + +pattern KEY_greaterthanequal = 2238 :: Int32 + + +pattern KEY_greater = 62 :: Int32 + + +pattern KEY_grave = 96 :: Int32 + + +pattern KEY_gcircumflex = 760 :: Int32 + + +pattern KEY_gcedilla = 955 :: Int32 + + +pattern KEY_gcaron = 16777703 :: Int32 + + +pattern KEY_gbreve = 699 :: Int32 + + +pattern KEY_gabovedot = 757 :: Int32 + + +pattern KEY_g = 103 :: Int32 + + +pattern KEY_function = 2294 :: Int32 + + +pattern KEY_fourthroot = 16785948 :: Int32 + + +pattern KEY_foursuperior = 16785524 :: Int32 + + +pattern KEY_foursubscript = 16785540 :: Int32 + + +pattern KEY_fourfifths = 2741 :: Int32 + + +pattern KEY_fivesuperior = 16785525 :: Int32 + + +pattern KEY_fivesubscript = 16785541 :: Int32 + + +pattern KEY_fivesixths = 2743 :: Int32 + + +pattern KEY_fiveeighths = 2757 :: Int32 + + +pattern KEY_filledtribulletup = 2792 :: Int32 + + +pattern KEY_filledtribulletdown = 2793 :: Int32 + + +pattern KEY_filledrighttribullet = 2781 :: Int32 + + +pattern KEY_filledrectbullet = 2779 :: Int32 + + +pattern KEY_filledlefttribullet = 2780 :: Int32 + + +pattern KEY_figdash = 2747 :: Int32 + + +pattern KEY_ff = 2531 :: Int32 + + +pattern KEY_femalesymbol = 2808 :: Int32 + + +pattern KEY_fabovedot = 16784927 :: Int32 + + +pattern KEY_f = 102 :: Int32 + + +pattern KEY_ezh = 16777874 :: Int32 + + +pattern KEY_exclamdown = 161 :: Int32 + + +pattern KEY_exclam = 33 :: Int32 + + +pattern KEY_etilde = 16785085 :: Int32 + + +pattern KEY_eth = 240 :: Int32 + + +pattern KEY_equal = 61 :: Int32 + + +pattern KEY_eogonek = 490 :: Int32 + + +pattern KEY_enspace = 2722 :: Int32 + + +pattern KEY_enopensquarebullet = 2785 :: Int32 + + +pattern KEY_enopencircbullet = 2784 :: Int32 + + +pattern KEY_eng = 959 :: Int32 + + +pattern KEY_enfilledsqbullet = 2791 :: Int32 + + +pattern KEY_enfilledcircbullet = 2790 :: Int32 + + +pattern KEY_endash = 2730 :: Int32 + + +pattern KEY_emspace = 2721 :: Int32 + + +pattern KEY_emptyset = 16785925 :: Int32 + + +pattern KEY_emopenrectangle = 2767 :: Int32 + + +pattern KEY_emopencircle = 2766 :: Int32 + + +pattern KEY_emfilledrect = 2783 :: Int32 + + +pattern KEY_emfilledcircle = 2782 :: Int32 + + +pattern KEY_emdash = 2729 :: Int32 + + +pattern KEY_emacron = 954 :: Int32 + + +pattern KEY_em4space = 2724 :: Int32 + + +pattern KEY_em3space = 2723 :: Int32 + + +pattern KEY_ellipsis = 2734 :: Int32 + + +pattern KEY_elementof = 16785928 :: Int32 + + +pattern KEY_eightsuperior = 16785528 :: Int32 + + +pattern KEY_eightsubscript = 16785544 :: Int32 + + +pattern KEY_ehook = 16785083 :: Int32 + + +pattern KEY_egrave = 232 :: Int32 + + +pattern KEY_ediaeresis = 235 :: Int32 + + +pattern KEY_ecircumflextilde = 16785093 :: Int32 + + +pattern KEY_ecircumflexhook = 16785091 :: Int32 + + +pattern KEY_ecircumflexgrave = 16785089 :: Int32 + + +pattern KEY_ecircumflexbelowdot = 16785095 :: Int32 + + +pattern KEY_ecircumflexacute = 16785087 :: Int32 + + +pattern KEY_ecircumflex = 234 :: Int32 + + +pattern KEY_ecaron = 492 :: Int32 + + +pattern KEY_ebelowdot = 16785081 :: Int32 + + +pattern KEY_eacute = 233 :: Int32 + + +pattern KEY_eabovedot = 1004 :: Int32 + + +pattern KEY_e = 101 :: Int32 + + +pattern KEY_dstroke = 496 :: Int32 + + +pattern KEY_downtack = 3010 :: Int32 + + +pattern KEY_downstile = 3012 :: Int32 + + +pattern KEY_downshoe = 3030 :: Int32 + + +pattern KEY_downcaret = 2984 :: Int32 + + +pattern KEY_downarrow = 2302 :: Int32 + + +pattern KEY_doublelowquotemark = 2814 :: Int32 + + +pattern KEY_doubledagger = 2802 :: Int32 + + +pattern KEY_doubleacute = 445 :: Int32 + + +pattern KEY_doubbaselinedot = 2735 :: Int32 + + +pattern KEY_dollar = 36 :: Int32 + + +pattern KEY_division = 247 :: Int32 + + +pattern KEY_dintegral = 16785964 :: Int32 + + +pattern KEY_digitspace = 2725 :: Int32 + + +pattern KEY_diamond = 2797 :: Int32 + + +pattern KEY_diaeresis = 168 :: Int32 + + +pattern KEY_degree = 176 :: Int32 + + +pattern KEY_decimalpoint = 2749 :: Int32 + + +pattern KEY_dead_voiced_sound = 65118 :: Int32 + + +pattern KEY_dead_u = 65160 :: Int32 + + +pattern KEY_dead_tilde = 65107 :: Int32 + + +pattern KEY_dead_stroke = 65123 :: Int32 + + +pattern KEY_dead_small_schwa = 65162 :: Int32 + + +pattern KEY_dead_semivoiced_sound = 65119 :: Int32 + + +pattern KEY_dead_psili = 65124 :: Int32 + + +pattern KEY_dead_perispomeni = 65107 :: Int32 + + +pattern KEY_dead_ogonek = 65116 :: Int32 + + +pattern KEY_dead_o = 65158 :: Int32 + + +pattern KEY_dead_macron = 65108 :: Int32 + + +pattern KEY_dead_iota = 65117 :: Int32 + + +pattern KEY_dead_invertedbreve = 65133 :: Int32 + + +pattern KEY_dead_i = 65156 :: Int32 + + +pattern KEY_dead_horn = 65122 :: Int32 + + +pattern KEY_dead_hook = 65121 :: Int32 + + +pattern KEY_dead_greek = 65164 :: Int32 + + +pattern KEY_dead_grave = 65104 :: Int32 + + +pattern KEY_dead_e = 65154 :: Int32 + + +pattern KEY_dead_doublegrave = 65126 :: Int32 + + +pattern KEY_dead_doubleacute = 65113 :: Int32 + + +pattern KEY_dead_diaeresis = 65111 :: Int32 + + +pattern KEY_dead_dasia = 65125 :: Int32 + + +pattern KEY_dead_currency = 65135 :: Int32 + + +pattern KEY_dead_circumflex = 65106 :: Int32 + + +pattern KEY_dead_cedilla = 65115 :: Int32 + + +pattern KEY_dead_caron = 65114 :: Int32 + + +pattern KEY_dead_capital_schwa = 65163 :: Int32 + + +pattern KEY_dead_breve = 65109 :: Int32 + + +pattern KEY_dead_belowtilde = 65130 :: Int32 + + +pattern KEY_dead_belowring = 65127 :: Int32 + + +pattern KEY_dead_belowmacron = 65128 :: Int32 + + +pattern KEY_dead_belowdot = 65120 :: Int32 + + +pattern KEY_dead_belowdiaeresis = 65132 :: Int32 + + +pattern KEY_dead_belowcomma = 65134 :: Int32 + + +pattern KEY_dead_belowcircumflex = 65129 :: Int32 + + +pattern KEY_dead_belowbreve = 65131 :: Int32 + + +pattern KEY_dead_acute = 65105 :: Int32 + + +pattern KEY_dead_abovering = 65112 :: Int32 + + +pattern KEY_dead_abovereversedcomma = 65125 :: Int32 + + +pattern KEY_dead_abovedot = 65110 :: Int32 + + +pattern KEY_dead_abovecomma = 65124 :: Int32 + + +pattern KEY_dead_a = 65152 :: Int32 + + +pattern KEY_dead_U = 65161 :: Int32 + + +pattern KEY_dead_O = 65159 :: Int32 + + +pattern KEY_dead_I = 65157 :: Int32 + + +pattern KEY_dead_E = 65155 :: Int32 + + +pattern KEY_dead_A = 65153 :: Int32 + + +pattern KEY_dcaron = 495 :: Int32 + + +pattern KEY_dagger = 2801 :: Int32 + + +pattern KEY_dabovedot = 16784907 :: Int32 + + +pattern KEY_d = 100 :: Int32 + + +pattern KEY_cursor = 2815 :: Int32 + + +pattern KEY_currency = 164 :: Int32 + + +pattern KEY_cuberoot = 16785947 :: Int32 + + +pattern KEY_crossinglines = 2542 :: Int32 + + +pattern KEY_cr = 2532 :: Int32 + + +pattern KEY_copyright = 169 :: Int32 + + +pattern KEY_containsas = 16785931 :: Int32 + + +pattern KEY_comma = 44 :: Int32 + + +pattern KEY_colon = 58 :: Int32 + + +pattern KEY_club = 2796 :: Int32 + + +pattern KEY_circle = 3023 :: Int32 + + +pattern KEY_checkmark = 2803 :: Int32 + + +pattern KEY_checkerboard = 2529 :: Int32 + + +pattern KEY_ch = 65184 :: Int32 + + +pattern KEY_cent = 162 :: Int32 + + +pattern KEY_cedilla = 184 :: Int32 + + +pattern KEY_ccircumflex = 742 :: Int32 + + +pattern KEY_ccedilla = 231 :: Int32 + + +pattern KEY_ccaron = 488 :: Int32 + + +pattern KEY_caron = 439 :: Int32 + + +pattern KEY_caret = 2812 :: Int32 + + +pattern KEY_careof = 2744 :: Int32 + + +pattern KEY_cacute = 486 :: Int32 + + +pattern KEY_cabovedot = 741 :: Int32 + + +pattern KEY_c_h = 65187 :: Int32 + + +pattern KEY_c = 99 :: Int32 + + +pattern KEY_brokenbar = 166 :: Int32 + + +pattern KEY_breve = 418 :: Int32 + + +pattern KEY_braille_dots_8 = 16787584 :: Int32 + + +pattern KEY_braille_dots_78 = 16787648 :: Int32 + + +pattern KEY_braille_dots_7 = 16787520 :: Int32 + + +pattern KEY_braille_dots_68 = 16787616 :: Int32 + + +pattern KEY_braille_dots_678 = 16787680 :: Int32 + + +pattern KEY_braille_dots_67 = 16787552 :: Int32 + + +pattern KEY_braille_dots_6 = 16787488 :: Int32 + + +pattern KEY_braille_dots_58 = 16787600 :: Int32 + + +pattern KEY_braille_dots_578 = 16787664 :: Int32 + + +pattern KEY_braille_dots_57 = 16787536 :: Int32 + + +pattern KEY_braille_dots_568 = 16787632 :: Int32 + + +pattern KEY_braille_dots_5678 = 16787696 :: Int32 + + +pattern KEY_braille_dots_567 = 16787568 :: Int32 + + +pattern KEY_braille_dots_56 = 16787504 :: Int32 + + +pattern KEY_braille_dots_5 = 16787472 :: Int32 + + +pattern KEY_braille_dots_48 = 16787592 :: Int32 + + +pattern KEY_braille_dots_478 = 16787656 :: Int32 + + +pattern KEY_braille_dots_47 = 16787528 :: Int32 + + +pattern KEY_braille_dots_468 = 16787624 :: Int32 + + +pattern KEY_braille_dots_4678 = 16787688 :: Int32 + + +pattern KEY_braille_dots_467 = 16787560 :: Int32 + + +pattern KEY_braille_dots_46 = 16787496 :: Int32 + + +pattern KEY_braille_dots_458 = 16787608 :: Int32 + + +pattern KEY_braille_dots_4578 = 16787672 :: Int32 + + +pattern KEY_braille_dots_457 = 16787544 :: Int32 + + +pattern KEY_braille_dots_4568 = 16787640 :: Int32 + + +pattern KEY_braille_dots_45678 = 16787704 :: Int32 + + +pattern KEY_braille_dots_4567 = 16787576 :: Int32 + + +pattern KEY_braille_dots_456 = 16787512 :: Int32 + + +pattern KEY_braille_dots_45 = 16787480 :: Int32 + + +pattern KEY_braille_dots_4 = 16787464 :: Int32 + + +pattern KEY_braille_dots_38 = 16787588 :: Int32 + + +pattern KEY_braille_dots_378 = 16787652 :: Int32 + + +pattern KEY_braille_dots_37 = 16787524 :: Int32 + + +pattern KEY_braille_dots_368 = 16787620 :: Int32 + + +pattern KEY_braille_dots_3678 = 16787684 :: Int32 + + +pattern KEY_braille_dots_367 = 16787556 :: Int32 + + +pattern KEY_braille_dots_36 = 16787492 :: Int32 + + +pattern KEY_braille_dots_358 = 16787604 :: Int32 + + +pattern KEY_braille_dots_3578 = 16787668 :: Int32 + + +pattern KEY_braille_dots_357 = 16787540 :: Int32 + + +pattern KEY_braille_dots_3568 = 16787636 :: Int32 + + +pattern KEY_braille_dots_35678 = 16787700 :: Int32 + + +pattern KEY_braille_dots_3567 = 16787572 :: Int32 + + +pattern KEY_braille_dots_356 = 16787508 :: Int32 + + +pattern KEY_braille_dots_35 = 16787476 :: Int32 + + +pattern KEY_braille_dots_348 = 16787596 :: Int32 + + +pattern KEY_braille_dots_3478 = 16787660 :: Int32 + + +pattern KEY_braille_dots_347 = 16787532 :: Int32 + + +pattern KEY_braille_dots_3468 = 16787628 :: Int32 + + +pattern KEY_braille_dots_34678 = 16787692 :: Int32 + + +pattern KEY_braille_dots_3467 = 16787564 :: Int32 + + +pattern KEY_braille_dots_346 = 16787500 :: Int32 + + +pattern KEY_braille_dots_3458 = 16787612 :: Int32 + + +pattern KEY_braille_dots_34578 = 16787676 :: Int32 + + +pattern KEY_braille_dots_3457 = 16787548 :: Int32 + + +pattern KEY_braille_dots_34568 = 16787644 :: Int32 + + +pattern KEY_braille_dots_345678 = 16787708 :: Int32 + + +pattern KEY_braille_dots_34567 = 16787580 :: Int32 + + +pattern KEY_braille_dots_3456 = 16787516 :: Int32 + + +pattern KEY_braille_dots_345 = 16787484 :: Int32 + + +pattern KEY_braille_dots_34 = 16787468 :: Int32 + + +pattern KEY_braille_dots_3 = 16787460 :: Int32 + + +pattern KEY_braille_dots_28 = 16787586 :: Int32 + + +pattern KEY_braille_dots_278 = 16787650 :: Int32 + + +pattern KEY_braille_dots_27 = 16787522 :: Int32 + + +pattern KEY_braille_dots_268 = 16787618 :: Int32 + + +pattern KEY_braille_dots_2678 = 16787682 :: Int32 + + +pattern KEY_braille_dots_267 = 16787554 :: Int32 + + +pattern KEY_braille_dots_26 = 16787490 :: Int32 + + +pattern KEY_braille_dots_258 = 16787602 :: Int32 + + +pattern KEY_braille_dots_2578 = 16787666 :: Int32 + + +pattern KEY_braille_dots_257 = 16787538 :: Int32 + + +pattern KEY_braille_dots_2568 = 16787634 :: Int32 + + +pattern KEY_braille_dots_25678 = 16787698 :: Int32 + + +pattern KEY_braille_dots_2567 = 16787570 :: Int32 + + +pattern KEY_braille_dots_256 = 16787506 :: Int32 + + +pattern KEY_braille_dots_25 = 16787474 :: Int32 + + +pattern KEY_braille_dots_248 = 16787594 :: Int32 + + +pattern KEY_braille_dots_2478 = 16787658 :: Int32 + + +pattern KEY_braille_dots_247 = 16787530 :: Int32 + + +pattern KEY_braille_dots_2468 = 16787626 :: Int32 + + +pattern KEY_braille_dots_24678 = 16787690 :: Int32 + + +pattern KEY_braille_dots_2467 = 16787562 :: Int32 + + +pattern KEY_braille_dots_246 = 16787498 :: Int32 + + +pattern KEY_braille_dots_2458 = 16787610 :: Int32 + + +pattern KEY_braille_dots_24578 = 16787674 :: Int32 + + +pattern KEY_braille_dots_2457 = 16787546 :: Int32 + + +pattern KEY_braille_dots_24568 = 16787642 :: Int32 + + +pattern KEY_braille_dots_245678 = 16787706 :: Int32 + + +pattern KEY_braille_dots_24567 = 16787578 :: Int32 + + +pattern KEY_braille_dots_2456 = 16787514 :: Int32 + + +pattern KEY_braille_dots_245 = 16787482 :: Int32 + + +pattern KEY_braille_dots_24 = 16787466 :: Int32 + + +pattern KEY_braille_dots_238 = 16787590 :: Int32 + + +pattern KEY_braille_dots_2378 = 16787654 :: Int32 + + +pattern KEY_braille_dots_237 = 16787526 :: Int32 + + +pattern KEY_braille_dots_2368 = 16787622 :: Int32 + + +pattern KEY_braille_dots_23678 = 16787686 :: Int32 + + +pattern KEY_braille_dots_2367 = 16787558 :: Int32 + + +pattern KEY_braille_dots_236 = 16787494 :: Int32 + + +pattern KEY_braille_dots_2358 = 16787606 :: Int32 + + +pattern KEY_braille_dots_23578 = 16787670 :: Int32 + + +pattern KEY_braille_dots_2357 = 16787542 :: Int32 + + +pattern KEY_braille_dots_23568 = 16787638 :: Int32 + + +pattern KEY_braille_dots_235678 = 16787702 :: Int32 + + +pattern KEY_braille_dots_23567 = 16787574 :: Int32 + + +pattern KEY_braille_dots_2356 = 16787510 :: Int32 + + +pattern KEY_braille_dots_235 = 16787478 :: Int32 + + +pattern KEY_braille_dots_2348 = 16787598 :: Int32 + + +pattern KEY_braille_dots_23478 = 16787662 :: Int32 + + +pattern KEY_braille_dots_2347 = 16787534 :: Int32 + + +pattern KEY_braille_dots_23468 = 16787630 :: Int32 + + +pattern KEY_braille_dots_234678 = 16787694 :: Int32 + + +pattern KEY_braille_dots_23467 = 16787566 :: Int32 + + +pattern KEY_braille_dots_2346 = 16787502 :: Int32 + + +pattern KEY_braille_dots_23458 = 16787614 :: Int32 + + +pattern KEY_braille_dots_234578 = 16787678 :: Int32 + + +pattern KEY_braille_dots_23457 = 16787550 :: Int32 + + +pattern KEY_braille_dots_234568 = 16787646 :: Int32 + + +pattern KEY_braille_dots_2345678 = 16787710 :: Int32 + + +pattern KEY_braille_dots_234567 = 16787582 :: Int32 + + +pattern KEY_braille_dots_23456 = 16787518 :: Int32 + + +pattern KEY_braille_dots_2345 = 16787486 :: Int32 + + +pattern KEY_braille_dots_234 = 16787470 :: Int32 + + +pattern KEY_braille_dots_23 = 16787462 :: Int32 + + +pattern KEY_braille_dots_2 = 16787458 :: Int32 + + +pattern KEY_braille_dots_18 = 16787585 :: Int32 + + +pattern KEY_braille_dots_178 = 16787649 :: Int32 + + +pattern KEY_braille_dots_17 = 16787521 :: Int32 + + +pattern KEY_braille_dots_168 = 16787617 :: Int32 + + +pattern KEY_braille_dots_1678 = 16787681 :: Int32 + + +pattern KEY_braille_dots_167 = 16787553 :: Int32 + + +pattern KEY_braille_dots_16 = 16787489 :: Int32 + + +pattern KEY_braille_dots_158 = 16787601 :: Int32 + + +pattern KEY_braille_dots_1578 = 16787665 :: Int32 + + +pattern KEY_braille_dots_157 = 16787537 :: Int32 + + +pattern KEY_braille_dots_1568 = 16787633 :: Int32 + + +pattern KEY_braille_dots_15678 = 16787697 :: Int32 + + +pattern KEY_braille_dots_1567 = 16787569 :: Int32 + + +pattern KEY_braille_dots_156 = 16787505 :: Int32 + + +pattern KEY_braille_dots_15 = 16787473 :: Int32 + + +pattern KEY_braille_dots_148 = 16787593 :: Int32 + + +pattern KEY_braille_dots_1478 = 16787657 :: Int32 + + +pattern KEY_braille_dots_147 = 16787529 :: Int32 + + +pattern KEY_braille_dots_1468 = 16787625 :: Int32 + + +pattern KEY_braille_dots_14678 = 16787689 :: Int32 + + +pattern KEY_braille_dots_1467 = 16787561 :: Int32 + + +pattern KEY_braille_dots_146 = 16787497 :: Int32 + + +pattern KEY_braille_dots_1458 = 16787609 :: Int32 + + +pattern KEY_braille_dots_14578 = 16787673 :: Int32 + + +pattern KEY_braille_dots_1457 = 16787545 :: Int32 + + +pattern KEY_braille_dots_14568 = 16787641 :: Int32 + + +pattern KEY_braille_dots_145678 = 16787705 :: Int32 + + +pattern KEY_braille_dots_14567 = 16787577 :: Int32 + + +pattern KEY_braille_dots_1456 = 16787513 :: Int32 + + +pattern KEY_braille_dots_145 = 16787481 :: Int32 + + +pattern KEY_braille_dots_14 = 16787465 :: Int32 + + +pattern KEY_braille_dots_138 = 16787589 :: Int32 + + +pattern KEY_braille_dots_1378 = 16787653 :: Int32 + + +pattern KEY_braille_dots_137 = 16787525 :: Int32 + + +pattern KEY_braille_dots_1368 = 16787621 :: Int32 + + +pattern KEY_braille_dots_13678 = 16787685 :: Int32 + + +pattern KEY_braille_dots_1367 = 16787557 :: Int32 + + +pattern KEY_braille_dots_136 = 16787493 :: Int32 + + +pattern KEY_braille_dots_1358 = 16787605 :: Int32 + + +pattern KEY_braille_dots_13578 = 16787669 :: Int32 + + +pattern KEY_braille_dots_1357 = 16787541 :: Int32 + + +pattern KEY_braille_dots_13568 = 16787637 :: Int32 + + +pattern KEY_braille_dots_135678 = 16787701 :: Int32 + + +pattern KEY_braille_dots_13567 = 16787573 :: Int32 + + +pattern KEY_braille_dots_1356 = 16787509 :: Int32 + + +pattern KEY_braille_dots_135 = 16787477 :: Int32 + + +pattern KEY_braille_dots_1348 = 16787597 :: Int32 + + +pattern KEY_braille_dots_13478 = 16787661 :: Int32 + + +pattern KEY_braille_dots_1347 = 16787533 :: Int32 + + +pattern KEY_braille_dots_13468 = 16787629 :: Int32 + + +pattern KEY_braille_dots_134678 = 16787693 :: Int32 + + +pattern KEY_braille_dots_13467 = 16787565 :: Int32 + + +pattern KEY_braille_dots_1346 = 16787501 :: Int32 + + +pattern KEY_braille_dots_13458 = 16787613 :: Int32 + + +pattern KEY_braille_dots_134578 = 16787677 :: Int32 + + +pattern KEY_braille_dots_13457 = 16787549 :: Int32 + + +pattern KEY_braille_dots_134568 = 16787645 :: Int32 + + +pattern KEY_braille_dots_1345678 = 16787709 :: Int32 + + +pattern KEY_braille_dots_134567 = 16787581 :: Int32 + + +pattern KEY_braille_dots_13456 = 16787517 :: Int32 + + +pattern KEY_braille_dots_1345 = 16787485 :: Int32 + + +pattern KEY_braille_dots_134 = 16787469 :: Int32 + + +pattern KEY_braille_dots_13 = 16787461 :: Int32 + + +pattern KEY_braille_dots_128 = 16787587 :: Int32 + + +pattern KEY_braille_dots_1278 = 16787651 :: Int32 + + +pattern KEY_braille_dots_127 = 16787523 :: Int32 + + +pattern KEY_braille_dots_1268 = 16787619 :: Int32 + + +pattern KEY_braille_dots_12678 = 16787683 :: Int32 + + +pattern KEY_braille_dots_1267 = 16787555 :: Int32 + + +pattern KEY_braille_dots_126 = 16787491 :: Int32 + + +pattern KEY_braille_dots_1258 = 16787603 :: Int32 + + +pattern KEY_braille_dots_12578 = 16787667 :: Int32 + + +pattern KEY_braille_dots_1257 = 16787539 :: Int32 + + +pattern KEY_braille_dots_12568 = 16787635 :: Int32 + + +pattern KEY_braille_dots_125678 = 16787699 :: Int32 + + +pattern KEY_braille_dots_12567 = 16787571 :: Int32 + + +pattern KEY_braille_dots_1256 = 16787507 :: Int32 + + +pattern KEY_braille_dots_125 = 16787475 :: Int32 + + +pattern KEY_braille_dots_1248 = 16787595 :: Int32 + + +pattern KEY_braille_dots_12478 = 16787659 :: Int32 + + +pattern KEY_braille_dots_1247 = 16787531 :: Int32 + + +pattern KEY_braille_dots_12468 = 16787627 :: Int32 + + +pattern KEY_braille_dots_124678 = 16787691 :: Int32 + + +pattern KEY_braille_dots_12467 = 16787563 :: Int32 + + +pattern KEY_braille_dots_1246 = 16787499 :: Int32 + + +pattern KEY_braille_dots_12458 = 16787611 :: Int32 + + +pattern KEY_braille_dots_124578 = 16787675 :: Int32 + + +pattern KEY_braille_dots_12457 = 16787547 :: Int32 + + +pattern KEY_braille_dots_124568 = 16787643 :: Int32 + + +pattern KEY_braille_dots_1245678 = 16787707 :: Int32 + + +pattern KEY_braille_dots_124567 = 16787579 :: Int32 + + +pattern KEY_braille_dots_12456 = 16787515 :: Int32 + + +pattern KEY_braille_dots_1245 = 16787483 :: Int32 + + +pattern KEY_braille_dots_124 = 16787467 :: Int32 + + +pattern KEY_braille_dots_1238 = 16787591 :: Int32 + + +pattern KEY_braille_dots_12378 = 16787655 :: Int32 + + +pattern KEY_braille_dots_1237 = 16787527 :: Int32 + + +pattern KEY_braille_dots_12368 = 16787623 :: Int32 + + +pattern KEY_braille_dots_123678 = 16787687 :: Int32 + + +pattern KEY_braille_dots_12367 = 16787559 :: Int32 + + +pattern KEY_braille_dots_1236 = 16787495 :: Int32 + + +pattern KEY_braille_dots_12358 = 16787607 :: Int32 + + +pattern KEY_braille_dots_123578 = 16787671 :: Int32 + + +pattern KEY_braille_dots_12357 = 16787543 :: Int32 + + +pattern KEY_braille_dots_123568 = 16787639 :: Int32 + + +pattern KEY_braille_dots_1235678 = 16787703 :: Int32 + + +pattern KEY_braille_dots_123567 = 16787575 :: Int32 + + +pattern KEY_braille_dots_12356 = 16787511 :: Int32 + + +pattern KEY_braille_dots_1235 = 16787479 :: Int32 + + +pattern KEY_braille_dots_12348 = 16787599 :: Int32 + + +pattern KEY_braille_dots_123478 = 16787663 :: Int32 + + +pattern KEY_braille_dots_12347 = 16787535 :: Int32 + + +pattern KEY_braille_dots_123468 = 16787631 :: Int32 + + +pattern KEY_braille_dots_1234678 = 16787695 :: Int32 + + +pattern KEY_braille_dots_123467 = 16787567 :: Int32 + + +pattern KEY_braille_dots_12346 = 16787503 :: Int32 + + +pattern KEY_braille_dots_123458 = 16787615 :: Int32 + + +pattern KEY_braille_dots_1234578 = 16787679 :: Int32 + + +pattern KEY_braille_dots_123457 = 16787551 :: Int32 + + +pattern KEY_braille_dots_1234568 = 16787647 :: Int32 + + +pattern KEY_braille_dots_12345678 = 16787711 :: Int32 + + +pattern KEY_braille_dots_1234567 = 16787583 :: Int32 + + +pattern KEY_braille_dots_123456 = 16787519 :: Int32 + + +pattern KEY_braille_dots_12345 = 16787487 :: Int32 + + +pattern KEY_braille_dots_1234 = 16787471 :: Int32 + + +pattern KEY_braille_dots_123 = 16787463 :: Int32 + + +pattern KEY_braille_dots_12 = 16787459 :: Int32 + + +pattern KEY_braille_dots_1 = 16787457 :: Int32 + + +pattern KEY_braille_dot_9 = 65529 :: Int32 + + +pattern KEY_braille_dot_8 = 65528 :: Int32 + + +pattern KEY_braille_dot_7 = 65527 :: Int32 + + +pattern KEY_braille_dot_6 = 65526 :: Int32 + + +pattern KEY_braille_dot_5 = 65525 :: Int32 + + +pattern KEY_braille_dot_4 = 65524 :: Int32 + + +pattern KEY_braille_dot_3 = 65523 :: Int32 + + +pattern KEY_braille_dot_2 = 65522 :: Int32 + + +pattern KEY_braille_dot_10 = 65530 :: Int32 + + +pattern KEY_braille_dot_1 = 65521 :: Int32 + + +pattern KEY_braille_blank = 16787456 :: Int32 + + +pattern KEY_bracketright = 93 :: Int32 + + +pattern KEY_bracketleft = 91 :: Int32 + + +pattern KEY_braceright = 125 :: Int32 + + +pattern KEY_braceleft = 123 :: Int32 + + +pattern KEY_botvertsummationconnector = 2228 :: Int32 + + +pattern KEY_bott = 2550 :: Int32 + + +pattern KEY_botrightsummation = 2230 :: Int32 + + +pattern KEY_botrightsqbracket = 2218 :: Int32 + + +pattern KEY_botrightparens = 2222 :: Int32 + + +pattern KEY_botleftsummation = 2226 :: Int32 + + +pattern KEY_botleftsqbracket = 2216 :: Int32 + + +pattern KEY_botleftparens = 2220 :: Int32 + + +pattern KEY_botintegral = 2213 :: Int32 + + +pattern KEY_blank = 2527 :: Int32 + + +pattern KEY_because = 16785973 :: Int32 + + +pattern KEY_bar = 124 :: Int32 + + +pattern KEY_ballotcross = 2804 :: Int32 + + +pattern KEY_backslash = 92 :: Int32 + + +pattern KEY_babovedot = 16784899 :: Int32 + + +pattern KEY_b = 98 :: Int32 + + +pattern KEY_atilde = 227 :: Int32 + + +pattern KEY_at = 64 :: Int32 + + +pattern KEY_asterisk = 42 :: Int32 + + +pattern KEY_asciitilde = 126 :: Int32 + + +pattern KEY_asciicircum = 94 :: Int32 + + +pattern KEY_aring = 229 :: Int32 + + +pattern KEY_approximate = 2248 :: Int32 + + +pattern KEY_approxeq = 16785992 :: Int32 + + +pattern KEY_apostrophe = 39 :: Int32 + + +pattern KEY_aogonek = 433 :: Int32 + + +pattern KEY_ampersand = 38 :: Int32 + + +pattern KEY_amacron = 992 :: Int32 + + +pattern KEY_ahook = 16785059 :: Int32 + + +pattern KEY_agrave = 224 :: Int32 + + +pattern KEY_ae = 230 :: Int32 + + +pattern KEY_adiaeresis = 228 :: Int32 + + +pattern KEY_acute = 180 :: Int32 + + +pattern KEY_acircumflextilde = 16785067 :: Int32 + + +pattern KEY_acircumflexhook = 16785065 :: Int32 + + +pattern KEY_acircumflexgrave = 16785063 :: Int32 + + +pattern KEY_acircumflexbelowdot = 16785069 :: Int32 + + +pattern KEY_acircumflexacute = 16785061 :: Int32 + + +pattern KEY_acircumflex = 226 :: Int32 + + +pattern KEY_abrevetilde = 16785077 :: Int32 + + +pattern KEY_abrevehook = 16785075 :: Int32 + + +pattern KEY_abrevegrave = 16785073 :: Int32 + + +pattern KEY_abrevebelowdot = 16785079 :: Int32 + + +pattern KEY_abreveacute = 16785071 :: Int32 + + +pattern KEY_abreve = 483 :: Int32 + + +pattern KEY_abovedot = 511 :: Int32 + + +pattern KEY_abelowdot = 16785057 :: Int32 + + +pattern KEY_aacute = 225 :: Int32 + + +pattern KEY_a = 97 :: Int32 + + +pattern KEY_Zstroke = 16777653 :: Int32 + + +pattern KEY_ZoomOut = 269025164 :: Int32 + + +pattern KEY_ZoomIn = 269025163 :: Int32 + + +pattern KEY_Zenkaku_Hankaku = 65322 :: Int32 + + +pattern KEY_Zenkaku = 65320 :: Int32 + + +pattern KEY_Zen_Koho = 65341 :: Int32 + + +pattern KEY_Zcaron = 430 :: Int32 + + +pattern KEY_Zacute = 428 :: Int32 + + +pattern KEY_Zabovedot = 431 :: Int32 + + +pattern KEY_Z = 90 :: Int32 + + +pattern KEY_Ytilde = 16785144 :: Int32 + + +pattern KEY_Yhook = 16785142 :: Int32 + + +pattern KEY_Ygrave = 16785138 :: Int32 + + +pattern KEY_Yellow = 269025189 :: Int32 + + +pattern KEY_Ydiaeresis = 5054 :: Int32 + + +pattern KEY_Ycircumflex = 16777590 :: Int32 + + +pattern KEY_Ybelowdot = 16785140 :: Int32 + + +pattern KEY_Yacute = 221 :: Int32 + + +pattern KEY_Y = 89 :: Int32 + + +pattern KEY_Xfer = 269025162 :: Int32 + + +pattern KEY_Xabovedot = 16785034 :: Int32 + + +pattern KEY_X = 88 :: Int32 + + +pattern KEY_Word = 269025161 :: Int32 + + +pattern KEY_WonSign = 16785577 :: Int32 + + +pattern KEY_WindowClear = 269025109 :: Int32 + + +pattern KEY_WheelButton = 269025160 :: Int32 + + +pattern KEY_Wgrave = 16785024 :: Int32 + + +pattern KEY_WebCam = 269025167 :: Int32 + + +pattern KEY_Wdiaeresis = 16785028 :: Int32 + + +pattern KEY_Wcircumflex = 16777588 :: Int32 + + +pattern KEY_WakeUp = 269025067 :: Int32 + + +pattern KEY_Wacute = 16785026 :: Int32 + + +pattern KEY_WWW = 269025070 :: Int32 + + +pattern KEY_WLAN = 269025173 :: Int32 + + +pattern KEY_W = 87 :: Int32 + + +pattern KEY_VoidSymbol = 16777215 :: Int32 + + +pattern KEY_View = 269025185 :: Int32 + + +pattern KEY_Video = 269025159 :: Int32 + + +pattern KEY_VendorHome = 269025076 :: Int32 + + +pattern KEY_V = 86 :: Int32 + + +pattern KEY_Utilde = 989 :: Int32 + + +pattern KEY_UserPB = 269025156 :: Int32 + + +pattern KEY_User2KB = 269025158 :: Int32 + + +pattern KEY_User1KB = 269025157 :: Int32 + + +pattern KEY_Uring = 473 :: Int32 + + +pattern KEY_Up = 65362 :: Int32 + + +pattern KEY_Uogonek = 985 :: Int32 + + +pattern KEY_Ungrab = 269024800 :: Int32 + + +pattern KEY_Undo = 65381 :: Int32 + + +pattern KEY_Umacron = 990 :: Int32 + + +pattern KEY_Ukranian_yi = 1703 :: Int32 + + +pattern KEY_Ukranian_je = 1700 :: Int32 + + +pattern KEY_Ukranian_i = 1702 :: Int32 + + +pattern KEY_Ukranian_YI = 1719 :: Int32 + + +pattern KEY_Ukranian_JE = 1716 :: Int32 + + +pattern KEY_Ukranian_I = 1718 :: Int32 + + +pattern KEY_Ukrainian_yi = 1703 :: Int32 + + +pattern KEY_Ukrainian_ie = 1700 :: Int32 + + +pattern KEY_Ukrainian_i = 1702 :: Int32 + + +pattern KEY_Ukrainian_ghe_with_upturn = 1709 :: Int32 + + +pattern KEY_Ukrainian_YI = 1719 :: Int32 + + +pattern KEY_Ukrainian_IE = 1716 :: Int32 + + +pattern KEY_Ukrainian_I = 1718 :: Int32 + + +pattern KEY_Ukrainian_GHE_WITH_UPTURN = 1725 :: Int32 + + +pattern KEY_Uhorntilde = 16785134 :: Int32 + + +pattern KEY_Uhornhook = 16785132 :: Int32 + + +pattern KEY_Uhorngrave = 16785130 :: Int32 + + +pattern KEY_Uhornbelowdot = 16785136 :: Int32 + + +pattern KEY_Uhornacute = 16785128 :: Int32 + + +pattern KEY_Uhorn = 16777647 :: Int32 + + +pattern KEY_Uhook = 16785126 :: Int32 + + +pattern KEY_Ugrave = 217 :: Int32 + + +pattern KEY_Udoubleacute = 475 :: Int32 + + +pattern KEY_Udiaeresis = 220 :: Int32 + + +pattern KEY_Ucircumflex = 219 :: Int32 + + +pattern KEY_Ubreve = 733 :: Int32 + + +pattern KEY_Ubelowdot = 16785124 :: Int32 + + +pattern KEY_Uacute = 218 :: Int32 + + +pattern KEY_UWB = 269025174 :: Int32 + + +pattern KEY_U = 85 :: Int32 + + +pattern KEY_Tslash = 940 :: Int32 + + +pattern KEY_Travel = 269025154 :: Int32 + + +pattern KEY_Touroku = 65323 :: Int32 + + +pattern KEY_TouchpadToggle = 269025193 :: Int32 + + +pattern KEY_TouchpadOn = 269025200 :: Int32 + + +pattern KEY_TouchpadOff = 269025201 :: Int32 + + +pattern KEY_TopMenu = 269025186 :: Int32 + + +pattern KEY_Tools = 269025153 :: Int32 + + +pattern KEY_ToDoList = 269025055 :: Int32 + + +pattern KEY_Time = 269025183 :: Int32 + + +pattern KEY_Thorn = 222 :: Int32 + + +pattern KEY_Thai_yoying = 3501 :: Int32 + + +pattern KEY_Thai_yoyak = 3522 :: Int32 + + +pattern KEY_Thai_wowaen = 3527 :: Int32 + + +pattern KEY_Thai_totao = 3509 :: Int32 + + +pattern KEY_Thai_topatak = 3503 :: Int32 + + +pattern KEY_Thai_thothung = 3510 :: Int32 + + +pattern KEY_Thai_thothong = 3512 :: Int32 + + +pattern KEY_Thai_thothan = 3504 :: Int32 + + +pattern KEY_Thai_thothahan = 3511 :: Int32 + + +pattern KEY_Thai_thophuthao = 3506 :: Int32 + + +pattern KEY_Thai_thonangmontho = 3505 :: Int32 + + +pattern KEY_Thai_thanthakhat = 3564 :: Int32 + + +pattern KEY_Thai_sosua = 3530 :: Int32 + + +pattern KEY_Thai_soso = 3499 :: Int32 + + +pattern KEY_Thai_sosala = 3528 :: Int32 + + +pattern KEY_Thai_sorusi = 3529 :: Int32 + + +pattern KEY_Thai_sarauu = 3545 :: Int32 + + +pattern KEY_Thai_sarauee = 3543 :: Int32 + + +pattern KEY_Thai_saraue = 3542 :: Int32 + + +pattern KEY_Thai_sarau = 3544 :: Int32 + + +pattern KEY_Thai_sarao = 3554 :: Int32 + + +pattern KEY_Thai_saraii = 3541 :: Int32 + + +pattern KEY_Thai_sarai = 3540 :: Int32 + + +pattern KEY_Thai_sarae = 3552 :: Int32 + + +pattern KEY_Thai_saraam = 3539 :: Int32 + + +pattern KEY_Thai_saraaimaimuan = 3555 :: Int32 + + +pattern KEY_Thai_saraaimaimalai = 3556 :: Int32 + + +pattern KEY_Thai_saraae = 3553 :: Int32 + + +pattern KEY_Thai_saraaa = 3538 :: Int32 + + +pattern KEY_Thai_saraa = 3536 :: Int32 + + +pattern KEY_Thai_ru = 3524 :: Int32 + + +pattern KEY_Thai_rorua = 3523 :: Int32 + + +pattern KEY_Thai_popla = 3515 :: Int32 + + +pattern KEY_Thai_phosamphao = 3520 :: Int32 + + +pattern KEY_Thai_phophung = 3516 :: Int32 + + +pattern KEY_Thai_phophan = 3518 :: Int32 + + +pattern KEY_Thai_phinthu = 3546 :: Int32 + + +pattern KEY_Thai_paiyannoi = 3535 :: Int32 + + +pattern KEY_Thai_oang = 3533 :: Int32 + + +pattern KEY_Thai_nonu = 3513 :: Int32 + + +pattern KEY_Thai_nonen = 3507 :: Int32 + + +pattern KEY_Thai_nikhahit = 3565 :: Int32 + + +pattern KEY_Thai_ngongu = 3495 :: Int32 + + +pattern KEY_Thai_moma = 3521 :: Int32 + + +pattern KEY_Thai_maiyamok = 3558 :: Int32 + + +pattern KEY_Thai_maitri = 3562 :: Int32 + + +pattern KEY_Thai_maitho = 3561 :: Int32 + + +pattern KEY_Thai_maitaikhu = 3559 :: Int32 + + +pattern KEY_Thai_maihanakat_maitho = 3550 :: Int32 + + +pattern KEY_Thai_maihanakat = 3537 :: Int32 + + +pattern KEY_Thai_maiek = 3560 :: Int32 + + +pattern KEY_Thai_maichattawa = 3563 :: Int32 + + +pattern KEY_Thai_lu = 3526 :: Int32 + + +pattern KEY_Thai_loling = 3525 :: Int32 + + +pattern KEY_Thai_lochula = 3532 :: Int32 + + +pattern KEY_Thai_leksun = 3568 :: Int32 + + +pattern KEY_Thai_leksong = 3570 :: Int32 + + +pattern KEY_Thai_leksi = 3572 :: Int32 + + +pattern KEY_Thai_leksam = 3571 :: Int32 + + +pattern KEY_Thai_lekpaet = 3576 :: Int32 + + +pattern KEY_Thai_leknung = 3569 :: Int32 + + +pattern KEY_Thai_lekkao = 3577 :: Int32 + + +pattern KEY_Thai_lekhok = 3574 :: Int32 + + +pattern KEY_Thai_lekha = 3573 :: Int32 + + +pattern KEY_Thai_lekchet = 3575 :: Int32 + + +pattern KEY_Thai_lakkhangyao = 3557 :: Int32 + + +pattern KEY_Thai_kokai = 3489 :: Int32 + + +pattern KEY_Thai_khorakhang = 3494 :: Int32 + + +pattern KEY_Thai_khokhwai = 3492 :: Int32 + + +pattern KEY_Thai_khokhuat = 3491 :: Int32 + + +pattern KEY_Thai_khokhon = 3493 :: Int32 + + +pattern KEY_Thai_khokhai = 3490 :: Int32 + + +pattern KEY_Thai_honokhuk = 3534 :: Int32 + + +pattern KEY_Thai_hohip = 3531 :: Int32 + + +pattern KEY_Thai_fofan = 3519 :: Int32 + + +pattern KEY_Thai_fofa = 3517 :: Int32 + + +pattern KEY_Thai_dodek = 3508 :: Int32 + + +pattern KEY_Thai_dochada = 3502 :: Int32 + + +pattern KEY_Thai_chochoe = 3500 :: Int32 + + +pattern KEY_Thai_choching = 3497 :: Int32 + + +pattern KEY_Thai_chochang = 3498 :: Int32 + + +pattern KEY_Thai_chochan = 3496 :: Int32 + + +pattern KEY_Thai_bobaimai = 3514 :: Int32 + + +pattern KEY_Thai_baht = 3551 :: Int32 + + +pattern KEY_Terminate_Server = 65237 :: Int32 + + +pattern KEY_Terminal = 269025152 :: Int32 + + +pattern KEY_Tcedilla = 478 :: Int32 + + +pattern KEY_Tcaron = 427 :: Int32 + + +pattern KEY_TaskPane = 269025151 :: Int32 + + +pattern KEY_Tabovedot = 16785002 :: Int32 + + +pattern KEY_Tab = 65289 :: Int32 + + +pattern KEY_THORN = 222 :: Int32 + + +pattern KEY_T = 84 :: Int32 + + +pattern KEY_Sys_Req = 65301 :: Int32 + + +pattern KEY_Switch_VT_9 = 269024777 :: Int32 + + +pattern KEY_Switch_VT_8 = 269024776 :: Int32 + + +pattern KEY_Switch_VT_7 = 269024775 :: Int32 + + +pattern KEY_Switch_VT_6 = 269024774 :: Int32 + + +pattern KEY_Switch_VT_5 = 269024773 :: Int32 + + +pattern KEY_Switch_VT_4 = 269024772 :: Int32 + + +pattern KEY_Switch_VT_3 = 269024771 :: Int32 + + +pattern KEY_Switch_VT_2 = 269024770 :: Int32 + + +pattern KEY_Switch_VT_12 = 269024780 :: Int32 + + +pattern KEY_Switch_VT_11 = 269024779 :: Int32 + + +pattern KEY_Switch_VT_10 = 269024778 :: Int32 + + +pattern KEY_Switch_VT_1 = 269024769 :: Int32 + + +pattern KEY_Suspend = 269025191 :: Int32 + + +pattern KEY_Support = 269025150 :: Int32 + + +pattern KEY_Super_R = 65516 :: Int32 + + +pattern KEY_Super_L = 65515 :: Int32 + + +pattern KEY_Subtitle = 269025178 :: Int32 + + +pattern KEY_Stop = 269025064 :: Int32 + + +pattern KEY_StickyKeys_Enable = 65141 :: Int32 + + +pattern KEY_Start = 269025050 :: Int32 + + +pattern KEY_Standby = 269025040 :: Int32 + + +pattern KEY_SplitScreen = 269025149 :: Int32 + + +pattern KEY_Spell = 269025148 :: Int32 + + +pattern KEY_SlowKeys_Enable = 65139 :: Int32 + + +pattern KEY_Sleep = 269025071 :: Int32 + + +pattern KEY_Sinh_ya = 16780730 :: Int32 + + +pattern KEY_Sinh_va = 16780736 :: Int32 + + +pattern KEY_Sinh_uu2 = 16780758 :: Int32 + + +pattern KEY_Sinh_uu = 16780684 :: Int32 + + +pattern KEY_Sinh_u2 = 16780756 :: Int32 + + +pattern KEY_Sinh_u = 16780683 :: Int32 + + +pattern KEY_Sinh_ttha = 16780712 :: Int32 + + +pattern KEY_Sinh_tta = 16780711 :: Int32 + + +pattern KEY_Sinh_thha = 16780718 :: Int32 + + +pattern KEY_Sinh_tha = 16780717 :: Int32 + + +pattern KEY_Sinh_ssha = 16780738 :: Int32 + + +pattern KEY_Sinh_sha = 16780737 :: Int32 + + +pattern KEY_Sinh_sa = 16780739 :: Int32 + + +pattern KEY_Sinh_ruu2 = 16780786 :: Int32 + + +pattern KEY_Sinh_ru2 = 16780760 :: Int32 + + +pattern KEY_Sinh_rii = 16780686 :: Int32 + + +pattern KEY_Sinh_ri = 16780685 :: Int32 + + +pattern KEY_Sinh_ra = 16780731 :: Int32 + + +pattern KEY_Sinh_pha = 16780725 :: Int32 + + +pattern KEY_Sinh_pa = 16780724 :: Int32 + + +pattern KEY_Sinh_oo2 = 16780765 :: Int32 + + +pattern KEY_Sinh_oo = 16780693 :: Int32 + + +pattern KEY_Sinh_o2 = 16780764 :: Int32 + + +pattern KEY_Sinh_o = 16780692 :: Int32 + + +pattern KEY_Sinh_nya = 16780708 :: Int32 + + +pattern KEY_Sinh_nna = 16780715 :: Int32 + + +pattern KEY_Sinh_nja = 16780710 :: Int32 + + +pattern KEY_Sinh_nga = 16780703 :: Int32 + + +pattern KEY_Sinh_ng2 = 16780702 :: Int32 + + +pattern KEY_Sinh_ng = 16780674 :: Int32 + + +pattern KEY_Sinh_ndha = 16780723 :: Int32 + + +pattern KEY_Sinh_ndda = 16780716 :: Int32 + + +pattern KEY_Sinh_na = 16780721 :: Int32 + + +pattern KEY_Sinh_mba = 16780729 :: Int32 + + +pattern KEY_Sinh_ma = 16780728 :: Int32 + + +pattern KEY_Sinh_luu2 = 16780787 :: Int32 + + +pattern KEY_Sinh_luu = 16780688 :: Int32 + + +pattern KEY_Sinh_lu2 = 16780767 :: Int32 + + +pattern KEY_Sinh_lu = 16780687 :: Int32 + + +pattern KEY_Sinh_lla = 16780741 :: Int32 + + +pattern KEY_Sinh_la = 16780733 :: Int32 + + +pattern KEY_Sinh_kunddaliya = 16780788 :: Int32 + + +pattern KEY_Sinh_kha = 16780699 :: Int32 + + +pattern KEY_Sinh_ka = 16780698 :: Int32 + + +pattern KEY_Sinh_jnya = 16780709 :: Int32 + + +pattern KEY_Sinh_jha = 16780707 :: Int32 + + +pattern KEY_Sinh_ja = 16780706 :: Int32 + + +pattern KEY_Sinh_ii2 = 16780755 :: Int32 + + +pattern KEY_Sinh_ii = 16780682 :: Int32 + + +pattern KEY_Sinh_i2 = 16780754 :: Int32 + + +pattern KEY_Sinh_i = 16780681 :: Int32 + + +pattern KEY_Sinh_ha = 16780740 :: Int32 + + +pattern KEY_Sinh_h2 = 16780675 :: Int32 + + +pattern KEY_Sinh_gha = 16780701 :: Int32 + + +pattern KEY_Sinh_ga = 16780700 :: Int32 + + +pattern KEY_Sinh_fa = 16780742 :: Int32 + + +pattern KEY_Sinh_ee2 = 16780762 :: Int32 + + +pattern KEY_Sinh_ee = 16780690 :: Int32 + + +pattern KEY_Sinh_e2 = 16780761 :: Int32 + + +pattern KEY_Sinh_e = 16780689 :: Int32 + + +pattern KEY_Sinh_dhha = 16780720 :: Int32 + + +pattern KEY_Sinh_dha = 16780719 :: Int32 + + +pattern KEY_Sinh_ddha = 16780714 :: Int32 + + +pattern KEY_Sinh_dda = 16780713 :: Int32 + + +pattern KEY_Sinh_cha = 16780705 :: Int32 + + +pattern KEY_Sinh_ca = 16780704 :: Int32 + + +pattern KEY_Sinh_bha = 16780727 :: Int32 + + +pattern KEY_Sinh_ba = 16780726 :: Int32 + + +pattern KEY_Sinh_au2 = 16780766 :: Int32 + + +pattern KEY_Sinh_au = 16780694 :: Int32 + + +pattern KEY_Sinh_al = 16780746 :: Int32 + + +pattern KEY_Sinh_ai2 = 16780763 :: Int32 + + +pattern KEY_Sinh_ai = 16780691 :: Int32 + + +pattern KEY_Sinh_aee2 = 16780753 :: Int32 + + +pattern KEY_Sinh_aee = 16780680 :: Int32 + + +pattern KEY_Sinh_ae2 = 16780752 :: Int32 + + +pattern KEY_Sinh_ae = 16780679 :: Int32 + + +pattern KEY_Sinh_aa2 = 16780751 :: Int32 + + +pattern KEY_Sinh_aa = 16780678 :: Int32 + + +pattern KEY_Sinh_a = 16780677 :: Int32 + + +pattern KEY_SingleCandidate = 65340 :: Int32 + + +pattern KEY_Shop = 269025078 :: Int32 + + +pattern KEY_Shift_R = 65506 :: Int32 + + +pattern KEY_Shift_Lock = 65510 :: Int32 + + +pattern KEY_Shift_L = 65505 :: Int32 + + +pattern KEY_Serbian_tshe = 1707 :: Int32 + + +pattern KEY_Serbian_nje = 1706 :: Int32 + + +pattern KEY_Serbian_lje = 1705 :: Int32 + + +pattern KEY_Serbian_je = 1704 :: Int32 + + +pattern KEY_Serbian_dze = 1711 :: Int32 + + +pattern KEY_Serbian_dje = 1697 :: Int32 + + +pattern KEY_Serbian_TSHE = 1723 :: Int32 + + +pattern KEY_Serbian_NJE = 1722 :: Int32 + + +pattern KEY_Serbian_LJE = 1721 :: Int32 + + +pattern KEY_Serbian_JE = 1720 :: Int32 + + +pattern KEY_Serbian_DZE = 1727 :: Int32 + + +pattern KEY_Serbian_DJE = 1713 :: Int32 + + +pattern KEY_Send = 269025147 :: Int32 + + +pattern KEY_SelectButton = 269025184 :: Int32 + + +pattern KEY_Select = 65376 :: Int32 + + +pattern KEY_Search = 269025051 :: Int32 + + +pattern KEY_Scroll_Lock = 65300 :: Int32 + + +pattern KEY_ScrollUp = 269025144 :: Int32 + + +pattern KEY_ScrollDown = 269025145 :: Int32 + + +pattern KEY_ScrollClick = 269025146 :: Int32 + + +pattern KEY_ScreenSaver = 269025069 :: Int32 + + +pattern KEY_Scircumflex = 734 :: Int32 + + +pattern KEY_Scedilla = 426 :: Int32 + + +pattern KEY_Scaron = 425 :: Int32 + + +pattern KEY_Save = 269025143 :: Int32 + + +pattern KEY_Sacute = 422 :: Int32 + + +pattern KEY_Sabovedot = 16784992 :: Int32 + + +pattern KEY_SCHWA = 16777615 :: Int32 + + +pattern KEY_S = 83 :: Int32 + + +pattern KEY_RupeeSign = 16785576 :: Int32 + + +pattern KEY_RotationPB = 269025141 :: Int32 + + +pattern KEY_RotationKB = 269025142 :: Int32 + + +pattern KEY_RotateWindows = 269025140 :: Int32 + + +pattern KEY_Romaji = 65316 :: Int32 + + +pattern KEY_RockerUp = 269025059 :: Int32 + + +pattern KEY_RockerEnter = 269025061 :: Int32 + + +pattern KEY_RockerDown = 269025060 :: Int32 + + +pattern KEY_Right = 65363 :: Int32 + + +pattern KEY_Return = 65293 :: Int32 + + +pattern KEY_Reply = 269025138 :: Int32 + + +pattern KEY_RepeatKeys_Enable = 65138 :: Int32 + + +pattern KEY_Reload = 269025139 :: Int32 + + +pattern KEY_Refresh = 269025065 :: Int32 + + +pattern KEY_Redo = 65382 :: Int32 + + +pattern KEY_Red = 269025187 :: Int32 + + +pattern KEY_Rcedilla = 931 :: Int32 + + +pattern KEY_Rcaron = 472 :: Int32 + + +pattern KEY_Racute = 448 :: Int32 + + +pattern KEY_R9 = 65498 :: Int32 + + +pattern KEY_R8 = 65497 :: Int32 + + +pattern KEY_R7 = 65496 :: Int32 + + +pattern KEY_R6 = 65495 :: Int32 + + +pattern KEY_R5 = 65494 :: Int32 + + +pattern KEY_R4 = 65493 :: Int32 + + +pattern KEY_R3 = 65492 :: Int32 + + +pattern KEY_R2 = 65491 :: Int32 + + +pattern KEY_R15 = 65504 :: Int32 + + +pattern KEY_R14 = 65503 :: Int32 + + +pattern KEY_R13 = 65502 :: Int32 + + +pattern KEY_R12 = 65501 :: Int32 + + +pattern KEY_R11 = 65500 :: Int32 + + +pattern KEY_R10 = 65499 :: Int32 + + +pattern KEY_R1 = 65490 :: Int32 + + +pattern KEY_R = 82 :: Int32 + + +pattern KEY_Q = 81 :: Int32 + + +pattern KEY_Prior = 65365 :: Int32 + + +pattern KEY_Print = 65377 :: Int32 + + +pattern KEY_PreviousCandidate = 65342 :: Int32 + + +pattern KEY_Prev_Virtual_Screen = 65233 :: Int32 + + +pattern KEY_Prev_VMode = 269024803 :: Int32 + + +pattern KEY_PowerOff = 269025066 :: Int32 + + +pattern KEY_PowerDown = 269025057 :: Int32 + + +pattern KEY_Pointer_UpRight = 65253 :: Int32 + + +pattern KEY_Pointer_UpLeft = 65252 :: Int32 + + +pattern KEY_Pointer_Up = 65250 :: Int32 + + +pattern KEY_Pointer_Right = 65249 :: Int32 + + +pattern KEY_Pointer_Left = 65248 :: Int32 + + +pattern KEY_Pointer_EnableKeys = 65273 :: Int32 + + +pattern KEY_Pointer_Drag_Dflt = 65268 :: Int32 + + +pattern KEY_Pointer_Drag5 = 65277 :: Int32 + + +pattern KEY_Pointer_Drag4 = 65272 :: Int32 + + +pattern KEY_Pointer_Drag3 = 65271 :: Int32 + + +pattern KEY_Pointer_Drag2 = 65270 :: Int32 + + +pattern KEY_Pointer_Drag1 = 65269 :: Int32 + + +pattern KEY_Pointer_DownRight = 65255 :: Int32 + + +pattern KEY_Pointer_DownLeft = 65254 :: Int32 + + +pattern KEY_Pointer_Down = 65251 :: Int32 + + +pattern KEY_Pointer_DfltBtnPrev = 65276 :: Int32 + + +pattern KEY_Pointer_DfltBtnNext = 65275 :: Int32 + + +pattern KEY_Pointer_DblClick_Dflt = 65262 :: Int32 + + +pattern KEY_Pointer_DblClick5 = 65267 :: Int32 + + +pattern KEY_Pointer_DblClick4 = 65266 :: Int32 + + +pattern KEY_Pointer_DblClick3 = 65265 :: Int32 + + +pattern KEY_Pointer_DblClick2 = 65264 :: Int32 + + +pattern KEY_Pointer_DblClick1 = 65263 :: Int32 + + +pattern KEY_Pointer_Button_Dflt = 65256 :: Int32 + + +pattern KEY_Pointer_Button5 = 65261 :: Int32 + + +pattern KEY_Pointer_Button4 = 65260 :: Int32 + + +pattern KEY_Pointer_Button3 = 65259 :: Int32 + + +pattern KEY_Pointer_Button2 = 65258 :: Int32 + + +pattern KEY_Pointer_Button1 = 65257 :: Int32 + + +pattern KEY_Pointer_Accelerate = 65274 :: Int32 + + +pattern KEY_Pictures = 269025169 :: Int32 + + +pattern KEY_Phone = 269025134 :: Int32 + + +pattern KEY_PesetaSign = 16785575 :: Int32 + + +pattern KEY_Pause = 65299 :: Int32 + + +pattern KEY_Paste = 269025133 :: Int32 + + +pattern KEY_Page_Up = 65365 :: Int32 + + +pattern KEY_Page_Down = 65366 :: Int32 + + +pattern KEY_Pabovedot = 16784982 :: Int32 + + +pattern KEY_P = 80 :: Int32 + + +pattern KEY_Overlay2_Enable = 65145 :: Int32 + + +pattern KEY_Overlay1_Enable = 65144 :: Int32 + + +pattern KEY_Otilde = 213 :: Int32 + + +pattern KEY_Oslash = 216 :: Int32 + + +pattern KEY_Option = 269025132 :: Int32 + + +pattern KEY_OpenURL = 269025080 :: Int32 + + +pattern KEY_Open = 269025131 :: Int32 + + +pattern KEY_Ooblique = 216 :: Int32 + + +pattern KEY_Omacron = 978 :: Int32 + + +pattern KEY_Ohorntilde = 16785120 :: Int32 + + +pattern KEY_Ohornhook = 16785118 :: Int32 + + +pattern KEY_Ohorngrave = 16785116 :: Int32 + + +pattern KEY_Ohornbelowdot = 16785122 :: Int32 + + +pattern KEY_Ohornacute = 16785114 :: Int32 + + +pattern KEY_Ohorn = 16777632 :: Int32 + + +pattern KEY_Ohook = 16785102 :: Int32 + + +pattern KEY_Ograve = 210 :: Int32 + + +pattern KEY_OfficeHome = 269025130 :: Int32 + + +pattern KEY_Odoubleacute = 469 :: Int32 + + +pattern KEY_Odiaeresis = 214 :: Int32 + + +pattern KEY_Ocircumflextilde = 16785110 :: Int32 + + +pattern KEY_Ocircumflexhook = 16785108 :: Int32 + + +pattern KEY_Ocircumflexgrave = 16785106 :: Int32 + + +pattern KEY_Ocircumflexbelowdot = 16785112 :: Int32 + + +pattern KEY_Ocircumflexacute = 16785104 :: Int32 + + +pattern KEY_Ocircumflex = 212 :: Int32 + + +pattern KEY_Ocaron = 16777681 :: Int32 + + +pattern KEY_Obelowdot = 16785100 :: Int32 + + +pattern KEY_Obarred = 16777631 :: Int32 + + +pattern KEY_Oacute = 211 :: Int32 + + +pattern KEY_OE = 5052 :: Int32 + + +pattern KEY_O = 79 :: Int32 + + +pattern KEY_Num_Lock = 65407 :: Int32 + + +pattern KEY_Ntilde = 209 :: Int32 + + +pattern KEY_Next_Virtual_Screen = 65234 :: Int32 + + +pattern KEY_Next_VMode = 269024802 :: Int32 + + +pattern KEY_Next = 65366 :: Int32 + + +pattern KEY_News = 269025129 :: Int32 + + +pattern KEY_NewSheqelSign = 16785578 :: Int32 + + +pattern KEY_New = 269025128 :: Int32 + + +pattern KEY_Ncedilla = 977 :: Int32 + + +pattern KEY_Ncaron = 466 :: Int32 + + +pattern KEY_NairaSign = 16785574 :: Int32 + + +pattern KEY_Nacute = 465 :: Int32 + + +pattern KEY_N = 78 :: Int32 + + +pattern KEY_MySites = 269025127 :: Int32 + + +pattern KEY_MyComputer = 269025075 :: Int32 + + +pattern KEY_Music = 269025170 :: Int32 + + +pattern KEY_MultipleCandidate = 65341 :: Int32 + + +pattern KEY_Multi_key = 65312 :: Int32 + + +pattern KEY_Muhenkan = 65314 :: Int32 + + +pattern KEY_MouseKeys_Enable = 65142 :: Int32 + + +pattern KEY_MouseKeys_Accel_Enable = 65143 :: Int32 + + +pattern KEY_MonBrightnessUp = 269025026 :: Int32 + + +pattern KEY_MonBrightnessDown = 269025027 :: Int32 + + +pattern KEY_Mode_switch = 65406 :: Int32 + + +pattern KEY_ModeLock = 269025025 :: Int32 + + +pattern KEY_MillSign = 16785573 :: Int32 + + +pattern KEY_Meta_R = 65512 :: Int32 + + +pattern KEY_Meta_L = 65511 :: Int32 + + +pattern KEY_Messenger = 269025166 :: Int32 + + +pattern KEY_MenuPB = 269025126 :: Int32 + + +pattern KEY_MenuKB = 269025125 :: Int32 + + +pattern KEY_Menu = 65383 :: Int32 + + +pattern KEY_Memo = 269025054 :: Int32 + + +pattern KEY_Meeting = 269025123 :: Int32 + + +pattern KEY_Massyo = 65324 :: Int32 + + +pattern KEY_Market = 269025122 :: Int32 + + +pattern KEY_MailForward = 269025168 :: Int32 + + +pattern KEY_Mail = 269025049 :: Int32 + + +pattern KEY_Mae_Koho = 65342 :: Int32 + + +pattern KEY_Macedonia_kje = 1708 :: Int32 + + +pattern KEY_Macedonia_gje = 1698 :: Int32 + + +pattern KEY_Macedonia_dse = 1701 :: Int32 + + +pattern KEY_Macedonia_KJE = 1724 :: Int32 + + +pattern KEY_Macedonia_GJE = 1714 :: Int32 + + +pattern KEY_Macedonia_DSE = 1717 :: Int32 + + +pattern KEY_Mabovedot = 16784960 :: Int32 + + +pattern KEY_M = 77 :: Int32 + + +pattern KEY_Lstroke = 419 :: Int32 + + +pattern KEY_LogWindowTree = 269024804 :: Int32 + + +pattern KEY_LogOff = 269025121 :: Int32 + + +pattern KEY_LogGrabInfo = 269024805 :: Int32 + + +pattern KEY_LiraSign = 16785572 :: Int32 + + +pattern KEY_Linefeed = 65290 :: Int32 + + +pattern KEY_LightBulb = 269025077 :: Int32 + + +pattern KEY_Left = 65361 :: Int32 + + +pattern KEY_Lcedilla = 934 :: Int32 + + +pattern KEY_Lcaron = 421 :: Int32 + + +pattern KEY_Lbelowdot = 16784950 :: Int32 + + +pattern KEY_LaunchF = 269025103 :: Int32 + + +pattern KEY_LaunchE = 269025102 :: Int32 + + +pattern KEY_LaunchD = 269025101 :: Int32 + + +pattern KEY_LaunchC = 269025100 :: Int32 + + +pattern KEY_LaunchB = 269025099 :: Int32 + + +pattern KEY_LaunchA = 269025098 :: Int32 + + +pattern KEY_Launch9 = 269025097 :: Int32 + + +pattern KEY_Launch8 = 269025096 :: Int32 + + +pattern KEY_Launch7 = 269025095 :: Int32 + + +pattern KEY_Launch6 = 269025094 :: Int32 + + +pattern KEY_Launch5 = 269025093 :: Int32 + + +pattern KEY_Launch4 = 269025092 :: Int32 + + +pattern KEY_Launch3 = 269025091 :: Int32 + + +pattern KEY_Launch2 = 269025090 :: Int32 + + +pattern KEY_Launch1 = 269025089 :: Int32 + + +pattern KEY_Launch0 = 269025088 :: Int32 + + +pattern KEY_Last_Virtual_Screen = 65236 :: Int32 + + +pattern KEY_Lacute = 453 :: Int32 + + +pattern KEY_L9 = 65488 :: Int32 + + +pattern KEY_L8 = 65487 :: Int32 + + +pattern KEY_L7 = 65486 :: Int32 + + +pattern KEY_L6 = 65485 :: Int32 + + +pattern KEY_L5 = 65484 :: Int32 + + +pattern KEY_L4 = 65483 :: Int32 + + +pattern KEY_L3 = 65482 :: Int32 + + +pattern KEY_L2 = 65481 :: Int32 + + +pattern KEY_L10 = 65489 :: Int32 + + +pattern KEY_L1 = 65480 :: Int32 + + +pattern KEY_L = 76 :: Int32 + + +pattern KEY_Korean_Won = 3839 :: Int32 + + +pattern KEY_Kcedilla = 979 :: Int32 + + +pattern KEY_KbdLightOnOff = 269025028 :: Int32 + + +pattern KEY_KbdBrightnessUp = 269025029 :: Int32 + + +pattern KEY_KbdBrightnessDown = 269025030 :: Int32 + + +pattern KEY_Katakana = 65318 :: Int32 + + +pattern KEY_Kanji_Bangou = 65335 :: Int32 + + +pattern KEY_Kanji = 65313 :: Int32 + + +pattern KEY_Kana_Shift = 65326 :: Int32 + + +pattern KEY_Kana_Lock = 65325 :: Int32 + + +pattern KEY_KP_Up = 65431 :: Int32 + + +pattern KEY_KP_Tab = 65417 :: Int32 + + +pattern KEY_KP_Subtract = 65453 :: Int32 + + +pattern KEY_KP_Space = 65408 :: Int32 + + +pattern KEY_KP_Separator = 65452 :: Int32 + + +pattern KEY_KP_Right = 65432 :: Int32 + + +pattern KEY_KP_Prior = 65434 :: Int32 + + +pattern KEY_KP_Page_Up = 65434 :: Int32 + + +pattern KEY_KP_Page_Down = 65435 :: Int32 + + +pattern KEY_KP_Next = 65435 :: Int32 + + +pattern KEY_KP_Multiply = 65450 :: Int32 + + +pattern KEY_KP_Left = 65430 :: Int32 + + +pattern KEY_KP_Insert = 65438 :: Int32 + + +pattern KEY_KP_Home = 65429 :: Int32 + + +pattern KEY_KP_F4 = 65428 :: Int32 + + +pattern KEY_KP_F3 = 65427 :: Int32 + + +pattern KEY_KP_F2 = 65426 :: Int32 + + +pattern KEY_KP_F1 = 65425 :: Int32 + + +pattern KEY_KP_Equal = 65469 :: Int32 + + +pattern KEY_KP_Enter = 65421 :: Int32 + + +pattern KEY_KP_End = 65436 :: Int32 + + +pattern KEY_KP_Down = 65433 :: Int32 + + +pattern KEY_KP_Divide = 65455 :: Int32 + + +pattern KEY_KP_Delete = 65439 :: Int32 + + +pattern KEY_KP_Decimal = 65454 :: Int32 + + +pattern KEY_KP_Begin = 65437 :: Int32 + + +pattern KEY_KP_Add = 65451 :: Int32 + + +pattern KEY_KP_9 = 65465 :: Int32 + + +pattern KEY_KP_8 = 65464 :: Int32 + + +pattern KEY_KP_7 = 65463 :: Int32 + + +pattern KEY_KP_6 = 65462 :: Int32 + + +pattern KEY_KP_5 = 65461 :: Int32 + + +pattern KEY_KP_4 = 65460 :: Int32 + + +pattern KEY_KP_3 = 65459 :: Int32 + + +pattern KEY_KP_2 = 65458 :: Int32 + + +pattern KEY_KP_1 = 65457 :: Int32 + + +pattern KEY_KP_0 = 65456 :: Int32 + + +pattern KEY_K = 75 :: Int32 + + +pattern KEY_Jcircumflex = 684 :: Int32 + + +pattern KEY_J = 74 :: Int32 + + +pattern KEY_Itilde = 933 :: Int32 + + +pattern KEY_Iogonek = 967 :: Int32 + + +pattern KEY_Insert = 65379 :: Int32 + + +pattern KEY_Imacron = 975 :: Int32 + + +pattern KEY_Ihook = 16785096 :: Int32 + + +pattern KEY_Igrave = 204 :: Int32 + + +pattern KEY_Idiaeresis = 207 :: Int32 + + +pattern KEY_Icircumflex = 206 :: Int32 + + +pattern KEY_Ibreve = 16777516 :: Int32 + + +pattern KEY_Ibelowdot = 16785098 :: Int32 + + +pattern KEY_Iacute = 205 :: Int32 + + +pattern KEY_Iabovedot = 681 :: Int32 + + +pattern KEY_ISO_Set_Margin_Right = 65064 :: Int32 + + +pattern KEY_ISO_Set_Margin_Left = 65063 :: Int32 + + +pattern KEY_ISO_Release_Margin_Right = 65066 :: Int32 + + +pattern KEY_ISO_Release_Margin_Left = 65065 :: Int32 + + +pattern KEY_ISO_Release_Both_Margins = 65067 :: Int32 + + +pattern KEY_ISO_Prev_Group_Lock = 65035 :: Int32 + + +pattern KEY_ISO_Prev_Group = 65034 :: Int32 + + +pattern KEY_ISO_Partial_Space_Right = 65062 :: Int32 + + +pattern KEY_ISO_Partial_Space_Left = 65061 :: Int32 + + +pattern KEY_ISO_Partial_Line_Up = 65059 :: Int32 + + +pattern KEY_ISO_Partial_Line_Down = 65060 :: Int32 + + +pattern KEY_ISO_Next_Group_Lock = 65033 :: Int32 + + +pattern KEY_ISO_Next_Group = 65032 :: Int32 + + +pattern KEY_ISO_Move_Line_Up = 65057 :: Int32 + + +pattern KEY_ISO_Move_Line_Down = 65058 :: Int32 + + +pattern KEY_ISO_Lock = 65025 :: Int32 + + +pattern KEY_ISO_Level5_Shift = 65041 :: Int32 + + +pattern KEY_ISO_Level5_Lock = 65043 :: Int32 + + +pattern KEY_ISO_Level5_Latch = 65042 :: Int32 + + +pattern KEY_ISO_Level3_Shift = 65027 :: Int32 + + +pattern KEY_ISO_Level3_Lock = 65029 :: Int32 + + +pattern KEY_ISO_Level3_Latch = 65028 :: Int32 + + +pattern KEY_ISO_Level2_Latch = 65026 :: Int32 + + +pattern KEY_ISO_Left_Tab = 65056 :: Int32 + + +pattern KEY_ISO_Last_Group_Lock = 65039 :: Int32 + + +pattern KEY_ISO_Last_Group = 65038 :: Int32 + + +pattern KEY_ISO_Group_Shift = 65406 :: Int32 + + +pattern KEY_ISO_Group_Lock = 65031 :: Int32 + + +pattern KEY_ISO_Group_Latch = 65030 :: Int32 + + +pattern KEY_ISO_First_Group_Lock = 65037 :: Int32 + + +pattern KEY_ISO_First_Group = 65036 :: Int32 + + +pattern KEY_ISO_Fast_Cursor_Up = 65070 :: Int32 + + +pattern KEY_ISO_Fast_Cursor_Right = 65069 :: Int32 + + +pattern KEY_ISO_Fast_Cursor_Left = 65068 :: Int32 + + +pattern KEY_ISO_Fast_Cursor_Down = 65071 :: Int32 + + +pattern KEY_ISO_Enter = 65076 :: Int32 + + +pattern KEY_ISO_Emphasize = 65074 :: Int32 + + +pattern KEY_ISO_Discontinuous_Underline = 65073 :: Int32 + + +pattern KEY_ISO_Continuous_Underline = 65072 :: Int32 + + +pattern KEY_ISO_Center_Object = 65075 :: Int32 + + +pattern KEY_I = 73 :: Int32 + + +pattern KEY_Hyper_R = 65518 :: Int32 + + +pattern KEY_Hyper_L = 65517 :: Int32 + + +pattern KEY_Hstroke = 673 :: Int32 + + +pattern KEY_HotLinks = 269025082 :: Int32 + + +pattern KEY_HomePage = 269025048 :: Int32 + + +pattern KEY_Home = 65360 :: Int32 + + +pattern KEY_History = 269025079 :: Int32 + + +pattern KEY_Hiragana_Katakana = 65319 :: Int32 + + +pattern KEY_Hiragana = 65317 :: Int32 + + +pattern KEY_Hibernate = 269025192 :: Int32 + + +pattern KEY_Henkan_Mode = 65315 :: Int32 + + +pattern KEY_Henkan = 65315 :: Int32 + + +pattern KEY_Help = 65386 :: Int32 + + +pattern KEY_Hebrew_switch = 65406 :: Int32 + + +pattern KEY_Hcircumflex = 678 :: Int32 + + +pattern KEY_Hankaku = 65321 :: Int32 + + +pattern KEY_Hangul_switch = 65406 :: Int32 + + +pattern KEY_Hangul_YeorinHieuh = 3829 :: Int32 + + +pattern KEY_Hangul_YU = 3792 :: Int32 + + +pattern KEY_Hangul_YO = 3787 :: Int32 + + +pattern KEY_Hangul_YI = 3794 :: Int32 + + +pattern KEY_Hangul_YEO = 3781 :: Int32 + + +pattern KEY_Hangul_YE = 3782 :: Int32 + + +pattern KEY_Hangul_YAE = 3778 :: Int32 + + +pattern KEY_Hangul_YA = 3777 :: Int32 + + +pattern KEY_Hangul_WI = 3791 :: Int32 + + +pattern KEY_Hangul_WEO = 3789 :: Int32 + + +pattern KEY_Hangul_WE = 3790 :: Int32 + + +pattern KEY_Hangul_WAE = 3785 :: Int32 + + +pattern KEY_Hangul_WA = 3784 :: Int32 + + +pattern KEY_Hangul_U = 3788 :: Int32 + + +pattern KEY_Hangul_Tieut = 3772 :: Int32 + + +pattern KEY_Hangul_SunkyeongeumPieub = 3825 :: Int32 + + +pattern KEY_Hangul_SunkyeongeumPhieuf = 3828 :: Int32 + + +pattern KEY_Hangul_SunkyeongeumMieum = 3824 :: Int32 + + +pattern KEY_Hangul_Start = 65330 :: Int32 + + +pattern KEY_Hangul_SsangSios = 3766 :: Int32 + + +pattern KEY_Hangul_SsangPieub = 3763 :: Int32 + + +pattern KEY_Hangul_SsangKiyeog = 3746 :: Int32 + + +pattern KEY_Hangul_SsangJieuj = 3769 :: Int32 + + +pattern KEY_Hangul_SsangDikeud = 3752 :: Int32 + + +pattern KEY_Hangul_Special = 65343 :: Int32 + + +pattern KEY_Hangul_Sios = 3765 :: Int32 + + +pattern KEY_Hangul_SingleCandidate = 65340 :: Int32 + + +pattern KEY_Hangul_Romaja = 65334 :: Int32 + + +pattern KEY_Hangul_RieulYeorinHieuh = 3823 :: Int32 + + +pattern KEY_Hangul_RieulTieut = 3758 :: Int32 + + +pattern KEY_Hangul_RieulSios = 3757 :: Int32 + + +pattern KEY_Hangul_RieulPieub = 3756 :: Int32 + + +pattern KEY_Hangul_RieulPhieuf = 3759 :: Int32 + + +pattern KEY_Hangul_RieulMieum = 3755 :: Int32 + + +pattern KEY_Hangul_RieulKiyeog = 3754 :: Int32 + + +pattern KEY_Hangul_RieulHieuh = 3760 :: Int32 + + +pattern KEY_Hangul_Rieul = 3753 :: Int32 + + +pattern KEY_Hangul_PreviousCandidate = 65342 :: Int32 + + +pattern KEY_Hangul_PreHanja = 65338 :: Int32 + + +pattern KEY_Hangul_PostHanja = 65339 :: Int32 + + +pattern KEY_Hangul_PieubSios = 3764 :: Int32 + + +pattern KEY_Hangul_Pieub = 3762 :: Int32 + + +pattern KEY_Hangul_Phieuf = 3773 :: Int32 + + +pattern KEY_Hangul_PanSios = 3826 :: Int32 + + +pattern KEY_Hangul_OE = 3786 :: Int32 + + +pattern KEY_Hangul_O = 3783 :: Int32 + + +pattern KEY_Hangul_NieunJieuj = 3749 :: Int32 + + +pattern KEY_Hangul_NieunHieuh = 3750 :: Int32 + + +pattern KEY_Hangul_Nieun = 3748 :: Int32 + + +pattern KEY_Hangul_MultipleCandidate = 65341 :: Int32 + + +pattern KEY_Hangul_Mieum = 3761 :: Int32 + + +pattern KEY_Hangul_KkogjiDalrinIeung = 3827 :: Int32 + + +pattern KEY_Hangul_KiyeogSios = 3747 :: Int32 + + +pattern KEY_Hangul_Kiyeog = 3745 :: Int32 + + +pattern KEY_Hangul_Khieuq = 3771 :: Int32 + + +pattern KEY_Hangul_Jieuj = 3768 :: Int32 + + +pattern KEY_Hangul_Jeonja = 65336 :: Int32 + + +pattern KEY_Hangul_Jamo = 65333 :: Int32 + + +pattern KEY_Hangul_J_YeorinHieuh = 3834 :: Int32 + + +pattern KEY_Hangul_J_Tieut = 3820 :: Int32 + + +pattern KEY_Hangul_J_SsangSios = 3815 :: Int32 + + +pattern KEY_Hangul_J_SsangKiyeog = 3797 :: Int32 + + +pattern KEY_Hangul_J_Sios = 3814 :: Int32 + + +pattern KEY_Hangul_J_RieulTieut = 3808 :: Int32 + + +pattern KEY_Hangul_J_RieulSios = 3807 :: Int32 + + +pattern KEY_Hangul_J_RieulPieub = 3806 :: Int32 + + +pattern KEY_Hangul_J_RieulPhieuf = 3809 :: Int32 + + +pattern KEY_Hangul_J_RieulMieum = 3805 :: Int32 + + +pattern KEY_Hangul_J_RieulKiyeog = 3804 :: Int32 + + +pattern KEY_Hangul_J_RieulHieuh = 3810 :: Int32 + + +pattern KEY_Hangul_J_Rieul = 3803 :: Int32 + + +pattern KEY_Hangul_J_PieubSios = 3813 :: Int32 + + +pattern KEY_Hangul_J_Pieub = 3812 :: Int32 + + +pattern KEY_Hangul_J_Phieuf = 3821 :: Int32 + + +pattern KEY_Hangul_J_PanSios = 3832 :: Int32 + + +pattern KEY_Hangul_J_NieunJieuj = 3800 :: Int32 + + +pattern KEY_Hangul_J_NieunHieuh = 3801 :: Int32 + + +pattern KEY_Hangul_J_Nieun = 3799 :: Int32 + + +pattern KEY_Hangul_J_Mieum = 3811 :: Int32 + + +pattern KEY_Hangul_J_KkogjiDalrinIeung = 3833 :: Int32 + + +pattern KEY_Hangul_J_KiyeogSios = 3798 :: Int32 + + +pattern KEY_Hangul_J_Kiyeog = 3796 :: Int32 + + +pattern KEY_Hangul_J_Khieuq = 3819 :: Int32 + + +pattern KEY_Hangul_J_Jieuj = 3817 :: Int32 + + +pattern KEY_Hangul_J_Ieung = 3816 :: Int32 + + +pattern KEY_Hangul_J_Hieuh = 3822 :: Int32 + + +pattern KEY_Hangul_J_Dikeud = 3802 :: Int32 + + +pattern KEY_Hangul_J_Cieuc = 3818 :: Int32 + + +pattern KEY_Hangul_Ieung = 3767 :: Int32 + + +pattern KEY_Hangul_I = 3795 :: Int32 + + +pattern KEY_Hangul_Hieuh = 3774 :: Int32 + + +pattern KEY_Hangul_Hanja = 65332 :: Int32 + + +pattern KEY_Hangul_End = 65331 :: Int32 + + +pattern KEY_Hangul_EU = 3793 :: Int32 + + +pattern KEY_Hangul_EO = 3779 :: Int32 + + +pattern KEY_Hangul_E = 3780 :: Int32 + + +pattern KEY_Hangul_Dikeud = 3751 :: Int32 + + +pattern KEY_Hangul_Codeinput = 65335 :: Int32 + + +pattern KEY_Hangul_Cieuc = 3770 :: Int32 + + +pattern KEY_Hangul_Banja = 65337 :: Int32 + + +pattern KEY_Hangul_AraeAE = 3831 :: Int32 + + +pattern KEY_Hangul_AraeA = 3830 :: Int32 + + +pattern KEY_Hangul_AE = 3776 :: Int32 + + +pattern KEY_Hangul_A = 3775 :: Int32 + + +pattern KEY_Hangul = 65329 :: Int32 + + +pattern KEY_H = 72 :: Int32 + + +pattern KEY_Green = 269025188 :: Int32 + + +pattern KEY_Greek_zeta = 2022 :: Int32 + + +pattern KEY_Greek_xi = 2030 :: Int32 + + +pattern KEY_Greek_upsilondieresis = 1977 :: Int32 + + +pattern KEY_Greek_upsilonaccentdieresis = 1978 :: Int32 + + +pattern KEY_Greek_upsilonaccent = 1976 :: Int32 + + +pattern KEY_Greek_upsilon = 2037 :: Int32 + + +pattern KEY_Greek_theta = 2024 :: Int32 + + +pattern KEY_Greek_tau = 2036 :: Int32 + + +pattern KEY_Greek_switch = 65406 :: Int32 + + +pattern KEY_Greek_sigma = 2034 :: Int32 + + +pattern KEY_Greek_rho = 2033 :: Int32 + + +pattern KEY_Greek_psi = 2040 :: Int32 + + +pattern KEY_Greek_pi = 2032 :: Int32 + + +pattern KEY_Greek_phi = 2038 :: Int32 + + +pattern KEY_Greek_omicronaccent = 1975 :: Int32 + + +pattern KEY_Greek_omicron = 2031 :: Int32 + + +pattern KEY_Greek_omegaaccent = 1979 :: Int32 + + +pattern KEY_Greek_omega = 2041 :: Int32 + + +pattern KEY_Greek_nu = 2029 :: Int32 + + +pattern KEY_Greek_mu = 2028 :: Int32 + + +pattern KEY_Greek_lamda = 2027 :: Int32 + + +pattern KEY_Greek_lambda = 2027 :: Int32 + + +pattern KEY_Greek_kappa = 2026 :: Int32 + + +pattern KEY_Greek_iotadieresis = 1973 :: Int32 + + +pattern KEY_Greek_iotaaccentdieresis = 1974 :: Int32 + + +pattern KEY_Greek_iotaaccent = 1972 :: Int32 + + +pattern KEY_Greek_iota = 2025 :: Int32 + + +pattern KEY_Greek_horizbar = 1967 :: Int32 + + +pattern KEY_Greek_gamma = 2019 :: Int32 + + +pattern KEY_Greek_finalsmallsigma = 2035 :: Int32 + + +pattern KEY_Greek_etaaccent = 1971 :: Int32 + + +pattern KEY_Greek_eta = 2023 :: Int32 + + +pattern KEY_Greek_epsilonaccent = 1970 :: Int32 + + +pattern KEY_Greek_epsilon = 2021 :: Int32 + + +pattern KEY_Greek_delta = 2020 :: Int32 + + +pattern KEY_Greek_chi = 2039 :: Int32 + + +pattern KEY_Greek_beta = 2018 :: Int32 + + +pattern KEY_Greek_alphaaccent = 1969 :: Int32 + + +pattern KEY_Greek_alpha = 2017 :: Int32 + + +pattern KEY_Greek_accentdieresis = 1966 :: Int32 + + +pattern KEY_Greek_ZETA = 1990 :: Int32 + + +pattern KEY_Greek_XI = 1998 :: Int32 + + +pattern KEY_Greek_UPSILONdieresis = 1961 :: Int32 + + +pattern KEY_Greek_UPSILONaccent = 1960 :: Int32 + + +pattern KEY_Greek_UPSILON = 2005 :: Int32 + + +pattern KEY_Greek_THETA = 1992 :: Int32 + + +pattern KEY_Greek_TAU = 2004 :: Int32 + + +pattern KEY_Greek_SIGMA = 2002 :: Int32 + + +pattern KEY_Greek_RHO = 2001 :: Int32 + + +pattern KEY_Greek_PSI = 2008 :: Int32 + + +pattern KEY_Greek_PI = 2000 :: Int32 + + +pattern KEY_Greek_PHI = 2006 :: Int32 + + +pattern KEY_Greek_OMICRONaccent = 1959 :: Int32 + + +pattern KEY_Greek_OMICRON = 1999 :: Int32 + + +pattern KEY_Greek_OMEGAaccent = 1963 :: Int32 + + +pattern KEY_Greek_OMEGA = 2009 :: Int32 + + +pattern KEY_Greek_NU = 1997 :: Int32 + + +pattern KEY_Greek_MU = 1996 :: Int32 + + +pattern KEY_Greek_LAMDA = 1995 :: Int32 + + +pattern KEY_Greek_LAMBDA = 1995 :: Int32 + + +pattern KEY_Greek_KAPPA = 1994 :: Int32 + + +pattern KEY_Greek_IOTAdieresis = 1957 :: Int32 + + +pattern KEY_Greek_IOTAdiaeresis = 1957 :: Int32 + + +pattern KEY_Greek_IOTAaccent = 1956 :: Int32 + + +pattern KEY_Greek_IOTA = 1993 :: Int32 + + +pattern KEY_Greek_GAMMA = 1987 :: Int32 + + +pattern KEY_Greek_ETAaccent = 1955 :: Int32 + + +pattern KEY_Greek_ETA = 1991 :: Int32 + + +pattern KEY_Greek_EPSILONaccent = 1954 :: Int32 + + +pattern KEY_Greek_EPSILON = 1989 :: Int32 + + +pattern KEY_Greek_DELTA = 1988 :: Int32 + + +pattern KEY_Greek_CHI = 2007 :: Int32 + + +pattern KEY_Greek_BETA = 1986 :: Int32 + + +pattern KEY_Greek_ALPHAaccent = 1953 :: Int32 + + +pattern KEY_Greek_ALPHA = 1985 :: Int32 + + +pattern KEY_Go = 269025119 :: Int32 + + +pattern KEY_Georgian_zhar = 16781535 :: Int32 + + +pattern KEY_Georgian_zen = 16781526 :: Int32 + + +pattern KEY_Georgian_xan = 16781550 :: Int32 + + +pattern KEY_Georgian_we = 16781555 :: Int32 + + +pattern KEY_Georgian_vin = 16781525 :: Int32 + + +pattern KEY_Georgian_un = 16781539 :: Int32 + + +pattern KEY_Georgian_tar = 16781538 :: Int32 + + +pattern KEY_Georgian_tan = 16781527 :: Int32 + + +pattern KEY_Georgian_shin = 16781544 :: Int32 + + +pattern KEY_Georgian_san = 16781537 :: Int32 + + +pattern KEY_Georgian_rae = 16781536 :: Int32 + + +pattern KEY_Georgian_qar = 16781543 :: Int32 + + +pattern KEY_Georgian_phar = 16781540 :: Int32 + + +pattern KEY_Georgian_par = 16781534 :: Int32 + + +pattern KEY_Georgian_on = 16781533 :: Int32 + + +pattern KEY_Georgian_nar = 16781532 :: Int32 + + +pattern KEY_Georgian_man = 16781531 :: Int32 + + +pattern KEY_Georgian_las = 16781530 :: Int32 + + +pattern KEY_Georgian_khar = 16781541 :: Int32 + + +pattern KEY_Georgian_kan = 16781529 :: Int32 + + +pattern KEY_Georgian_jil = 16781547 :: Int32 + + +pattern KEY_Georgian_jhan = 16781551 :: Int32 + + +pattern KEY_Georgian_in = 16781528 :: Int32 + + +pattern KEY_Georgian_hoe = 16781557 :: Int32 + + +pattern KEY_Georgian_hie = 16781554 :: Int32 + + +pattern KEY_Georgian_he = 16781553 :: Int32 + + +pattern KEY_Georgian_har = 16781556 :: Int32 + + +pattern KEY_Georgian_hae = 16781552 :: Int32 + + +pattern KEY_Georgian_ghan = 16781542 :: Int32 + + +pattern KEY_Georgian_gan = 16781522 :: Int32 + + +pattern KEY_Georgian_fi = 16781558 :: Int32 + + +pattern KEY_Georgian_en = 16781524 :: Int32 + + +pattern KEY_Georgian_don = 16781523 :: Int32 + + +pattern KEY_Georgian_cil = 16781548 :: Int32 + + +pattern KEY_Georgian_chin = 16781545 :: Int32 + + +pattern KEY_Georgian_char = 16781549 :: Int32 + + +pattern KEY_Georgian_can = 16781546 :: Int32 + + +pattern KEY_Georgian_ban = 16781521 :: Int32 + + +pattern KEY_Georgian_an = 16781520 :: Int32 + + +pattern KEY_Gcircumflex = 728 :: Int32 + + +pattern KEY_Gcedilla = 939 :: Int32 + + +pattern KEY_Gcaron = 16777702 :: Int32 + + +pattern KEY_Gbreve = 683 :: Int32 + + +pattern KEY_Game = 269025118 :: Int32 + + +pattern KEY_Gabovedot = 725 :: Int32 + + +pattern KEY_G = 71 :: Int32 + + +pattern KEY_FrameForward = 269025182 :: Int32 + + +pattern KEY_FrameBack = 269025181 :: Int32 + + +pattern KEY_Forward = 269025063 :: Int32 + + +pattern KEY_First_Virtual_Screen = 65232 :: Int32 + + +pattern KEY_Find = 65384 :: Int32 + + +pattern KEY_Finance = 269025084 :: Int32 + + +pattern KEY_Favorites = 269025072 :: Int32 + + +pattern KEY_Farsi_yeh = 16778956 :: Int32 + + +pattern KEY_Farsi_9 = 16779001 :: Int32 + + +pattern KEY_Farsi_8 = 16779000 :: Int32 + + +pattern KEY_Farsi_7 = 16778999 :: Int32 + + +pattern KEY_Farsi_6 = 16778998 :: Int32 + + +pattern KEY_Farsi_5 = 16778997 :: Int32 + + +pattern KEY_Farsi_4 = 16778996 :: Int32 + + +pattern KEY_Farsi_3 = 16778995 :: Int32 + + +pattern KEY_Farsi_2 = 16778994 :: Int32 + + +pattern KEY_Farsi_1 = 16778993 :: Int32 + + +pattern KEY_Farsi_0 = 16778992 :: Int32 + + +pattern KEY_Fabovedot = 16784926 :: Int32 + + +pattern KEY_FFrancSign = 16785571 :: Int32 + + +pattern KEY_F9 = 65478 :: Int32 + + +pattern KEY_F8 = 65477 :: Int32 + + +pattern KEY_F7 = 65476 :: Int32 + + +pattern KEY_F6 = 65475 :: Int32 + + +pattern KEY_F5 = 65474 :: Int32 + + +pattern KEY_F4 = 65473 :: Int32 + + +pattern KEY_F35 = 65504 :: Int32 + + +pattern KEY_F34 = 65503 :: Int32 + + +pattern KEY_F33 = 65502 :: Int32 + + +pattern KEY_F32 = 65501 :: Int32 + + +pattern KEY_F31 = 65500 :: Int32 + + +pattern KEY_F30 = 65499 :: Int32 + + +pattern KEY_F3 = 65472 :: Int32 + + +pattern KEY_F29 = 65498 :: Int32 + + +pattern KEY_F28 = 65497 :: Int32 + + +pattern KEY_F27 = 65496 :: Int32 + + +pattern KEY_F26 = 65495 :: Int32 + + +pattern KEY_F25 = 65494 :: Int32 + + +pattern KEY_F24 = 65493 :: Int32 + + +pattern KEY_F23 = 65492 :: Int32 + + +pattern KEY_F22 = 65491 :: Int32 + + +pattern KEY_F21 = 65490 :: Int32 + + +pattern KEY_F20 = 65489 :: Int32 + + +pattern KEY_F2 = 65471 :: Int32 + + +pattern KEY_F19 = 65488 :: Int32 + + +pattern KEY_F18 = 65487 :: Int32 + + +pattern KEY_F17 = 65486 :: Int32 + + +pattern KEY_F16 = 65485 :: Int32 + + +pattern KEY_F15 = 65484 :: Int32 + + +pattern KEY_F14 = 65483 :: Int32 + + +pattern KEY_F13 = 65482 :: Int32 + + +pattern KEY_F12 = 65481 :: Int32 + + +pattern KEY_F11 = 65480 :: Int32 + + +pattern KEY_F10 = 65479 :: Int32 + + +pattern KEY_F1 = 65470 :: Int32 + + +pattern KEY_F = 70 :: Int32 + + +pattern KEY_Explorer = 269025117 :: Int32 + + +pattern KEY_Execute = 65378 :: Int32 + + +pattern KEY_Excel = 269025116 :: Int32 + + +pattern KEY_EuroSign = 8364 :: Int32 + + +pattern KEY_Etilde = 16785084 :: Int32 + + +pattern KEY_Eth = 208 :: Int32 + + +pattern KEY_Escape = 65307 :: Int32 + + +pattern KEY_Eogonek = 458 :: Int32 + + +pattern KEY_End = 65367 :: Int32 + + +pattern KEY_Emacron = 938 :: Int32 + + +pattern KEY_Eject = 269025068 :: Int32 + + +pattern KEY_Eisu_toggle = 65328 :: Int32 + + +pattern KEY_Eisu_Shift = 65327 :: Int32 + + +pattern KEY_Ehook = 16785082 :: Int32 + + +pattern KEY_Egrave = 200 :: Int32 + + +pattern KEY_Ediaeresis = 203 :: Int32 + + +pattern KEY_EcuSign = 16785568 :: Int32 + + +pattern KEY_Ecircumflextilde = 16785092 :: Int32 + + +pattern KEY_Ecircumflexhook = 16785090 :: Int32 + + +pattern KEY_Ecircumflexgrave = 16785088 :: Int32 + + +pattern KEY_Ecircumflexbelowdot = 16785094 :: Int32 + + +pattern KEY_Ecircumflexacute = 16785086 :: Int32 + + +pattern KEY_Ecircumflex = 202 :: Int32 + + +pattern KEY_Ecaron = 460 :: Int32 + + +pattern KEY_Ebelowdot = 16785080 :: Int32 + + +pattern KEY_Eacute = 201 :: Int32 + + +pattern KEY_Eabovedot = 972 :: Int32 + + +pattern KEY_EZH = 16777655 :: Int32 + + +pattern KEY_ETH = 208 :: Int32 + + +pattern KEY_ENG = 957 :: Int32 + + +pattern KEY_E = 69 :: Int32 + + +pattern KEY_Dstroke = 464 :: Int32 + + +pattern KEY_Down = 65364 :: Int32 + + +pattern KEY_DongSign = 16785579 :: Int32 + + +pattern KEY_Documents = 269025115 :: Int32 + + +pattern KEY_Display = 269025113 :: Int32 + + +pattern KEY_Delete = 65535 :: Int32 + + +pattern KEY_Dcaron = 463 :: Int32 + + +pattern KEY_Dabovedot = 16784906 :: Int32 + + +pattern KEY_DOS = 269025114 :: Int32 + + +pattern KEY_D = 68 :: Int32 + + +pattern KEY_Cyrillic_zhe_descender = 16778391 :: Int32 + + +pattern KEY_Cyrillic_zhe = 1750 :: Int32 + + +pattern KEY_Cyrillic_ze = 1754 :: Int32 + + +pattern KEY_Cyrillic_yu = 1728 :: Int32 + + +pattern KEY_Cyrillic_yeru = 1753 :: Int32 + + +pattern KEY_Cyrillic_ya = 1745 :: Int32 + + +pattern KEY_Cyrillic_ve = 1751 :: Int32 + + +pattern KEY_Cyrillic_u_straight_bar = 16778417 :: Int32 + + +pattern KEY_Cyrillic_u_straight = 16778415 :: Int32 + + +pattern KEY_Cyrillic_u_macron = 16778479 :: Int32 + + +pattern KEY_Cyrillic_u = 1749 :: Int32 + + +pattern KEY_Cyrillic_tse = 1731 :: Int32 + + +pattern KEY_Cyrillic_te = 1748 :: Int32 + + +pattern KEY_Cyrillic_softsign = 1752 :: Int32 + + +pattern KEY_Cyrillic_shorti = 1738 :: Int32 + + +pattern KEY_Cyrillic_shha = 16778427 :: Int32 + + +pattern KEY_Cyrillic_shcha = 1757 :: Int32 + + +pattern KEY_Cyrillic_sha = 1755 :: Int32 + + +pattern KEY_Cyrillic_schwa = 16778457 :: Int32 + + +pattern KEY_Cyrillic_pe = 1744 :: Int32 + + +pattern KEY_Cyrillic_o_bar = 16778473 :: Int32 + + +pattern KEY_Cyrillic_o = 1743 :: Int32 + + +pattern KEY_Cyrillic_nje = 1706 :: Int32 + + +pattern KEY_Cyrillic_lje = 1705 :: Int32 + + +pattern KEY_Cyrillic_ka_vertstroke = 16778397 :: Int32 + + +pattern KEY_Cyrillic_ka_descender = 16778395 :: Int32 + + +pattern KEY_Cyrillic_ka = 1739 :: Int32 + + +pattern KEY_Cyrillic_je = 1704 :: Int32 + + +pattern KEY_Cyrillic_io = 1699 :: Int32 + + +pattern KEY_Cyrillic_ie = 1733 :: Int32 + + +pattern KEY_Cyrillic_i_macron = 16778467 :: Int32 + + +pattern KEY_Cyrillic_i = 1737 :: Int32 + + +pattern KEY_Cyrillic_hardsign = 1759 :: Int32 + + +pattern KEY_Cyrillic_ha_descender = 16778419 :: Int32 + + +pattern KEY_Cyrillic_ha = 1736 :: Int32 + + +pattern KEY_Cyrillic_ghe_bar = 16778387 :: Int32 + + +pattern KEY_Cyrillic_ghe = 1735 :: Int32 + + +pattern KEY_Cyrillic_es = 1747 :: Int32 + + +pattern KEY_Cyrillic_er = 1746 :: Int32 + + +pattern KEY_Cyrillic_en_descender = 16778403 :: Int32 + + +pattern KEY_Cyrillic_en = 1742 :: Int32 + + +pattern KEY_Cyrillic_em = 1741 :: Int32 + + +pattern KEY_Cyrillic_el = 1740 :: Int32 + + +pattern KEY_Cyrillic_ef = 1734 :: Int32 + + +pattern KEY_Cyrillic_e = 1756 :: Int32 + + +pattern KEY_Cyrillic_dzhe = 1711 :: Int32 + + +pattern KEY_Cyrillic_de = 1732 :: Int32 + + +pattern KEY_Cyrillic_che_vertstroke = 16778425 :: Int32 + + +pattern KEY_Cyrillic_che_descender = 16778423 :: Int32 + + +pattern KEY_Cyrillic_che = 1758 :: Int32 + + +pattern KEY_Cyrillic_be = 1730 :: Int32 + + +pattern KEY_Cyrillic_a = 1729 :: Int32 + + +pattern KEY_Cyrillic_ZHE_descender = 16778390 :: Int32 + + +pattern KEY_Cyrillic_ZHE = 1782 :: Int32 + + +pattern KEY_Cyrillic_ZE = 1786 :: Int32 + + +pattern KEY_Cyrillic_YU = 1760 :: Int32 + + +pattern KEY_Cyrillic_YERU = 1785 :: Int32 + + +pattern KEY_Cyrillic_YA = 1777 :: Int32 + + +pattern KEY_Cyrillic_VE = 1783 :: Int32 + + +pattern KEY_Cyrillic_U_straight_bar = 16778416 :: Int32 + + +pattern KEY_Cyrillic_U_straight = 16778414 :: Int32 + + +pattern KEY_Cyrillic_U_macron = 16778478 :: Int32 + + +pattern KEY_Cyrillic_U = 1781 :: Int32 + + +pattern KEY_Cyrillic_TSE = 1763 :: Int32 + + +pattern KEY_Cyrillic_TE = 1780 :: Int32 + + +pattern KEY_Cyrillic_SOFTSIGN = 1784 :: Int32 + + +pattern KEY_Cyrillic_SHORTI = 1770 :: Int32 + + +pattern KEY_Cyrillic_SHHA = 16778426 :: Int32 + + +pattern KEY_Cyrillic_SHCHA = 1789 :: Int32 + + +pattern KEY_Cyrillic_SHA = 1787 :: Int32 + + +pattern KEY_Cyrillic_SCHWA = 16778456 :: Int32 + + +pattern KEY_Cyrillic_PE = 1776 :: Int32 + + +pattern KEY_Cyrillic_O_bar = 16778472 :: Int32 + + +pattern KEY_Cyrillic_O = 1775 :: Int32 + + +pattern KEY_Cyrillic_NJE = 1722 :: Int32 + + +pattern KEY_Cyrillic_LJE = 1721 :: Int32 + + +pattern KEY_Cyrillic_KA_vertstroke = 16778396 :: Int32 + + +pattern KEY_Cyrillic_KA_descender = 16778394 :: Int32 + + +pattern KEY_Cyrillic_KA = 1771 :: Int32 + + +pattern KEY_Cyrillic_JE = 1720 :: Int32 + + +pattern KEY_Cyrillic_I_macron = 16778466 :: Int32 + + +pattern KEY_Cyrillic_IO = 1715 :: Int32 + + +pattern KEY_Cyrillic_IE = 1765 :: Int32 + + +pattern KEY_Cyrillic_I = 1769 :: Int32 + + +pattern KEY_Cyrillic_HA_descender = 16778418 :: Int32 + + +pattern KEY_Cyrillic_HARDSIGN = 1791 :: Int32 + + +pattern KEY_Cyrillic_HA = 1768 :: Int32 + + +pattern KEY_Cyrillic_GHE_bar = 16778386 :: Int32 + + +pattern KEY_Cyrillic_GHE = 1767 :: Int32 + + +pattern KEY_Cyrillic_ES = 1779 :: Int32 + + +pattern KEY_Cyrillic_ER = 1778 :: Int32 + + +pattern KEY_Cyrillic_EN_descender = 16778402 :: Int32 + + +pattern KEY_Cyrillic_EN = 1774 :: Int32 + + +pattern KEY_Cyrillic_EM = 1773 :: Int32 + + +pattern KEY_Cyrillic_EL = 1772 :: Int32 + + +pattern KEY_Cyrillic_EF = 1766 :: Int32 + + +pattern KEY_Cyrillic_E = 1788 :: Int32 + + +pattern KEY_Cyrillic_DZHE = 1727 :: Int32 + + +pattern KEY_Cyrillic_DE = 1764 :: Int32 + + +pattern KEY_Cyrillic_CHE_vertstroke = 16778424 :: Int32 + + +pattern KEY_Cyrillic_CHE_descender = 16778422 :: Int32 + + +pattern KEY_Cyrillic_CHE = 1790 :: Int32 + + +pattern KEY_Cyrillic_BE = 1762 :: Int32 + + +pattern KEY_Cyrillic_A = 1761 :: Int32 + + +pattern KEY_CycleAngle = 269025180 :: Int32 + + +pattern KEY_Cut = 269025112 :: Int32 + + +pattern KEY_CruzeiroSign = 16785570 :: Int32 + + +pattern KEY_Copy = 269025111 :: Int32 + + +pattern KEY_Control_R = 65508 :: Int32 + + +pattern KEY_Control_L = 65507 :: Int32 + + +pattern KEY_ContrastAdjust = 269025058 :: Int32 + + +pattern KEY_Community = 269025085 :: Int32 + + +pattern KEY_ColonSign = 16785569 :: Int32 + + +pattern KEY_Codeinput = 65335 :: Int32 + + +pattern KEY_Close = 269025110 :: Int32 + + +pattern KEY_ClearGrab = 269024801 :: Int32 + + +pattern KEY_Clear = 65291 :: Int32 + + +pattern KEY_Ch = 65185 :: Int32 + + +pattern KEY_Ccircumflex = 710 :: Int32 + + +pattern KEY_Ccedilla = 199 :: Int32 + + +pattern KEY_Ccaron = 456 :: Int32 + + +pattern KEY_Caps_Lock = 65509 :: Int32 + + +pattern KEY_Cancel = 65385 :: Int32 + + +pattern KEY_Calendar = 269025056 :: Int32 + + +pattern KEY_Calculator = 269025053 :: Int32 + + +pattern KEY_Cacute = 454 :: Int32 + + +pattern KEY_Cabovedot = 709 :: Int32 + + +pattern KEY_C_h = 65188 :: Int32 + + +pattern KEY_C_H = 65189 :: Int32 + + +pattern KEY_CH = 65186 :: Int32 + + +pattern KEY_CD = 269025107 :: Int32 + + +pattern KEY_C = 67 :: Int32 + + +pattern KEY_Byelorussian_shortu = 1710 :: Int32 + + +pattern KEY_Byelorussian_SHORTU = 1726 :: Int32 + + +pattern KEY_BrightnessAdjust = 269025083 :: Int32 + + +pattern KEY_Break = 65387 :: Int32 + + +pattern KEY_BounceKeys_Enable = 65140 :: Int32 + + +pattern KEY_Book = 269025106 :: Int32 + + +pattern KEY_Bluetooth = 269025172 :: Int32 + + +pattern KEY_Blue = 269025190 :: Int32 + + +pattern KEY_Begin = 65368 :: Int32 + + +pattern KEY_Battery = 269025171 :: Int32 + + +pattern KEY_BackSpace = 65288 :: Int32 + + +pattern KEY_BackForward = 269025087 :: Int32 + + +pattern KEY_Back = 269025062 :: Int32 + + +pattern KEY_Babovedot = 16784898 :: Int32 + + +pattern KEY_B = 66 :: Int32 + + +pattern KEY_Away = 269025165 :: Int32 + + +pattern KEY_AudioStop = 269025045 :: Int32 + + +pattern KEY_AudioRewind = 269025086 :: Int32 + + +pattern KEY_AudioRepeat = 269025176 :: Int32 + + +pattern KEY_AudioRecord = 269025052 :: Int32 + + +pattern KEY_AudioRandomPlay = 269025177 :: Int32 + + +pattern KEY_AudioRaiseVolume = 269025043 :: Int32 + + +pattern KEY_AudioPrev = 269025046 :: Int32 + + +pattern KEY_AudioPlay = 269025044 :: Int32 + + +pattern KEY_AudioPause = 269025073 :: Int32 + + +pattern KEY_AudioNext = 269025047 :: Int32 + + +pattern KEY_AudioMute = 269025042 :: Int32 + + +pattern KEY_AudioMicMute = 269025202 :: Int32 + + +pattern KEY_AudioMedia = 269025074 :: Int32 + + +pattern KEY_AudioLowerVolume = 269025041 :: Int32 + + +pattern KEY_AudioForward = 269025175 :: Int32 + + +pattern KEY_AudioCycleTrack = 269025179 :: Int32 + + +pattern KEY_AudibleBell_Enable = 65146 :: Int32 + + +pattern KEY_Atilde = 195 :: Int32 + + +pattern KEY_Armenian_zhe = 16778602 :: Int32 + + +pattern KEY_Armenian_za = 16778598 :: Int32 + + +pattern KEY_Armenian_yentamna = 16778634 :: Int32 + + +pattern KEY_Armenian_yech = 16778597 :: Int32 + + +pattern KEY_Armenian_vyun = 16778626 :: Int32 + + +pattern KEY_Armenian_vo = 16778616 :: Int32 + + +pattern KEY_Armenian_vev = 16778622 :: Int32 + + +pattern KEY_Armenian_verjaket = 16778633 :: Int32 + + +pattern KEY_Armenian_tyun = 16778623 :: Int32 + + +pattern KEY_Armenian_tso = 16778625 :: Int32 + + +pattern KEY_Armenian_tsa = 16778606 :: Int32 + + +pattern KEY_Armenian_to = 16778601 :: Int32 + + +pattern KEY_Armenian_tche = 16778611 :: Int32 + + +pattern KEY_Armenian_shesht = 16778587 :: Int32 + + +pattern KEY_Armenian_sha = 16778615 :: Int32 + + +pattern KEY_Armenian_separation_mark = 16778589 :: Int32 + + +pattern KEY_Armenian_se = 16778621 :: Int32 + + +pattern KEY_Armenian_re = 16778624 :: Int32 + + +pattern KEY_Armenian_ra = 16778620 :: Int32 + + +pattern KEY_Armenian_question = 16778590 :: Int32 + + +pattern KEY_Armenian_pyur = 16778627 :: Int32 + + +pattern KEY_Armenian_pe = 16778618 :: Int32 + + +pattern KEY_Armenian_paruyk = 16778590 :: Int32 + + +pattern KEY_Armenian_o = 16778629 :: Int32 + + +pattern KEY_Armenian_nu = 16778614 :: Int32 + + +pattern KEY_Armenian_men = 16778612 :: Int32 + + +pattern KEY_Armenian_lyun = 16778604 :: Int32 + + +pattern KEY_Armenian_ligature_ew = 16778631 :: Int32 + + +pattern KEY_Armenian_khe = 16778605 :: Int32 + + +pattern KEY_Armenian_ken = 16778607 :: Int32 + + +pattern KEY_Armenian_ke = 16778628 :: Int32 + + +pattern KEY_Armenian_je = 16778619 :: Int32 + + +pattern KEY_Armenian_ini = 16778603 :: Int32 + + +pattern KEY_Armenian_hyphen = 16778634 :: Int32 + + +pattern KEY_Armenian_ho = 16778608 :: Int32 + + +pattern KEY_Armenian_hi = 16778613 :: Int32 + + +pattern KEY_Armenian_gim = 16778595 :: Int32 + + +pattern KEY_Armenian_ghat = 16778610 :: Int32 + + +pattern KEY_Armenian_full_stop = 16778633 :: Int32 + + +pattern KEY_Armenian_fe = 16778630 :: Int32 + + +pattern KEY_Armenian_exclam = 16778588 :: Int32 + + +pattern KEY_Armenian_e = 16778599 :: Int32 + + +pattern KEY_Armenian_dza = 16778609 :: Int32 + + +pattern KEY_Armenian_da = 16778596 :: Int32 + + +pattern KEY_Armenian_cha = 16778617 :: Int32 + + +pattern KEY_Armenian_but = 16778589 :: Int32 + + +pattern KEY_Armenian_ben = 16778594 :: Int32 + + +pattern KEY_Armenian_ayb = 16778593 :: Int32 + + +pattern KEY_Armenian_at = 16778600 :: Int32 + + +pattern KEY_Armenian_apostrophe = 16778586 :: Int32 + + +pattern KEY_Armenian_amanak = 16778588 :: Int32 + + +pattern KEY_Armenian_accent = 16778587 :: Int32 + + +pattern KEY_Armenian_ZHE = 16778554 :: Int32 + + +pattern KEY_Armenian_ZA = 16778550 :: Int32 + + +pattern KEY_Armenian_YECH = 16778549 :: Int32 + + +pattern KEY_Armenian_VYUN = 16778578 :: Int32 + + +pattern KEY_Armenian_VO = 16778568 :: Int32 + + +pattern KEY_Armenian_VEV = 16778574 :: Int32 + + +pattern KEY_Armenian_TYUN = 16778575 :: Int32 + + +pattern KEY_Armenian_TSO = 16778577 :: Int32 + + +pattern KEY_Armenian_TSA = 16778558 :: Int32 + + +pattern KEY_Armenian_TO = 16778553 :: Int32 + + +pattern KEY_Armenian_TCHE = 16778563 :: Int32 + + +pattern KEY_Armenian_SHA = 16778567 :: Int32 + + +pattern KEY_Armenian_SE = 16778573 :: Int32 + + +pattern KEY_Armenian_RE = 16778576 :: Int32 + + +pattern KEY_Armenian_RA = 16778572 :: Int32 + + +pattern KEY_Armenian_PYUR = 16778579 :: Int32 + + +pattern KEY_Armenian_PE = 16778570 :: Int32 + + +pattern KEY_Armenian_O = 16778581 :: Int32 + + +pattern KEY_Armenian_NU = 16778566 :: Int32 + + +pattern KEY_Armenian_MEN = 16778564 :: Int32 + + +pattern KEY_Armenian_LYUN = 16778556 :: Int32 + + +pattern KEY_Armenian_KHE = 16778557 :: Int32 + + +pattern KEY_Armenian_KEN = 16778559 :: Int32 + + +pattern KEY_Armenian_KE = 16778580 :: Int32 + + +pattern KEY_Armenian_JE = 16778571 :: Int32 + + +pattern KEY_Armenian_INI = 16778555 :: Int32 + + +pattern KEY_Armenian_HO = 16778560 :: Int32 + + +pattern KEY_Armenian_HI = 16778565 :: Int32 + + +pattern KEY_Armenian_GIM = 16778547 :: Int32 + + +pattern KEY_Armenian_GHAT = 16778562 :: Int32 + + +pattern KEY_Armenian_FE = 16778582 :: Int32 + + +pattern KEY_Armenian_E = 16778551 :: Int32 + + +pattern KEY_Armenian_DZA = 16778561 :: Int32 + + +pattern KEY_Armenian_DA = 16778548 :: Int32 + + +pattern KEY_Armenian_CHA = 16778569 :: Int32 + + +pattern KEY_Armenian_BEN = 16778546 :: Int32 + + +pattern KEY_Armenian_AYB = 16778545 :: Int32 + + +pattern KEY_Armenian_AT = 16778552 :: Int32 + + +pattern KEY_Aring = 197 :: Int32 + + +pattern KEY_Arabic_zain = 1490 :: Int32 + + +pattern KEY_Arabic_zah = 1496 :: Int32 + + +pattern KEY_Arabic_yeh_baree = 16778962 :: Int32 + + +pattern KEY_Arabic_yeh = 1514 :: Int32 + + +pattern KEY_Arabic_waw = 1512 :: Int32 + + +pattern KEY_Arabic_veh = 16778916 :: Int32 + + +pattern KEY_Arabic_tteh = 16778873 :: Int32 + + +pattern KEY_Arabic_theh = 1483 :: Int32 + + +pattern KEY_Arabic_thal = 1488 :: Int32 + + +pattern KEY_Arabic_tehmarbuta = 1481 :: Int32 + + +pattern KEY_Arabic_teh = 1482 :: Int32 + + +pattern KEY_Arabic_tcheh = 16778886 :: Int32 + + +pattern KEY_Arabic_tatweel = 1504 :: Int32 + + +pattern KEY_Arabic_tah = 1495 :: Int32 + + +pattern KEY_Arabic_switch = 65406 :: Int32 + + +pattern KEY_Arabic_superscript_alef = 16778864 :: Int32 + + +pattern KEY_Arabic_sukun = 1522 :: Int32 + + +pattern KEY_Arabic_sheen = 1492 :: Int32 + + +pattern KEY_Arabic_shadda = 1521 :: Int32 + + +pattern KEY_Arabic_semicolon = 1467 :: Int32 + + +pattern KEY_Arabic_seen = 1491 :: Int32 + + +pattern KEY_Arabic_sad = 1493 :: Int32 + + +pattern KEY_Arabic_rreh = 16778897 :: Int32 + + +pattern KEY_Arabic_ra = 1489 :: Int32 + + +pattern KEY_Arabic_question_mark = 1471 :: Int32 + + +pattern KEY_Arabic_qaf = 1506 :: Int32 + + +pattern KEY_Arabic_percent = 16778858 :: Int32 + + +pattern KEY_Arabic_peh = 16778878 :: Int32 + + +pattern KEY_Arabic_noon_ghunna = 16778938 :: Int32 + + +pattern KEY_Arabic_noon = 1510 :: Int32 + + +pattern KEY_Arabic_meem = 1509 :: Int32 + + +pattern KEY_Arabic_maddaonalef = 1474 :: Int32 + + +pattern KEY_Arabic_madda_above = 16778835 :: Int32 + + +pattern KEY_Arabic_lam = 1508 :: Int32 + + +pattern KEY_Arabic_khah = 1486 :: Int32 + + +pattern KEY_Arabic_keheh = 16778921 :: Int32 + + +pattern KEY_Arabic_kasratan = 1517 :: Int32 + + +pattern KEY_Arabic_kasra = 1520 :: Int32 + + +pattern KEY_Arabic_kaf = 1507 :: Int32 + + +pattern KEY_Arabic_jeh = 16778904 :: Int32 + + +pattern KEY_Arabic_jeem = 1484 :: Int32 + + +pattern KEY_Arabic_heh_goal = 16778945 :: Int32 + + +pattern KEY_Arabic_heh_doachashmee = 16778942 :: Int32 + + +pattern KEY_Arabic_heh = 1511 :: Int32 + + +pattern KEY_Arabic_hamzaunderalef = 1477 :: Int32 + + +pattern KEY_Arabic_hamzaonyeh = 1478 :: Int32 + + +pattern KEY_Arabic_hamzaonwaw = 1476 :: Int32 + + +pattern KEY_Arabic_hamzaonalef = 1475 :: Int32 + + +pattern KEY_Arabic_hamza_below = 16778837 :: Int32 + + +pattern KEY_Arabic_hamza_above = 16778836 :: Int32 + + +pattern KEY_Arabic_hamza = 1473 :: Int32 + + +pattern KEY_Arabic_hah = 1485 :: Int32 + + +pattern KEY_Arabic_ha = 1511 :: Int32 + + +pattern KEY_Arabic_ghain = 1498 :: Int32 + + +pattern KEY_Arabic_gaf = 16778927 :: Int32 + + +pattern KEY_Arabic_fullstop = 16778964 :: Int32 + + +pattern KEY_Arabic_feh = 1505 :: Int32 + + +pattern KEY_Arabic_fathatan = 1515 :: Int32 + + +pattern KEY_Arabic_fatha = 1518 :: Int32 + + +pattern KEY_Arabic_farsi_yeh = 16778956 :: Int32 + + +pattern KEY_Arabic_ddal = 16778888 :: Int32 + + +pattern KEY_Arabic_dammatan = 1516 :: Int32 + + +pattern KEY_Arabic_damma = 1519 :: Int32 + + +pattern KEY_Arabic_dal = 1487 :: Int32 + + +pattern KEY_Arabic_dad = 1494 :: Int32 + + +pattern KEY_Arabic_comma = 1452 :: Int32 + + +pattern KEY_Arabic_beh = 1480 :: Int32 + + +pattern KEY_Arabic_alefmaksura = 1513 :: Int32 + + +pattern KEY_Arabic_alef = 1479 :: Int32 + + +pattern KEY_Arabic_ain = 1497 :: Int32 + + +pattern KEY_Arabic_9 = 16778857 :: Int32 + + +pattern KEY_Arabic_8 = 16778856 :: Int32 + + +pattern KEY_Arabic_7 = 16778855 :: Int32 + + +pattern KEY_Arabic_6 = 16778854 :: Int32 + + +pattern KEY_Arabic_5 = 16778853 :: Int32 + + +pattern KEY_Arabic_4 = 16778852 :: Int32 + + +pattern KEY_Arabic_3 = 16778851 :: Int32 + + +pattern KEY_Arabic_2 = 16778850 :: Int32 + + +pattern KEY_Arabic_1 = 16778849 :: Int32 + + +pattern KEY_Arabic_0 = 16778848 :: Int32 + + +pattern KEY_ApplicationRight = 269025105 :: Int32 + + +pattern KEY_ApplicationLeft = 269025104 :: Int32 + + +pattern KEY_Aogonek = 417 :: Int32 + + +pattern KEY_Amacron = 960 :: Int32 + + +pattern KEY_Alt_R = 65514 :: Int32 + + +pattern KEY_Alt_L = 65513 :: Int32 + + +pattern KEY_Ahook = 16785058 :: Int32 + + +pattern KEY_Agrave = 192 :: Int32 + + +pattern KEY_Adiaeresis = 196 :: Int32 + + +pattern KEY_AddFavorite = 269025081 :: Int32 + + +pattern KEY_Acircumflextilde = 16785066 :: Int32 + + +pattern KEY_Acircumflexhook = 16785064 :: Int32 + + +pattern KEY_Acircumflexgrave = 16785062 :: Int32 + + +pattern KEY_Acircumflexbelowdot = 16785068 :: Int32 + + +pattern KEY_Acircumflexacute = 16785060 :: Int32 + + +pattern KEY_Acircumflex = 194 :: Int32 + + +pattern KEY_AccessX_Feedback_Enable = 65137 :: Int32 + + +pattern KEY_AccessX_Enable = 65136 :: Int32 + + +pattern KEY_Abrevetilde = 16785076 :: Int32 + + +pattern KEY_Abrevehook = 16785074 :: Int32 + + +pattern KEY_Abrevegrave = 16785072 :: Int32 + + +pattern KEY_Abrevebelowdot = 16785078 :: Int32 + + +pattern KEY_Abreveacute = 16785070 :: Int32 + + +pattern KEY_Abreve = 451 :: Int32 + + +pattern KEY_Abelowdot = 16785056 :: Int32 + + +pattern KEY_Aacute = 193 :: Int32 + + +pattern KEY_AE = 198 :: Int32 + + +pattern KEY_A = 65 :: Int32 + + +pattern KEY_9 = 57 :: Int32 + + +pattern KEY_8 = 56 :: Int32 + + +pattern KEY_7 = 55 :: Int32 + + +pattern KEY_6 = 54 :: Int32 + + +pattern KEY_5 = 53 :: Int32 + + +pattern KEY_4 = 52 :: Int32 + + +pattern KEY_3270_Test = 64781 :: Int32 + + +pattern KEY_3270_Setup = 64791 :: Int32 + + +pattern KEY_3270_Rule = 64788 :: Int32 + + +pattern KEY_3270_Right2 = 64771 :: Int32 + + +pattern KEY_3270_Reset = 64776 :: Int32 + + +pattern KEY_3270_Record = 64792 :: Int32 + + +pattern KEY_3270_Quit = 64777 :: Int32 + + +pattern KEY_3270_PrintScreen = 64797 :: Int32 + + +pattern KEY_3270_Play = 64790 :: Int32 + + +pattern KEY_3270_PA3 = 64780 :: Int32 + + +pattern KEY_3270_PA2 = 64779 :: Int32 + + +pattern KEY_3270_PA1 = 64778 :: Int32 + + +pattern KEY_3270_Left2 = 64772 :: Int32 + + +pattern KEY_3270_KeyClick = 64785 :: Int32 + + +pattern KEY_3270_Jump = 64786 :: Int32 + + +pattern KEY_3270_Ident = 64787 :: Int32 + + +pattern KEY_3270_FieldMark = 64770 :: Int32 + + +pattern KEY_3270_ExSelect = 64795 :: Int32 + + +pattern KEY_3270_EraseInput = 64775 :: Int32 + + +pattern KEY_3270_EraseEOF = 64774 :: Int32 + + +pattern KEY_3270_Enter = 64798 :: Int32 + + +pattern KEY_3270_Duplicate = 64769 :: Int32 + + +pattern KEY_3270_DeleteWord = 64794 :: Int32 + + +pattern KEY_3270_CursorSelect = 64796 :: Int32 + + +pattern KEY_3270_CursorBlink = 64783 :: Int32 + + +pattern KEY_3270_Copy = 64789 :: Int32 + + +pattern KEY_3270_ChangeScreen = 64793 :: Int32 + + +pattern KEY_3270_BackTab = 64773 :: Int32 + + +pattern KEY_3270_Attn = 64782 :: Int32 + + +pattern KEY_3270_AltCursor = 64784 :: Int32 + + +pattern KEY_3 = 51 :: Int32 + + +pattern KEY_2 = 50 :: Int32 + + +pattern KEY_1 = 49 :: Int32 + + +pattern KEY_0 = 48 :: Int32 + + +pattern EVENT_STOP = True :: Bool + + +pattern EVENT_PROPAGATE = False :: Bool + + +pattern CURRENT_TIME = 0 :: Int32 + + +pattern BUTTON_SECONDARY = 3 :: Int32 + + +pattern BUTTON_PRIMARY = 1 :: Int32 + + +pattern BUTTON_MIDDLE = 2 :: Int32 + + diff --git a/GI/Gdk/Enums.hs b/GI/Gdk/Enums.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Enums.hs @@ -0,0 +1,1394 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Enums + ( + catchGLError , + handleGLError , + +-- * Exported types + WindowWindowClass(..) , + WindowTypeHint(..) , + WindowType(..) , + WindowEdge(..) , + VisualType(..) , + VisibilityState(..) , + TouchpadGesturePhase(..) , + Status(..) , + SettingAction(..) , + ScrollDirection(..) , + PropertyState(..) , + PropMode(..) , + OwnerChange(..) , + NotifyType(..) , + ModifierIntent(..) , + InputSource(..) , + InputMode(..) , + Gravity(..) , + GrabStatus(..) , + GrabOwnership(..) , + GLError(..) , + FullscreenMode(..) , + FilterReturn(..) , + EventType(..) , + DragProtocol(..) , + DeviceType(..) , + CursorType(..) , + CrossingMode(..) , + ByteOrder(..) , + AxisUse(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- 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 + +-- 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 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 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 + +-- 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 + +-- 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 + +-- Enum TouchpadGesturePhase + +data TouchpadGesturePhase = + TouchpadGesturePhaseBegin + | TouchpadGesturePhaseUpdate + | TouchpadGesturePhaseEnd + | TouchpadGesturePhaseCancel + | AnotherTouchpadGesturePhase Int + deriving (Show, Eq) + +instance Enum TouchpadGesturePhase where + fromEnum TouchpadGesturePhaseBegin = 0 + fromEnum TouchpadGesturePhaseUpdate = 1 + fromEnum TouchpadGesturePhaseEnd = 2 + fromEnum TouchpadGesturePhaseCancel = 3 + fromEnum (AnotherTouchpadGesturePhase k) = k + + toEnum 0 = TouchpadGesturePhaseBegin + toEnum 1 = TouchpadGesturePhaseUpdate + toEnum 2 = TouchpadGesturePhaseEnd + toEnum 3 = TouchpadGesturePhaseCancel + toEnum k = AnotherTouchpadGesturePhase k + +foreign import ccall "gdk_touchpad_gesture_phase_get_type" c_gdk_touchpad_gesture_phase_get_type :: + IO GType + +instance BoxedEnum TouchpadGesturePhase where + boxedEnumType _ = c_gdk_touchpad_gesture_phase_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 + +-- 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 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 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 + +-- 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 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 + +-- 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 ModifierIntent + +data ModifierIntent = + ModifierIntentPrimaryAccelerator + | ModifierIntentContextMenu + | ModifierIntentExtendSelection + | ModifierIntentModifySelection + | ModifierIntentNoTextInput + | ModifierIntentShiftGroup + | ModifierIntentDefaultModMask + | 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 ModifierIntentDefaultModMask = 6 + fromEnum (AnotherModifierIntent k) = k + + toEnum 0 = ModifierIntentPrimaryAccelerator + toEnum 1 = ModifierIntentContextMenu + toEnum 2 = ModifierIntentExtendSelection + toEnum 3 = ModifierIntentModifySelection + toEnum 4 = ModifierIntentNoTextInput + toEnum 5 = ModifierIntentShiftGroup + toEnum 6 = ModifierIntentDefaultModMask + 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 + +-- 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 + +-- 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 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 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 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 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 + +-- 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 + +-- 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 + +-- 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 + | EventTypeTouchpadSwipe + | EventTypeTouchpadPinch + | 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 EventTypeTouchpadSwipe = 41 + fromEnum EventTypeTouchpadPinch = 42 + fromEnum EventTypeEventLast = 43 + 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 = EventTypeTouchpadSwipe + toEnum 42 = EventTypeTouchpadPinch + toEnum 43 = 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 + +-- 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 + +-- 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 + +-- 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 + +-- 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 + +-- 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 + +-- 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 + + diff --git a/GI/Gdk/Flags.hs b/GI/Gdk/Flags.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Flags.hs @@ -0,0 +1,536 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Flags + ( + +-- * Exported types + WindowState(..) , + WindowHints(..) , + WindowAttributesType(..) , + WMFunction(..) , + WMDecoration(..) , + ModifierType(..) , + FrameClockPhase(..) , + EventMask(..) , + DragAction(..) , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + + + + +-- 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 + +-- 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 + +-- 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 + +-- 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 + +-- 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 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 + +-- 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 + +-- 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 + | EventMaskTouchpadGestureMask + | 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 EventMaskTouchpadGestureMask = 16777216 + 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 16777216 = EventMaskTouchpadGestureMask + 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 + +-- 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 + + diff --git a/GI/Gdk/Functions.hs b/GI/Gdk/Functions.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Functions.hs @@ -0,0 +1,3323 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Functions + ( + + -- * Methods +-- ** addOptionEntriesLibgtkOnly + addOptionEntriesLibgtkOnly , + + +-- ** atomIntern + atomIntern , + + +-- ** atomInternStaticString + atomInternStaticString , + + +-- ** beep + beep , + + +-- ** cairoCreate + cairoCreate , + + +-- ** cairoDrawFromGl + cairoDrawFromGl , + + +-- ** cairoGetClipRectangle + cairoGetClipRectangle , + + +-- ** cairoRectangle + cairoRectangle , + + +-- ** cairoRegion + cairoRegion , + + +-- ** cairoRegionCreateFromSurface + cairoRegionCreateFromSurface , + + +-- ** cairoSetSourceColor + cairoSetSourceColor , + + +-- ** cairoSetSourcePixbuf + cairoSetSourcePixbuf , + + +-- ** cairoSetSourceRgba + cairoSetSourceRgba , + + +-- ** cairoSetSourceWindow + cairoSetSourceWindow , + + +-- ** cairoSurfaceCreateFromPixbuf + cairoSurfaceCreateFromPixbuf , + + +-- ** colorParse + colorParse , + + +-- ** disableMultidevice + disableMultidevice , + + +-- ** dragAbort + dragAbort , + + +-- ** dragBegin + dragBegin , + + +-- ** dragBeginForDevice + dragBeginForDevice , + + +-- ** dragDrop + dragDrop , + + +-- ** dragDropSucceeded + dragDropSucceeded , + + +-- ** dragFindWindowForScreen + dragFindWindowForScreen , + + +-- ** dragGetSelection + dragGetSelection , + + +-- ** dragMotion + dragMotion , + + +-- ** dragStatus + dragStatus , + + +-- ** dropFinish + dropFinish , + + +-- ** dropReply + dropReply , + + +-- ** errorTrapPop + errorTrapPop , + + +-- ** errorTrapPopIgnored + errorTrapPopIgnored , + + +-- ** errorTrapPush + errorTrapPush , + + +-- ** eventGet + eventGet , + + +-- ** eventHandlerSet + eventHandlerSet , + + +-- ** eventPeek + eventPeek , + + +-- ** eventRequestMotions + eventRequestMotions , + + +-- ** eventsGetAngle + eventsGetAngle , + + +-- ** eventsGetCenter + eventsGetCenter , + + +-- ** eventsGetDistance + eventsGetDistance , + + +-- ** eventsPending + eventsPending , + + +-- ** flush + flush , + + +-- ** getDefaultRootWindow + getDefaultRootWindow , + + +-- ** getDisplay + getDisplay , + + +-- ** getDisplayArgName + getDisplayArgName , + + +-- ** getProgramClass + getProgramClass , + + +-- ** getShowEvents + getShowEvents , + + +-- ** glErrorQuark + glErrorQuark , + + +-- ** init + init , + + +-- ** initCheck + initCheck , + + +-- ** keyboardGrab + keyboardGrab , + + +-- ** keyboardUngrab + keyboardUngrab , + + +-- ** keyvalConvertCase + keyvalConvertCase , + + +-- ** keyvalFromName + keyvalFromName , + + +-- ** keyvalIsLower + keyvalIsLower , + + +-- ** keyvalIsUpper + keyvalIsUpper , + + +-- ** keyvalName + keyvalName , + + +-- ** keyvalToLower + keyvalToLower , + + +-- ** keyvalToUnicode + keyvalToUnicode , + + +-- ** keyvalToUpper + keyvalToUpper , + + +-- ** listVisuals + listVisuals , + + +-- ** notifyStartupComplete + notifyStartupComplete , + + +-- ** notifyStartupCompleteWithId + notifyStartupCompleteWithId , + + +-- ** offscreenWindowGetEmbedder + offscreenWindowGetEmbedder , + + +-- ** offscreenWindowGetSurface + offscreenWindowGetSurface , + + +-- ** offscreenWindowSetEmbedder + offscreenWindowSetEmbedder , + + +-- ** pangoContextGet + pangoContextGet , + + +-- ** pangoContextGetForScreen + pangoContextGetForScreen , + + +-- ** parseArgs + parseArgs , + + +-- ** pixbufGetFromSurface + pixbufGetFromSurface , + + +-- ** pixbufGetFromWindow + pixbufGetFromWindow , + + +-- ** pointerGrab + pointerGrab , + + +-- ** pointerIsGrabbed + pointerIsGrabbed , + + +-- ** pointerUngrab + pointerUngrab , + + +-- ** preParseLibgtkOnly + preParseLibgtkOnly , + + +-- ** propertyDelete + propertyDelete , + + +-- ** propertyGet + propertyGet , + + +-- ** queryDepths + queryDepths , + + +-- ** queryVisualTypes + queryVisualTypes , + + +-- ** selectionConvert + selectionConvert , + + +-- ** selectionOwnerGet + selectionOwnerGet , + + +-- ** selectionOwnerGetForDisplay + selectionOwnerGetForDisplay , + + +-- ** selectionOwnerSet + selectionOwnerSet , + + +-- ** selectionOwnerSetForDisplay + selectionOwnerSetForDisplay , + + +-- ** selectionSendNotify + selectionSendNotify , + + +-- ** selectionSendNotifyForDisplay + selectionSendNotifyForDisplay , + + +-- ** setAllowedBackends + setAllowedBackends , + + +-- ** setDoubleClickTime + setDoubleClickTime , + + +-- ** setProgramClass + setProgramClass , + + +-- ** setShowEvents + setShowEvents , + + +-- ** settingGet + settingGet , + + +-- ** synthesizeWindowState + synthesizeWindowState , + + +-- ** testRenderSync + testRenderSync , + + +-- ** testSimulateButton + testSimulateButton , + + +-- ** testSimulateKey + testSimulateKey , + + +-- ** textPropertyToUtf8ListForDisplay + textPropertyToUtf8ListForDisplay , + + +-- ** threadsAddIdle + threadsAddIdle , + + +-- ** threadsAddTimeout + threadsAddTimeout , + + +-- ** threadsAddTimeoutSeconds + threadsAddTimeoutSeconds , + + +-- ** threadsEnter + threadsEnter , + + +-- ** threadsInit + threadsInit , + + +-- ** threadsLeave + threadsLeave , + + +-- ** unicodeToKeyval + unicodeToKeyval , + + +-- ** utf8ToStringTarget + utf8ToStringTarget , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GLib as GLib +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Pango as Pango +import qualified GI.Cairo as Cairo + +-- 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' + + +-- 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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" + IO () + + +cairoRectangle :: + (MonadIO m) => + Cairo.Context -> -- cr + Rectangle -> -- 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_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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO CInt + + +cairoGetClipRectangle :: + (MonadIO m) => + Cairo.Context -> -- cr + m (Bool,Rectangle) +cairoGetClipRectangle cr = liftIO $ do + let cr' = unsafeManagedPtrGetPtr cr + rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + result <- gdk_cairo_get_clip_rectangle cr' rect + let result' = (/= 0) result + rect' <- (wrapBoxed Rectangle) rect + touchManagedPtr cr + return (result', rect') + + +-- 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_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_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_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_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_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 () + + + diff --git a/GI/Gdk/Objects.hs b/GI/Gdk/Objects.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects.hs @@ -0,0 +1,50 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects + ( module GI.Gdk.Objects.AppLaunchContext , + module GI.Gdk.Objects.Cursor , + module GI.Gdk.Objects.Device , + module GI.Gdk.Objects.DeviceManager , + module GI.Gdk.Objects.Display , + module GI.Gdk.Objects.DisplayManager , + module GI.Gdk.Objects.DragContext , + module GI.Gdk.Objects.FrameClock , + module GI.Gdk.Objects.GLContext , + module GI.Gdk.Objects.Keymap , + module GI.Gdk.Objects.Screen , + module GI.Gdk.Objects.Visual , + module GI.Gdk.Objects.Window , + + + ) where + +import GI.Gdk.Objects.AppLaunchContext +import GI.Gdk.Objects.Cursor +import GI.Gdk.Objects.Device +import GI.Gdk.Objects.DeviceManager +import GI.Gdk.Objects.Display +import GI.Gdk.Objects.DisplayManager +import GI.Gdk.Objects.DragContext +import GI.Gdk.Objects.FrameClock +import GI.Gdk.Objects.GLContext +import GI.Gdk.Objects.Keymap +import GI.Gdk.Objects.Screen +import GI.Gdk.Objects.Visual +import GI.Gdk.Objects.Window + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + + diff --git a/GI/Gdk/Objects/AppLaunchContext.hs b/GI/Gdk/Objects/AppLaunchContext.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/AppLaunchContext.hs @@ -0,0 +1,314 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.AppLaunchContext + ( + +-- * Exported types + AppLaunchContext(..) , + AppLaunchContextK , + toAppLaunchContext , + noAppLaunchContext , + + + -- * Methods +-- ** appLaunchContextNew + appLaunchContextNew , + + +-- ** appLaunchContextSetDesktop + appLaunchContextSetDesktop , + + +-- ** appLaunchContextSetDisplay + appLaunchContextSetDisplay , + + +-- ** appLaunchContextSetIcon + appLaunchContextSetIcon , + + +-- ** appLaunchContextSetIconName + appLaunchContextSetIconName , + + +-- ** appLaunchContextSetScreen + appLaunchContextSetScreen , + + +-- ** appLaunchContextSetTimestamp + appLaunchContextSetTimestamp , + + + + + -- * Properties +-- ** Display + AppLaunchContextDisplayPropertyInfo , + constructAppLaunchContextDisplay , + getAppLaunchContextDisplay , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gio as Gio + +newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) +foreign import ccall "gdk_app_launch_context_get_type" + c_gdk_app_launch_context_get_type :: IO GType + +type instance ParentTypes AppLaunchContext = AppLaunchContextParentTypes +type AppLaunchContextParentTypes = '[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 + +noAppLaunchContext :: Maybe AppLaunchContext +noAppLaunchContext = Nothing + +-- VVV Prop "display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m Display +getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display + +constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" val + +data AppLaunchContextDisplayPropertyInfo +instance AttrInfo AppLaunchContextDisplayPropertyInfo where + type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK + type AttrGetType AppLaunchContextDisplayPropertyInfo = Display + type AttrLabel AppLaunchContextDisplayPropertyInfo = "AppLaunchContext::display" + attrGet _ = getAppLaunchContextDisplay + attrSet _ = undefined + attrConstruct _ = constructAppLaunchContextDisplay + +type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList +type AppLaunchContextAttributeList = ('[ '("display", AppLaunchContextDisplayPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList AppLaunchContext = AppLaunchContextSignalList +type AppLaunchContextSignalList = ('[ '("launch-failed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 () + + diff --git a/GI/Gdk/Objects/AppLaunchContext.hs-boot b/GI/Gdk/Objects/AppLaunchContext.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/AppLaunchContext.hs-boot @@ -0,0 +1,14 @@ +module GI.Gdk.Objects.AppLaunchContext where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) +instance GObject AppLaunchContext where +class GObject o => AppLaunchContextK o +instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o +data AppLaunchContextDisplayPropertyInfo diff --git a/GI/Gdk/Objects/Cursor.hs b/GI/Gdk/Objects/Cursor.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Cursor.hs @@ -0,0 +1,481 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Cursor + ( + +-- * Exported types + Cursor(..) , + CursorK , + toCursor , + noCursor , + + + -- * Methods +-- ** cursorGetCursorType + cursorGetCursorType , + + +-- ** cursorGetDisplay + cursorGetDisplay , + + +-- ** cursorGetImage + cursorGetImage , + + +-- ** cursorGetSurface + cursorGetSurface , + + +-- ** cursorNew + cursorNew , + + +-- ** cursorNewForDisplay + cursorNewForDisplay , + + +-- ** cursorNewFromName + cursorNewFromName , + + +-- ** cursorNewFromPixbuf + cursorNewFromPixbuf , + + +-- ** cursorNewFromSurface + cursorNewFromSurface , + + +-- ** cursorRef + cursorRef , + + +-- ** cursorUnref + cursorUnref , + + + + + -- * Properties +-- ** CursorType + CursorCursorTypePropertyInfo , + constructCursorCursorType , + getCursorCursorType , + + +-- ** Display + CursorDisplayPropertyInfo , + constructCursorDisplay , + getCursorDisplay , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Cairo as Cairo + +newtype Cursor = Cursor (ForeignPtr Cursor) +foreign import ccall "gdk_cursor_get_type" + c_gdk_cursor_get_type :: IO GType + +type instance ParentTypes Cursor = CursorParentTypes +type CursorParentTypes = '[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 + +noCursor :: Maybe Cursor +noCursor = Nothing + +-- VVV Prop "cursor-type" + -- Type: TInterface "Gdk" "CursorType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCursorCursorType :: (MonadIO m, CursorK o) => o -> m CursorType +getCursorCursorType obj = liftIO $ getObjectPropertyEnum obj "cursor-type" + +constructCursorCursorType :: CursorType -> IO ([Char], GValue) +constructCursorCursorType val = constructObjectPropertyEnum "cursor-type" val + +data CursorCursorTypePropertyInfo +instance AttrInfo CursorCursorTypePropertyInfo where + type AttrAllowedOps CursorCursorTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CursorCursorTypePropertyInfo = (~) CursorType + type AttrBaseTypeConstraint CursorCursorTypePropertyInfo = CursorK + type AttrGetType CursorCursorTypePropertyInfo = CursorType + type AttrLabel CursorCursorTypePropertyInfo = "Cursor::cursor-type" + attrGet _ = getCursorCursorType + attrSet _ = undefined + attrConstruct _ = constructCursorCursorType + +-- VVV Prop "display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display +getCursorDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display + +constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructCursorDisplay val = constructObjectPropertyObject "display" val + +data CursorDisplayPropertyInfo +instance AttrInfo CursorDisplayPropertyInfo where + type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK + type AttrGetType CursorDisplayPropertyInfo = Display + type AttrLabel CursorDisplayPropertyInfo = "Cursor::display" + attrGet _ = getCursorDisplay + attrSet _ = undefined + attrConstruct _ = constructCursorDisplay + +type instance AttributeList Cursor = CursorAttributeList +type CursorAttributeList = ('[ '("cursor-type", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Cursor = CursorSignalList +type CursorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 () + + diff --git a/GI/Gdk/Objects/Cursor.hs-boot b/GI/Gdk/Objects/Cursor.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Cursor.hs-boot @@ -0,0 +1,15 @@ +module GI.Gdk.Objects.Cursor where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Cursor = Cursor (ForeignPtr Cursor) +instance GObject Cursor where +class GObject o => CursorK o +instance (GObject o, IsDescendantOf Cursor o) => CursorK o +data CursorCursorTypePropertyInfo +data CursorDisplayPropertyInfo diff --git a/GI/Gdk/Objects/Device.hs b/GI/Gdk/Objects/Device.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Device.hs @@ -0,0 +1,1326 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Device + ( + +-- * Exported types + Device(..) , + DeviceK , + toDevice , + noDevice , + + + -- * Methods +-- ** deviceGetAssociatedDevice + deviceGetAssociatedDevice , + + +-- ** deviceGetAxisUse + deviceGetAxisUse , + + +-- ** deviceGetDeviceType + deviceGetDeviceType , + + +-- ** deviceGetDisplay + deviceGetDisplay , + + +-- ** deviceGetHasCursor + deviceGetHasCursor , + + +-- ** deviceGetKey + deviceGetKey , + + +-- ** deviceGetLastEventWindow + deviceGetLastEventWindow , + + +-- ** deviceGetMode + deviceGetMode , + + +-- ** deviceGetNAxes + deviceGetNAxes , + + +-- ** deviceGetNKeys + deviceGetNKeys , + + +-- ** deviceGetName + deviceGetName , + + +-- ** deviceGetPosition + deviceGetPosition , + + +-- ** deviceGetPositionDouble + deviceGetPositionDouble , + + +-- ** deviceGetProductId + deviceGetProductId , + + +-- ** deviceGetSource + deviceGetSource , + + +-- ** deviceGetVendorId + deviceGetVendorId , + + +-- ** deviceGetWindowAtPosition + deviceGetWindowAtPosition , + + +-- ** deviceGetWindowAtPositionDouble + deviceGetWindowAtPositionDouble , + + +-- ** deviceGrab + deviceGrab , + + +-- ** deviceGrabInfoLibgtkOnly + deviceGrabInfoLibgtkOnly , + + +-- ** deviceListAxes + deviceListAxes , + + +-- ** deviceListSlaveDevices + deviceListSlaveDevices , + + +-- ** deviceSetAxisUse + deviceSetAxisUse , + + +-- ** deviceSetKey + deviceSetKey , + + +-- ** deviceSetMode + deviceSetMode , + + +-- ** deviceUngrab + deviceUngrab , + + +-- ** deviceWarp + deviceWarp , + + + + + -- * Properties +-- ** AssociatedDevice + DeviceAssociatedDevicePropertyInfo , + getDeviceAssociatedDevice , + + +-- ** DeviceManager + DeviceDeviceManagerPropertyInfo , + constructDeviceDeviceManager , + getDeviceDeviceManager , + + +-- ** Display + DeviceDisplayPropertyInfo , + constructDeviceDisplay , + getDeviceDisplay , + + +-- ** HasCursor + DeviceHasCursorPropertyInfo , + constructDeviceHasCursor , + getDeviceHasCursor , + + +-- ** InputMode + DeviceInputModePropertyInfo , + constructDeviceInputMode , + getDeviceInputMode , + setDeviceInputMode , + + +-- ** InputSource + DeviceInputSourcePropertyInfo , + constructDeviceInputSource , + getDeviceInputSource , + + +-- ** NAxes + DeviceNAxesPropertyInfo , + getDeviceNAxes , + + +-- ** Name + DeviceNamePropertyInfo , + constructDeviceName , + getDeviceName , + + +-- ** ProductId + DeviceProductIdPropertyInfo , + constructDeviceProductId , + getDeviceProductId , + + +-- ** Type + DeviceTypePropertyInfo , + constructDeviceType , + getDeviceType , + + +-- ** VendorId + DeviceVendorIdPropertyInfo , + constructDeviceVendorId , + getDeviceVendorId , + + + + + -- * Signals +-- ** Changed + DeviceChangedCallback , + DeviceChangedCallbackC , + DeviceChangedSignalInfo , + afterDeviceChanged , + deviceChangedCallbackWrapper , + deviceChangedClosure , + mkDeviceChangedCallback , + noDeviceChangedCallback , + onDeviceChanged , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype Device = Device (ForeignPtr Device) +foreign import ccall "gdk_device_get_type" + c_gdk_device_get_type :: IO GType + +type instance ParentTypes Device = DeviceParentTypes +type DeviceParentTypes = '[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 + +noDevice :: Maybe Device +noDevice = Nothing + +-- 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 + +-- VVV Prop "associated-device" + -- Type: TInterface "Gdk" "Device" + -- Flags: [PropertyReadable] + +getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m Device +getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device + +data DeviceAssociatedDevicePropertyInfo +instance AttrInfo DeviceAssociatedDevicePropertyInfo where + type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) () + type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK + type AttrGetType DeviceAssociatedDevicePropertyInfo = Device + type AttrLabel DeviceAssociatedDevicePropertyInfo = "Device::associated-device" + attrGet _ = getDeviceAssociatedDevice + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "device-manager" + -- Type: TInterface "Gdk" "DeviceManager" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m DeviceManager +getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager + +constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue) +constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" val + +data DeviceDeviceManagerPropertyInfo +instance AttrInfo DeviceDeviceManagerPropertyInfo where + type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK + type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK + type AttrGetType DeviceDeviceManagerPropertyInfo = DeviceManager + type AttrLabel DeviceDeviceManagerPropertyInfo = "Device::device-manager" + attrGet _ = getDeviceDeviceManager + attrSet _ = undefined + attrConstruct _ = constructDeviceDeviceManager + +-- VVV Prop "display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display +getDeviceDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display + +constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructDeviceDisplay val = constructObjectPropertyObject "display" val + +data DeviceDisplayPropertyInfo +instance AttrInfo DeviceDisplayPropertyInfo where + type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK + type AttrGetType DeviceDisplayPropertyInfo = Display + type AttrLabel DeviceDisplayPropertyInfo = "Device::display" + attrGet _ = getDeviceDisplay + attrSet _ = undefined + attrConstruct _ = constructDeviceDisplay + +-- VVV Prop "has-cursor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceHasCursor :: (MonadIO m, DeviceK o) => o -> m Bool +getDeviceHasCursor obj = liftIO $ getObjectPropertyBool obj "has-cursor" + +constructDeviceHasCursor :: Bool -> IO ([Char], GValue) +constructDeviceHasCursor val = constructObjectPropertyBool "has-cursor" val + +data DeviceHasCursorPropertyInfo +instance AttrInfo DeviceHasCursorPropertyInfo where + type AttrAllowedOps DeviceHasCursorPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceHasCursorPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DeviceHasCursorPropertyInfo = DeviceK + type AttrGetType DeviceHasCursorPropertyInfo = Bool + type AttrLabel DeviceHasCursorPropertyInfo = "Device::has-cursor" + attrGet _ = getDeviceHasCursor + attrSet _ = undefined + attrConstruct _ = constructDeviceHasCursor + +-- VVV Prop "input-mode" + -- Type: TInterface "Gdk" "InputMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getDeviceInputMode :: (MonadIO m, DeviceK o) => o -> m InputMode +getDeviceInputMode obj = liftIO $ getObjectPropertyEnum obj "input-mode" + +setDeviceInputMode :: (MonadIO m, DeviceK o) => o -> InputMode -> m () +setDeviceInputMode obj val = liftIO $ setObjectPropertyEnum obj "input-mode" val + +constructDeviceInputMode :: InputMode -> IO ([Char], GValue) +constructDeviceInputMode val = constructObjectPropertyEnum "input-mode" val + +data DeviceInputModePropertyInfo +instance AttrInfo DeviceInputModePropertyInfo where + type AttrAllowedOps DeviceInputModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceInputModePropertyInfo = (~) InputMode + type AttrBaseTypeConstraint DeviceInputModePropertyInfo = DeviceK + type AttrGetType DeviceInputModePropertyInfo = InputMode + type AttrLabel DeviceInputModePropertyInfo = "Device::input-mode" + attrGet _ = getDeviceInputMode + attrSet _ = setDeviceInputMode + attrConstruct _ = constructDeviceInputMode + +-- VVV Prop "input-source" + -- Type: TInterface "Gdk" "InputSource" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceInputSource :: (MonadIO m, DeviceK o) => o -> m InputSource +getDeviceInputSource obj = liftIO $ getObjectPropertyEnum obj "input-source" + +constructDeviceInputSource :: InputSource -> IO ([Char], GValue) +constructDeviceInputSource val = constructObjectPropertyEnum "input-source" val + +data DeviceInputSourcePropertyInfo +instance AttrInfo DeviceInputSourcePropertyInfo where + type AttrAllowedOps DeviceInputSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceInputSourcePropertyInfo = (~) InputSource + type AttrBaseTypeConstraint DeviceInputSourcePropertyInfo = DeviceK + type AttrGetType DeviceInputSourcePropertyInfo = InputSource + type AttrLabel DeviceInputSourcePropertyInfo = "Device::input-source" + attrGet _ = getDeviceInputSource + attrSet _ = undefined + attrConstruct _ = constructDeviceInputSource + +-- VVV Prop "n-axes" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32 +getDeviceNAxes obj = liftIO $ getObjectPropertyCUInt obj "n-axes" + +data DeviceNAxesPropertyInfo +instance AttrInfo DeviceNAxesPropertyInfo where + type AttrAllowedOps DeviceNAxesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DeviceNAxesPropertyInfo = (~) () + type AttrBaseTypeConstraint DeviceNAxesPropertyInfo = DeviceK + type AttrGetType DeviceNAxesPropertyInfo = Word32 + type AttrLabel DeviceNAxesPropertyInfo = "Device::n-axes" + attrGet _ = getDeviceNAxes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text +getDeviceName obj = liftIO $ getObjectPropertyString obj "name" + +constructDeviceName :: T.Text -> IO ([Char], GValue) +constructDeviceName val = constructObjectPropertyString "name" val + +data DeviceNamePropertyInfo +instance AttrInfo DeviceNamePropertyInfo where + type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK + type AttrGetType DeviceNamePropertyInfo = T.Text + type AttrLabel DeviceNamePropertyInfo = "Device::name" + attrGet _ = getDeviceName + attrSet _ = undefined + attrConstruct _ = constructDeviceName + +-- VVV Prop "product-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m T.Text +getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id" + +constructDeviceProductId :: T.Text -> IO ([Char], GValue) +constructDeviceProductId val = constructObjectPropertyString "product-id" val + +data DeviceProductIdPropertyInfo +instance AttrInfo DeviceProductIdPropertyInfo where + type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK + type AttrGetType DeviceProductIdPropertyInfo = T.Text + type AttrLabel DeviceProductIdPropertyInfo = "Device::product-id" + attrGet _ = getDeviceProductId + attrSet _ = undefined + attrConstruct _ = constructDeviceProductId + +-- VVV Prop "type" + -- Type: TInterface "Gdk" "DeviceType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceType :: (MonadIO m, DeviceK o) => o -> m DeviceType +getDeviceType obj = liftIO $ getObjectPropertyEnum obj "type" + +constructDeviceType :: DeviceType -> IO ([Char], GValue) +constructDeviceType val = constructObjectPropertyEnum "type" val + +data DeviceTypePropertyInfo +instance AttrInfo DeviceTypePropertyInfo where + type AttrAllowedOps DeviceTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceTypePropertyInfo = (~) DeviceType + type AttrBaseTypeConstraint DeviceTypePropertyInfo = DeviceK + type AttrGetType DeviceTypePropertyInfo = DeviceType + type AttrLabel DeviceTypePropertyInfo = "Device::type" + attrGet _ = getDeviceType + attrSet _ = undefined + attrConstruct _ = constructDeviceType + +-- VVV Prop "vendor-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m T.Text +getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id" + +constructDeviceVendorId :: T.Text -> IO ([Char], GValue) +constructDeviceVendorId val = constructObjectPropertyString "vendor-id" val + +data DeviceVendorIdPropertyInfo +instance AttrInfo DeviceVendorIdPropertyInfo where + type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK + type AttrGetType DeviceVendorIdPropertyInfo = T.Text + type AttrLabel DeviceVendorIdPropertyInfo = "Device::vendor-id" + attrGet _ = getDeviceVendorId + attrSet _ = undefined + attrConstruct _ = constructDeviceVendorId + +type instance AttributeList Device = DeviceAttributeList +type DeviceAttributeList = ('[ '("associated-device", DeviceAssociatedDevicePropertyInfo), '("device-manager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("has-cursor", DeviceHasCursorPropertyInfo), '("input-mode", DeviceInputModePropertyInfo), '("input-source", DeviceInputSourcePropertyInfo), '("n-axes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("product-id", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendor-id", DeviceVendorIdPropertyInfo)] :: [(Symbol, *)]) + +data DeviceChangedSignalInfo +instance SignalInfo DeviceChangedSignalInfo where + type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback + connectSignal _ = connectDeviceChanged + +type instance SignalList Device = DeviceSignalList +type DeviceSignalList = ('[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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'') + + diff --git a/GI/Gdk/Objects/Device.hs-boot b/GI/Gdk/Objects/Device.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Device.hs-boot @@ -0,0 +1,25 @@ +module GI.Gdk.Objects.Device where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Device = Device (ForeignPtr Device) +instance GObject Device where +class GObject o => DeviceK o +instance (GObject o, IsDescendantOf Device o) => DeviceK o +data DeviceAssociatedDevicePropertyInfo +data DeviceDeviceManagerPropertyInfo +data DeviceDisplayPropertyInfo +data DeviceHasCursorPropertyInfo +data DeviceInputModePropertyInfo +data DeviceInputSourcePropertyInfo +data DeviceNAxesPropertyInfo +data DeviceNamePropertyInfo +data DeviceProductIdPropertyInfo +data DeviceTypePropertyInfo +data DeviceVendorIdPropertyInfo +data DeviceChangedSignalInfo diff --git a/GI/Gdk/Objects/DeviceManager.hs b/GI/Gdk/Objects/DeviceManager.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DeviceManager.hs @@ -0,0 +1,366 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.DeviceManager + ( + +-- * Exported types + DeviceManager(..) , + DeviceManagerK , + toDeviceManager , + noDeviceManager , + + + -- * Methods +-- ** deviceManagerGetClientPointer + deviceManagerGetClientPointer , + + +-- ** deviceManagerGetDisplay + deviceManagerGetDisplay , + + +-- ** deviceManagerListDevices + deviceManagerListDevices , + + + + + -- * Properties +-- ** Display + DeviceManagerDisplayPropertyInfo , + constructDeviceManagerDisplay , + getDeviceManagerDisplay , + + + + + -- * Signals +-- ** DeviceAdded + DeviceManagerDeviceAddedCallback , + DeviceManagerDeviceAddedCallbackC , + DeviceManagerDeviceAddedSignalInfo , + afterDeviceManagerDeviceAdded , + deviceManagerDeviceAddedCallbackWrapper , + deviceManagerDeviceAddedClosure , + mkDeviceManagerDeviceAddedCallback , + noDeviceManagerDeviceAddedCallback , + onDeviceManagerDeviceAdded , + + +-- ** DeviceChanged + DeviceManagerDeviceChangedCallback , + DeviceManagerDeviceChangedCallbackC , + DeviceManagerDeviceChangedSignalInfo , + afterDeviceManagerDeviceChanged , + deviceManagerDeviceChangedCallbackWrapper, + deviceManagerDeviceChangedClosure , + mkDeviceManagerDeviceChangedCallback , + noDeviceManagerDeviceChangedCallback , + onDeviceManagerDeviceChanged , + + +-- ** DeviceRemoved + DeviceManagerDeviceRemovedCallback , + DeviceManagerDeviceRemovedCallbackC , + DeviceManagerDeviceRemovedSignalInfo , + afterDeviceManagerDeviceRemoved , + deviceManagerDeviceRemovedCallbackWrapper, + deviceManagerDeviceRemovedClosure , + mkDeviceManagerDeviceRemovedCallback , + noDeviceManagerDeviceRemovedCallback , + onDeviceManagerDeviceRemoved , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager) +foreign import ccall "gdk_device_manager_get_type" + c_gdk_device_manager_get_type :: IO GType + +type instance ParentTypes DeviceManager = DeviceManagerParentTypes +type DeviceManagerParentTypes = '[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 + +noDeviceManager :: Maybe DeviceManager +noDeviceManager = Nothing + +-- 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 + +-- VVV Prop "display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m Display +getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display + +constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructDeviceManagerDisplay val = constructObjectPropertyObject "display" val + +data DeviceManagerDisplayPropertyInfo +instance AttrInfo DeviceManagerDisplayPropertyInfo where + type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK + type AttrGetType DeviceManagerDisplayPropertyInfo = Display + type AttrLabel DeviceManagerDisplayPropertyInfo = "DeviceManager::display" + attrGet _ = getDeviceManagerDisplay + attrSet _ = undefined + attrConstruct _ = constructDeviceManagerDisplay + +type instance AttributeList DeviceManager = DeviceManagerAttributeList +type DeviceManagerAttributeList = ('[ '("display", DeviceManagerDisplayPropertyInfo)] :: [(Symbol, *)]) + +data DeviceManagerDeviceAddedSignalInfo +instance SignalInfo DeviceManagerDeviceAddedSignalInfo where + type HaskellCallbackType DeviceManagerDeviceAddedSignalInfo = DeviceManagerDeviceAddedCallback + connectSignal _ = connectDeviceManagerDeviceAdded + +data DeviceManagerDeviceChangedSignalInfo +instance SignalInfo DeviceManagerDeviceChangedSignalInfo where + type HaskellCallbackType DeviceManagerDeviceChangedSignalInfo = DeviceManagerDeviceChangedCallback + connectSignal _ = connectDeviceManagerDeviceChanged + +data DeviceManagerDeviceRemovedSignalInfo +instance SignalInfo DeviceManagerDeviceRemovedSignalInfo where + type HaskellCallbackType DeviceManagerDeviceRemovedSignalInfo = DeviceManagerDeviceRemovedCallback + connectSignal _ = connectDeviceManagerDeviceRemoved + +type instance SignalList DeviceManager = DeviceManagerSignalList +type DeviceManagerSignalList = ('[ '("device-added", DeviceManagerDeviceAddedSignalInfo), '("device-changed", DeviceManagerDeviceChangedSignalInfo), '("device-removed", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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'' + + diff --git a/GI/Gdk/Objects/DeviceManager.hs-boot b/GI/Gdk/Objects/DeviceManager.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DeviceManager.hs-boot @@ -0,0 +1,17 @@ +module GI.Gdk.Objects.DeviceManager where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager) +instance GObject DeviceManager where +class GObject o => DeviceManagerK o +instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o +data DeviceManagerDisplayPropertyInfo +data DeviceManagerDeviceAddedSignalInfo +data DeviceManagerDeviceChangedSignalInfo +data DeviceManagerDeviceRemovedSignalInfo diff --git a/GI/Gdk/Objects/Display.hs b/GI/Gdk/Objects/Display.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Display.hs @@ -0,0 +1,1439 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Display + ( + +-- * Exported types + Display(..) , + DisplayK , + toDisplay , + noDisplay , + + + -- * Methods +-- ** displayBeep + displayBeep , + + +-- ** displayClose + displayClose , + + +-- ** displayDeviceIsGrabbed + displayDeviceIsGrabbed , + + +-- ** displayFlush + displayFlush , + + +-- ** displayGetAppLaunchContext + displayGetAppLaunchContext , + + +-- ** displayGetDefault + displayGetDefault , + + +-- ** displayGetDefaultCursorSize + displayGetDefaultCursorSize , + + +-- ** displayGetDefaultGroup + displayGetDefaultGroup , + + +-- ** displayGetDefaultScreen + displayGetDefaultScreen , + + +-- ** displayGetDeviceManager + displayGetDeviceManager , + + +-- ** displayGetEvent + displayGetEvent , + + +-- ** displayGetMaximalCursorSize + displayGetMaximalCursorSize , + + +-- ** displayGetNScreens + displayGetNScreens , + + +-- ** displayGetName + displayGetName , + + +-- ** displayGetPointer + displayGetPointer , + + +-- ** displayGetScreen + displayGetScreen , + + +-- ** displayGetWindowAtPointer + displayGetWindowAtPointer , + + +-- ** displayHasPending + displayHasPending , + + +-- ** displayIsClosed + displayIsClosed , + + +-- ** displayKeyboardUngrab + displayKeyboardUngrab , + + +-- ** displayListDevices + displayListDevices , + + +-- ** displayNotifyStartupComplete + displayNotifyStartupComplete , + + +-- ** displayOpen + displayOpen , + + +-- ** displayOpenDefaultLibgtkOnly + displayOpenDefaultLibgtkOnly , + + +-- ** displayPeekEvent + displayPeekEvent , + + +-- ** displayPointerIsGrabbed + displayPointerIsGrabbed , + + +-- ** displayPointerUngrab + displayPointerUngrab , + + +-- ** displayPutEvent + displayPutEvent , + + +-- ** displayRequestSelectionNotification + displayRequestSelectionNotification , + + +-- ** displaySetDoubleClickDistance + displaySetDoubleClickDistance , + + +-- ** displaySetDoubleClickTime + displaySetDoubleClickTime , + + +-- ** displayStoreClipboard + displayStoreClipboard , + + +-- ** displaySupportsClipboardPersistence + displaySupportsClipboardPersistence , + + +-- ** displaySupportsComposite + displaySupportsComposite , + + +-- ** displaySupportsCursorAlpha + displaySupportsCursorAlpha , + + +-- ** displaySupportsCursorColor + displaySupportsCursorColor , + + +-- ** displaySupportsInputShapes + displaySupportsInputShapes , + + +-- ** displaySupportsSelectionNotification + displaySupportsSelectionNotification , + + +-- ** displaySupportsShapes + displaySupportsShapes , + + +-- ** displaySync + displaySync , + + +-- ** displayWarpPointer + displayWarpPointer , + + + + + -- * Signals +-- ** Closed + DisplayClosedCallback , + DisplayClosedCallbackC , + DisplayClosedSignalInfo , + afterDisplayClosed , + displayClosedCallbackWrapper , + displayClosedClosure , + mkDisplayClosedCallback , + noDisplayClosedCallback , + onDisplayClosed , + + +-- ** Opened + DisplayOpenedCallback , + DisplayOpenedCallbackC , + DisplayOpenedSignalInfo , + afterDisplayOpened , + displayOpenedCallbackWrapper , + displayOpenedClosure , + mkDisplayOpenedCallback , + noDisplayOpenedCallback , + onDisplayOpened , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype Display = Display (ForeignPtr Display) +foreign import ccall "gdk_display_get_type" + c_gdk_display_get_type :: IO GType + +type instance ParentTypes Display = DisplayParentTypes +type DisplayParentTypes = '[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 + +noDisplay :: Maybe Display +noDisplay = Nothing + +-- 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 + +type instance AttributeList Display = DisplayAttributeList +type DisplayAttributeList = ('[ ] :: [(Symbol, *)]) + +data DisplayClosedSignalInfo +instance SignalInfo DisplayClosedSignalInfo where + type HaskellCallbackType DisplayClosedSignalInfo = DisplayClosedCallback + connectSignal _ = connectDisplayClosed + +data DisplayOpenedSignalInfo +instance SignalInfo DisplayOpenedSignalInfo where + type HaskellCallbackType DisplayOpenedSignalInfo = DisplayOpenedCallback + connectSignal _ = connectDisplayOpened + +type instance SignalList Display = DisplaySignalList +type DisplaySignalList = ('[ '("closed", DisplayClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("opened", DisplayOpenedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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' + + diff --git a/GI/Gdk/Objects/Display.hs-boot b/GI/Gdk/Objects/Display.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Display.hs-boot @@ -0,0 +1,15 @@ +module GI.Gdk.Objects.Display where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Display = Display (ForeignPtr Display) +instance GObject Display where +class GObject o => DisplayK o +instance (GObject o, IsDescendantOf Display o) => DisplayK o +data DisplayClosedSignalInfo +data DisplayOpenedSignalInfo diff --git a/GI/Gdk/Objects/DisplayManager.hs b/GI/Gdk/Objects/DisplayManager.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DisplayManager.hs @@ -0,0 +1,311 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.DisplayManager + ( + +-- * Exported types + DisplayManager(..) , + DisplayManagerK , + toDisplayManager , + noDisplayManager , + + + -- * Methods +-- ** displayManagerGet + displayManagerGet , + + +-- ** displayManagerGetDefaultDisplay + displayManagerGetDefaultDisplay , + + +-- ** displayManagerListDisplays + displayManagerListDisplays , + + +-- ** displayManagerOpenDisplay + displayManagerOpenDisplay , + + +-- ** displayManagerSetDefaultDisplay + displayManagerSetDefaultDisplay , + + + + + -- * Properties +-- ** DefaultDisplay + DisplayManagerDefaultDisplayPropertyInfo, + constructDisplayManagerDefaultDisplay , + getDisplayManagerDefaultDisplay , + setDisplayManagerDefaultDisplay , + + + + + -- * Signals +-- ** DisplayOpened + DisplayManagerDisplayOpenedCallback , + DisplayManagerDisplayOpenedCallbackC , + DisplayManagerDisplayOpenedSignalInfo , + afterDisplayManagerDisplayOpened , + displayManagerDisplayOpenedCallbackWrapper, + displayManagerDisplayOpenedClosure , + mkDisplayManagerDisplayOpenedCallback , + noDisplayManagerDisplayOpenedCallback , + onDisplayManagerDisplayOpened , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager) +foreign import ccall "gdk_display_manager_get_type" + c_gdk_display_manager_get_type :: IO GType + +type instance ParentTypes DisplayManager = DisplayManagerParentTypes +type DisplayManagerParentTypes = '[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 + +noDisplayManager :: Maybe DisplayManager +noDisplayManager = Nothing + +-- 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 + +-- VVV Prop "default-display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable] + +getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m Display +getDisplayManagerDefaultDisplay obj = liftIO $ getObjectPropertyObject obj "default-display" Display + +setDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o, DisplayK a) => o -> a -> m () +setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" val + +constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" val + +data DisplayManagerDefaultDisplayPropertyInfo +instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where + type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK + type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = Display + type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "DisplayManager::default-display" + attrGet _ = getDisplayManagerDefaultDisplay + attrSet _ = setDisplayManagerDefaultDisplay + attrConstruct _ = constructDisplayManagerDefaultDisplay + +type instance AttributeList DisplayManager = DisplayManagerAttributeList +type DisplayManagerAttributeList = ('[ '("default-display", DisplayManagerDefaultDisplayPropertyInfo)] :: [(Symbol, *)]) + +data DisplayManagerDisplayOpenedSignalInfo +instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where + type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback + connectSignal _ = connectDisplayManagerDisplayOpened + +type instance SignalList DisplayManager = DisplayManagerSignalList +type DisplayManagerSignalList = ('[ '("display-opened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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' + + diff --git a/GI/Gdk/Objects/DisplayManager.hs-boot b/GI/Gdk/Objects/DisplayManager.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DisplayManager.hs-boot @@ -0,0 +1,15 @@ +module GI.Gdk.Objects.DisplayManager where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager) +instance GObject DisplayManager where +class GObject o => DisplayManagerK o +instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o +data DisplayManagerDefaultDisplayPropertyInfo +data DisplayManagerDisplayOpenedSignalInfo diff --git a/GI/Gdk/Objects/DragContext.hs b/GI/Gdk/Objects/DragContext.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DragContext.hs @@ -0,0 +1,331 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.DragContext + ( + +-- * Exported types + DragContext(..) , + DragContextK , + toDragContext , + noDragContext , + + + -- * Methods +-- ** dragContextGetActions + dragContextGetActions , + + +-- ** dragContextGetDestWindow + dragContextGetDestWindow , + + +-- ** dragContextGetDevice + dragContextGetDevice , + + +-- ** dragContextGetProtocol + dragContextGetProtocol , + + +-- ** dragContextGetSelectedAction + dragContextGetSelectedAction , + + +-- ** dragContextGetSourceWindow + dragContextGetSourceWindow , + + +-- ** dragContextGetSuggestedAction + dragContextGetSuggestedAction , + + +-- ** dragContextListTargets + dragContextListTargets , + + +-- ** dragContextSetDevice + dragContextSetDevice , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype DragContext = DragContext (ForeignPtr DragContext) +foreign import ccall "gdk_drag_context_get_type" + c_gdk_drag_context_get_type :: IO GType + +type instance ParentTypes DragContext = DragContextParentTypes +type DragContextParentTypes = '[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 + +noDragContext :: Maybe DragContext +noDragContext = Nothing + +type instance AttributeList DragContext = DragContextAttributeList +type DragContextAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList DragContext = DragContextSignalList +type DragContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 () + + diff --git a/GI/Gdk/Objects/DragContext.hs-boot b/GI/Gdk/Objects/DragContext.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/DragContext.hs-boot @@ -0,0 +1,13 @@ +module GI.Gdk.Objects.DragContext where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype DragContext = DragContext (ForeignPtr DragContext) +instance GObject DragContext where +class GObject o => DragContextK o +instance (GObject o, IsDescendantOf DragContext o) => DragContextK o diff --git a/GI/Gdk/Objects/FrameClock.hs b/GI/Gdk/Objects/FrameClock.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/FrameClock.hs @@ -0,0 +1,716 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.FrameClock + ( + +-- * Exported types + FrameClock(..) , + FrameClockK , + toFrameClock , + noFrameClock , + + + -- * Methods +-- ** frameClockBeginUpdating + frameClockBeginUpdating , + + +-- ** frameClockEndUpdating + frameClockEndUpdating , + + +-- ** frameClockGetCurrentTimings + frameClockGetCurrentTimings , + + +-- ** frameClockGetFrameCounter + frameClockGetFrameCounter , + + +-- ** frameClockGetFrameTime + frameClockGetFrameTime , + + +-- ** frameClockGetHistoryStart + frameClockGetHistoryStart , + + +-- ** frameClockGetRefreshInfo + frameClockGetRefreshInfo , + + +-- ** frameClockGetTimings + frameClockGetTimings , + + +-- ** frameClockRequestPhase + frameClockRequestPhase , + + + + + -- * Signals +-- ** AfterPaint + FrameClockAfterPaintCallback , + FrameClockAfterPaintCallbackC , + FrameClockAfterPaintSignalInfo , + afterFrameClockAfterPaint , + frameClockAfterPaintCallbackWrapper , + frameClockAfterPaintClosure , + mkFrameClockAfterPaintCallback , + noFrameClockAfterPaintCallback , + onFrameClockAfterPaint , + + +-- ** BeforePaint + FrameClockBeforePaintCallback , + FrameClockBeforePaintCallbackC , + FrameClockBeforePaintSignalInfo , + afterFrameClockBeforePaint , + frameClockBeforePaintCallbackWrapper , + frameClockBeforePaintClosure , + mkFrameClockBeforePaintCallback , + noFrameClockBeforePaintCallback , + onFrameClockBeforePaint , + + +-- ** FlushEvents + FrameClockFlushEventsCallback , + FrameClockFlushEventsCallbackC , + FrameClockFlushEventsSignalInfo , + afterFrameClockFlushEvents , + frameClockFlushEventsCallbackWrapper , + frameClockFlushEventsClosure , + mkFrameClockFlushEventsCallback , + noFrameClockFlushEventsCallback , + onFrameClockFlushEvents , + + +-- ** Layout + FrameClockLayoutCallback , + FrameClockLayoutCallbackC , + FrameClockLayoutSignalInfo , + afterFrameClockLayout , + frameClockLayoutCallbackWrapper , + frameClockLayoutClosure , + mkFrameClockLayoutCallback , + noFrameClockLayoutCallback , + onFrameClockLayout , + + +-- ** Paint + FrameClockPaintCallback , + FrameClockPaintCallbackC , + FrameClockPaintSignalInfo , + afterFrameClockPaint , + frameClockPaintCallbackWrapper , + frameClockPaintClosure , + mkFrameClockPaintCallback , + noFrameClockPaintCallback , + onFrameClockPaint , + + +-- ** ResumeEvents + FrameClockResumeEventsCallback , + FrameClockResumeEventsCallbackC , + FrameClockResumeEventsSignalInfo , + afterFrameClockResumeEvents , + frameClockResumeEventsCallbackWrapper , + frameClockResumeEventsClosure , + mkFrameClockResumeEventsCallback , + noFrameClockResumeEventsCallback , + onFrameClockResumeEvents , + + +-- ** Update + FrameClockUpdateCallback , + FrameClockUpdateCallbackC , + FrameClockUpdateSignalInfo , + afterFrameClockUpdate , + frameClockUpdateCallbackWrapper , + frameClockUpdateClosure , + mkFrameClockUpdateCallback , + noFrameClockUpdateCallback , + onFrameClockUpdate , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype FrameClock = FrameClock (ForeignPtr FrameClock) +foreign import ccall "gdk_frame_clock_get_type" + c_gdk_frame_clock_get_type :: IO GType + +type instance ParentTypes FrameClock = FrameClockParentTypes +type FrameClockParentTypes = '[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 + +noFrameClock :: Maybe FrameClock +noFrameClock = Nothing + +-- 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 + +type instance AttributeList FrameClock = FrameClockAttributeList +type FrameClockAttributeList = ('[ ] :: [(Symbol, *)]) + +data FrameClockAfterPaintSignalInfo +instance SignalInfo FrameClockAfterPaintSignalInfo where + type HaskellCallbackType FrameClockAfterPaintSignalInfo = FrameClockAfterPaintCallback + connectSignal _ = connectFrameClockAfterPaint + +data FrameClockBeforePaintSignalInfo +instance SignalInfo FrameClockBeforePaintSignalInfo where + type HaskellCallbackType FrameClockBeforePaintSignalInfo = FrameClockBeforePaintCallback + connectSignal _ = connectFrameClockBeforePaint + +data FrameClockFlushEventsSignalInfo +instance SignalInfo FrameClockFlushEventsSignalInfo where + type HaskellCallbackType FrameClockFlushEventsSignalInfo = FrameClockFlushEventsCallback + connectSignal _ = connectFrameClockFlushEvents + +data FrameClockLayoutSignalInfo +instance SignalInfo FrameClockLayoutSignalInfo where + type HaskellCallbackType FrameClockLayoutSignalInfo = FrameClockLayoutCallback + connectSignal _ = connectFrameClockLayout + +data FrameClockPaintSignalInfo +instance SignalInfo FrameClockPaintSignalInfo where + type HaskellCallbackType FrameClockPaintSignalInfo = FrameClockPaintCallback + connectSignal _ = connectFrameClockPaint + +data FrameClockResumeEventsSignalInfo +instance SignalInfo FrameClockResumeEventsSignalInfo where + type HaskellCallbackType FrameClockResumeEventsSignalInfo = FrameClockResumeEventsCallback + connectSignal _ = connectFrameClockResumeEvents + +data FrameClockUpdateSignalInfo +instance SignalInfo FrameClockUpdateSignalInfo where + type HaskellCallbackType FrameClockUpdateSignalInfo = FrameClockUpdateCallback + connectSignal _ = connectFrameClockUpdate + +type instance SignalList FrameClock = FrameClockSignalList +type FrameClockSignalList = ('[ '("after-paint", FrameClockAfterPaintSignalInfo), '("before-paint", FrameClockBeforePaintSignalInfo), '("flush-events", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resume-events", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 () + + diff --git a/GI/Gdk/Objects/FrameClock.hs-boot b/GI/Gdk/Objects/FrameClock.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/FrameClock.hs-boot @@ -0,0 +1,20 @@ +module GI.Gdk.Objects.FrameClock where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype FrameClock = FrameClock (ForeignPtr FrameClock) +instance GObject FrameClock where +class GObject o => FrameClockK o +instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o +data FrameClockAfterPaintSignalInfo +data FrameClockBeforePaintSignalInfo +data FrameClockFlushEventsSignalInfo +data FrameClockLayoutSignalInfo +data FrameClockPaintSignalInfo +data FrameClockResumeEventsSignalInfo +data FrameClockUpdateSignalInfo diff --git a/GI/Gdk/Objects/GLContext.hs b/GI/Gdk/Objects/GLContext.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/GLContext.hs @@ -0,0 +1,536 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.GLContext + ( + +-- * Exported types + GLContext(..) , + GLContextK , + toGLContext , + noGLContext , + + + -- * Methods +-- ** gLContextClearCurrent + gLContextClearCurrent , + + +-- ** gLContextGetCurrent + gLContextGetCurrent , + + +-- ** gLContextGetDebugEnabled + gLContextGetDebugEnabled , + + +-- ** gLContextGetDisplay + gLContextGetDisplay , + + +-- ** gLContextGetForwardCompatible + gLContextGetForwardCompatible , + + +-- ** gLContextGetSharedContext + gLContextGetSharedContext , + + +-- ** gLContextGetVersion + gLContextGetVersion , + + +-- ** gLContextGetWindow + gLContextGetWindow , + + +-- ** gLContextMakeCurrent + gLContextMakeCurrent , + + +-- ** gLContextRealize + gLContextRealize , + + +-- ** gLContextSetDebugEnabled + gLContextSetDebugEnabled , + + +-- ** gLContextSetForwardCompatible + gLContextSetForwardCompatible , + + +-- ** gLContextSetRequiredVersion + gLContextSetRequiredVersion , + + + + + -- * Properties +-- ** Display + GLContextDisplayPropertyInfo , + constructGLContextDisplay , + getGLContextDisplay , + + +-- ** SharedContext + GLContextSharedContextPropertyInfo , + constructGLContextSharedContext , + getGLContextSharedContext , + + +-- ** Window + GLContextWindowPropertyInfo , + constructGLContextWindow , + getGLContextWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype GLContext = GLContext (ForeignPtr GLContext) +foreign import ccall "gdk_gl_context_get_type" + c_gdk_gl_context_get_type :: IO GType + +type instance ParentTypes GLContext = GLContextParentTypes +type GLContextParentTypes = '[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 + +noGLContext :: Maybe GLContext +noGLContext = Nothing + +-- VVV Prop "display" + -- Type: TInterface "Gdk" "Display" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display +getGLContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display + +constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) +constructGLContextDisplay val = constructObjectPropertyObject "display" val + +data GLContextDisplayPropertyInfo +instance AttrInfo GLContextDisplayPropertyInfo where + type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK + type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK + type AttrGetType GLContextDisplayPropertyInfo = Display + type AttrLabel GLContextDisplayPropertyInfo = "GLContext::display" + attrGet _ = getGLContextDisplay + attrSet _ = undefined + attrConstruct _ = constructGLContextDisplay + +-- VVV Prop "shared-context" + -- Type: TInterface "Gdk" "GLContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext +getGLContextSharedContext obj = liftIO $ getObjectPropertyObject obj "shared-context" GLContext + +constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue) +constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" val + +data GLContextSharedContextPropertyInfo +instance AttrInfo GLContextSharedContextPropertyInfo where + type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK + type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK + type AttrGetType GLContextSharedContextPropertyInfo = GLContext + type AttrLabel GLContextSharedContextPropertyInfo = "GLContext::shared-context" + attrGet _ = getGLContextSharedContext + attrSet _ = undefined + attrConstruct _ = constructGLContextSharedContext + +-- VVV Prop "window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window +getGLContextWindow obj = liftIO $ getObjectPropertyObject obj "window" Window + +constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue) +constructGLContextWindow val = constructObjectPropertyObject "window" val + +data GLContextWindowPropertyInfo +instance AttrInfo GLContextWindowPropertyInfo where + type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK + type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK + type AttrGetType GLContextWindowPropertyInfo = Window + type AttrLabel GLContextWindowPropertyInfo = "GLContext::window" + attrGet _ = getGLContextWindow + attrSet _ = undefined + attrConstruct _ = constructGLContextWindow + +type instance AttributeList GLContext = GLContextAttributeList +type GLContextAttributeList = ('[ '("display", GLContextDisplayPropertyInfo), '("shared-context", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList GLContext = GLContextSignalList +type GLContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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' + + diff --git a/GI/Gdk/Objects/GLContext.hs-boot b/GI/Gdk/Objects/GLContext.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/GLContext.hs-boot @@ -0,0 +1,16 @@ +module GI.Gdk.Objects.GLContext where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype GLContext = GLContext (ForeignPtr GLContext) +instance GObject GLContext where +class GObject o => GLContextK o +instance (GObject o, IsDescendantOf GLContext o) => GLContextK o +data GLContextDisplayPropertyInfo +data GLContextSharedContextPropertyInfo +data GLContextWindowPropertyInfo diff --git a/GI/Gdk/Objects/Keymap.hs b/GI/Gdk/Objects/Keymap.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Keymap.hs @@ -0,0 +1,739 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Keymap + ( + +-- * Exported types + Keymap(..) , + KeymapK , + toKeymap , + noKeymap , + + + -- * Methods +-- ** keymapAddVirtualModifiers + keymapAddVirtualModifiers , + + +-- ** keymapGetCapsLockState + keymapGetCapsLockState , + + +-- ** keymapGetDefault + keymapGetDefault , + + +-- ** keymapGetDirection + keymapGetDirection , + + +-- ** keymapGetEntriesForKeycode + keymapGetEntriesForKeycode , + + +-- ** keymapGetEntriesForKeyval + keymapGetEntriesForKeyval , + + +-- ** keymapGetForDisplay + keymapGetForDisplay , + + +-- ** keymapGetModifierMask + keymapGetModifierMask , + + +-- ** keymapGetModifierState + keymapGetModifierState , + + +-- ** keymapGetNumLockState + keymapGetNumLockState , + + +-- ** keymapGetScrollLockState + keymapGetScrollLockState , + + +-- ** keymapHaveBidiLayouts + keymapHaveBidiLayouts , + + +-- ** keymapLookupKey + keymapLookupKey , + + +-- ** keymapMapVirtualModifiers + keymapMapVirtualModifiers , + + +-- ** keymapTranslateKeyboardState + keymapTranslateKeyboardState , + + + + + -- * Signals +-- ** DirectionChanged + KeymapDirectionChangedCallback , + KeymapDirectionChangedCallbackC , + KeymapDirectionChangedSignalInfo , + afterKeymapDirectionChanged , + keymapDirectionChangedCallbackWrapper , + keymapDirectionChangedClosure , + mkKeymapDirectionChangedCallback , + noKeymapDirectionChangedCallback , + onKeymapDirectionChanged , + + +-- ** KeysChanged + KeymapKeysChangedCallback , + KeymapKeysChangedCallbackC , + KeymapKeysChangedSignalInfo , + afterKeymapKeysChanged , + keymapKeysChangedCallbackWrapper , + keymapKeysChangedClosure , + mkKeymapKeysChangedCallback , + noKeymapKeysChangedCallback , + onKeymapKeysChanged , + + +-- ** StateChanged + KeymapStateChangedCallback , + KeymapStateChangedCallbackC , + KeymapStateChangedSignalInfo , + afterKeymapStateChanged , + keymapStateChangedCallbackWrapper , + keymapStateChangedClosure , + mkKeymapStateChangedCallback , + noKeymapStateChangedCallback , + onKeymapStateChanged , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Pango as Pango + +newtype Keymap = Keymap (ForeignPtr Keymap) +foreign import ccall "gdk_keymap_get_type" + c_gdk_keymap_get_type :: IO GType + +type instance ParentTypes Keymap = KeymapParentTypes +type KeymapParentTypes = '[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 + +noKeymap :: Maybe Keymap +noKeymap = Nothing + +-- 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 + +type instance AttributeList Keymap = KeymapAttributeList +type KeymapAttributeList = ('[ ] :: [(Symbol, *)]) + +data KeymapDirectionChangedSignalInfo +instance SignalInfo KeymapDirectionChangedSignalInfo where + type HaskellCallbackType KeymapDirectionChangedSignalInfo = KeymapDirectionChangedCallback + connectSignal _ = connectKeymapDirectionChanged + +data KeymapKeysChangedSignalInfo +instance SignalInfo KeymapKeysChangedSignalInfo where + type HaskellCallbackType KeymapKeysChangedSignalInfo = KeymapKeysChangedCallback + connectSignal _ = connectKeymapKeysChanged + +data KeymapStateChangedSignalInfo +instance SignalInfo KeymapStateChangedSignalInfo where + type HaskellCallbackType KeymapStateChangedSignalInfo = KeymapStateChangedCallback + connectSignal _ = connectKeymapStateChanged + +type instance SignalList Keymap = KeymapSignalList +type KeymapSignalList = ('[ '("direction-changed", KeymapDirectionChangedSignalInfo), '("keys-changed", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("state-changed", KeymapStateChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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::get_scroll_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_scroll_lock_state" gdk_keymap_get_scroll_lock_state :: + Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" + IO CInt + + +keymapGetScrollLockState :: + (MonadIO m, KeymapK a) => + a -> -- _obj + m Bool +keymapGetScrollLockState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_keymap_get_scroll_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' + + diff --git a/GI/Gdk/Objects/Keymap.hs-boot b/GI/Gdk/Objects/Keymap.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Keymap.hs-boot @@ -0,0 +1,16 @@ +module GI.Gdk.Objects.Keymap where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Keymap = Keymap (ForeignPtr Keymap) +instance GObject Keymap where +class GObject o => KeymapK o +instance (GObject o, IsDescendantOf Keymap o) => KeymapK o +data KeymapDirectionChangedSignalInfo +data KeymapKeysChangedSignalInfo +data KeymapStateChangedSignalInfo diff --git a/GI/Gdk/Objects/Screen.hs b/GI/Gdk/Objects/Screen.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Screen.hs @@ -0,0 +1,1336 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Screen + ( + +-- * Exported types + Screen(..) , + ScreenK , + toScreen , + noScreen , + + + -- * Methods +-- ** screenGetActiveWindow + screenGetActiveWindow , + + +-- ** screenGetDefault + screenGetDefault , + + +-- ** screenGetDisplay + screenGetDisplay , + + +-- ** screenGetFontOptions + screenGetFontOptions , + + +-- ** screenGetHeight + screenGetHeight , + + +-- ** screenGetHeightMm + screenGetHeightMm , + + +-- ** screenGetMonitorAtPoint + screenGetMonitorAtPoint , + + +-- ** screenGetMonitorAtWindow + screenGetMonitorAtWindow , + + +-- ** screenGetMonitorGeometry + screenGetMonitorGeometry , + + +-- ** screenGetMonitorHeightMm + screenGetMonitorHeightMm , + + +-- ** screenGetMonitorPlugName + screenGetMonitorPlugName , + + +-- ** screenGetMonitorScaleFactor + screenGetMonitorScaleFactor , + + +-- ** screenGetMonitorWidthMm + screenGetMonitorWidthMm , + + +-- ** screenGetMonitorWorkarea + screenGetMonitorWorkarea , + + +-- ** screenGetNMonitors + screenGetNMonitors , + + +-- ** screenGetNumber + screenGetNumber , + + +-- ** screenGetPrimaryMonitor + screenGetPrimaryMonitor , + + +-- ** screenGetResolution + screenGetResolution , + + +-- ** screenGetRgbaVisual + screenGetRgbaVisual , + + +-- ** screenGetRootWindow + screenGetRootWindow , + + +-- ** screenGetSetting + screenGetSetting , + + +-- ** screenGetSystemVisual + screenGetSystemVisual , + + +-- ** screenGetToplevelWindows + screenGetToplevelWindows , + + +-- ** screenGetWidth + screenGetWidth , + + +-- ** screenGetWidthMm + screenGetWidthMm , + + +-- ** screenGetWindowStack + screenGetWindowStack , + + +-- ** screenHeight + screenHeight , + + +-- ** screenHeightMm + screenHeightMm , + + +-- ** screenIsComposited + screenIsComposited , + + +-- ** screenListVisuals + screenListVisuals , + + +-- ** screenMakeDisplayName + screenMakeDisplayName , + + +-- ** screenSetFontOptions + screenSetFontOptions , + + +-- ** screenSetResolution + screenSetResolution , + + +-- ** screenWidth + screenWidth , + + +-- ** screenWidthMm + screenWidthMm , + + + + + -- * Properties +-- ** FontOptions + ScreenFontOptionsPropertyInfo , + constructScreenFontOptions , + getScreenFontOptions , + setScreenFontOptions , + + +-- ** Resolution + ScreenResolutionPropertyInfo , + constructScreenResolution , + getScreenResolution , + setScreenResolution , + + + + + -- * Signals +-- ** CompositedChanged + ScreenCompositedChangedCallback , + ScreenCompositedChangedCallbackC , + ScreenCompositedChangedSignalInfo , + afterScreenCompositedChanged , + mkScreenCompositedChangedCallback , + noScreenCompositedChangedCallback , + onScreenCompositedChanged , + screenCompositedChangedCallbackWrapper , + screenCompositedChangedClosure , + + +-- ** MonitorsChanged + ScreenMonitorsChangedCallback , + ScreenMonitorsChangedCallbackC , + ScreenMonitorsChangedSignalInfo , + afterScreenMonitorsChanged , + mkScreenMonitorsChangedCallback , + noScreenMonitorsChangedCallback , + onScreenMonitorsChanged , + screenMonitorsChangedCallbackWrapper , + screenMonitorsChangedClosure , + + +-- ** SizeChanged + ScreenSizeChangedCallback , + ScreenSizeChangedCallbackC , + ScreenSizeChangedSignalInfo , + afterScreenSizeChanged , + mkScreenSizeChangedCallback , + noScreenSizeChangedCallback , + onScreenSizeChanged , + screenSizeChangedCallbackWrapper , + screenSizeChangedClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Cairo as Cairo + +newtype Screen = Screen (ForeignPtr Screen) +foreign import ccall "gdk_screen_get_type" + c_gdk_screen_get_type :: IO GType + +type instance ParentTypes Screen = ScreenParentTypes +type ScreenParentTypes = '[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 + +noScreen :: Maybe Screen +noScreen = Nothing + +-- 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 + +-- VVV Prop "font-options" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getScreenFontOptions :: (MonadIO m, ScreenK o) => o -> m (Ptr ()) +getScreenFontOptions obj = liftIO $ getObjectPropertyPtr obj "font-options" + +setScreenFontOptions :: (MonadIO m, ScreenK o) => o -> (Ptr ()) -> m () +setScreenFontOptions obj val = liftIO $ setObjectPropertyPtr obj "font-options" val + +constructScreenFontOptions :: (Ptr ()) -> IO ([Char], GValue) +constructScreenFontOptions val = constructObjectPropertyPtr "font-options" val + +data ScreenFontOptionsPropertyInfo +instance AttrInfo ScreenFontOptionsPropertyInfo where + type AttrAllowedOps ScreenFontOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScreenFontOptionsPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint ScreenFontOptionsPropertyInfo = ScreenK + type AttrGetType ScreenFontOptionsPropertyInfo = (Ptr ()) + type AttrLabel ScreenFontOptionsPropertyInfo = "Screen::font-options" + attrGet _ = getScreenFontOptions + attrSet _ = setScreenFontOptions + attrConstruct _ = constructScreenFontOptions + +-- VVV Prop "resolution" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getScreenResolution :: (MonadIO m, ScreenK o) => o -> m Double +getScreenResolution obj = liftIO $ getObjectPropertyDouble obj "resolution" + +setScreenResolution :: (MonadIO m, ScreenK o) => o -> Double -> m () +setScreenResolution obj val = liftIO $ setObjectPropertyDouble obj "resolution" val + +constructScreenResolution :: Double -> IO ([Char], GValue) +constructScreenResolution val = constructObjectPropertyDouble "resolution" val + +data ScreenResolutionPropertyInfo +instance AttrInfo ScreenResolutionPropertyInfo where + type AttrAllowedOps ScreenResolutionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScreenResolutionPropertyInfo = (~) Double + type AttrBaseTypeConstraint ScreenResolutionPropertyInfo = ScreenK + type AttrGetType ScreenResolutionPropertyInfo = Double + type AttrLabel ScreenResolutionPropertyInfo = "Screen::resolution" + attrGet _ = getScreenResolution + attrSet _ = setScreenResolution + attrConstruct _ = constructScreenResolution + +type instance AttributeList Screen = ScreenAttributeList +type ScreenAttributeList = ('[ '("font-options", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)] :: [(Symbol, *)]) + +data ScreenCompositedChangedSignalInfo +instance SignalInfo ScreenCompositedChangedSignalInfo where + type HaskellCallbackType ScreenCompositedChangedSignalInfo = ScreenCompositedChangedCallback + connectSignal _ = connectScreenCompositedChanged + +data ScreenMonitorsChangedSignalInfo +instance SignalInfo ScreenMonitorsChangedSignalInfo where + type HaskellCallbackType ScreenMonitorsChangedSignalInfo = ScreenMonitorsChangedCallback + connectSignal _ = connectScreenMonitorsChanged + +data ScreenSizeChangedSignalInfo +instance SignalInfo ScreenSizeChangedSignalInfo where + type HaskellCallbackType ScreenSizeChangedSignalInfo = ScreenSizeChangedCallback + connectSignal _ = connectScreenSizeChanged + +type instance SignalList Screen = ScreenSignalList +type ScreenSignalList = ('[ '("composited-changed", ScreenCompositedChangedSignalInfo), '("monitors-changed", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-changed", ScreenSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 "Gdk" "Rectangle", 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 Rectangle -> -- dest : TInterface "Gdk" "Rectangle" + IO () + + +screenGetMonitorGeometry :: + (MonadIO m, ScreenK a) => + a -> -- _obj + Int32 -> -- monitor_num + m (Rectangle) +screenGetMonitorGeometry _obj monitor_num = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + gdk_screen_get_monitor_geometry _obj' monitor_num dest + dest' <- (wrapBoxed Rectangle) 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 "Gdk" "Rectangle", 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 Rectangle -> -- dest : TInterface "Gdk" "Rectangle" + IO () + + +screenGetMonitorWorkarea :: + (MonadIO m, ScreenK a) => + a -> -- _obj + Int32 -> -- monitor_num + m (Rectangle) +screenGetMonitorWorkarea _obj monitor_num = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + gdk_screen_get_monitor_workarea _obj' monitor_num dest + dest' <- (wrapBoxed Rectangle) 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 + + diff --git a/GI/Gdk/Objects/Screen.hs-boot b/GI/Gdk/Objects/Screen.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Screen.hs-boot @@ -0,0 +1,18 @@ +module GI.Gdk.Objects.Screen where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Screen = Screen (ForeignPtr Screen) +instance GObject Screen where +class GObject o => ScreenK o +instance (GObject o, IsDescendantOf Screen o) => ScreenK o +data ScreenFontOptionsPropertyInfo +data ScreenResolutionPropertyInfo +data ScreenCompositedChangedSignalInfo +data ScreenMonitorsChangedSignalInfo +data ScreenSizeChangedSignalInfo diff --git a/GI/Gdk/Objects/Visual.hs b/GI/Gdk/Objects/Visual.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Visual.hs @@ -0,0 +1,542 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Visual + ( + +-- * Exported types + Visual(..) , + VisualK , + toVisual , + noVisual , + + + -- * Methods +-- ** visualGetBest + visualGetBest , + + +-- ** visualGetBestDepth + visualGetBestDepth , + + +-- ** visualGetBestType + visualGetBestType , + + +-- ** visualGetBestWithBoth + visualGetBestWithBoth , + + +-- ** visualGetBestWithDepth + visualGetBestWithDepth , + + +-- ** visualGetBestWithType + visualGetBestWithType , + + +-- ** visualGetBitsPerRgb + visualGetBitsPerRgb , + + +-- ** visualGetBluePixelDetails + visualGetBluePixelDetails , + + +-- ** visualGetByteOrder + visualGetByteOrder , + + +-- ** visualGetColormapSize + visualGetColormapSize , + + +-- ** visualGetDepth + visualGetDepth , + + +-- ** visualGetGreenPixelDetails + visualGetGreenPixelDetails , + + +-- ** visualGetRedPixelDetails + visualGetRedPixelDetails , + + +-- ** visualGetScreen + visualGetScreen , + + +-- ** visualGetSystem + visualGetSystem , + + +-- ** visualGetVisualType + visualGetVisualType , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject + +newtype Visual = Visual (ForeignPtr Visual) +foreign import ccall "gdk_visual_get_type" + c_gdk_visual_get_type :: IO GType + +type instance ParentTypes Visual = VisualParentTypes +type VisualParentTypes = '[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 + +noVisual :: Maybe Visual +noVisual = Nothing + +type instance AttributeList Visual = VisualAttributeList +type VisualAttributeList = ('[ ] :: [(Symbol, *)]) + +type instance SignalList Visual = VisualSignalList +type VisualSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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' + + diff --git a/GI/Gdk/Objects/Visual.hs-boot b/GI/Gdk/Objects/Visual.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Visual.hs-boot @@ -0,0 +1,13 @@ +module GI.Gdk.Objects.Visual where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Visual = Visual (ForeignPtr Visual) +instance GObject Visual where +class GObject o => VisualK o +instance (GObject o, IsDescendantOf Visual o) => VisualK o diff --git a/GI/Gdk/Objects/Window.hs b/GI/Gdk/Objects/Window.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Window.hs @@ -0,0 +1,5370 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Objects.Window + ( + +-- * Exported types + Window(..) , + WindowK , + toWindow , + noWindow , + + + -- * Methods +-- ** windowAtPointer + windowAtPointer , + + +-- ** windowBeep + windowBeep , + + +-- ** windowBeginMoveDrag + windowBeginMoveDrag , + + +-- ** windowBeginMoveDragForDevice + windowBeginMoveDragForDevice , + + +-- ** windowBeginPaintRect + windowBeginPaintRect , + + +-- ** windowBeginPaintRegion + windowBeginPaintRegion , + + +-- ** windowBeginResizeDrag + windowBeginResizeDrag , + + +-- ** windowBeginResizeDragForDevice + windowBeginResizeDragForDevice , + + +-- ** windowConfigureFinished + windowConfigureFinished , + + +-- ** windowConstrainSize + windowConstrainSize , + + +-- ** windowCoordsFromParent + windowCoordsFromParent , + + +-- ** windowCoordsToParent + windowCoordsToParent , + + +-- ** windowCreateGlContext + windowCreateGlContext , + + +-- ** windowCreateSimilarImageSurface + windowCreateSimilarImageSurface , + + +-- ** windowCreateSimilarSurface + windowCreateSimilarSurface , + + +-- ** windowDeiconify + windowDeiconify , + + +-- ** windowDestroy + windowDestroy , + + +-- ** windowDestroyNotify + windowDestroyNotify , + + +-- ** windowEnableSynchronizedConfigure + windowEnableSynchronizedConfigure , + + +-- ** windowEndPaint + windowEndPaint , + + +-- ** windowEnsureNative + windowEnsureNative , + + +-- ** windowFlush + windowFlush , + + +-- ** windowFocus + windowFocus , + + +-- ** windowFreezeToplevelUpdatesLibgtkOnly + windowFreezeToplevelUpdatesLibgtkOnly , + + +-- ** windowFreezeUpdates + windowFreezeUpdates , + + +-- ** windowFullscreen + windowFullscreen , + + +-- ** windowFullscreenOnMonitor + windowFullscreenOnMonitor , + + +-- ** windowGeometryChanged + windowGeometryChanged , + + +-- ** windowGetAcceptFocus + windowGetAcceptFocus , + + +-- ** windowGetBackgroundPattern + windowGetBackgroundPattern , + + +-- ** windowGetChildren + windowGetChildren , + + +-- ** windowGetChildrenWithUserData + windowGetChildrenWithUserData , + + +-- ** windowGetClipRegion + windowGetClipRegion , + + +-- ** windowGetComposited + windowGetComposited , + + +-- ** windowGetCursor + windowGetCursor , + + +-- ** windowGetDecorations + windowGetDecorations , + + +-- ** windowGetDeviceCursor + windowGetDeviceCursor , + + +-- ** windowGetDeviceEvents + windowGetDeviceEvents , + + +-- ** windowGetDevicePosition + windowGetDevicePosition , + + +-- ** windowGetDevicePositionDouble + windowGetDevicePositionDouble , + + +-- ** windowGetDisplay + windowGetDisplay , + + +-- ** windowGetDragProtocol + windowGetDragProtocol , + + +-- ** windowGetEffectiveParent + windowGetEffectiveParent , + + +-- ** windowGetEffectiveToplevel + windowGetEffectiveToplevel , + + +-- ** windowGetEventCompression + windowGetEventCompression , + + +-- ** windowGetEvents + windowGetEvents , + + +-- ** windowGetFocusOnMap + windowGetFocusOnMap , + + +-- ** windowGetFrameClock + windowGetFrameClock , + + +-- ** windowGetFrameExtents + windowGetFrameExtents , + + +-- ** windowGetFullscreenMode + windowGetFullscreenMode , + + +-- ** windowGetGeometry + windowGetGeometry , + + +-- ** windowGetGroup + windowGetGroup , + + +-- ** windowGetHeight + windowGetHeight , + + +-- ** windowGetModalHint + windowGetModalHint , + + +-- ** windowGetOrigin + windowGetOrigin , + + +-- ** windowGetParent + windowGetParent , + + +-- ** windowGetPassThrough + windowGetPassThrough , + + +-- ** windowGetPointer + windowGetPointer , + + +-- ** windowGetPosition + windowGetPosition , + + +-- ** windowGetRootCoords + windowGetRootCoords , + + +-- ** windowGetRootOrigin + windowGetRootOrigin , + + +-- ** windowGetScaleFactor + windowGetScaleFactor , + + +-- ** windowGetScreen + windowGetScreen , + + +-- ** windowGetSourceEvents + windowGetSourceEvents , + + +-- ** windowGetState + windowGetState , + + +-- ** windowGetSupportMultidevice + windowGetSupportMultidevice , + + +-- ** windowGetToplevel + windowGetToplevel , + + +-- ** windowGetTypeHint + windowGetTypeHint , + + +-- ** windowGetUpdateArea + windowGetUpdateArea , + + +-- ** windowGetUserData + windowGetUserData , + + +-- ** windowGetVisibleRegion + windowGetVisibleRegion , + + +-- ** windowGetVisual + windowGetVisual , + + +-- ** windowGetWidth + windowGetWidth , + + +-- ** windowGetWindowType + windowGetWindowType , + + +-- ** windowHasNative + windowHasNative , + + +-- ** windowHide + windowHide , + + +-- ** windowIconify + windowIconify , + + +-- ** windowInputShapeCombineRegion + windowInputShapeCombineRegion , + + +-- ** windowInvalidateMaybeRecurse + windowInvalidateMaybeRecurse , + + +-- ** windowInvalidateRect + windowInvalidateRect , + + +-- ** windowInvalidateRegion + windowInvalidateRegion , + + +-- ** windowIsDestroyed + windowIsDestroyed , + + +-- ** windowIsInputOnly + windowIsInputOnly , + + +-- ** windowIsShaped + windowIsShaped , + + +-- ** windowIsViewable + windowIsViewable , + + +-- ** windowIsVisible + windowIsVisible , + + +-- ** windowLower + windowLower , + + +-- ** windowMarkPaintFromClip + windowMarkPaintFromClip , + + +-- ** windowMaximize + windowMaximize , + + +-- ** windowMergeChildInputShapes + windowMergeChildInputShapes , + + +-- ** windowMergeChildShapes + windowMergeChildShapes , + + +-- ** windowMove + windowMove , + + +-- ** windowMoveRegion + windowMoveRegion , + + +-- ** windowMoveResize + windowMoveResize , + + +-- ** windowNew + windowNew , + + +-- ** windowPeekChildren + windowPeekChildren , + + +-- ** windowProcessAllUpdates + windowProcessAllUpdates , + + +-- ** windowProcessUpdates + windowProcessUpdates , + + +-- ** windowRaise + windowRaise , + + +-- ** windowRegisterDnd + windowRegisterDnd , + + +-- ** windowReparent + windowReparent , + + +-- ** windowResize + windowResize , + + +-- ** windowRestack + windowRestack , + + +-- ** windowScroll + windowScroll , + + +-- ** windowSetAcceptFocus + windowSetAcceptFocus , + + +-- ** windowSetBackground + windowSetBackground , + + +-- ** windowSetBackgroundPattern + windowSetBackgroundPattern , + + +-- ** windowSetBackgroundRgba + windowSetBackgroundRgba , + + +-- ** windowSetChildInputShapes + windowSetChildInputShapes , + + +-- ** windowSetChildShapes + windowSetChildShapes , + + +-- ** windowSetComposited + windowSetComposited , + + +-- ** windowSetCursor + windowSetCursor , + + +-- ** windowSetDebugUpdates + windowSetDebugUpdates , + + +-- ** windowSetDecorations + windowSetDecorations , + + +-- ** windowSetDeviceCursor + windowSetDeviceCursor , + + +-- ** windowSetDeviceEvents + windowSetDeviceEvents , + + +-- ** windowSetEventCompression + windowSetEventCompression , + + +-- ** windowSetEvents + windowSetEvents , + + +-- ** windowSetFocusOnMap + windowSetFocusOnMap , + + +-- ** windowSetFullscreenMode + windowSetFullscreenMode , + + +-- ** windowSetFunctions + windowSetFunctions , + + +-- ** windowSetGeometryHints + windowSetGeometryHints , + + +-- ** windowSetGroup + windowSetGroup , + + +-- ** windowSetIconList + windowSetIconList , + + +-- ** windowSetIconName + windowSetIconName , + + +-- ** windowSetKeepAbove + windowSetKeepAbove , + + +-- ** windowSetKeepBelow + windowSetKeepBelow , + + +-- ** windowSetModalHint + windowSetModalHint , + + +-- ** windowSetOpacity + windowSetOpacity , + + +-- ** windowSetOpaqueRegion + windowSetOpaqueRegion , + + +-- ** windowSetOverrideRedirect + windowSetOverrideRedirect , + + +-- ** windowSetPassThrough + windowSetPassThrough , + + +-- ** windowSetRole + windowSetRole , + + +-- ** windowSetShadowWidth + windowSetShadowWidth , + + +-- ** windowSetSkipPagerHint + windowSetSkipPagerHint , + + +-- ** windowSetSkipTaskbarHint + windowSetSkipTaskbarHint , + + +-- ** windowSetSourceEvents + windowSetSourceEvents , + + +-- ** windowSetStartupId + windowSetStartupId , + + +-- ** windowSetStaticGravities + windowSetStaticGravities , + + +-- ** windowSetSupportMultidevice + windowSetSupportMultidevice , + + +-- ** windowSetTitle + windowSetTitle , + + +-- ** windowSetTransientFor + windowSetTransientFor , + + +-- ** windowSetTypeHint + windowSetTypeHint , + + +-- ** windowSetUrgencyHint + windowSetUrgencyHint , + + +-- ** windowSetUserData + windowSetUserData , + + +-- ** windowShapeCombineRegion + windowShapeCombineRegion , + + +-- ** windowShow + windowShow , + + +-- ** windowShowUnraised + windowShowUnraised , + + +-- ** windowShowWindowMenu + windowShowWindowMenu , + + +-- ** windowStick + windowStick , + + +-- ** windowThawToplevelUpdatesLibgtkOnly + windowThawToplevelUpdatesLibgtkOnly , + + +-- ** windowThawUpdates + windowThawUpdates , + + +-- ** windowUnfullscreen + windowUnfullscreen , + + +-- ** windowUnmaximize + windowUnmaximize , + + +-- ** windowUnstick + windowUnstick , + + +-- ** windowWithdraw + windowWithdraw , + + + + + -- * Properties +-- ** Cursor + WindowCursorPropertyInfo , + constructWindowCursor , + getWindowCursor , + setWindowCursor , + + + + + -- * Signals +-- ** CreateSurface + WindowCreateSurfaceCallback , + WindowCreateSurfaceCallbackC , + WindowCreateSurfaceSignalInfo , + afterWindowCreateSurface , + mkWindowCreateSurfaceCallback , + noWindowCreateSurfaceCallback , + onWindowCreateSurface , + windowCreateSurfaceCallbackWrapper , + windowCreateSurfaceClosure , + + +-- ** FromEmbedder + WindowFromEmbedderCallback , + WindowFromEmbedderCallbackC , + WindowFromEmbedderSignalInfo , + afterWindowFromEmbedder , + mkWindowFromEmbedderCallback , + noWindowFromEmbedderCallback , + onWindowFromEmbedder , + windowFromEmbedderCallbackWrapper , + windowFromEmbedderClosure , + + +-- ** PickEmbeddedChild + WindowPickEmbeddedChildCallback , + WindowPickEmbeddedChildCallbackC , + WindowPickEmbeddedChildSignalInfo , + afterWindowPickEmbeddedChild , + mkWindowPickEmbeddedChildCallback , + noWindowPickEmbeddedChildCallback , + onWindowPickEmbeddedChild , + windowPickEmbeddedChildCallbackWrapper , + windowPickEmbeddedChildClosure , + + +-- ** ToEmbedder + WindowToEmbedderCallback , + WindowToEmbedderCallbackC , + WindowToEmbedderSignalInfo , + afterWindowToEmbedder , + mkWindowToEmbedderCallback , + noWindowToEmbedderCallback , + onWindowToEmbedder , + windowToEmbedderCallbackWrapper , + windowToEmbedderClosure , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Cairo as Cairo + +newtype Window = Window (ForeignPtr Window) +foreign import ccall "gdk_window_get_type" + c_gdk_window_get_type :: IO GType + +type instance ParentTypes Window = WindowParentTypes +type WindowParentTypes = '[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 + +noWindow :: Maybe Window +noWindow = Nothing + +-- 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 + +-- VVV Prop "cursor" + -- Type: TInterface "Gdk" "Cursor" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowCursor :: (MonadIO m, WindowK o) => o -> m Cursor +getWindowCursor obj = liftIO $ getObjectPropertyObject obj "cursor" Cursor + +setWindowCursor :: (MonadIO m, WindowK o, CursorK a) => o -> a -> m () +setWindowCursor obj val = liftIO $ setObjectPropertyObject obj "cursor" val + +constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue) +constructWindowCursor val = constructObjectPropertyObject "cursor" val + +data WindowCursorPropertyInfo +instance AttrInfo WindowCursorPropertyInfo where + type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK + type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK + type AttrGetType WindowCursorPropertyInfo = Cursor + type AttrLabel WindowCursorPropertyInfo = "Window::cursor" + attrGet _ = getWindowCursor + attrSet _ = setWindowCursor + attrConstruct _ = constructWindowCursor + +type instance AttributeList Window = WindowAttributeList +type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)]) + +data WindowCreateSurfaceSignalInfo +instance SignalInfo WindowCreateSurfaceSignalInfo where + type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback + connectSignal _ = connectWindowCreateSurface + +data WindowFromEmbedderSignalInfo +instance SignalInfo WindowFromEmbedderSignalInfo where + type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback + connectSignal _ = connectWindowFromEmbedder + +data WindowPickEmbeddedChildSignalInfo +instance SignalInfo WindowPickEmbeddedChildSignalInfo where + type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback + connectSignal _ = connectWindowPickEmbeddedChild + +data WindowToEmbedderSignalInfo +instance SignalInfo WindowToEmbedderSignalInfo where + type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback + connectSignal _ = connectWindowToEmbedder + +type instance SignalList Window = WindowSignalList +type WindowSignalList = ('[ '("create-surface", WindowCreateSurfaceSignalInfo), '("from-embedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pick-embedded-child", WindowPickEmbeddedChildSignalInfo), '("to-embedder", WindowToEmbedderSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- 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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" + IO () + + +windowBeginPaintRect :: + (MonadIO m, WindowK a) => + a -> -- _obj + Rectangle -> -- 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::fullscreen_on_monitor +-- 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 = "monitor", 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 = "monitor", 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_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor :: + Ptr Window -> -- _obj : TInterface "Gdk" "Window" + Int32 -> -- monitor : TBasicType TInt32 + IO () + + +windowFullscreenOnMonitor :: + (MonadIO m, WindowK a) => + a -> -- _obj + Int32 -> -- monitor + m () +windowFullscreenOnMonitor _obj monitor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gdk_window_fullscreen_on_monitor _obj' monitor + 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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + IO () + + +windowGetFrameExtents :: + (MonadIO m, WindowK a) => + a -> -- _obj + m (Rectangle) +windowGetFrameExtents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + gdk_window_get_frame_extents _obj' rect + rect' <- (wrapBoxed Rectangle) 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_pass_through +-- 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_pass_through" gdk_window_get_pass_through :: + Ptr Window -> -- _obj : TInterface "Gdk" "Window" + IO CInt + + +windowGetPassThrough :: + (MonadIO m, WindowK a) => + a -> -- _obj + m Bool +windowGetPassThrough _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_window_get_pass_through _obj' + let result' = (/= 0) 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 "Gdk" "Rectangle", 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 "Gdk" "Rectangle", 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 Rectangle -> -- rect : TInterface "Gdk" "Rectangle" + CInt -> -- invalidate_children : TBasicType TBoolean + IO () + + +windowInvalidateRect :: + (MonadIO m, WindowK a) => + a -> -- _obj + Maybe (Rectangle) -> -- 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_pass_through +-- 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 = "pass_through", 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 = "pass_through", 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_pass_through" gdk_window_set_pass_through :: + Ptr Window -> -- _obj : TInterface "Gdk" "Window" + CInt -> -- pass_through : TBasicType TBoolean + IO () + + +windowSetPassThrough :: + (MonadIO m, WindowK a) => + a -> -- _obj + Bool -> -- pass_through + m () +windowSetPassThrough _obj pass_through = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pass_through' = (fromIntegral . fromEnum) pass_through + gdk_window_set_pass_through _obj' pass_through' + 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 () + + diff --git a/GI/Gdk/Objects/Window.hs-boot b/GI/Gdk/Objects/Window.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Objects/Window.hs-boot @@ -0,0 +1,18 @@ +module GI.Gdk.Objects.Window where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Window = Window (ForeignPtr Window) +instance GObject Window where +class GObject o => WindowK o +instance (GObject o, IsDescendantOf Window o) => WindowK o +data WindowCursorPropertyInfo +data WindowCreateSurfaceSignalInfo +data WindowFromEmbedderSignalInfo +data WindowPickEmbeddedChildSignalInfo +data WindowToEmbedderSignalInfo diff --git a/GI/Gdk/Structs.hs b/GI/Gdk/Structs.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs.hs @@ -0,0 +1,90 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Structs + ( module GI.Gdk.Structs.Atom , + module GI.Gdk.Structs.Color , + module GI.Gdk.Structs.EventAny , + module GI.Gdk.Structs.EventButton , + module GI.Gdk.Structs.EventConfigure , + module GI.Gdk.Structs.EventCrossing , + module GI.Gdk.Structs.EventDND , + module GI.Gdk.Structs.EventExpose , + module GI.Gdk.Structs.EventFocus , + module GI.Gdk.Structs.EventGrabBroken , + module GI.Gdk.Structs.EventKey , + module GI.Gdk.Structs.EventMotion , + module GI.Gdk.Structs.EventOwnerChange , + module GI.Gdk.Structs.EventProperty , + module GI.Gdk.Structs.EventProximity , + module GI.Gdk.Structs.EventScroll , + module GI.Gdk.Structs.EventSelection , + module GI.Gdk.Structs.EventSequence , + module GI.Gdk.Structs.EventSetting , + module GI.Gdk.Structs.EventTouch , + module GI.Gdk.Structs.EventTouchpadPinch, + module GI.Gdk.Structs.EventTouchpadSwipe, + module GI.Gdk.Structs.EventVisibility , + module GI.Gdk.Structs.EventWindowState , + module GI.Gdk.Structs.FrameTimings , + module GI.Gdk.Structs.Geometry , + module GI.Gdk.Structs.KeymapKey , + module GI.Gdk.Structs.Point , + module GI.Gdk.Structs.RGBA , + module GI.Gdk.Structs.Rectangle , + module GI.Gdk.Structs.TimeCoord , + module GI.Gdk.Structs.WindowAttr , + module GI.Gdk.Structs.WindowRedirect , + + + ) where + +import GI.Gdk.Structs.Atom +import GI.Gdk.Structs.Color +import GI.Gdk.Structs.EventAny +import GI.Gdk.Structs.EventButton +import GI.Gdk.Structs.EventConfigure +import GI.Gdk.Structs.EventCrossing +import GI.Gdk.Structs.EventDND +import GI.Gdk.Structs.EventExpose +import GI.Gdk.Structs.EventFocus +import GI.Gdk.Structs.EventGrabBroken +import GI.Gdk.Structs.EventKey +import GI.Gdk.Structs.EventMotion +import GI.Gdk.Structs.EventOwnerChange +import GI.Gdk.Structs.EventProperty +import GI.Gdk.Structs.EventProximity +import GI.Gdk.Structs.EventScroll +import GI.Gdk.Structs.EventSelection +import GI.Gdk.Structs.EventSequence +import GI.Gdk.Structs.EventSetting +import GI.Gdk.Structs.EventTouch +import GI.Gdk.Structs.EventTouchpadPinch +import GI.Gdk.Structs.EventTouchpadSwipe +import GI.Gdk.Structs.EventVisibility +import GI.Gdk.Structs.EventWindowState +import GI.Gdk.Structs.FrameTimings +import GI.Gdk.Structs.Geometry +import GI.Gdk.Structs.KeymapKey +import GI.Gdk.Structs.Point +import GI.Gdk.Structs.RGBA +import GI.Gdk.Structs.Rectangle +import GI.Gdk.Structs.TimeCoord +import GI.Gdk.Structs.WindowAttr +import GI.Gdk.Structs.WindowRedirect + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + + diff --git a/GI/Gdk/Structs/Atom.hs b/GI/Gdk/Structs/Atom.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Atom.hs @@ -0,0 +1,69 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +An opaque type representing a string as an index into a table +of strings on the X server. +-} + +module GI.Gdk.Structs.Atom + ( + +-- * Exported types + Atom(..) , + noAtom , + + + -- * Methods +-- ** atomName + atomName , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/Atom.hs-boot b/GI/Gdk/Structs/Atom.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Atom.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.Atom where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Atom = Atom (ForeignPtr Atom) diff --git a/GI/Gdk/Structs/Color.hs b/GI/Gdk/Structs/Color.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Color.hs @@ -0,0 +1,233 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GdkColor is used to describe a color, +similar to the XColor struct used in the X11 drawing API. +-} + +module GI.Gdk.Structs.Color + ( + +-- * Exported types + Color(..) , + noColor , + + + -- * Methods +-- ** colorCopy + colorCopy , + + +-- ** colorEqual + colorEqual , + + +-- ** colorFree + colorFree , + + +-- ** colorHash + colorHash , + + +-- ** colorToString + colorToString , + + + + + -- * Properties +-- ** Blue + colorReadBlue , + + +-- ** Green + colorReadGreen , + + +-- ** Pixel + colorReadPixel , + + +-- ** Red + colorReadRed , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype Color = Color (ForeignPtr Color) +foreign import ccall "gdk_color_get_type" c_gdk_color_get_type :: + IO GType + +instance BoxedObject Color where + boxedType _ = c_gdk_color_get_type + +noColor :: Maybe Color +noColor = Nothing + +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' + + diff --git a/GI/Gdk/Structs/Color.hs-boot b/GI/Gdk/Structs/Color.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Color.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Structs.Color where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Color = Color (ForeignPtr Color) +instance BoxedObject Color where diff --git a/GI/Gdk/Structs/EventAny.hs b/GI/Gdk/Structs/EventAny.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventAny.hs @@ -0,0 +1,68 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Contains the fields which are common to all event structs. +Any event pointer can safely be cast to a pointer to a #GdkEventAny to +access these fields. +-} + +module GI.Gdk.Structs.EventAny + ( + +-- * Exported types + EventAny(..) , + noEventAny , + + + -- * Properties +-- ** SendEvent + eventAnyReadSendEvent , + + +-- ** Type + eventAnyReadType , + + +-- ** Window + eventAnyReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventAny.hs-boot b/GI/Gdk/Structs/EventAny.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventAny.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventAny where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventAny = EventAny (ForeignPtr EventAny) diff --git a/GI/Gdk/Structs/EventButton.hs b/GI/Gdk/Structs/EventButton.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventButton.hs @@ -0,0 +1,186 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Used for button press and button release events. The +@type field will be one of %GDK_BUTTON_PRESS, +%GDK_2BUTTON_PRESS, %GDK_3BUTTON_PRESS or %GDK_BUTTON_RELEASE, + +Double and triple-clicks result in a sequence of events being received. +For double-clicks the order of events will be: + +- %GDK_BUTTON_PRESS +- %GDK_BUTTON_RELEASE +- %GDK_BUTTON_PRESS +- %GDK_2BUTTON_PRESS +- %GDK_BUTTON_RELEASE + +Note that the first click is received just like a normal +button press, while the second click results in a %GDK_2BUTTON_PRESS +being received just after the %GDK_BUTTON_PRESS. + +Triple-clicks are very similar to double-clicks, except that +%GDK_3BUTTON_PRESS is inserted after the third click. The order of the +events is: + +- %GDK_BUTTON_PRESS +- %GDK_BUTTON_RELEASE +- %GDK_BUTTON_PRESS +- %GDK_2BUTTON_PRESS +- %GDK_BUTTON_RELEASE +- %GDK_BUTTON_PRESS +- %GDK_3BUTTON_PRESS +- %GDK_BUTTON_RELEASE + +For a double click to occur, the second button press must occur within +1/4 of a second of the first. For a triple click to occur, the third +button press must also occur within 1/2 second of the first button press. +-} + +module GI.Gdk.Structs.EventButton + ( + +-- * Exported types + EventButton(..) , + noEventButton , + + + -- * Properties +-- ** Axes + eventButtonReadAxes , + + +-- ** Button + eventButtonReadButton , + + +-- ** Device + eventButtonReadDevice , + + +-- ** SendEvent + eventButtonReadSendEvent , + + +-- ** State + eventButtonReadState , + + +-- ** Time + eventButtonReadTime , + + +-- ** Type + eventButtonReadType , + + +-- ** Window + eventButtonReadWindow , + + +-- ** X + eventButtonReadX , + + +-- ** XRoot + eventButtonReadXRoot , + + +-- ** Y + eventButtonReadY , + + +-- ** YRoot + eventButtonReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventButton.hs-boot b/GI/Gdk/Structs/EventButton.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventButton.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventButton where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventButton = EventButton (ForeignPtr EventButton) diff --git a/GI/Gdk/Structs/EventConfigure.hs b/GI/Gdk/Structs/EventConfigure.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventConfigure.hs @@ -0,0 +1,102 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when a window size or position has changed. +-} + +module GI.Gdk.Structs.EventConfigure + ( + +-- * Exported types + EventConfigure(..) , + noEventConfigure , + + + -- * Properties +-- ** Height + eventConfigureReadHeight , + + +-- ** SendEvent + eventConfigureReadSendEvent , + + +-- ** Type + eventConfigureReadType , + + +-- ** Width + eventConfigureReadWidth , + + +-- ** Window + eventConfigureReadWindow , + + +-- ** X + eventConfigureReadX , + + +-- ** Y + eventConfigureReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventConfigure.hs-boot b/GI/Gdk/Structs/EventConfigure.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventConfigure.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventConfigure where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure) diff --git a/GI/Gdk/Structs/EventCrossing.hs b/GI/Gdk/Structs/EventCrossing.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventCrossing.hs @@ -0,0 +1,165 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when the pointer enters or leaves a window. +-} + +module GI.Gdk.Structs.EventCrossing + ( + +-- * Exported types + EventCrossing(..) , + noEventCrossing , + + + -- * Properties +-- ** Detail + eventCrossingReadDetail , + + +-- ** Focus + eventCrossingReadFocus , + + +-- ** Mode + eventCrossingReadMode , + + +-- ** SendEvent + eventCrossingReadSendEvent , + + +-- ** State + eventCrossingReadState , + + +-- ** Subwindow + eventCrossingReadSubwindow , + + +-- ** Time + eventCrossingReadTime , + + +-- ** Type + eventCrossingReadType , + + +-- ** Window + eventCrossingReadWindow , + + +-- ** X + eventCrossingReadX , + + +-- ** XRoot + eventCrossingReadXRoot , + + +-- ** Y + eventCrossingReadY , + + +-- ** YRoot + eventCrossingReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventCrossing.hs-boot b/GI/Gdk/Structs/EventCrossing.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventCrossing.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventCrossing where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing) diff --git a/GI/Gdk/Structs/EventDND.hs b/GI/Gdk/Structs/EventDND.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventDND.hs @@ -0,0 +1,103 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated during DND operations. +-} + +module GI.Gdk.Structs.EventDND + ( + +-- * Exported types + EventDND(..) , + noEventDND , + + + -- * Properties +-- ** Context + eventDNDReadContext , + + +-- ** SendEvent + eventDNDReadSendEvent , + + +-- ** Time + eventDNDReadTime , + + +-- ** Type + eventDNDReadType , + + +-- ** Window + eventDNDReadWindow , + + +-- ** XRoot + eventDNDReadXRoot , + + +-- ** YRoot + eventDNDReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventDND.hs-boot b/GI/Gdk/Structs/EventDND.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventDND.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventDND where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventDND = EventDND (ForeignPtr EventDND) diff --git a/GI/Gdk/Structs/EventExpose.hs b/GI/Gdk/Structs/EventExpose.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventExpose.hs @@ -0,0 +1,97 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when all or part of a window becomes visible and needs to be +redrawn. +-} + +module GI.Gdk.Structs.EventExpose + ( + +-- * Exported types + EventExpose(..) , + noEventExpose , + + + -- * Properties +-- ** Area + eventExposeReadArea , + + +-- ** Count + eventExposeReadCount , + + +-- ** Region + eventExposeReadRegion , + + +-- ** SendEvent + eventExposeReadSendEvent , + + +-- ** Type + eventExposeReadType , + + +-- ** Window + eventExposeReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks +import qualified GI.Cairo as Cairo + +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 Rectangle +eventExposeReadArea s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO (Ptr Rectangle) + val' <- (newBoxed Rectangle) 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 + + diff --git a/GI/Gdk/Structs/EventExpose.hs-boot b/GI/Gdk/Structs/EventExpose.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventExpose.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventExpose where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventExpose = EventExpose (ForeignPtr EventExpose) diff --git a/GI/Gdk/Structs/EventFocus.hs b/GI/Gdk/Structs/EventFocus.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventFocus.hs @@ -0,0 +1,75 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Describes a change of keyboard focus. +-} + +module GI.Gdk.Structs.EventFocus + ( + +-- * Exported types + EventFocus(..) , + noEventFocus , + + + -- * Properties +-- ** In + eventFocusReadIn , + + +-- ** SendEvent + eventFocusReadSendEvent , + + +-- ** Type + eventFocusReadType , + + +-- ** Window + eventFocusReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventFocus.hs-boot b/GI/Gdk/Structs/EventFocus.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventFocus.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventFocus where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventFocus = EventFocus (ForeignPtr EventFocus) diff --git a/GI/Gdk/Structs/EventGrabBroken.hs b/GI/Gdk/Structs/EventGrabBroken.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventGrabBroken.hs @@ -0,0 +1,100 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when a pointer or keyboard grab is broken. On X11, this happens +when the grab window becomes unviewable (i.e. it or one of its ancestors +is unmapped), or if the same application grabs the pointer or keyboard +again. Note that implicit grabs (which are initiated by button presses) +can also cause #GdkEventGrabBroken events. +-} + +module GI.Gdk.Structs.EventGrabBroken + ( + +-- * Exported types + EventGrabBroken(..) , + noEventGrabBroken , + + + -- * Properties +-- ** GrabWindow + eventGrabBrokenReadGrabWindow , + + +-- ** Implicit + eventGrabBrokenReadImplicit , + + +-- ** Keyboard + eventGrabBrokenReadKeyboard , + + +-- ** SendEvent + eventGrabBrokenReadSendEvent , + + +-- ** Type + eventGrabBrokenReadType , + + +-- ** Window + eventGrabBrokenReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventGrabBroken.hs-boot b/GI/Gdk/Structs/EventGrabBroken.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventGrabBroken.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventGrabBroken where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken) diff --git a/GI/Gdk/Structs/EventKey.hs b/GI/Gdk/Structs/EventKey.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventKey.hs @@ -0,0 +1,140 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Describes a key press or key release event. +-} + +module GI.Gdk.Structs.EventKey + ( + +-- * Exported types + EventKey(..) , + noEventKey , + + + -- * Properties +-- ** Group + eventKeyReadGroup , + + +-- ** HardwareKeycode + eventKeyReadHardwareKeycode , + + +-- ** IsModifier + eventKeyReadIsModifier , + + +-- ** Keyval + eventKeyReadKeyval , + + +-- ** Length + eventKeyReadLength , + + +-- ** SendEvent + eventKeyReadSendEvent , + + +-- ** State + eventKeyReadState , + + +-- ** String + eventKeyReadString , + + +-- ** Time + eventKeyReadTime , + + +-- ** Type + eventKeyReadType , + + +-- ** Window + eventKeyReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventKey.hs-boot b/GI/Gdk/Structs/EventKey.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventKey.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventKey where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventKey = EventKey (ForeignPtr EventKey) diff --git a/GI/Gdk/Structs/EventMotion.hs b/GI/Gdk/Structs/EventMotion.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventMotion.hs @@ -0,0 +1,154 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when the pointer moves. +-} + +module GI.Gdk.Structs.EventMotion + ( + +-- * Exported types + EventMotion(..) , + noEventMotion , + + + -- * Properties +-- ** Axes + eventMotionReadAxes , + + +-- ** Device + eventMotionReadDevice , + + +-- ** IsHint + eventMotionReadIsHint , + + +-- ** SendEvent + eventMotionReadSendEvent , + + +-- ** State + eventMotionReadState , + + +-- ** Time + eventMotionReadTime , + + +-- ** Type + eventMotionReadType , + + +-- ** Window + eventMotionReadWindow , + + +-- ** X + eventMotionReadX , + + +-- ** XRoot + eventMotionReadXRoot , + + +-- ** Y + eventMotionReadY , + + +-- ** YRoot + eventMotionReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventMotion.hs-boot b/GI/Gdk/Structs/EventMotion.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventMotion.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventMotion where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventMotion = EventMotion (ForeignPtr EventMotion) diff --git a/GI/Gdk/Structs/EventOwnerChange.hs b/GI/Gdk/Structs/EventOwnerChange.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventOwnerChange.hs @@ -0,0 +1,117 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when the owner of a selection changes. On X11, this +information is only available if the X server supports the XFIXES +extension. +-} + +module GI.Gdk.Structs.EventOwnerChange + ( + +-- * Exported types + EventOwnerChange(..) , + noEventOwnerChange , + + + -- * Properties +-- ** Owner + eventOwnerChangeReadOwner , + + +-- ** Reason + eventOwnerChangeReadReason , + + +-- ** Selection + eventOwnerChangeReadSelection , + + +-- ** SelectionTime + eventOwnerChangeReadSelectionTime , + + +-- ** SendEvent + eventOwnerChangeReadSendEvent , + + +-- ** Time + eventOwnerChangeReadTime , + + +-- ** Type + eventOwnerChangeReadType , + + +-- ** Window + eventOwnerChangeReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/EventOwnerChange.hs-boot b/GI/Gdk/Structs/EventOwnerChange.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventOwnerChange.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventOwnerChange where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange) diff --git a/GI/Gdk/Structs/EventProperty.hs b/GI/Gdk/Structs/EventProperty.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventProperty.hs @@ -0,0 +1,96 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Describes a property change on a window. +-} + +module GI.Gdk.Structs.EventProperty + ( + +-- * Exported types + EventProperty(..) , + noEventProperty , + + + -- * Properties +-- ** Atom + eventPropertyReadAtom , + + +-- ** SendEvent + eventPropertyReadSendEvent , + + +-- ** State + eventPropertyReadState , + + +-- ** Time + eventPropertyReadTime , + + +-- ** Type + eventPropertyReadType , + + +-- ** Window + eventPropertyReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventProperty.hs-boot b/GI/Gdk/Structs/EventProperty.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventProperty.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventProperty where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventProperty = EventProperty (ForeignPtr EventProperty) diff --git a/GI/Gdk/Structs/EventProximity.hs b/GI/Gdk/Structs/EventProximity.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventProximity.hs @@ -0,0 +1,93 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Proximity events are generated when using GDK’s wrapper for the +XInput extension. The XInput extension is an add-on for standard X +that allows you to use nonstandard devices such as graphics tablets. +A proximity event indicates that the stylus has moved in or out of +contact with the tablet, or perhaps that the user’s finger has moved +in or out of contact with a touch screen. + +This event type will be used pretty rarely. It only is important for +XInput aware programs that are drawing their own cursor. +-} + +module GI.Gdk.Structs.EventProximity + ( + +-- * Exported types + EventProximity(..) , + noEventProximity , + + + -- * Properties +-- ** Device + eventProximityReadDevice , + + +-- ** SendEvent + eventProximityReadSendEvent , + + +-- ** Time + eventProximityReadTime , + + +-- ** Type + eventProximityReadType , + + +-- ** Window + eventProximityReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventProximity.hs-boot b/GI/Gdk/Structs/EventProximity.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventProximity.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventProximity where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventProximity = EventProximity (ForeignPtr EventProximity) diff --git a/GI/Gdk/Structs/EventScroll.hs b/GI/Gdk/Structs/EventScroll.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventScroll.hs @@ -0,0 +1,172 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated from button presses for the buttons 4 to 7. Wheel mice are +usually configured to generate button press events for buttons 4 and 5 +when the wheel is turned. + +Some GDK backends can also generate “smooth” scroll events, which +can be recognized by the %GDK_SCROLL_SMOOTH scroll direction. For +these, the scroll deltas can be obtained with +gdk_event_get_scroll_deltas(). +-} + +module GI.Gdk.Structs.EventScroll + ( + +-- * Exported types + EventScroll(..) , + noEventScroll , + + + -- * Properties +-- ** DeltaX + eventScrollReadDeltaX , + + +-- ** DeltaY + eventScrollReadDeltaY , + + +-- ** Device + eventScrollReadDevice , + + +-- ** Direction + eventScrollReadDirection , + + +-- ** SendEvent + eventScrollReadSendEvent , + + +-- ** State + eventScrollReadState , + + +-- ** Time + eventScrollReadTime , + + +-- ** Type + eventScrollReadType , + + +-- ** Window + eventScrollReadWindow , + + +-- ** X + eventScrollReadX , + + +-- ** XRoot + eventScrollReadXRoot , + + +-- ** Y + eventScrollReadY , + + +-- ** YRoot + eventScrollReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventScroll.hs-boot b/GI/Gdk/Structs/EventScroll.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventScroll.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventScroll where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventScroll = EventScroll (ForeignPtr EventScroll) diff --git a/GI/Gdk/Structs/EventSelection.hs b/GI/Gdk/Structs/EventSelection.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSelection.hs @@ -0,0 +1,119 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when a selection is requested or ownership of a selection +is taken over by another client application. +-} + +module GI.Gdk.Structs.EventSelection + ( + +-- * Exported types + EventSelection(..) , + noEventSelection , + + + -- * Properties +-- ** Property + eventSelectionReadProperty , + + +-- ** Requestor + eventSelectionReadRequestor , + + +-- ** Selection + eventSelectionReadSelection , + + +-- ** SendEvent + eventSelectionReadSendEvent , + + +-- ** Target + eventSelectionReadTarget , + + +-- ** Time + eventSelectionReadTime , + + +-- ** Type + eventSelectionReadType , + + +-- ** Window + eventSelectionReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventSelection.hs-boot b/GI/Gdk/Structs/EventSelection.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSelection.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventSelection where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventSelection = EventSelection (ForeignPtr EventSelection) diff --git a/GI/Gdk/Structs/EventSequence.hs b/GI/Gdk/Structs/EventSequence.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSequence.hs @@ -0,0 +1,38 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Structs.EventSequence + ( + +-- * Exported types + EventSequence(..) , + noEventSequence , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype EventSequence = EventSequence (ForeignPtr EventSequence) +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 + +noEventSequence :: Maybe EventSequence +noEventSequence = Nothing + + diff --git a/GI/Gdk/Structs/EventSequence.hs-boot b/GI/Gdk/Structs/EventSequence.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSequence.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Structs.EventSequence where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventSequence = EventSequence (ForeignPtr EventSequence) +instance BoxedObject EventSequence where diff --git a/GI/Gdk/Structs/EventSetting.hs b/GI/Gdk/Structs/EventSetting.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSetting.hs @@ -0,0 +1,86 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when a setting is modified. +-} + +module GI.Gdk.Structs.EventSetting + ( + +-- * Exported types + EventSetting(..) , + noEventSetting , + + + -- * Properties +-- ** Action + eventSettingReadAction , + + +-- ** Name + eventSettingReadName , + + +-- ** SendEvent + eventSettingReadSendEvent , + + +-- ** Type + eventSettingReadType , + + +-- ** Window + eventSettingReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventSetting.hs-boot b/GI/Gdk/Structs/EventSetting.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventSetting.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventSetting where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventSetting = EventSetting (ForeignPtr EventSetting) diff --git a/GI/Gdk/Structs/EventTouch.hs b/GI/Gdk/Structs/EventTouch.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouch.hs @@ -0,0 +1,174 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Used for touch events. +@type field will be one of %GDK_TOUCH_BEGIN, %GDK_TOUCH_UPDATE, +%GDK_TOUCH_END or %GDK_TOUCH_CANCEL. + +Touch events are grouped into sequences by means of the @sequence +field, which can also be obtained with gdk_event_get_event_sequence(). +Each sequence begins with a %GDK_TOUCH_BEGIN event, followed by +any number of %GDK_TOUCH_UPDATE events, and ends with a %GDK_TOUCH_END +(or %GDK_TOUCH_CANCEL) event. With multitouch devices, there may be +several active sequences at the same time. +-} + +module GI.Gdk.Structs.EventTouch + ( + +-- * Exported types + EventTouch(..) , + noEventTouch , + + + -- * Properties +-- ** Axes + eventTouchReadAxes , + + +-- ** Device + eventTouchReadDevice , + + +-- ** EmulatingPointer + eventTouchReadEmulatingPointer , + + +-- ** SendEvent + eventTouchReadSendEvent , + + +-- ** Sequence + eventTouchReadSequence , + + +-- ** State + eventTouchReadState , + + +-- ** Time + eventTouchReadTime , + + +-- ** Type + eventTouchReadType , + + +-- ** Window + eventTouchReadWindow , + + +-- ** X + eventTouchReadX , + + +-- ** XRoot + eventTouchReadXRoot , + + +-- ** Y + eventTouchReadY , + + +-- ** YRoot + eventTouchReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventTouch.hs-boot b/GI/Gdk/Structs/EventTouch.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouch.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventTouch where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventTouch = EventTouch (ForeignPtr EventTouch) diff --git a/GI/Gdk/Structs/EventTouchpadPinch.hs b/GI/Gdk/Structs/EventTouchpadPinch.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouchpadPinch.hs @@ -0,0 +1,184 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated during touchpad swipe gestures. +-} + +module GI.Gdk.Structs.EventTouchpadPinch + ( + +-- * Exported types + EventTouchpadPinch(..) , + noEventTouchpadPinch , + + + -- * Properties +-- ** AngleDelta + eventTouchpadPinchReadAngleDelta , + + +-- ** Dx + eventTouchpadPinchReadDx , + + +-- ** Dy + eventTouchpadPinchReadDy , + + +-- ** NFingers + eventTouchpadPinchReadNFingers , + + +-- ** Phase + eventTouchpadPinchReadPhase , + + +-- ** Scale + eventTouchpadPinchReadScale , + + +-- ** SendEvent + eventTouchpadPinchReadSendEvent , + + +-- ** State + eventTouchpadPinchReadState , + + +-- ** Time + eventTouchpadPinchReadTime , + + +-- ** Type + eventTouchpadPinchReadType , + + +-- ** Window + eventTouchpadPinchReadWindow , + + +-- ** X + eventTouchpadPinchReadX , + + +-- ** XRoot + eventTouchpadPinchReadXRoot , + + +-- ** Y + eventTouchpadPinchReadY , + + +-- ** YRoot + eventTouchpadPinchReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch) +noEventTouchpadPinch :: Maybe EventTouchpadPinch +noEventTouchpadPinch = Nothing + +eventTouchpadPinchReadType :: EventTouchpadPinch -> IO EventType +eventTouchpadPinchReadType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +eventTouchpadPinchReadWindow :: EventTouchpadPinch -> IO Window +eventTouchpadPinchReadWindow s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) + val' <- (newObject Window) val + return val' + +eventTouchpadPinchReadSendEvent :: EventTouchpadPinch -> IO Int8 +eventTouchpadPinchReadSendEvent s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Int8 + return val + +eventTouchpadPinchReadPhase :: EventTouchpadPinch -> IO TouchpadGesturePhase +eventTouchpadPinchReadPhase s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +eventTouchpadPinchReadNFingers :: EventTouchpadPinch -> IO Int8 +eventTouchpadPinchReadNFingers s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO Int8 + return val + +eventTouchpadPinchReadTime :: EventTouchpadPinch -> IO Word32 +eventTouchpadPinchReadTime s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 28) :: IO Word32 + return val + +eventTouchpadPinchReadX :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadX s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadY :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadY s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadDx :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadDx s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadDy :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadDy s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 56) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadAngleDelta :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadAngleDelta s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadScale :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadScale s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 72) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadXRoot :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadXRoot s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 80) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadYRoot :: EventTouchpadPinch -> IO Double +eventTouchpadPinchReadYRoot s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 88) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadPinchReadState :: EventTouchpadPinch -> IO [ModifierType] +eventTouchpadPinchReadState s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 96) :: IO CUInt + let val' = wordToGFlags val + return val' + + diff --git a/GI/Gdk/Structs/EventTouchpadPinch.hs-boot b/GI/Gdk/Structs/EventTouchpadPinch.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouchpadPinch.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventTouchpadPinch where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch) diff --git a/GI/Gdk/Structs/EventTouchpadSwipe.hs b/GI/Gdk/Structs/EventTouchpadSwipe.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouchpadSwipe.hs @@ -0,0 +1,164 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated during touchpad swipe gestures. +-} + +module GI.Gdk.Structs.EventTouchpadSwipe + ( + +-- * Exported types + EventTouchpadSwipe(..) , + noEventTouchpadSwipe , + + + -- * Properties +-- ** Dx + eventTouchpadSwipeReadDx , + + +-- ** Dy + eventTouchpadSwipeReadDy , + + +-- ** NFingers + eventTouchpadSwipeReadNFingers , + + +-- ** Phase + eventTouchpadSwipeReadPhase , + + +-- ** SendEvent + eventTouchpadSwipeReadSendEvent , + + +-- ** State + eventTouchpadSwipeReadState , + + +-- ** Time + eventTouchpadSwipeReadTime , + + +-- ** Type + eventTouchpadSwipeReadType , + + +-- ** Window + eventTouchpadSwipeReadWindow , + + +-- ** X + eventTouchpadSwipeReadX , + + +-- ** XRoot + eventTouchpadSwipeReadXRoot , + + +-- ** Y + eventTouchpadSwipeReadY , + + +-- ** YRoot + eventTouchpadSwipeReadYRoot , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe) +noEventTouchpadSwipe :: Maybe EventTouchpadSwipe +noEventTouchpadSwipe = Nothing + +eventTouchpadSwipeReadType :: EventTouchpadSwipe -> IO EventType +eventTouchpadSwipeReadType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +eventTouchpadSwipeReadWindow :: EventTouchpadSwipe -> IO Window +eventTouchpadSwipeReadWindow s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) + val' <- (newObject Window) val + return val' + +eventTouchpadSwipeReadSendEvent :: EventTouchpadSwipe -> IO Int8 +eventTouchpadSwipeReadSendEvent s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Int8 + return val + +eventTouchpadSwipeReadPhase :: EventTouchpadSwipe -> IO TouchpadGesturePhase +eventTouchpadSwipeReadPhase s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +eventTouchpadSwipeReadNFingers :: EventTouchpadSwipe -> IO Int8 +eventTouchpadSwipeReadNFingers s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO Int8 + return val + +eventTouchpadSwipeReadTime :: EventTouchpadSwipe -> IO Word32 +eventTouchpadSwipeReadTime s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 28) :: IO Word32 + return val + +eventTouchpadSwipeReadX :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadX s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadY :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadY s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadDx :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadDx s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadDy :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadDy s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 56) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadXRoot :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadXRoot s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadYRoot :: EventTouchpadSwipe -> IO Double +eventTouchpadSwipeReadYRoot s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 72) :: IO CDouble + let val' = realToFrac val + return val' + +eventTouchpadSwipeReadState :: EventTouchpadSwipe -> IO [ModifierType] +eventTouchpadSwipeReadState s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 80) :: IO CUInt + let val' = wordToGFlags val + return val' + + diff --git a/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot b/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventTouchpadSwipe where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe) diff --git a/GI/Gdk/Structs/EventVisibility.hs b/GI/Gdk/Structs/EventVisibility.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventVisibility.hs @@ -0,0 +1,76 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when the window visibility status has changed. +-} + +module GI.Gdk.Structs.EventVisibility + ( + +-- * Exported types + EventVisibility(..) , + noEventVisibility , + + + -- * Properties +-- ** SendEvent + eventVisibilityReadSendEvent , + + +-- ** State + eventVisibilityReadState , + + +-- ** Type + eventVisibilityReadType , + + +-- ** Window + eventVisibilityReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventVisibility.hs-boot b/GI/Gdk/Structs/EventVisibility.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventVisibility.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventVisibility where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility) diff --git a/GI/Gdk/Structs/EventWindowState.hs b/GI/Gdk/Structs/EventWindowState.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventWindowState.hs @@ -0,0 +1,86 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Generated when the state of a toplevel window changes. +-} + +module GI.Gdk.Structs.EventWindowState + ( + +-- * Exported types + EventWindowState(..) , + noEventWindowState , + + + -- * Properties +-- ** ChangedMask + eventWindowStateReadChangedMask , + + +-- ** NewWindowState + eventWindowStateReadNewWindowState , + + +-- ** SendEvent + eventWindowStateReadSendEvent , + + +-- ** Type + eventWindowStateReadType , + + +-- ** Window + eventWindowStateReadWindow , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/EventWindowState.hs-boot b/GI/Gdk/Structs/EventWindowState.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/EventWindowState.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.EventWindowState where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState) diff --git a/GI/Gdk/Structs/FrameTimings.hs b/GI/Gdk/Structs/FrameTimings.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/FrameTimings.hs @@ -0,0 +1,275 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GdkFrameTimings object holds timing information for a single frame +of the application’s displays. To retrieve #GdkFrameTimings objects, +use gdk_frame_clock_get_timings() or gdk_frame_clock_get_current_timings(). +The information in #GdkFrameTimings is useful for precise synchronization +of video with the event or audio streams, and for measuring +quality metrics for the application’s display, such as latency and jitter. +-} + +module GI.Gdk.Structs.FrameTimings + ( + +-- * Exported types + FrameTimings(..) , + noFrameTimings , + + + -- * Methods +-- ** frameTimingsGetComplete + frameTimingsGetComplete , + + +-- ** frameTimingsGetFrameCounter + frameTimingsGetFrameCounter , + + +-- ** frameTimingsGetFrameTime + frameTimingsGetFrameTime , + + +-- ** frameTimingsGetPredictedPresentationTime + frameTimingsGetPredictedPresentationTime, + + +-- ** frameTimingsGetPresentationTime + frameTimingsGetPresentationTime , + + +-- ** frameTimingsGetRefreshInterval + frameTimingsGetRefreshInterval , + + +-- ** frameTimingsRef + frameTimingsRef , + + +-- ** frameTimingsUnref + frameTimingsUnref , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings) +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 + +noFrameTimings :: Maybe FrameTimings +noFrameTimings = Nothing + +-- 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 () + + diff --git a/GI/Gdk/Structs/FrameTimings.hs-boot b/GI/Gdk/Structs/FrameTimings.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/FrameTimings.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Structs.FrameTimings where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings) +instance BoxedObject FrameTimings where diff --git a/GI/Gdk/Structs/Geometry.hs b/GI/Gdk/Structs/Geometry.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Geometry.hs @@ -0,0 +1,193 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +The #GdkGeometry struct gives the window manager information about +a window’s geometry constraints. Normally you would set these on +the GTK+ level using gtk_window_set_geometry_hints(). #GtkWindow +then sets the hints on the #GdkWindow it creates. + +gdk_window_set_geometry_hints() expects the hints to be fully valid already +and simply passes them to the window manager; in contrast, +gtk_window_set_geometry_hints() performs some interpretation. For example, +#GtkWindow will apply the hints to the geometry widget instead of the +toplevel window, if you set a geometry widget. Also, the +@min_width/@min_height/@max_width/@max_height fields may be set to -1, and +#GtkWindow will substitute the size request of the window or geometry widget. +If the minimum size hint is not provided, #GtkWindow will use its requisition +as the minimum size. If the minimum size is provided and a geometry widget is +set, #GtkWindow will take the minimum size as the minimum size of the +geometry widget rather than the entire window. The base size is treated +similarly. + +The canonical use-case for gtk_window_set_geometry_hints() is to get a +terminal widget to resize properly. Here, the terminal text area should be +the geometry widget; #GtkWindow will then automatically set the base size to +the size of other widgets in the terminal window, such as the menubar and +scrollbar. Then, the @width_inc and @height_inc fields should be set to the +size of one character in the terminal. Finally, the base size should be set +to the size of one character. The net effect is that the minimum size of the +terminal will have a 1x1 character terminal area, and only terminal sizes on +the “character grid” will be allowed. + +Here’s an example of how the terminal example would be implemented, assuming +a terminal area widget called “terminal” and a toplevel window “toplevel”: + +|[ + GdkGeometry hints; + + hints.base_width = terminal->char_width; + hints.base_height = terminal->char_height; + hints.min_width = terminal->char_width; + hints.min_height = terminal->char_height; + hints.width_inc = terminal->char_width; + hints.height_inc = terminal->char_height; + + gtk_window_set_geometry_hints (GTK_WINDOW (toplevel), + GTK_WIDGET (terminal), + &hints, + GDK_HINT_RESIZE_INC | + GDK_HINT_MIN_SIZE | + GDK_HINT_BASE_SIZE); +]| + +The other useful fields are the @min_aspect and @max_aspect fields; these +contain a width/height ratio as a floating point number. If a geometry widget +is set, the aspect applies to the geometry widget rather than the entire +window. The most common use of these hints is probably to set @min_aspect and +@max_aspect to the same value, thus forcing the window to keep a constant +aspect ratio. +-} + +module GI.Gdk.Structs.Geometry + ( + +-- * Exported types + Geometry(..) , + noGeometry , + + + -- * Properties +-- ** BaseHeight + geometryReadBaseHeight , + + +-- ** BaseWidth + geometryReadBaseWidth , + + +-- ** HeightInc + geometryReadHeightInc , + + +-- ** MaxAspect + geometryReadMaxAspect , + + +-- ** MaxHeight + geometryReadMaxHeight , + + +-- ** MaxWidth + geometryReadMaxWidth , + + +-- ** MinAspect + geometryReadMinAspect , + + +-- ** MinHeight + geometryReadMinHeight , + + +-- ** MinWidth + geometryReadMinWidth , + + +-- ** WidthInc + geometryReadWidthInc , + + +-- ** WinGravity + geometryReadWinGravity , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/Geometry.hs-boot b/GI/Gdk/Structs/Geometry.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Geometry.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.Geometry where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Geometry = Geometry (ForeignPtr Geometry) diff --git a/GI/Gdk/Structs/KeymapKey.hs b/GI/Gdk/Structs/KeymapKey.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/KeymapKey.hs @@ -0,0 +1,64 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GdkKeymapKey is a hardware key that can be mapped to a keyval. +-} + +module GI.Gdk.Structs.KeymapKey + ( + +-- * Exported types + KeymapKey(..) , + noKeymapKey , + + + -- * Properties +-- ** Group + keymapKeyReadGroup , + + +-- ** Keycode + keymapKeyReadKeycode , + + +-- ** Level + keymapKeyReadLevel , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/KeymapKey.hs-boot b/GI/Gdk/Structs/KeymapKey.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/KeymapKey.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.KeymapKey where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey) diff --git a/GI/Gdk/Structs/Point.hs b/GI/Gdk/Structs/Point.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Point.hs @@ -0,0 +1,55 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Defines the x and y coordinates of a point. +-} + +module GI.Gdk.Structs.Point + ( + +-- * Exported types + Point(..) , + noPoint , + + + -- * Properties +-- ** X + pointReadX , + + +-- ** Y + pointReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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 + + diff --git a/GI/Gdk/Structs/Point.hs-boot b/GI/Gdk/Structs/Point.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Point.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.Point where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Point = Point (ForeignPtr Point) diff --git a/GI/Gdk/Structs/RGBA.hs b/GI/Gdk/Structs/RGBA.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/RGBA.hs @@ -0,0 +1,270 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GdkRGBA is used to represent a (possibly translucent) +color, in a way that is compatible with cairos notion of color. +-} + +module GI.Gdk.Structs.RGBA + ( + +-- * Exported types + RGBA(..) , + noRGBA , + + + -- * Methods +-- ** rGBACopy + rGBACopy , + + +-- ** rGBAEqual + rGBAEqual , + + +-- ** rGBAFree + rGBAFree , + + +-- ** rGBAHash + rGBAHash , + + +-- ** rGBAParse + rGBAParse , + + +-- ** rGBAToString + rGBAToString , + + + + + -- * Properties +-- ** Alpha + rGBAReadAlpha , + + +-- ** Blue + rGBAReadBlue , + + +-- ** Green + rGBAReadGreen , + + +-- ** Red + rGBAReadRed , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype RGBA = RGBA (ForeignPtr RGBA) +foreign import ccall "gdk_rgba_get_type" c_gdk_rgba_get_type :: + IO GType + +instance BoxedObject RGBA where + boxedType _ = c_gdk_rgba_get_type + +noRGBA :: Maybe RGBA +noRGBA = Nothing + +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' + + diff --git a/GI/Gdk/Structs/RGBA.hs-boot b/GI/Gdk/Structs/RGBA.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/RGBA.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Structs.RGBA where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype RGBA = RGBA (ForeignPtr RGBA) +instance BoxedObject RGBA where diff --git a/GI/Gdk/Structs/Rectangle.hs b/GI/Gdk/Structs/Rectangle.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Rectangle.hs @@ -0,0 +1,154 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Defines the position and size of a rectangle. It is identical to +#cairo_rectangle_int_t. +-} + +module GI.Gdk.Structs.Rectangle + ( + +-- * Exported types + Rectangle(..) , + noRectangle , + + + -- * Methods +-- ** rectangleIntersect + rectangleIntersect , + + +-- ** rectangleUnion + rectangleUnion , + + + + + -- * Properties +-- ** Height + rectangleReadHeight , + + +-- ** Width + rectangleReadWidth , + + +-- ** X + rectangleReadX , + + +-- ** Y + rectangleReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype Rectangle = Rectangle (ForeignPtr Rectangle) +foreign import ccall "gdk_rectangle_get_type" c_gdk_rectangle_get_type :: + IO GType + +instance BoxedObject Rectangle where + boxedType _ = c_gdk_rectangle_get_type + +noRectangle :: Maybe Rectangle +noRectangle = Nothing + +rectangleReadX :: Rectangle -> IO Int32 +rectangleReadX s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +rectangleReadY :: Rectangle -> IO Int32 +rectangleReadY s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Int32 + return val + +rectangleReadWidth :: Rectangle -> IO Int32 +rectangleReadWidth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int32 + return val + +rectangleReadHeight :: Rectangle -> IO Int32 +rectangleReadHeight s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + +-- method Rectangle::intersect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", 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 Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" + Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" + Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" + IO CInt + + +rectangleIntersect :: + (MonadIO m) => + Rectangle -> -- _obj + Rectangle -> -- src2 + m (Bool,Rectangle) +rectangleIntersect _obj src2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let src2' = unsafeManagedPtrGetPtr src2 + dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + result <- gdk_rectangle_intersect _obj' src2' dest + let result' = (/= 0) result + dest' <- (wrapBoxed Rectangle) dest + touchManagedPtr _obj + touchManagedPtr src2 + return (result', dest') + +-- method Rectangle::union +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", 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 Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" + Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" + Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" + IO () + + +rectangleUnion :: + (MonadIO m) => + Rectangle -> -- _obj + Rectangle -> -- src2 + m (Rectangle) +rectangleUnion _obj src2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let src2' = unsafeManagedPtrGetPtr src2 + dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) + gdk_rectangle_union _obj' src2' dest + dest' <- (wrapBoxed Rectangle) dest + touchManagedPtr _obj + touchManagedPtr src2 + return dest' + + diff --git a/GI/Gdk/Structs/Rectangle.hs-boot b/GI/Gdk/Structs/Rectangle.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/Rectangle.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Structs.Rectangle where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Rectangle = Rectangle (ForeignPtr Rectangle) +instance BoxedObject Rectangle where diff --git a/GI/Gdk/Structs/TimeCoord.hs b/GI/Gdk/Structs/TimeCoord.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/TimeCoord.hs @@ -0,0 +1,48 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +A #GdkTimeCoord stores a single event in a motion history. +-} + +module GI.Gdk.Structs.TimeCoord + ( + +-- * Exported types + TimeCoord(..) , + noTimeCoord , + + + -- * Properties +-- ** Time + timeCoordReadTime , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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)" + + diff --git a/GI/Gdk/Structs/TimeCoord.hs-boot b/GI/Gdk/Structs/TimeCoord.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/TimeCoord.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.TimeCoord where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord) diff --git a/GI/Gdk/Structs/WindowAttr.hs b/GI/Gdk/Structs/WindowAttr.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/WindowAttr.hs @@ -0,0 +1,172 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) + +Attributes to use for a newly-created window. +-} + +module GI.Gdk.Structs.WindowAttr + ( + +-- * Exported types + WindowAttr(..) , + noWindowAttr , + + + -- * Properties +-- ** Cursor + windowAttrReadCursor , + + +-- ** EventMask + windowAttrReadEventMask , + + +-- ** Height + windowAttrReadHeight , + + +-- ** OverrideRedirect + windowAttrReadOverrideRedirect , + + +-- ** Title + windowAttrReadTitle , + + +-- ** TypeHint + windowAttrReadTypeHint , + + +-- ** Visual + windowAttrReadVisual , + + +-- ** Wclass + windowAttrReadWclass , + + +-- ** Width + windowAttrReadWidth , + + +-- ** WindowType + windowAttrReadWindowType , + + +-- ** WmclassClass + windowAttrReadWmclassClass , + + +-- ** WmclassName + windowAttrReadWmclassName , + + +-- ** X + windowAttrReadX , + + +-- ** Y + windowAttrReadY , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +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' + + diff --git a/GI/Gdk/Structs/WindowAttr.hs-boot b/GI/Gdk/Structs/WindowAttr.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/WindowAttr.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.WindowAttr where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr) diff --git a/GI/Gdk/Structs/WindowRedirect.hs b/GI/Gdk/Structs/WindowRedirect.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/WindowRedirect.hs @@ -0,0 +1,32 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Structs.WindowRedirect + ( + +-- * Exported types + WindowRedirect(..) , + noWindowRedirect , + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect) +noWindowRedirect :: Maybe WindowRedirect +noWindowRedirect = Nothing + + diff --git a/GI/Gdk/Structs/WindowRedirect.hs-boot b/GI/Gdk/Structs/WindowRedirect.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Structs/WindowRedirect.hs-boot @@ -0,0 +1,10 @@ +module GI.Gdk.Structs.WindowRedirect where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect) diff --git a/GI/Gdk/Types.hs b/GI/Gdk/Types.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Types.hs @@ -0,0 +1,106 @@ +module GI.Gdk.Types + ( module GI.Gdk.Objects.AppLaunchContext , + module GI.Gdk.Objects.Cursor , + module GI.Gdk.Objects.Device , + module GI.Gdk.Objects.DeviceManager , + module GI.Gdk.Objects.Display , + module GI.Gdk.Objects.DisplayManager , + module GI.Gdk.Objects.DragContext , + module GI.Gdk.Objects.FrameClock , + module GI.Gdk.Objects.GLContext , + module GI.Gdk.Objects.Keymap , + module GI.Gdk.Objects.Screen , + module GI.Gdk.Objects.Visual , + module GI.Gdk.Objects.Window , + module GI.Gdk.Structs.Atom , + module GI.Gdk.Structs.Color , + module GI.Gdk.Structs.EventAny , + module GI.Gdk.Structs.EventButton , + module GI.Gdk.Structs.EventConfigure , + module GI.Gdk.Structs.EventCrossing , + module GI.Gdk.Structs.EventDND , + module GI.Gdk.Structs.EventExpose , + module GI.Gdk.Structs.EventFocus , + module GI.Gdk.Structs.EventGrabBroken , + module GI.Gdk.Structs.EventKey , + module GI.Gdk.Structs.EventMotion , + module GI.Gdk.Structs.EventOwnerChange , + module GI.Gdk.Structs.EventProperty , + module GI.Gdk.Structs.EventProximity , + module GI.Gdk.Structs.EventScroll , + module GI.Gdk.Structs.EventSelection , + module GI.Gdk.Structs.EventSequence , + module GI.Gdk.Structs.EventSetting , + module GI.Gdk.Structs.EventTouch , + module GI.Gdk.Structs.EventTouchpadPinch, + module GI.Gdk.Structs.EventTouchpadSwipe, + module GI.Gdk.Structs.EventVisibility , + module GI.Gdk.Structs.EventWindowState , + module GI.Gdk.Structs.FrameTimings , + module GI.Gdk.Structs.Geometry , + module GI.Gdk.Structs.KeymapKey , + module GI.Gdk.Structs.Point , + module GI.Gdk.Structs.RGBA , + module GI.Gdk.Structs.Rectangle , + module GI.Gdk.Structs.TimeCoord , + module GI.Gdk.Structs.WindowAttr , + module GI.Gdk.Structs.WindowRedirect , + module GI.Gdk.Unions.Event , + module GI.Gdk.Enums , + module GI.Gdk.Flags , + + + ) where + + +import {-# SOURCE #-} GI.Gdk.Objects.AppLaunchContext +import {-# SOURCE #-} GI.Gdk.Objects.Cursor +import {-# SOURCE #-} GI.Gdk.Objects.Device +import {-# SOURCE #-} GI.Gdk.Objects.DeviceManager +import {-# SOURCE #-} GI.Gdk.Objects.Display +import {-# SOURCE #-} GI.Gdk.Objects.DisplayManager +import {-# SOURCE #-} GI.Gdk.Objects.DragContext +import {-# SOURCE #-} GI.Gdk.Objects.FrameClock +import {-# SOURCE #-} GI.Gdk.Objects.GLContext +import {-# SOURCE #-} GI.Gdk.Objects.Keymap +import {-# SOURCE #-} GI.Gdk.Objects.Screen +import {-# SOURCE #-} GI.Gdk.Objects.Visual +import {-# SOURCE #-} GI.Gdk.Objects.Window +import {-# SOURCE #-} GI.Gdk.Structs.Atom +import {-# SOURCE #-} GI.Gdk.Structs.Color +import {-# SOURCE #-} GI.Gdk.Structs.EventAny +import {-# SOURCE #-} GI.Gdk.Structs.EventButton +import {-# SOURCE #-} GI.Gdk.Structs.EventConfigure +import {-# SOURCE #-} GI.Gdk.Structs.EventCrossing +import {-# SOURCE #-} GI.Gdk.Structs.EventDND +import {-# SOURCE #-} GI.Gdk.Structs.EventExpose +import {-# SOURCE #-} GI.Gdk.Structs.EventFocus +import {-# SOURCE #-} GI.Gdk.Structs.EventGrabBroken +import {-# SOURCE #-} GI.Gdk.Structs.EventKey +import {-# SOURCE #-} GI.Gdk.Structs.EventMotion +import {-# SOURCE #-} GI.Gdk.Structs.EventOwnerChange +import {-# SOURCE #-} GI.Gdk.Structs.EventProperty +import {-# SOURCE #-} GI.Gdk.Structs.EventProximity +import {-# SOURCE #-} GI.Gdk.Structs.EventScroll +import {-# SOURCE #-} GI.Gdk.Structs.EventSelection +import {-# SOURCE #-} GI.Gdk.Structs.EventSequence +import {-# SOURCE #-} GI.Gdk.Structs.EventSetting +import {-# SOURCE #-} GI.Gdk.Structs.EventTouch +import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadPinch +import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadSwipe +import {-# SOURCE #-} GI.Gdk.Structs.EventVisibility +import {-# SOURCE #-} GI.Gdk.Structs.EventWindowState +import {-# SOURCE #-} GI.Gdk.Structs.FrameTimings +import {-# SOURCE #-} GI.Gdk.Structs.Geometry +import {-# SOURCE #-} GI.Gdk.Structs.KeymapKey +import {-# SOURCE #-} GI.Gdk.Structs.Point +import {-# SOURCE #-} GI.Gdk.Structs.RGBA +import {-# SOURCE #-} GI.Gdk.Structs.Rectangle +import {-# SOURCE #-} GI.Gdk.Structs.TimeCoord +import {-# SOURCE #-} GI.Gdk.Structs.WindowAttr +import {-# SOURCE #-} GI.Gdk.Structs.WindowRedirect +import {-# SOURCE #-} GI.Gdk.Unions.Event + +import GI.Gdk.Enums +import GI.Gdk.Flags + diff --git a/GI/Gdk/Unions.hs b/GI/Gdk/Unions.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Unions.hs @@ -0,0 +1,26 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Unions + ( module GI.Gdk.Unions.Event , + + + ) where + +import GI.Gdk.Unions.Event + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + + diff --git a/GI/Gdk/Unions/Event.hs b/GI/Gdk/Unions/Event.hs new file mode 100644 --- /dev/null +++ b/GI/Gdk/Unions/Event.hs @@ -0,0 +1,1065 @@ + +{- | +Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte +License : LGPL-2.1 +Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) +-} + +module GI.Gdk.Unions.Event + ( + +-- * Exported types + Event(..) , + noEvent , + + + -- * Methods +-- ** eventCopy + eventCopy , + + +-- ** eventFree + eventFree , + + +-- ** eventGetAxis + eventGetAxis , + + +-- ** eventGetButton + eventGetButton , + + +-- ** eventGetClickCount + eventGetClickCount , + + +-- ** eventGetCoords + eventGetCoords , + + +-- ** eventGetDevice + eventGetDevice , + + +-- ** eventGetEventSequence + eventGetEventSequence , + + +-- ** eventGetEventType + eventGetEventType , + + +-- ** eventGetKeycode + eventGetKeycode , + + +-- ** eventGetKeyval + eventGetKeyval , + + +-- ** eventGetRootCoords + eventGetRootCoords , + + +-- ** eventGetScreen + eventGetScreen , + + +-- ** eventGetScrollDeltas + eventGetScrollDeltas , + + +-- ** eventGetScrollDirection + eventGetScrollDirection , + + +-- ** eventGetSourceDevice + eventGetSourceDevice , + + +-- ** eventGetState + eventGetState , + + +-- ** eventGetTime + eventGetTime , + + +-- ** eventGetWindow + eventGetWindow , + + +-- ** eventNew + eventNew , + + +-- ** eventPut + eventPut , + + +-- ** eventSetDevice + eventSetDevice , + + +-- ** eventSetScreen + eventSetScreen , + + +-- ** eventSetSourceDevice + eventSetSourceDevice , + + +-- ** eventTriggersContextMenu + eventTriggersContextMenu , + + + + + -- * Properties +-- ** Any + eventReadAny , + + +-- ** Button + eventReadButton , + + +-- ** Configure + eventReadConfigure , + + +-- ** Crossing + eventReadCrossing , + + +-- ** Dnd + eventReadDnd , + + +-- ** Expose + eventReadExpose , + + +-- ** FocusChange + eventReadFocusChange , + + +-- ** GrabBroken + eventReadGrabBroken , + + +-- ** Key + eventReadKey , + + +-- ** Motion + eventReadMotion , + + +-- ** OwnerChange + eventReadOwnerChange , + + +-- ** Property + eventReadProperty , + + +-- ** Proximity + eventReadProximity , + + +-- ** Scroll + eventReadScroll , + + +-- ** Selection + eventReadSelection , + + +-- ** Setting + eventReadSetting , + + +-- ** Touch + eventReadTouch , + + +-- ** TouchpadPinch + eventReadTouchpadPinch , + + +-- ** TouchpadSwipe + eventReadTouchpadSwipe , + + +-- ** Type + eventReadType , + + +-- ** Visibility + eventReadVisibility , + + +-- ** WindowState + eventReadWindowState , + + + + + ) where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +import GI.Gdk.Types +import GI.Gdk.Callbacks + +newtype Event = Event (ForeignPtr Event) +foreign import ccall "gdk_event_get_type" c_gdk_event_get_type :: + IO GType + +instance BoxedObject Event where + boxedType _ = c_gdk_event_get_type + +noEvent :: Maybe Event +noEvent = Nothing + +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' + +eventReadTouchpadSwipe :: Event -> IO EventTouchpadSwipe +eventReadTouchpadSwipe s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadSwipe) + val' <- (newPtr 88 EventTouchpadSwipe) val + return val' + +eventReadTouchpadPinch :: Event -> IO EventTouchpadPinch +eventReadTouchpadPinch s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadPinch) + val' <- (newPtr 104 EventTouchpadPinch) 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' + + diff --git a/GI/Gdk/Unions/Event.hs-boot b/GI/Gdk/Unions/Event.hs-boot new file mode 100644 --- /dev/null +++ b/GI/Gdk/Unions/Event.hs-boot @@ -0,0 +1,11 @@ +module GI.Gdk.Unions.Event where + +import Prelude () +import Data.GI.Base.ShortPrelude + +import qualified Data.Text as T +import qualified Data.ByteString.Char8 as B +import qualified Data.Map as Map + +newtype Event = Event (ForeignPtr Event) +instance BoxedObject Event where diff --git a/GI/GdkAttributes.hs b/GI/GdkAttributes.hs deleted file mode 100644 --- a/GI/GdkAttributes.hs +++ /dev/null @@ -1,545 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} - --- Generated code. - -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - -{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, - TypeFamilies, MultiParamTypeClasses, KindSignatures, - FlexibleInstances, UndecidableInstances, DataKinds, - OverloadedStrings, NegativeLiterals, FlexibleContexts #-} - -module GI.GdkAttributes 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 GI.Gdk - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m Display -getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" val - -data AppLaunchContextDisplayPropertyInfo -instance AttrInfo AppLaunchContextDisplayPropertyInfo where - type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK - type AttrGetType AppLaunchContextDisplayPropertyInfo = Display - type AttrLabel AppLaunchContextDisplayPropertyInfo = "AppLaunchContext::display" - attrGet _ = getAppLaunchContextDisplay - attrSet _ = undefined - attrConstruct _ = constructAppLaunchContextDisplay - -type instance AttributeList AppLaunchContext = '[ '("display", AppLaunchContextDisplayPropertyInfo)] - --- VVV Prop "cursor-type" - -- Type: TInterface "Gdk" "CursorType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCursorCursorType :: (MonadIO m, CursorK o) => o -> m CursorType -getCursorCursorType obj = liftIO $ getObjectPropertyEnum obj "cursor-type" - -constructCursorCursorType :: CursorType -> IO ([Char], GValue) -constructCursorCursorType val = constructObjectPropertyEnum "cursor-type" val - -data CursorCursorTypePropertyInfo -instance AttrInfo CursorCursorTypePropertyInfo where - type AttrAllowedOps CursorCursorTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CursorCursorTypePropertyInfo = (~) CursorType - type AttrBaseTypeConstraint CursorCursorTypePropertyInfo = CursorK - type AttrGetType CursorCursorTypePropertyInfo = CursorType - type AttrLabel CursorCursorTypePropertyInfo = "Cursor::cursor-type" - attrGet _ = getCursorCursorType - attrSet _ = undefined - attrConstruct _ = constructCursorCursorType - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display -getCursorDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructCursorDisplay val = constructObjectPropertyObject "display" val - -data CursorDisplayPropertyInfo -instance AttrInfo CursorDisplayPropertyInfo where - type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK - type AttrGetType CursorDisplayPropertyInfo = Display - type AttrLabel CursorDisplayPropertyInfo = "Cursor::display" - attrGet _ = getCursorDisplay - attrSet _ = undefined - attrConstruct _ = constructCursorDisplay - -type instance AttributeList Cursor = '[ '("cursor-type", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] - --- VVV Prop "associated-device" - -- Type: TInterface "Gdk" "Device" - -- Flags: [PropertyReadable] - -getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m Device -getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device - -data DeviceAssociatedDevicePropertyInfo -instance AttrInfo DeviceAssociatedDevicePropertyInfo where - type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) () - type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK - type AttrGetType DeviceAssociatedDevicePropertyInfo = Device - type AttrLabel DeviceAssociatedDevicePropertyInfo = "Device::associated-device" - attrGet _ = getDeviceAssociatedDevice - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "device-manager" - -- Type: TInterface "Gdk" "DeviceManager" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m DeviceManager -getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager - -constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue) -constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" val - -data DeviceDeviceManagerPropertyInfo -instance AttrInfo DeviceDeviceManagerPropertyInfo where - type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK - type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK - type AttrGetType DeviceDeviceManagerPropertyInfo = DeviceManager - type AttrLabel DeviceDeviceManagerPropertyInfo = "Device::device-manager" - attrGet _ = getDeviceDeviceManager - attrSet _ = undefined - attrConstruct _ = constructDeviceDeviceManager - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display -getDeviceDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDeviceDisplay val = constructObjectPropertyObject "display" val - -data DeviceDisplayPropertyInfo -instance AttrInfo DeviceDisplayPropertyInfo where - type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK - type AttrGetType DeviceDisplayPropertyInfo = Display - type AttrLabel DeviceDisplayPropertyInfo = "Device::display" - attrGet _ = getDeviceDisplay - attrSet _ = undefined - attrConstruct _ = constructDeviceDisplay - --- VVV Prop "has-cursor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceHasCursor :: (MonadIO m, DeviceK o) => o -> m Bool -getDeviceHasCursor obj = liftIO $ getObjectPropertyBool obj "has-cursor" - -constructDeviceHasCursor :: Bool -> IO ([Char], GValue) -constructDeviceHasCursor val = constructObjectPropertyBool "has-cursor" val - -data DeviceHasCursorPropertyInfo -instance AttrInfo DeviceHasCursorPropertyInfo where - type AttrAllowedOps DeviceHasCursorPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceHasCursorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DeviceHasCursorPropertyInfo = DeviceK - type AttrGetType DeviceHasCursorPropertyInfo = Bool - type AttrLabel DeviceHasCursorPropertyInfo = "Device::has-cursor" - attrGet _ = getDeviceHasCursor - attrSet _ = undefined - attrConstruct _ = constructDeviceHasCursor - --- VVV Prop "input-mode" - -- Type: TInterface "Gdk" "InputMode" - -- Flags: [PropertyReadable,PropertyWritable] - -getDeviceInputMode :: (MonadIO m, DeviceK o) => o -> m InputMode -getDeviceInputMode obj = liftIO $ getObjectPropertyEnum obj "input-mode" - -setDeviceInputMode :: (MonadIO m, DeviceK o) => o -> InputMode -> m () -setDeviceInputMode obj val = liftIO $ setObjectPropertyEnum obj "input-mode" val - -constructDeviceInputMode :: InputMode -> IO ([Char], GValue) -constructDeviceInputMode val = constructObjectPropertyEnum "input-mode" val - -data DeviceInputModePropertyInfo -instance AttrInfo DeviceInputModePropertyInfo where - type AttrAllowedOps DeviceInputModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceInputModePropertyInfo = (~) InputMode - type AttrBaseTypeConstraint DeviceInputModePropertyInfo = DeviceK - type AttrGetType DeviceInputModePropertyInfo = InputMode - type AttrLabel DeviceInputModePropertyInfo = "Device::input-mode" - attrGet _ = getDeviceInputMode - attrSet _ = setDeviceInputMode - attrConstruct _ = constructDeviceInputMode - --- VVV Prop "input-source" - -- Type: TInterface "Gdk" "InputSource" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceInputSource :: (MonadIO m, DeviceK o) => o -> m InputSource -getDeviceInputSource obj = liftIO $ getObjectPropertyEnum obj "input-source" - -constructDeviceInputSource :: InputSource -> IO ([Char], GValue) -constructDeviceInputSource val = constructObjectPropertyEnum "input-source" val - -data DeviceInputSourcePropertyInfo -instance AttrInfo DeviceInputSourcePropertyInfo where - type AttrAllowedOps DeviceInputSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceInputSourcePropertyInfo = (~) InputSource - type AttrBaseTypeConstraint DeviceInputSourcePropertyInfo = DeviceK - type AttrGetType DeviceInputSourcePropertyInfo = InputSource - type AttrLabel DeviceInputSourcePropertyInfo = "Device::input-source" - attrGet _ = getDeviceInputSource - attrSet _ = undefined - attrConstruct _ = constructDeviceInputSource - --- VVV Prop "n-axes" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32 -getDeviceNAxes obj = liftIO $ getObjectPropertyCUInt obj "n-axes" - -data DeviceNAxesPropertyInfo -instance AttrInfo DeviceNAxesPropertyInfo where - type AttrAllowedOps DeviceNAxesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DeviceNAxesPropertyInfo = (~) () - type AttrBaseTypeConstraint DeviceNAxesPropertyInfo = DeviceK - type AttrGetType DeviceNAxesPropertyInfo = Word32 - type AttrLabel DeviceNAxesPropertyInfo = "Device::n-axes" - attrGet _ = getDeviceNAxes - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text -getDeviceName obj = liftIO $ getObjectPropertyString obj "name" - -constructDeviceName :: T.Text -> IO ([Char], GValue) -constructDeviceName val = constructObjectPropertyString "name" val - -data DeviceNamePropertyInfo -instance AttrInfo DeviceNamePropertyInfo where - type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK - type AttrGetType DeviceNamePropertyInfo = T.Text - type AttrLabel DeviceNamePropertyInfo = "Device::name" - attrGet _ = getDeviceName - attrSet _ = undefined - attrConstruct _ = constructDeviceName - --- VVV Prop "product-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m T.Text -getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id" - -constructDeviceProductId :: T.Text -> IO ([Char], GValue) -constructDeviceProductId val = constructObjectPropertyString "product-id" val - -data DeviceProductIdPropertyInfo -instance AttrInfo DeviceProductIdPropertyInfo where - type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK - type AttrGetType DeviceProductIdPropertyInfo = T.Text - type AttrLabel DeviceProductIdPropertyInfo = "Device::product-id" - attrGet _ = getDeviceProductId - attrSet _ = undefined - attrConstruct _ = constructDeviceProductId - --- VVV Prop "type" - -- Type: TInterface "Gdk" "DeviceType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceType :: (MonadIO m, DeviceK o) => o -> m DeviceType -getDeviceType obj = liftIO $ getObjectPropertyEnum obj "type" - -constructDeviceType :: DeviceType -> IO ([Char], GValue) -constructDeviceType val = constructObjectPropertyEnum "type" val - -data DeviceTypePropertyInfo -instance AttrInfo DeviceTypePropertyInfo where - type AttrAllowedOps DeviceTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceTypePropertyInfo = (~) DeviceType - type AttrBaseTypeConstraint DeviceTypePropertyInfo = DeviceK - type AttrGetType DeviceTypePropertyInfo = DeviceType - type AttrLabel DeviceTypePropertyInfo = "Device::type" - attrGet _ = getDeviceType - attrSet _ = undefined - attrConstruct _ = constructDeviceType - --- VVV Prop "vendor-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m T.Text -getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id" - -constructDeviceVendorId :: T.Text -> IO ([Char], GValue) -constructDeviceVendorId val = constructObjectPropertyString "vendor-id" val - -data DeviceVendorIdPropertyInfo -instance AttrInfo DeviceVendorIdPropertyInfo where - type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK - type AttrGetType DeviceVendorIdPropertyInfo = T.Text - type AttrLabel DeviceVendorIdPropertyInfo = "Device::vendor-id" - attrGet _ = getDeviceVendorId - attrSet _ = undefined - attrConstruct _ = constructDeviceVendorId - -type instance AttributeList Device = '[ '("associated-device", DeviceAssociatedDevicePropertyInfo), '("device-manager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("has-cursor", DeviceHasCursorPropertyInfo), '("input-mode", DeviceInputModePropertyInfo), '("input-source", DeviceInputSourcePropertyInfo), '("n-axes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("product-id", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendor-id", DeviceVendorIdPropertyInfo)] - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m Display -getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDeviceManagerDisplay val = constructObjectPropertyObject "display" val - -data DeviceManagerDisplayPropertyInfo -instance AttrInfo DeviceManagerDisplayPropertyInfo where - type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK - type AttrGetType DeviceManagerDisplayPropertyInfo = Display - type AttrLabel DeviceManagerDisplayPropertyInfo = "DeviceManager::display" - attrGet _ = getDeviceManagerDisplay - attrSet _ = undefined - attrConstruct _ = constructDeviceManagerDisplay - -type instance AttributeList DeviceManager = '[ '("display", DeviceManagerDisplayPropertyInfo)] - -type instance AttributeList Display = '[ ] - --- VVV Prop "default-display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable] - -getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m Display -getDisplayManagerDefaultDisplay obj = liftIO $ getObjectPropertyObject obj "default-display" Display - -setDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o, DisplayK a) => o -> a -> m () -setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" val - -constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" val - -data DisplayManagerDefaultDisplayPropertyInfo -instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where - type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK - type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = Display - type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "DisplayManager::default-display" - attrGet _ = getDisplayManagerDefaultDisplay - attrSet _ = setDisplayManagerDefaultDisplay - attrConstruct _ = constructDisplayManagerDefaultDisplay - -type instance AttributeList DisplayManager = '[ '("default-display", DisplayManagerDefaultDisplayPropertyInfo)] - -type instance AttributeList DragContext = '[ ] - -type instance AttributeList FrameClock = '[ ] - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display -getGLContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructGLContextDisplay val = constructObjectPropertyObject "display" val - -data GLContextDisplayPropertyInfo -instance AttrInfo GLContextDisplayPropertyInfo where - type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK - type AttrGetType GLContextDisplayPropertyInfo = Display - type AttrLabel GLContextDisplayPropertyInfo = "GLContext::display" - attrGet _ = getGLContextDisplay - attrSet _ = undefined - attrConstruct _ = constructGLContextDisplay - --- VVV Prop "shared-context" - -- Type: TInterface "Gdk" "GLContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext -getGLContextSharedContext obj = liftIO $ getObjectPropertyObject obj "shared-context" GLContext - -constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue) -constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" val - -data GLContextSharedContextPropertyInfo -instance AttrInfo GLContextSharedContextPropertyInfo where - type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK - type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK - type AttrGetType GLContextSharedContextPropertyInfo = GLContext - type AttrLabel GLContextSharedContextPropertyInfo = "GLContext::shared-context" - attrGet _ = getGLContextSharedContext - attrSet _ = undefined - attrConstruct _ = constructGLContextSharedContext - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window -getGLContextWindow obj = liftIO $ getObjectPropertyObject obj "window" Window - -constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue) -constructGLContextWindow val = constructObjectPropertyObject "window" val - -data GLContextWindowPropertyInfo -instance AttrInfo GLContextWindowPropertyInfo where - type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK - type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK - type AttrGetType GLContextWindowPropertyInfo = Window - type AttrLabel GLContextWindowPropertyInfo = "GLContext::window" - attrGet _ = getGLContextWindow - attrSet _ = undefined - attrConstruct _ = constructGLContextWindow - -type instance AttributeList GLContext = '[ '("display", GLContextDisplayPropertyInfo), '("shared-context", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)] - -type instance AttributeList Keymap = '[ ] - --- VVV Prop "font-options" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getScreenFontOptions :: (MonadIO m, ScreenK o) => o -> m (Ptr ()) -getScreenFontOptions obj = liftIO $ getObjectPropertyPtr obj "font-options" - -setScreenFontOptions :: (MonadIO m, ScreenK o) => o -> (Ptr ()) -> m () -setScreenFontOptions obj val = liftIO $ setObjectPropertyPtr obj "font-options" val - -constructScreenFontOptions :: (Ptr ()) -> IO ([Char], GValue) -constructScreenFontOptions val = constructObjectPropertyPtr "font-options" val - -data ScreenFontOptionsPropertyInfo -instance AttrInfo ScreenFontOptionsPropertyInfo where - type AttrAllowedOps ScreenFontOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScreenFontOptionsPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint ScreenFontOptionsPropertyInfo = ScreenK - type AttrGetType ScreenFontOptionsPropertyInfo = (Ptr ()) - type AttrLabel ScreenFontOptionsPropertyInfo = "Screen::font-options" - attrGet _ = getScreenFontOptions - attrSet _ = setScreenFontOptions - attrConstruct _ = constructScreenFontOptions - --- VVV Prop "resolution" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getScreenResolution :: (MonadIO m, ScreenK o) => o -> m Double -getScreenResolution obj = liftIO $ getObjectPropertyDouble obj "resolution" - -setScreenResolution :: (MonadIO m, ScreenK o) => o -> Double -> m () -setScreenResolution obj val = liftIO $ setObjectPropertyDouble obj "resolution" val - -constructScreenResolution :: Double -> IO ([Char], GValue) -constructScreenResolution val = constructObjectPropertyDouble "resolution" val - -data ScreenResolutionPropertyInfo -instance AttrInfo ScreenResolutionPropertyInfo where - type AttrAllowedOps ScreenResolutionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScreenResolutionPropertyInfo = (~) Double - type AttrBaseTypeConstraint ScreenResolutionPropertyInfo = ScreenK - type AttrGetType ScreenResolutionPropertyInfo = Double - type AttrLabel ScreenResolutionPropertyInfo = "Screen::resolution" - attrGet _ = getScreenResolution - attrSet _ = setScreenResolution - attrConstruct _ = constructScreenResolution - -type instance AttributeList Screen = '[ '("font-options", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)] - -type instance AttributeList Visual = '[ ] - --- VVV Prop "cursor" - -- Type: TInterface "Gdk" "Cursor" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowCursor :: (MonadIO m, WindowK o) => o -> m Cursor -getWindowCursor obj = liftIO $ getObjectPropertyObject obj "cursor" Cursor - -setWindowCursor :: (MonadIO m, WindowK o, CursorK a) => o -> a -> m () -setWindowCursor obj val = liftIO $ setObjectPropertyObject obj "cursor" val - -constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue) -constructWindowCursor val = constructObjectPropertyObject "cursor" val - -data WindowCursorPropertyInfo -instance AttrInfo WindowCursorPropertyInfo where - type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK - type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK - type AttrGetType WindowCursorPropertyInfo = Cursor - type AttrLabel WindowCursorPropertyInfo = "Window::cursor" - attrGet _ = getWindowCursor - attrSet _ = setWindowCursor - attrConstruct _ = constructWindowCursor - -type instance AttributeList Window = '[ '("cursor", WindowCursorPropertyInfo)] - diff --git a/GI/GdkSignals.hs b/GI/GdkSignals.hs deleted file mode 100644 --- a/GI/GdkSignals.hs +++ /dev/null @@ -1,164 +0,0 @@ --- Generated code. - -{-# OPTIONS_GHC -fno-warn-orphans #-} - -{-# LANGUAGE DataKinds, FlexibleInstances, - TypeFamilies, MultiParamTypeClasses, - TypeOperators #-} - -module GI.GdkSignals where - -import Data.GI.Base.Properties (GObjectNotifySignalInfo) -import Data.GI.Base.Signals -import Data.GI.Base.Overloading - -import qualified GI.GObjectSignals as GObject -import qualified GI.GioSignals as Gio -import GI.Gdk - -type instance SignalList AppLaunchContext = '[ '("launch-failed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList Cursor = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data DeviceChangedSignalInfo -instance SignalInfo DeviceChangedSignalInfo where - type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback - connectSignal _ = connectDeviceChanged - -type instance SignalList Device = '[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data DeviceManagerDeviceAddedSignalInfo -instance SignalInfo DeviceManagerDeviceAddedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceAddedSignalInfo = DeviceManagerDeviceAddedCallback - connectSignal _ = connectDeviceManagerDeviceAdded - -data DeviceManagerDeviceChangedSignalInfo -instance SignalInfo DeviceManagerDeviceChangedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceChangedSignalInfo = DeviceManagerDeviceChangedCallback - connectSignal _ = connectDeviceManagerDeviceChanged - -data DeviceManagerDeviceRemovedSignalInfo -instance SignalInfo DeviceManagerDeviceRemovedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceRemovedSignalInfo = DeviceManagerDeviceRemovedCallback - connectSignal _ = connectDeviceManagerDeviceRemoved - -type instance SignalList DeviceManager = '[ '("device-added", DeviceManagerDeviceAddedSignalInfo), '("device-changed", DeviceManagerDeviceChangedSignalInfo), '("device-removed", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data DisplayClosedSignalInfo -instance SignalInfo DisplayClosedSignalInfo where - type HaskellCallbackType DisplayClosedSignalInfo = DisplayClosedCallback - connectSignal _ = connectDisplayClosed - -data DisplayOpenedSignalInfo -instance SignalInfo DisplayOpenedSignalInfo where - type HaskellCallbackType DisplayOpenedSignalInfo = DisplayOpenedCallback - connectSignal _ = connectDisplayOpened - -type instance SignalList Display = '[ '("closed", DisplayClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("opened", DisplayOpenedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data DisplayManagerDisplayOpenedSignalInfo -instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where - type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback - connectSignal _ = connectDisplayManagerDisplayOpened - -type instance SignalList DisplayManager = '[ '("display-opened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList DragContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data FrameClockAfterPaintSignalInfo -instance SignalInfo FrameClockAfterPaintSignalInfo where - type HaskellCallbackType FrameClockAfterPaintSignalInfo = FrameClockAfterPaintCallback - connectSignal _ = connectFrameClockAfterPaint - -data FrameClockBeforePaintSignalInfo -instance SignalInfo FrameClockBeforePaintSignalInfo where - type HaskellCallbackType FrameClockBeforePaintSignalInfo = FrameClockBeforePaintCallback - connectSignal _ = connectFrameClockBeforePaint - -data FrameClockFlushEventsSignalInfo -instance SignalInfo FrameClockFlushEventsSignalInfo where - type HaskellCallbackType FrameClockFlushEventsSignalInfo = FrameClockFlushEventsCallback - connectSignal _ = connectFrameClockFlushEvents - -data FrameClockLayoutSignalInfo -instance SignalInfo FrameClockLayoutSignalInfo where - type HaskellCallbackType FrameClockLayoutSignalInfo = FrameClockLayoutCallback - connectSignal _ = connectFrameClockLayout - -data FrameClockPaintSignalInfo -instance SignalInfo FrameClockPaintSignalInfo where - type HaskellCallbackType FrameClockPaintSignalInfo = FrameClockPaintCallback - connectSignal _ = connectFrameClockPaint - -data FrameClockResumeEventsSignalInfo -instance SignalInfo FrameClockResumeEventsSignalInfo where - type HaskellCallbackType FrameClockResumeEventsSignalInfo = FrameClockResumeEventsCallback - connectSignal _ = connectFrameClockResumeEvents - -data FrameClockUpdateSignalInfo -instance SignalInfo FrameClockUpdateSignalInfo where - type HaskellCallbackType FrameClockUpdateSignalInfo = FrameClockUpdateCallback - connectSignal _ = connectFrameClockUpdate - -type instance SignalList FrameClock = '[ '("after-paint", FrameClockAfterPaintSignalInfo), '("before-paint", FrameClockBeforePaintSignalInfo), '("flush-events", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resume-events", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList GLContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data KeymapDirectionChangedSignalInfo -instance SignalInfo KeymapDirectionChangedSignalInfo where - type HaskellCallbackType KeymapDirectionChangedSignalInfo = KeymapDirectionChangedCallback - connectSignal _ = connectKeymapDirectionChanged - -data KeymapKeysChangedSignalInfo -instance SignalInfo KeymapKeysChangedSignalInfo where - type HaskellCallbackType KeymapKeysChangedSignalInfo = KeymapKeysChangedCallback - connectSignal _ = connectKeymapKeysChanged - -data KeymapStateChangedSignalInfo -instance SignalInfo KeymapStateChangedSignalInfo where - type HaskellCallbackType KeymapStateChangedSignalInfo = KeymapStateChangedCallback - connectSignal _ = connectKeymapStateChanged - -type instance SignalList Keymap = '[ '("direction-changed", KeymapDirectionChangedSignalInfo), '("keys-changed", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("state-changed", KeymapStateChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data ScreenCompositedChangedSignalInfo -instance SignalInfo ScreenCompositedChangedSignalInfo where - type HaskellCallbackType ScreenCompositedChangedSignalInfo = ScreenCompositedChangedCallback - connectSignal _ = connectScreenCompositedChanged - -data ScreenMonitorsChangedSignalInfo -instance SignalInfo ScreenMonitorsChangedSignalInfo where - type HaskellCallbackType ScreenMonitorsChangedSignalInfo = ScreenMonitorsChangedCallback - connectSignal _ = connectScreenMonitorsChanged - -data ScreenSizeChangedSignalInfo -instance SignalInfo ScreenSizeChangedSignalInfo where - type HaskellCallbackType ScreenSizeChangedSignalInfo = ScreenSizeChangedCallback - connectSignal _ = connectScreenSizeChanged - -type instance SignalList Screen = '[ '("composited-changed", ScreenCompositedChangedSignalInfo), '("monitors-changed", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-changed", ScreenSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -type instance SignalList Visual = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - -data WindowCreateSurfaceSignalInfo -instance SignalInfo WindowCreateSurfaceSignalInfo where - type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback - connectSignal _ = connectWindowCreateSurface - -data WindowFromEmbedderSignalInfo -instance SignalInfo WindowFromEmbedderSignalInfo where - type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback - connectSignal _ = connectWindowFromEmbedder - -data WindowPickEmbeddedChildSignalInfo -instance SignalInfo WindowPickEmbeddedChildSignalInfo where - type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback - connectSignal _ = connectWindowPickEmbeddedChild - -data WindowToEmbedderSignalInfo -instance SignalInfo WindowToEmbedderSignalInfo where - type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback - connectSignal _ = connectWindowToEmbedder - -type instance SignalList Window = '[ '("create-surface", WindowCreateSurfaceSignalInfo), '("from-embedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pick-embedded-child", WindowPickEmbeddedChildSignalInfo), '("to-embedder", WindowToEmbedderSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] - diff --git a/gi-gdk.cabal b/gi-gdk.cabal --- a/gi-gdk.cabal +++ b/gi-gdk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gdk -version: 0.3.18.10 +version: 0.3.18.12 synopsis: Gdk bindings description: Bindings for Gdk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,16 +14,75 @@ library default-language: Haskell2010 - exposed-modules: GI.Gdk, GI.GdkAttributes, GI.GdkSignals + default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations + exposed-modules: GI.Gdk.Types + GI.Gdk + GI.Gdk.Callbacks + GI.Gdk.Constants + GI.Gdk.Enums + GI.Gdk.Flags + GI.Gdk.Functions + GI.Gdk.Objects + GI.Gdk.Objects.AppLaunchContext + GI.Gdk.Objects.Cursor + GI.Gdk.Objects.Device + GI.Gdk.Objects.DeviceManager + GI.Gdk.Objects.Display + GI.Gdk.Objects.DisplayManager + GI.Gdk.Objects.DragContext + GI.Gdk.Objects.FrameClock + GI.Gdk.Objects.GLContext + GI.Gdk.Objects.Keymap + GI.Gdk.Objects.Screen + GI.Gdk.Objects.Visual + GI.Gdk.Objects.Window + GI.Gdk.Structs + GI.Gdk.Structs.Atom + GI.Gdk.Structs.Color + GI.Gdk.Structs.EventAny + GI.Gdk.Structs.EventButton + GI.Gdk.Structs.EventConfigure + GI.Gdk.Structs.EventCrossing + GI.Gdk.Structs.EventDND + GI.Gdk.Structs.EventExpose + GI.Gdk.Structs.EventFocus + GI.Gdk.Structs.EventGrabBroken + GI.Gdk.Structs.EventKey + GI.Gdk.Structs.EventMotion + GI.Gdk.Structs.EventOwnerChange + GI.Gdk.Structs.EventProperty + GI.Gdk.Structs.EventProximity + GI.Gdk.Structs.EventScroll + GI.Gdk.Structs.EventSelection + GI.Gdk.Structs.EventSequence + GI.Gdk.Structs.EventSetting + GI.Gdk.Structs.EventTouch + GI.Gdk.Structs.EventTouchpadPinch + GI.Gdk.Structs.EventTouchpadSwipe + GI.Gdk.Structs.EventVisibility + GI.Gdk.Structs.EventWindowState + GI.Gdk.Structs.FrameTimings + GI.Gdk.Structs.Geometry + GI.Gdk.Structs.KeymapKey + GI.Gdk.Structs.Point + GI.Gdk.Structs.RGBA + GI.Gdk.Structs.Rectangle + GI.Gdk.Structs.TimeCoord + GI.Gdk.Structs.WindowAttr + GI.Gdk.Structs.WindowRedirect + GI.Gdk.Unions + GI.Gdk.Unions.Event pkgconfig-depends: gdk-3.0 >= 3.18 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.10 && < 1, - gi-glib >= 0.2.46.10 && < 0.3, - gi-gobject >= 0.2.46.10 && < 0.3, - gi-gdkpixbuf >= 0.2.32.10 && < 0.3, - gi-gio >= 0.2.46.10 && < 0.3, - gi-pango >= 0.1.38.10 && < 0.2, - gi-cairo >= 0.1.14.10 && < 0.2, + haskell-gi-base >= 0.12 && < 1, + gi-glib >= 0.2.46.12 && < 0.2.47, + gi-gobject >= 0.2.46.12 && < 0.2.47, + gi-gdkpixbuf >= 0.2.32.12 && < 0.2.33, + gi-gio >= 0.2.46.12 && < 0.2.47, + gi-pango >= 0.1.38.12 && < 0.1.39, + gi-cairo >= 0.1.14.12 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,