{- | 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'