gi-gdk-0.3.18.12: GI/Gdk/Functions.hs
{- |
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 ()