gi-gtk-0.3.16.12: GI/Gtk/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.Gtk.Functions
(
-- * Methods
-- ** accelGroupsActivate
accelGroupsActivate ,
-- ** accelGroupsFromObject
accelGroupsFromObject ,
-- ** acceleratorGetDefaultModMask
acceleratorGetDefaultModMask ,
-- ** acceleratorGetLabel
acceleratorGetLabel ,
-- ** acceleratorGetLabelWithKeycode
acceleratorGetLabelWithKeycode ,
-- ** acceleratorName
acceleratorName ,
-- ** acceleratorNameWithKeycode
acceleratorNameWithKeycode ,
-- ** acceleratorParse
acceleratorParse ,
-- ** acceleratorParseWithKeycode
acceleratorParseWithKeycode ,
-- ** acceleratorSetDefaultModMask
acceleratorSetDefaultModMask ,
-- ** acceleratorValid
acceleratorValid ,
-- ** alternativeDialogButtonOrder
alternativeDialogButtonOrder ,
-- ** bindingEntryAddSignalFromString
bindingEntryAddSignalFromString ,
-- ** bindingEntryAddSignall
bindingEntryAddSignall ,
-- ** bindingEntryRemove
bindingEntryRemove ,
-- ** bindingEntrySkip
bindingEntrySkip ,
-- ** bindingSetFind
bindingSetFind ,
-- ** bindingsActivate
bindingsActivate ,
-- ** bindingsActivateEvent
bindingsActivateEvent ,
-- ** builderErrorQuark
builderErrorQuark ,
-- ** cairoShouldDrawWindow
cairoShouldDrawWindow ,
-- ** cairoTransformToWindow
cairoTransformToWindow ,
-- ** checkVersion
checkVersion ,
-- ** cssProviderErrorQuark
cssProviderErrorQuark ,
-- ** deviceGrabAdd
deviceGrabAdd ,
-- ** deviceGrabRemove
deviceGrabRemove ,
-- ** disableSetlocale
disableSetlocale ,
-- ** distributeNaturalAllocation
distributeNaturalAllocation ,
-- ** dragCancel
dragCancel ,
-- ** dragFinish
dragFinish ,
-- ** dragGetSourceWidget
dragGetSourceWidget ,
-- ** dragSetIconDefault
dragSetIconDefault ,
-- ** dragSetIconGicon
dragSetIconGicon ,
-- ** dragSetIconName
dragSetIconName ,
-- ** dragSetIconPixbuf
dragSetIconPixbuf ,
-- ** dragSetIconStock
dragSetIconStock ,
-- ** dragSetIconSurface
dragSetIconSurface ,
-- ** dragSetIconWidget
dragSetIconWidget ,
-- ** drawInsertionCursor
drawInsertionCursor ,
-- ** eventsPending
eventsPending ,
-- ** false
false ,
-- ** fileChooserErrorQuark
fileChooserErrorQuark ,
-- ** getBinaryAge
getBinaryAge ,
-- ** getCurrentEvent
getCurrentEvent ,
-- ** getCurrentEventDevice
getCurrentEventDevice ,
-- ** getCurrentEventState
getCurrentEventState ,
-- ** getCurrentEventTime
getCurrentEventTime ,
-- ** getDebugFlags
getDebugFlags ,
-- ** getDefaultLanguage
getDefaultLanguage ,
-- ** getEventWidget
getEventWidget ,
-- ** getInterfaceAge
getInterfaceAge ,
-- ** getLocaleDirection
getLocaleDirection ,
-- ** getMajorVersion
getMajorVersion ,
-- ** getMicroVersion
getMicroVersion ,
-- ** getMinorVersion
getMinorVersion ,
-- ** getOptionGroup
getOptionGroup ,
-- ** grabGetCurrent
grabGetCurrent ,
-- ** iconSizeFromName
iconSizeFromName ,
-- ** iconSizeGetName
iconSizeGetName ,
-- ** iconSizeLookup
iconSizeLookup ,
-- ** iconSizeLookupForSettings
iconSizeLookupForSettings ,
-- ** iconSizeRegister
iconSizeRegister ,
-- ** iconSizeRegisterAlias
iconSizeRegisterAlias ,
-- ** iconThemeErrorQuark
iconThemeErrorQuark ,
-- ** init
init ,
-- ** initCheck
initCheck ,
-- ** initWithArgs
initWithArgs ,
-- ** keySnooperRemove
keySnooperRemove ,
-- ** main
main ,
-- ** mainDoEvent
mainDoEvent ,
-- ** mainIteration
mainIteration ,
-- ** mainIterationDo
mainIterationDo ,
-- ** mainLevel
mainLevel ,
-- ** mainQuit
mainQuit ,
-- ** paintArrow
paintArrow ,
-- ** paintBox
paintBox ,
-- ** paintBoxGap
paintBoxGap ,
-- ** paintCheck
paintCheck ,
-- ** paintDiamond
paintDiamond ,
-- ** paintExpander
paintExpander ,
-- ** paintExtension
paintExtension ,
-- ** paintFlatBox
paintFlatBox ,
-- ** paintFocus
paintFocus ,
-- ** paintHandle
paintHandle ,
-- ** paintHline
paintHline ,
-- ** paintLayout
paintLayout ,
-- ** paintOption
paintOption ,
-- ** paintResizeGrip
paintResizeGrip ,
-- ** paintShadow
paintShadow ,
-- ** paintShadowGap
paintShadowGap ,
-- ** paintSlider
paintSlider ,
-- ** paintSpinner
paintSpinner ,
-- ** paintTab
paintTab ,
-- ** paintVline
paintVline ,
-- ** paperSizeGetDefault
paperSizeGetDefault ,
-- ** paperSizeGetPaperSizes
paperSizeGetPaperSizes ,
-- ** parseArgs
parseArgs ,
-- ** printErrorQuark
printErrorQuark ,
-- ** printRunPageSetupDialog
printRunPageSetupDialog ,
-- ** printRunPageSetupDialogAsync
printRunPageSetupDialogAsync ,
-- ** propagateEvent
propagateEvent ,
-- ** rcAddDefaultFile
rcAddDefaultFile ,
-- ** rcFindModuleInPath
rcFindModuleInPath ,
-- ** rcFindPixmapInPath
rcFindPixmapInPath ,
-- ** rcGetDefaultFiles
rcGetDefaultFiles ,
-- ** rcGetImModuleFile
rcGetImModuleFile ,
-- ** rcGetImModulePath
rcGetImModulePath ,
-- ** rcGetModuleDir
rcGetModuleDir ,
-- ** rcGetStyle
rcGetStyle ,
-- ** rcGetStyleByPaths
rcGetStyleByPaths ,
-- ** rcGetThemeDir
rcGetThemeDir ,
-- ** rcParse
rcParse ,
-- ** rcParseColor
rcParseColor ,
-- ** rcParseColorFull
rcParseColorFull ,
-- ** rcParsePriority
rcParsePriority ,
-- ** rcParseState
rcParseState ,
-- ** rcParseString
rcParseString ,
-- ** rcPropertyParseBorder
rcPropertyParseBorder ,
-- ** rcPropertyParseColor
rcPropertyParseColor ,
-- ** rcPropertyParseEnum
rcPropertyParseEnum ,
-- ** rcPropertyParseFlags
rcPropertyParseFlags ,
-- ** rcPropertyParseRequisition
rcPropertyParseRequisition ,
-- ** rcReparseAll
rcReparseAll ,
-- ** rcReparseAllForSettings
rcReparseAllForSettings ,
-- ** rcResetStyles
rcResetStyles ,
-- ** rcSetDefaultFiles
rcSetDefaultFiles ,
-- ** recentChooserErrorQuark
recentChooserErrorQuark ,
-- ** recentManagerErrorQuark
recentManagerErrorQuark ,
-- ** renderActivity
renderActivity ,
-- ** renderArrow
renderArrow ,
-- ** renderBackground
renderBackground ,
-- ** renderCheck
renderCheck ,
-- ** renderExpander
renderExpander ,
-- ** renderExtension
renderExtension ,
-- ** renderFocus
renderFocus ,
-- ** renderFrame
renderFrame ,
-- ** renderFrameGap
renderFrameGap ,
-- ** renderHandle
renderHandle ,
-- ** renderIcon
renderIcon ,
-- ** renderIconPixbuf
renderIconPixbuf ,
-- ** renderIconSurface
renderIconSurface ,
-- ** renderInsertionCursor
renderInsertionCursor ,
-- ** renderLayout
renderLayout ,
-- ** renderLine
renderLine ,
-- ** renderOption
renderOption ,
-- ** renderSlider
renderSlider ,
-- ** rgbToHsv
rgbToHsv ,
-- ** selectionAddTarget
selectionAddTarget ,
-- ** selectionAddTargets
selectionAddTargets ,
-- ** selectionClearTargets
selectionClearTargets ,
-- ** selectionConvert
selectionConvert ,
-- ** selectionOwnerSet
selectionOwnerSet ,
-- ** selectionOwnerSetForDisplay
selectionOwnerSetForDisplay ,
-- ** selectionRemoveAll
selectionRemoveAll ,
-- ** setDebugFlags
setDebugFlags ,
-- ** showUri
showUri ,
-- ** stockAdd
stockAdd ,
-- ** stockAddStatic
stockAddStatic ,
-- ** stockListIds
stockListIds ,
-- ** stockLookup
stockLookup ,
-- ** stockSetTranslateFunc
stockSetTranslateFunc ,
-- ** targetTableFree
targetTableFree ,
-- ** targetTableNewFromList
targetTableNewFromList ,
-- ** targetsIncludeImage
targetsIncludeImage ,
-- ** targetsIncludeRichText
targetsIncludeRichText ,
-- ** targetsIncludeText
targetsIncludeText ,
-- ** targetsIncludeUri
targetsIncludeUri ,
-- ** testCreateSimpleWindow
testCreateSimpleWindow ,
-- ** testFindLabel
testFindLabel ,
-- ** testFindSibling
testFindSibling ,
-- ** testFindWidget
testFindWidget ,
-- ** testListAllTypes
testListAllTypes ,
-- ** testRegisterAllTypes
testRegisterAllTypes ,
-- ** testSliderGetValue
testSliderGetValue ,
-- ** testSliderSetPerc
testSliderSetPerc ,
-- ** testSpinButtonClick
testSpinButtonClick ,
-- ** testTextGet
testTextGet ,
-- ** testTextSet
testTextSet ,
-- ** testWidgetClick
testWidgetClick ,
-- ** testWidgetSendKey
testWidgetSendKey ,
-- ** testWidgetWaitForDraw
testWidgetWaitForDraw ,
-- ** treeGetRowDragData
treeGetRowDragData ,
-- ** treeRowReferenceDeleted
treeRowReferenceDeleted ,
-- ** treeRowReferenceInserted
treeRowReferenceInserted ,
-- ** treeSetRowDragData
treeSetRowDragData ,
-- ** true
true ,
) 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.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.Gio as Gio
import qualified GI.Pango as Pango
import qualified GI.Cairo as Cairo
-- function gtk_true
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_true" gtk_true ::
IO CInt
true ::
(MonadIO m) =>
m Bool
true = liftIO $ do
result <- gtk_true
let result' = (/= 0) result
return result'
-- function gtk_tree_set_row_drag_data
-- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_set_row_drag_data" gtk_tree_set_row_drag_data ::
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeSetRowDragData ::
(MonadIO m, TreeModelK a) =>
SelectionData -> -- selection_data
a -> -- tree_model
TreePath -> -- path
m Bool
treeSetRowDragData selection_data tree_model path = liftIO $ do
let selection_data' = unsafeManagedPtrGetPtr selection_data
let tree_model' = unsafeManagedPtrCastPtr tree_model
let path' = unsafeManagedPtrGetPtr path
result <- gtk_tree_set_row_drag_data selection_data' tree_model' path'
let result' = (/= 0) result
touchManagedPtr selection_data
touchManagedPtr tree_model
touchManagedPtr path
return result'
-- function gtk_tree_row_reference_inserted
-- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_inserted" gtk_tree_row_reference_inserted ::
Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeRowReferenceInserted ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- proxy
TreePath -> -- path
m ()
treeRowReferenceInserted proxy path = liftIO $ do
let proxy' = unsafeManagedPtrCastPtr proxy
let path' = unsafeManagedPtrGetPtr path
gtk_tree_row_reference_inserted proxy' path'
touchManagedPtr proxy
touchManagedPtr path
return ()
-- function gtk_tree_row_reference_deleted
-- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_row_reference_deleted" gtk_tree_row_reference_deleted ::
Ptr GObject.Object -> -- proxy : TInterface "GObject" "Object"
Ptr TreePath -> -- path : TInterface "Gtk" "TreePath"
IO ()
treeRowReferenceDeleted ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- proxy
TreePath -> -- path
m ()
treeRowReferenceDeleted proxy path = liftIO $ do
let proxy' = unsafeManagedPtrCastPtr proxy
let path' = unsafeManagedPtrGetPtr path
gtk_tree_row_reference_deleted proxy' path'
touchManagedPtr proxy
touchManagedPtr path
return ()
-- function gtk_tree_get_row_drag_data
-- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_get_row_drag_data" gtk_tree_get_row_drag_data ::
Ptr SelectionData -> -- selection_data : TInterface "Gtk" "SelectionData"
Ptr (Ptr TreeModel) -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath"
IO CInt
treeGetRowDragData ::
(MonadIO m) =>
SelectionData -> -- selection_data
m (Bool,(Maybe TreeModel),(Maybe TreePath))
treeGetRowDragData selection_data = liftIO $ do
let selection_data' = unsafeManagedPtrGetPtr selection_data
tree_model <- allocMem :: IO (Ptr (Ptr TreeModel))
path <- allocMem :: IO (Ptr (Ptr TreePath))
result <- gtk_tree_get_row_drag_data selection_data' tree_model path
let result' = (/= 0) result
tree_model' <- peek tree_model
maybeTree_model' <- convertIfNonNull tree_model' $ \tree_model'' -> do
tree_model''' <- (newObject TreeModel) tree_model''
return tree_model'''
path' <- peek path
maybePath' <- convertIfNonNull path' $ \path'' -> do
path''' <- (wrapBoxed TreePath) path''
return path'''
touchManagedPtr selection_data
freeMem tree_model
freeMem path
return (result', maybeTree_model', maybePath')
-- function gtk_test_widget_wait_for_draw
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_wait_for_draw" gtk_test_widget_wait_for_draw ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
testWidgetWaitForDraw ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m ()
testWidgetWaitForDraw widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
gtk_test_widget_wait_for_draw widget'
touchManagedPtr widget
return ()
-- function gtk_test_widget_send_key
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_send_key" gtk_test_widget_send_key ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
testWidgetSendKey ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
testWidgetSendKey widget keyval modifiers = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let modifiers' = gflagsToWord modifiers
result <- gtk_test_widget_send_key widget' keyval modifiers'
let result' = (/= 0) result
touchManagedPtr widget
return result'
-- function gtk_test_widget_click
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_widget_click" gtk_test_widget_click ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Word32 -> -- button : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
testWidgetClick ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Word32 -> -- button
[Gdk.ModifierType] -> -- modifiers
m Bool
testWidgetClick widget button modifiers = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let modifiers' = gflagsToWord modifiers
result <- gtk_test_widget_click widget' button modifiers'
let result' = (/= 0) result
touchManagedPtr widget
return result'
-- function gtk_test_text_set
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", 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 "gtk_test_text_set" gtk_test_text_set ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- string : TBasicType TUTF8
IO ()
testTextSet ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- string
m ()
testTextSet widget string = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
string' <- textToCString string
gtk_test_text_set widget' string'
touchManagedPtr widget
freeMem string'
return ()
-- function gtk_test_text_get
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_text_get" gtk_test_text_get ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO CString
testTextGet ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m T.Text
testTextGet widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_test_text_get widget'
checkUnexpectedReturnNULL "gtk_test_text_get" result
result' <- cstringToText result
freeMem result
touchManagedPtr widget
return result'
-- function gtk_test_spin_button_click
-- Args : [Arg {argName = "spinner", argType = TInterface "Gtk" "SpinButton", 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 = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "spinner", argType = TInterface "Gtk" "SpinButton", 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 = "upwards", 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 "gtk_test_spin_button_click" gtk_test_spin_button_click ::
Ptr SpinButton -> -- spinner : TInterface "Gtk" "SpinButton"
Word32 -> -- button : TBasicType TUInt32
CInt -> -- upwards : TBasicType TBoolean
IO CInt
testSpinButtonClick ::
(MonadIO m, SpinButtonK a) =>
a -> -- spinner
Word32 -> -- button
Bool -> -- upwards
m Bool
testSpinButtonClick spinner button upwards = liftIO $ do
let spinner' = unsafeManagedPtrCastPtr spinner
let upwards' = (fromIntegral . fromEnum) upwards
result <- gtk_test_spin_button_click spinner' button upwards'
let result' = (/= 0) result
touchManagedPtr spinner
return result'
-- function gtk_test_slider_set_perc
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", 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 "gtk_test_slider_set_perc" gtk_test_slider_set_perc ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CDouble -> -- percentage : TBasicType TDouble
IO ()
testSliderSetPerc ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Double -> -- percentage
m ()
testSliderSetPerc widget percentage = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let percentage' = realToFrac percentage
gtk_test_slider_set_perc widget' percentage'
touchManagedPtr widget
return ()
-- function gtk_test_slider_get_value
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_slider_get_value" gtk_test_slider_get_value ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO CDouble
testSliderGetValue ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m Double
testSliderGetValue widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_test_slider_get_value widget'
let result' = realToFrac result
touchManagedPtr widget
return result'
-- function gtk_test_register_all_types
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_register_all_types" gtk_test_register_all_types ::
IO ()
testRegisterAllTypes ::
(MonadIO m) =>
m ()
testRegisterAllTypes = liftIO $ do
gtk_test_register_all_types
return ()
-- function gtk_test_list_all_types
-- Args : [Arg {argName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) 0 (TBasicType TGType)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types ::
Ptr Word32 -> -- n_types : TBasicType TUInt32
IO (Ptr CGType)
testListAllTypes ::
(MonadIO m) =>
m ([GType],Word32)
testListAllTypes = liftIO $ do
n_types <- allocMem :: IO (Ptr Word32)
result <- gtk_test_list_all_types n_types
checkUnexpectedReturnNULL "gtk_test_list_all_types" result
result' <- (unpackMapZeroTerminatedStorableArray GType) result
n_types' <- peek n_types
freeMem n_types
return (result', n_types')
-- function gtk_test_find_widget
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_widget" gtk_test_find_widget ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- label_pattern : TBasicType TUTF8
CGType -> -- widget_type : TBasicType TGType
IO (Ptr Widget)
testFindWidget ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- label_pattern
GType -> -- widget_type
m Widget
testFindWidget widget label_pattern widget_type = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
label_pattern' <- textToCString label_pattern
let widget_type' = gtypeToCGType widget_type
result <- gtk_test_find_widget widget' label_pattern' widget_type'
checkUnexpectedReturnNULL "gtk_test_find_widget" result
result' <- (newObject Widget) result
touchManagedPtr widget
freeMem label_pattern'
return result'
-- function gtk_test_find_sibling
-- Args : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_sibling" gtk_test_find_sibling ::
Ptr Widget -> -- base_widget : TInterface "Gtk" "Widget"
CGType -> -- widget_type : TBasicType TGType
IO (Ptr Widget)
testFindSibling ::
(MonadIO m, WidgetK a) =>
a -> -- base_widget
GType -> -- widget_type
m Widget
testFindSibling base_widget widget_type = liftIO $ do
let base_widget' = unsafeManagedPtrCastPtr base_widget
let widget_type' = gtypeToCGType widget_type
result <- gtk_test_find_sibling base_widget' widget_type'
checkUnexpectedReturnNULL "gtk_test_find_sibling" result
result' <- (newObject Widget) result
touchManagedPtr base_widget
return result'
-- function gtk_test_find_label
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_find_label" gtk_test_find_label ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- label_pattern : TBasicType TUTF8
IO (Ptr Widget)
testFindLabel ::
(MonadIO m, WidgetK a) =>
a -> -- widget
T.Text -> -- label_pattern
m Widget
testFindLabel widget label_pattern = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
label_pattern' <- textToCString label_pattern
result <- gtk_test_find_label widget' label_pattern'
checkUnexpectedReturnNULL "gtk_test_find_label" result
result' <- (newObject Widget) result
touchManagedPtr widget
freeMem label_pattern'
return result'
-- function gtk_test_create_simple_window
-- Args : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_test_create_simple_window" gtk_test_create_simple_window ::
CString -> -- window_title : TBasicType TUTF8
CString -> -- dialog_text : TBasicType TUTF8
IO (Ptr Widget)
testCreateSimpleWindow ::
(MonadIO m) =>
T.Text -> -- window_title
T.Text -> -- dialog_text
m Widget
testCreateSimpleWindow window_title dialog_text = liftIO $ do
window_title' <- textToCString window_title
dialog_text' <- textToCString dialog_text
result <- gtk_test_create_simple_window window_title' dialog_text'
checkUnexpectedReturnNULL "gtk_test_create_simple_window" result
result' <- (newObject Widget) result
freeMem window_title'
freeMem dialog_text'
return result'
-- function gtk_targets_include_uri
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_uri" gtk_targets_include_uri ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
IO CInt
targetsIncludeUri ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
m Bool
targetsIncludeUri targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
result <- gtk_targets_include_uri targets'' n_targets
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_targets_include_text
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_text" gtk_targets_include_text ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
IO CInt
targetsIncludeText ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
m Bool
targetsIncludeText targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
result <- gtk_targets_include_text targets'' n_targets
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_targets_include_rich_text
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer"
IO CInt
targetsIncludeRichText ::
(MonadIO m, TextBufferK a) =>
[Gdk.Atom] -> -- targets
a -> -- buffer
m Bool
targetsIncludeRichText targets buffer = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_targets_include_rich_text targets'' n_targets buffer'
let result' = (/= 0) result
mapM_ touchManagedPtr targets
touchManagedPtr buffer
freeMem targets''
return result'
-- function gtk_targets_include_image
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", 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 "gtk_targets_include_image" gtk_targets_include_image ::
Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom")
Int32 -> -- n_targets : TBasicType TInt32
CInt -> -- writable : TBasicType TBoolean
IO CInt
targetsIncludeImage ::
(MonadIO m) =>
[Gdk.Atom] -> -- targets
Bool -> -- writable
m Bool
targetsIncludeImage targets writable = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packPtrArray targets'
let writable' = (fromIntegral . fromEnum) writable
result <- gtk_targets_include_image targets'' n_targets writable'
let result' = (/= 0) result
mapM_ touchManagedPtr targets
freeMem targets''
return result'
-- function gtk_target_table_new_from_list
-- Args : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list ::
Ptr TargetList -> -- list : TInterface "Gtk" "TargetList"
Ptr Int32 -> -- n_targets : TBasicType TInt32
IO (Ptr TargetEntry)
targetTableNewFromList ::
(MonadIO m) =>
TargetList -> -- list
m [TargetEntry]
targetTableNewFromList list = liftIO $ do
let list' = unsafeManagedPtrGetPtr list
n_targets <- allocMem :: IO (Ptr Int32)
result <- gtk_target_table_new_from_list list' n_targets
n_targets' <- peek n_targets
checkUnexpectedReturnNULL "gtk_target_table_new_from_list" result
result' <- (unpackBoxedArrayWithLength 16 n_targets') result
result'' <- mapM (wrapBoxed TargetEntry) result'
freeMem result
touchManagedPtr list
freeMem n_targets
return result''
-- function gtk_target_table_free
-- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_target_table_free" gtk_target_table_free ::
Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")
Int32 -> -- n_targets : TBasicType TInt32
IO ()
targetTableFree ::
(MonadIO m) =>
[TargetEntry] -> -- targets
m ()
targetTableFree targets = liftIO $ do
let n_targets = fromIntegral $ length targets
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
gtk_target_table_free targets'' n_targets
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- function gtk_stock_set_translate_func
-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func ::
CString -> -- domain : TBasicType TUTF8
FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
IO ()
{-# DEPRECATED stockSetTranslateFunc ["(Since version 3.10)"]#-}
stockSetTranslateFunc ::
(MonadIO m) =>
T.Text -> -- domain
TranslateFunc -> -- func
m ()
stockSetTranslateFunc domain func = liftIO $ do
domain' <- textToCString domain
func' <- mkTranslateFunc (translateFuncWrapper Nothing func)
let data_ = castFunPtrToPtr func'
let notify = safeFreeFunPtrPtr
gtk_stock_set_translate_func domain' func' data_ notify
freeMem domain'
return ()
-- function gtk_stock_lookup
-- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stock_id", 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 "gtk_stock_lookup" gtk_stock_lookup ::
CString -> -- stock_id : TBasicType TUTF8
Ptr StockItem -> -- item : TInterface "Gtk" "StockItem"
IO CInt
{-# DEPRECATED stockLookup ["(Since version 3.10)"]#-}
stockLookup ::
(MonadIO m) =>
T.Text -> -- stock_id
m (Bool,StockItem)
stockLookup stock_id = liftIO $ do
stock_id' <- textToCString stock_id
item <- callocBytes 32 :: IO (Ptr StockItem)
result <- gtk_stock_lookup stock_id' item
let result' = (/= 0) result
item' <- (wrapPtr StockItem) item
freeMem stock_id'
return (result', item')
-- function gtk_stock_list_ids
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_list_ids" gtk_stock_list_ids ::
IO (Ptr (GSList CString))
{-# DEPRECATED stockListIds ["(Since version 3.10)"]#-}
stockListIds ::
(MonadIO m) =>
m [T.Text]
stockListIds = liftIO $ do
result <- gtk_stock_list_ids
checkUnexpectedReturnNULL "gtk_stock_list_ids" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
mapGSList freeMem result
g_slist_free result
return result''
-- function gtk_stock_add_static
-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_add_static" gtk_stock_add_static ::
Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")
Word32 -> -- n_items : TBasicType TUInt32
IO ()
{-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-}
stockAddStatic ::
(MonadIO m) =>
[StockItem] -> -- items
m ()
stockAddStatic items = liftIO $ do
let n_items = fromIntegral $ length items
let items' = map unsafeManagedPtrGetPtr items
items'' <- packBlockArray 32 items'
gtk_stock_add_static items'' n_items
mapM_ touchManagedPtr items
freeMem items''
return ()
-- function gtk_stock_add
-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_stock_add" gtk_stock_add ::
Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem")
Word32 -> -- n_items : TBasicType TUInt32
IO ()
{-# DEPRECATED stockAdd ["(Since version 3.10)"]#-}
stockAdd ::
(MonadIO m) =>
[StockItem] -> -- items
m ()
stockAdd items = liftIO $ do
let n_items = fromIntegral $ length items
let items' = map unsafeManagedPtrGetPtr items
items'' <- packBlockArray 32 items'
gtk_stock_add items'' n_items
mapM_ touchManagedPtr items
freeMem items''
return ()
-- function gtk_show_uri
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_show_uri" gtk_show_uri ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
CString -> -- uri : TBasicType TUTF8
Word32 -> -- timestamp : TBasicType TUInt32
Ptr (Ptr GError) -> -- error
IO CInt
showUri ::
(MonadIO m, Gdk.ScreenK a) =>
Maybe (a) -> -- screen
T.Text -> -- uri
Word32 -> -- timestamp
m ()
showUri screen uri timestamp = liftIO $ do
maybeScreen <- case screen of
Nothing -> return nullPtr
Just jScreen -> do
let jScreen' = unsafeManagedPtrCastPtr jScreen
return jScreen'
uri' <- textToCString uri
onException (do
_ <- propagateGError $ gtk_show_uri maybeScreen uri' timestamp
whenJust screen touchManagedPtr
freeMem uri'
return ()
) (do
freeMem uri'
)
-- function gtk_set_debug_flags
-- Args : [Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "flags", 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 "gtk_set_debug_flags" gtk_set_debug_flags ::
Word32 -> -- flags : TBasicType TUInt32
IO ()
setDebugFlags ::
(MonadIO m) =>
Word32 -> -- flags
m ()
setDebugFlags flags = liftIO $ do
gtk_set_debug_flags flags
return ()
-- function gtk_selection_remove_all
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_remove_all" gtk_selection_remove_all ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
selectionRemoveAll ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m ()
selectionRemoveAll widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
gtk_selection_remove_all widget'
touchManagedPtr widget
return ()
-- function gtk_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 = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_owner_set_for_display" gtk_selection_owner_set_for_display ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionOwnerSetForDisplay ::
(MonadIO m, Gdk.DisplayK a, WidgetK b) =>
a -> -- display
Maybe (b) -> -- widget
Gdk.Atom -> -- selection
Word32 -> -- time_
m Bool
selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do
let display' = unsafeManagedPtrCastPtr display
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_
let result' = (/= 0) result
touchManagedPtr display
whenJust widget touchManagedPtr
touchManagedPtr selection
return result'
-- function gtk_selection_owner_set
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_owner_set" gtk_selection_owner_set ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionOwnerSet ::
(MonadIO m, WidgetK a) =>
Maybe (a) -> -- widget
Gdk.Atom -> -- selection
Word32 -> -- time_
m Bool
selectionOwnerSet widget selection time_ = liftIO $ do
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
let selection' = unsafeManagedPtrGetPtr selection
result <- gtk_selection_owner_set maybeWidget selection' time_
let result' = (/= 0) result
whenJust widget touchManagedPtr
touchManagedPtr selection
return result'
-- function gtk_selection_convert
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "widget", argType = TInterface "Gtk" "Widget", 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 TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_convert" gtk_selection_convert ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- time_ : TBasicType TUInt32
IO CInt
selectionConvert ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
Gdk.Atom -> -- target
Word32 -> -- time_
m Bool
selectionConvert widget selection target time_ = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let target' = unsafeManagedPtrGetPtr target
result <- gtk_selection_convert widget' selection' target' time_
let result' = (/= 0) result
touchManagedPtr widget
touchManagedPtr selection
touchManagedPtr target
return result'
-- function gtk_selection_clear_targets
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_clear_targets" gtk_selection_clear_targets ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
IO ()
selectionClearTargets ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
m ()
selectionClearTargets widget selection = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
gtk_selection_clear_targets widget' selection'
touchManagedPtr widget
touchManagedPtr selection
return ()
-- function gtk_selection_add_targets
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_selection_add_targets" gtk_selection_add_targets ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry")
Word32 -> -- ntargets : TBasicType TUInt32
IO ()
selectionAddTargets ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
[TargetEntry] -> -- targets
m ()
selectionAddTargets widget selection targets = liftIO $ do
let ntargets = fromIntegral $ length targets
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let targets' = map unsafeManagedPtrGetPtr targets
targets'' <- packBlockArray 16 targets'
gtk_selection_add_targets widget' selection' targets'' ntargets
touchManagedPtr widget
touchManagedPtr selection
mapM_ touchManagedPtr targets
freeMem targets''
return ()
-- function gtk_selection_add_target
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "info", 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 "gtk_selection_add_target" gtk_selection_add_target ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom"
Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom"
Word32 -> -- info : TBasicType TUInt32
IO ()
selectionAddTarget ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Atom -> -- selection
Gdk.Atom -> -- target
Word32 -> -- info
m ()
selectionAddTarget widget selection target info = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let selection' = unsafeManagedPtrGetPtr selection
let target' = unsafeManagedPtrGetPtr target
gtk_selection_add_target widget' selection' target' info
touchManagedPtr widget
touchManagedPtr selection
touchManagedPtr target
return ()
-- function gtk_rgb_to_hsv
-- Args : [Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", 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 "gtk_rgb_to_hsv" gtk_rgb_to_hsv ::
CDouble -> -- r : TBasicType TDouble
CDouble -> -- g : TBasicType TDouble
CDouble -> -- b : TBasicType TDouble
Ptr CDouble -> -- h : TBasicType TDouble
Ptr CDouble -> -- s : TBasicType TDouble
Ptr CDouble -> -- v : TBasicType TDouble
IO ()
rgbToHsv ::
(MonadIO m) =>
Double -> -- r
Double -> -- g
Double -> -- b
m (Double,Double,Double)
rgbToHsv r g b = liftIO $ do
let r' = realToFrac r
let g' = realToFrac g
let b' = realToFrac b
h <- allocMem :: IO (Ptr CDouble)
s <- allocMem :: IO (Ptr CDouble)
v <- allocMem :: IO (Ptr CDouble)
gtk_rgb_to_hsv r' g' b' h s v
h' <- peek h
let h'' = realToFrac h'
s' <- peek s
let s'' = realToFrac s'
v' <- peek v
let v'' = realToFrac v'
freeMem h
freeMem s
freeMem v
return (h'', s'', v'')
-- function gtk_render_slider
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_slider" gtk_render_slider ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
renderSlider ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
Orientation -> -- orientation
m ()
renderSlider context cr x y width height orientation = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let orientation' = (fromIntegral . fromEnum) orientation
gtk_render_slider context' cr' x' y' width' height' orientation'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_option
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_option" gtk_render_option ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderOption ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderOption context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_option context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_line
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", 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 "gtk_render_line" gtk_render_line ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x0 : TBasicType TDouble
CDouble -> -- y0 : TBasicType TDouble
CDouble -> -- x1 : TBasicType TDouble
CDouble -> -- y1 : TBasicType TDouble
IO ()
renderLine ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x0
Double -> -- y0
Double -> -- x1
Double -> -- y1
m ()
renderLine context cr x0 y0 x1 y1 = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x0' = realToFrac x0
let y0' = realToFrac y0
let x1' = realToFrac x1
let y1' = realToFrac y1
gtk_render_line context' cr' x0' y0' x1' y1'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_layout
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_layout" gtk_render_layout ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
IO ()
renderLayout ::
(MonadIO m, StyleContextK a, Pango.LayoutK b) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
b -> -- layout
m ()
renderLayout context cr x y layout = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let layout' = unsafeManagedPtrCastPtr layout
gtk_render_layout context' cr' x' y' layout'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr layout
return ()
-- function gtk_render_insertion_cursor
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_insertion_cursor" gtk_render_insertion_cursor ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
Int32 -> -- index : TBasicType TInt32
CUInt -> -- direction : TInterface "Pango" "Direction"
IO ()
renderInsertionCursor ::
(MonadIO m, StyleContextK a, Pango.LayoutK b) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
b -> -- layout
Int32 -> -- index
Pango.Direction -> -- direction
m ()
renderInsertionCursor context cr x y layout index direction = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let layout' = unsafeManagedPtrCastPtr layout
let direction' = (fromIntegral . fromEnum) direction
gtk_render_insertion_cursor context' cr' x' y' layout' index direction'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr layout
return ()
-- function gtk_render_icon_surface
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_icon_surface" gtk_render_icon_surface ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
renderIconSurface ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Cairo.Surface -> -- surface
Double -> -- x
Double -> -- y
m ()
renderIconSurface context cr surface x y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let surface' = unsafeManagedPtrGetPtr surface
let x' = realToFrac x
let y' = realToFrac y
gtk_render_icon_surface context' cr' surface' x' y'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr surface
return ()
-- function gtk_render_icon_pixbuf
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", 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 "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr IconSource -> -- source : TInterface "Gtk" "IconSource"
Int32 -> -- size : TBasicType TInt32
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-}
renderIconPixbuf ::
(MonadIO m, StyleContextK a) =>
a -> -- context
IconSource -> -- source
Int32 -> -- size
m GdkPixbuf.Pixbuf
renderIconPixbuf context source size = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let source' = unsafeManagedPtrGetPtr source
result <- gtk_render_icon_pixbuf context' source' size
checkUnexpectedReturnNULL "gtk_render_icon_pixbuf" result
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr context
touchManagedPtr source
return result'
-- function gtk_render_icon
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", 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 "gtk_render_icon" gtk_render_icon ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
renderIcon ::
(MonadIO m, StyleContextK a, GdkPixbuf.PixbufK b) =>
a -> -- context
Cairo.Context -> -- cr
b -> -- pixbuf
Double -> -- x
Double -> -- y
m ()
renderIcon context cr pixbuf x y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
let x' = realToFrac x
let y' = realToFrac y
gtk_render_icon context' cr' pixbuf' x' y'
touchManagedPtr context
touchManagedPtr cr
touchManagedPtr pixbuf
return ()
-- function gtk_render_handle
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_handle" gtk_render_handle ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderHandle ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderHandle context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_handle context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_frame_gap
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", 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 "gtk_render_frame_gap" gtk_render_frame_gap ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
CDouble -> -- xy0_gap : TBasicType TDouble
CDouble -> -- xy1_gap : TBasicType TDouble
IO ()
renderFrameGap ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
PositionType -> -- gap_side
Double -> -- xy0_gap
Double -> -- xy1_gap
m ()
renderFrameGap context cr x y width height gap_side xy0_gap xy1_gap = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let gap_side' = (fromIntegral . fromEnum) gap_side
let xy0_gap' = realToFrac xy0_gap
let xy1_gap' = realToFrac xy1_gap
gtk_render_frame_gap context' cr' x' y' width' height' gap_side' xy0_gap' xy1_gap'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_frame
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_frame" gtk_render_frame ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderFrame ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderFrame context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_frame context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_focus
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_focus" gtk_render_focus ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderFocus ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderFocus context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_focus context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_extension
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_render_extension" gtk_render_extension ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
IO ()
renderExtension ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
PositionType -> -- gap_side
m ()
renderExtension context cr x y width height gap_side = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_render_extension context' cr' x' y' width' height' gap_side'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_expander
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_expander" gtk_render_expander ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderExpander ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderExpander context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_expander context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_check
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_check" gtk_render_check ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderCheck ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderCheck context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_check context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_background
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_background" gtk_render_background ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderBackground ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderBackground context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_background context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_arrow
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", 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 "gtk_render_arrow" gtk_render_arrow ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- angle : TBasicType TDouble
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- size : TBasicType TDouble
IO ()
renderArrow ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- angle
Double -> -- x
Double -> -- y
Double -> -- size
m ()
renderArrow context cr angle x y size = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let angle' = realToFrac angle
let x' = realToFrac x
let y' = realToFrac y
let size' = realToFrac size
gtk_render_arrow context' cr' angle' x' y' size'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_render_activity
-- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", 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 "gtk_render_activity" gtk_render_activity ::
Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
CDouble -> -- width : TBasicType TDouble
CDouble -> -- height : TBasicType TDouble
IO ()
renderActivity ::
(MonadIO m, StyleContextK a) =>
a -> -- context
Cairo.Context -> -- cr
Double -> -- x
Double -> -- y
Double -> -- width
Double -> -- height
m ()
renderActivity context cr x y width height = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let cr' = unsafeManagedPtrGetPtr cr
let x' = realToFrac x
let y' = realToFrac y
let width' = realToFrac width
let height' = realToFrac height
gtk_render_activity context' cr' x' y' width' height'
touchManagedPtr context
touchManagedPtr cr
return ()
-- function gtk_recent_manager_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_manager_error_quark" gtk_recent_manager_error_quark ::
IO Word32
recentManagerErrorQuark ::
(MonadIO m) =>
m Word32
recentManagerErrorQuark = liftIO $ do
result <- gtk_recent_manager_error_quark
return result
-- function gtk_recent_chooser_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_recent_chooser_error_quark" gtk_recent_chooser_error_quark ::
IO Word32
recentChooserErrorQuark ::
(MonadIO m) =>
m Word32
recentChooserErrorQuark = liftIO $ do
result <- gtk_recent_chooser_error_quark
return result
-- function gtk_rc_set_default_files
-- Args : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_set_default_files" gtk_rc_set_default_files ::
Ptr CString -> -- filenames : TCArray True (-1) (-1) (TBasicType TFileName)
IO ()
{-# DEPRECATED rcSetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
rcSetDefaultFiles ::
(MonadIO m) =>
[[Char]] -> -- filenames
m ()
rcSetDefaultFiles filenames = liftIO $ do
filenames' <- packZeroTerminatedFileNameArray filenames
gtk_rc_set_default_files filenames'
mapZeroTerminatedCArray freeMem filenames'
freeMem filenames'
return ()
-- function gtk_rc_reset_styles
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_reset_styles" gtk_rc_reset_styles ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
IO ()
{-# DEPRECATED rcResetStyles ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcResetStyles ::
(MonadIO m, SettingsK a) =>
a -> -- settings
m ()
rcResetStyles settings = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
gtk_rc_reset_styles settings'
touchManagedPtr settings
return ()
-- function gtk_rc_reparse_all_for_settings
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", 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 "gtk_rc_reparse_all_for_settings" gtk_rc_reparse_all_for_settings ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
CInt -> -- force_load : TBasicType TBoolean
IO CInt
{-# DEPRECATED rcReparseAllForSettings ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcReparseAllForSettings ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Bool -> -- force_load
m Bool
rcReparseAllForSettings settings force_load = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
let force_load' = (fromIntegral . fromEnum) force_load
result <- gtk_rc_reparse_all_for_settings settings' force_load'
let result' = (/= 0) result
touchManagedPtr settings
return result'
-- function gtk_rc_reparse_all
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_reparse_all" gtk_rc_reparse_all ::
IO CInt
{-# DEPRECATED rcReparseAll ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcReparseAll ::
(MonadIO m) =>
m Bool
rcReparseAll = liftIO $ do
result <- gtk_rc_reparse_all
let result' = (/= 0) result
return result'
-- function gtk_rc_property_parse_requisition
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_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 "gtk_rc_property_parse_requisition" gtk_rc_property_parse_requisition ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseRequisition ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseRequisition pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_requisition pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_flags
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_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 "gtk_rc_property_parse_flags" gtk_rc_property_parse_flags ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseFlags ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseFlags pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_flags pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_enum
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_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 "gtk_rc_property_parse_enum" gtk_rc_property_parse_enum ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseEnum ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseEnum pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_enum pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_color
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_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 "gtk_rc_property_parse_color" gtk_rc_property_parse_color ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseColor ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseColor pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_color pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_property_parse_border
-- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_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 "gtk_rc_property_parse_border" gtk_rc_property_parse_border ::
Ptr GParamSpec -> -- pspec : TParamSpec
Ptr GLib.String -> -- gstring : TInterface "GLib" "String"
Ptr GValue -> -- property_value : TInterface "GObject" "Value"
IO CInt
rcPropertyParseBorder ::
(MonadIO m) =>
GParamSpec -> -- pspec
GLib.String -> -- gstring
GValue -> -- property_value
m Bool
rcPropertyParseBorder pspec gstring property_value = liftIO $ do
let pspec' = unsafeManagedPtrGetPtr pspec
let gstring' = unsafeManagedPtrGetPtr gstring
let property_value' = unsafeManagedPtrGetPtr property_value
result <- gtk_rc_property_parse_border pspec' gstring' property_value'
let result' = (/= 0) result
touchManagedPtr gstring
touchManagedPtr property_value
return result'
-- function gtk_rc_parse_string
-- Args : [Arg {argName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "rc_string", 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 "gtk_rc_parse_string" gtk_rc_parse_string ::
CString -> -- rc_string : TBasicType TUTF8
IO ()
{-# DEPRECATED rcParseString ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcParseString ::
(MonadIO m) =>
T.Text -> -- rc_string
m ()
rcParseString rc_string = liftIO $ do
rc_string' <- textToCString rc_string
gtk_rc_parse_string rc_string'
freeMem rc_string'
return ()
-- function gtk_rc_parse_state
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_state" gtk_rc_parse_state ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr CUInt -> -- state : TInterface "Gtk" "StateType"
IO Word32
{-# DEPRECATED rcParseState ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseState ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
m (Word32,StateType)
rcParseState scanner = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
state <- allocMem :: IO (Ptr CUInt)
result <- gtk_rc_parse_state scanner' state
state' <- peek state
let state'' = (toEnum . fromIntegral) state'
touchManagedPtr scanner
freeMem state
return (result, state'')
-- function gtk_rc_parse_priority
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_priority" gtk_rc_parse_priority ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
CUInt -> -- priority : TInterface "Gtk" "PathPriorityType"
IO Word32
{-# DEPRECATED rcParsePriority ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParsePriority ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
PathPriorityType -> -- priority
m Word32
rcParsePriority scanner priority = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
let priority' = (fromIntegral . fromEnum) priority
result <- gtk_rc_parse_priority scanner' priority'
touchManagedPtr scanner
return result
-- function gtk_rc_parse_color_full
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, 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 = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_color_full" gtk_rc_parse_color_full ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO Word32
{-# DEPRECATED rcParseColorFull ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseColorFull ::
(MonadIO m, RcStyleK a) =>
GLib.Scanner -> -- scanner
Maybe (a) -> -- style
m (Word32,Gdk.Color)
rcParseColorFull scanner style = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
maybeStyle <- case style of
Nothing -> return nullPtr
Just jStyle -> do
let jStyle' = unsafeManagedPtrCastPtr jStyle
return jStyle'
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
result <- gtk_rc_parse_color_full scanner' maybeStyle color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr scanner
whenJust style touchManagedPtr
return (result, color')
-- function gtk_rc_parse_color
-- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", 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 = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_parse_color" gtk_rc_parse_color ::
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color"
IO Word32
{-# DEPRECATED rcParseColor ["(Since version 3.0)","Use #GtkCssProvider instead"]#-}
rcParseColor ::
(MonadIO m) =>
GLib.Scanner -> -- scanner
m (Word32,Gdk.Color)
rcParseColor scanner = liftIO $ do
let scanner' = unsafeManagedPtrGetPtr scanner
color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color)
result <- gtk_rc_parse_color scanner' color
color' <- (wrapBoxed Gdk.Color) color
touchManagedPtr scanner
return (result, color')
-- function gtk_rc_parse
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", 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 "gtk_rc_parse" gtk_rc_parse ::
CString -> -- filename : TBasicType TUTF8
IO ()
{-# DEPRECATED rcParse ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcParse ::
(MonadIO m) =>
T.Text -> -- filename
m ()
rcParse filename = liftIO $ do
filename' <- textToCString filename
gtk_rc_parse filename'
freeMem filename'
return ()
-- function gtk_rc_get_theme_dir
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_theme_dir" gtk_rc_get_theme_dir ::
IO CString
{-# DEPRECATED rcGetThemeDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetThemeDir ::
(MonadIO m) =>
m T.Text
rcGetThemeDir = liftIO $ do
result <- gtk_rc_get_theme_dir
checkUnexpectedReturnNULL "gtk_rc_get_theme_dir" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_rc_get_style_by_paths
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_style_by_paths" gtk_rc_get_style_by_paths ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
CString -> -- widget_path : TBasicType TUTF8
CString -> -- class_path : TBasicType TUTF8
CGType -> -- type : TBasicType TGType
IO (Ptr Style)
{-# DEPRECATED rcGetStyleByPaths ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetStyleByPaths ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Maybe (T.Text) -> -- widget_path
Maybe (T.Text) -> -- class_path
GType -> -- type
m Style
rcGetStyleByPaths settings widget_path class_path type_ = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
maybeWidget_path <- case widget_path of
Nothing -> return nullPtr
Just jWidget_path -> do
jWidget_path' <- textToCString jWidget_path
return jWidget_path'
maybeClass_path <- case class_path of
Nothing -> return nullPtr
Just jClass_path -> do
jClass_path' <- textToCString jClass_path
return jClass_path'
let type_' = gtypeToCGType type_
result <- gtk_rc_get_style_by_paths settings' maybeWidget_path maybeClass_path type_'
checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result
result' <- (newObject Style) result
touchManagedPtr settings
freeMem maybeWidget_path
freeMem maybeClass_path
return result'
-- function gtk_rc_get_style
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Style"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_style" gtk_rc_get_style ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO (Ptr Style)
{-# DEPRECATED rcGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetStyle ::
(MonadIO m, WidgetK a) =>
a -> -- widget
m Style
rcGetStyle widget = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_rc_get_style widget'
checkUnexpectedReturnNULL "gtk_rc_get_style" result
result' <- (newObject Style) result
touchManagedPtr widget
return result'
-- function gtk_rc_get_module_dir
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_module_dir" gtk_rc_get_module_dir ::
IO CString
{-# DEPRECATED rcGetModuleDir ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetModuleDir ::
(MonadIO m) =>
m [Char]
rcGetModuleDir = liftIO $ do
result <- gtk_rc_get_module_dir
checkUnexpectedReturnNULL "gtk_rc_get_module_dir" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_im_module_path
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_im_module_path" gtk_rc_get_im_module_path ::
IO CString
{-# DEPRECATED rcGetImModulePath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetImModulePath ::
(MonadIO m) =>
m [Char]
rcGetImModulePath = liftIO $ do
result <- gtk_rc_get_im_module_path
checkUnexpectedReturnNULL "gtk_rc_get_im_module_path" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_im_module_file
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_im_module_file" gtk_rc_get_im_module_file ::
IO CString
{-# DEPRECATED rcGetImModuleFile ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcGetImModuleFile ::
(MonadIO m) =>
m [Char]
rcGetImModuleFile = liftIO $ do
result <- gtk_rc_get_im_module_file
checkUnexpectedReturnNULL "gtk_rc_get_im_module_file" result
result' <- cstringToString result
freeMem result
return result'
-- function gtk_rc_get_default_files
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TCArray True (-1) (-1) (TBasicType TFileName)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_get_default_files" gtk_rc_get_default_files ::
IO (Ptr CString)
{-# DEPRECATED rcGetDefaultFiles ["(Since version 3.0)","Use #GtkStyleContext instead"]#-}
rcGetDefaultFiles ::
(MonadIO m) =>
m [[Char]]
rcGetDefaultFiles = liftIO $ do
result <- gtk_rc_get_default_files
checkUnexpectedReturnNULL "gtk_rc_get_default_files" result
result' <- unpackZeroTerminatedFileNameArray result
return result'
-- function gtk_rc_find_pixmap_in_path
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_find_pixmap_in_path" gtk_rc_find_pixmap_in_path ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
Ptr GLib.Scanner -> -- scanner : TInterface "GLib" "Scanner"
CString -> -- pixmap_file : TBasicType TUTF8
IO CString
{-# DEPRECATED rcFindPixmapInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcFindPixmapInPath ::
(MonadIO m, SettingsK a) =>
a -> -- settings
GLib.Scanner -> -- scanner
T.Text -> -- pixmap_file
m [Char]
rcFindPixmapInPath settings scanner pixmap_file = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
let scanner' = unsafeManagedPtrGetPtr scanner
pixmap_file' <- textToCString pixmap_file
result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmap_file'
checkUnexpectedReturnNULL "gtk_rc_find_pixmap_in_path" result
result' <- cstringToString result
freeMem result
touchManagedPtr settings
touchManagedPtr scanner
freeMem pixmap_file'
return result'
-- function gtk_rc_find_module_in_path
-- Args : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFileName
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_find_module_in_path" gtk_rc_find_module_in_path ::
CString -> -- module_file : TBasicType TUTF8
IO CString
{-# DEPRECATED rcFindModuleInPath ["(Since version 3.0)","Use #GtkCssProvider instead."]#-}
rcFindModuleInPath ::
(MonadIO m) =>
T.Text -> -- module_file
m [Char]
rcFindModuleInPath module_file = liftIO $ do
module_file' <- textToCString module_file
result <- gtk_rc_find_module_in_path module_file'
checkUnexpectedReturnNULL "gtk_rc_find_module_in_path" result
result' <- cstringToString result
freeMem result
freeMem module_file'
return result'
-- function gtk_rc_add_default_file
-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_rc_add_default_file" gtk_rc_add_default_file ::
CString -> -- filename : TBasicType TFileName
IO ()
{-# DEPRECATED rcAddDefaultFile ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-}
rcAddDefaultFile ::
(MonadIO m) =>
[Char] -> -- filename
m ()
rcAddDefaultFile filename = liftIO $ do
filename' <- stringToCString filename
gtk_rc_add_default_file filename'
freeMem filename'
return ()
-- function gtk_propagate_event
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_propagate_event" gtk_propagate_event ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO ()
propagateEvent ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Gdk.Event -> -- event
m ()
propagateEvent widget event = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let event' = unsafeManagedPtrGetPtr event
gtk_propagate_event widget' event'
touchManagedPtr widget
touchManagedPtr event
return ()
-- function gtk_print_run_page_setup_dialog_async
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_run_page_setup_dialog_async" gtk_print_run_page_setup_dialog_async ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup"
Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings"
FunPtr PageSetupDoneFuncC -> -- done_cb : TInterface "Gtk" "PageSetupDoneFunc"
Ptr () -> -- data : TBasicType TVoid
IO ()
printRunPageSetupDialogAsync ::
(MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) =>
Maybe (a) -> -- parent
Maybe (b) -> -- page_setup
c -> -- settings
PageSetupDoneFunc -> -- done_cb
m ()
printRunPageSetupDialogAsync parent page_setup settings done_cb = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
maybePage_setup <- case page_setup of
Nothing -> return nullPtr
Just jPage_setup -> do
let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup
return jPage_setup'
let settings' = unsafeManagedPtrCastPtr settings
ptrdone_cb <- callocMem :: IO (Ptr (FunPtr PageSetupDoneFuncC))
done_cb' <- mkPageSetupDoneFunc (pageSetupDoneFuncWrapper (Just ptrdone_cb) done_cb)
poke ptrdone_cb done_cb'
let data_ = nullPtr
gtk_print_run_page_setup_dialog_async maybeParent maybePage_setup settings' done_cb' data_
whenJust parent touchManagedPtr
whenJust page_setup touchManagedPtr
touchManagedPtr settings
return ()
-- function gtk_print_run_page_setup_dialog
-- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PageSetup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_run_page_setup_dialog" gtk_print_run_page_setup_dialog ::
Ptr Window -> -- parent : TInterface "Gtk" "Window"
Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup"
Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings"
IO (Ptr PageSetup)
printRunPageSetupDialog ::
(MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) =>
Maybe (a) -> -- parent
Maybe (b) -> -- page_setup
c -> -- settings
m PageSetup
printRunPageSetupDialog parent page_setup settings = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
maybePage_setup <- case page_setup of
Nothing -> return nullPtr
Just jPage_setup -> do
let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup
return jPage_setup'
let settings' = unsafeManagedPtrCastPtr settings
result <- gtk_print_run_page_setup_dialog maybeParent maybePage_setup settings'
checkUnexpectedReturnNULL "gtk_print_run_page_setup_dialog" result
result' <- (wrapObject PageSetup) result
whenJust parent touchManagedPtr
whenJust page_setup touchManagedPtr
touchManagedPtr settings
return result'
-- function gtk_print_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_print_error_quark" gtk_print_error_quark ::
IO Word32
printErrorQuark ::
(MonadIO m) =>
m Word32
printErrorQuark = liftIO $ do
result <- gtk_print_error_quark
return result
-- function gtk_parse_args
-- 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 "gtk_parse_args" gtk_parse_args ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO CInt
parseArgs ::
(MonadIO m) =>
[T.Text] -> -- argv
m (Bool,[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'
result <- gtk_parse_args 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 gtk_paper_size_get_paper_sizes
-- Args : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "Gtk" "PaperSize")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_paper_sizes" gtk_paper_size_get_paper_sizes ::
CInt -> -- include_custom : TBasicType TBoolean
IO (Ptr (GList (Ptr PaperSize)))
paperSizeGetPaperSizes ::
(MonadIO m) =>
Bool -> -- include_custom
m [PaperSize]
paperSizeGetPaperSizes include_custom = liftIO $ do
let include_custom' = (fromIntegral . fromEnum) include_custom
result <- gtk_paper_size_get_paper_sizes include_custom'
checkUnexpectedReturnNULL "gtk_paper_size_get_paper_sizes" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed PaperSize) result'
g_list_free result
return result''
-- function gtk_paper_size_get_default
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paper_size_get_default" gtk_paper_size_get_default ::
IO CString
paperSizeGetDefault ::
(MonadIO m) =>
m T.Text
paperSizeGetDefault = liftIO $ do
result <- gtk_paper_size_get_default
checkUnexpectedReturnNULL "gtk_paper_size_get_default" result
result' <- cstringToText result
return result'
-- function gtk_paint_vline
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", 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}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_vline" gtk_paint_vline ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- y1_ : TBasicType TInt32
Int32 -> -- y2_ : TBasicType TInt32
Int32 -> -- x : TBasicType TInt32
IO ()
{-# DEPRECATED paintVline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}
paintVline ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- y1_
Int32 -> -- y2_
Int32 -> -- x
m ()
paintVline style cr state_type widget detail y1_ y2_ x = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_vline style' cr' state_type' maybeWidget maybeDetail y1_ y2_ x
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_tab
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_tab" gtk_paint_tab ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-}
paintTab ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintTab style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_tab style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_spinner
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, 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 "gtk_paint_spinner" gtk_paint_spinner ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Word32 -> -- step : TBasicType TUInt32
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintSpinner ["(Since version 3.0)","Use gtk_render_activity() instead"]#-}
paintSpinner ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Word32 -> -- step
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintSpinner style cr state_type widget detail step x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_spinner style' cr' state_type' maybeWidget maybeDetail step x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_slider
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_slider" gtk_paint_slider ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
{-# DEPRECATED paintSlider ["(Since version 3.0)","Use gtk_render_slider() instead"]#-}
paintSlider ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
Orientation -> -- orientation
m ()
paintSlider style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let orientation' = (fromIntegral . fromEnum) orientation
gtk_paint_slider style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_shadow_gap
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", 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 "gtk_paint_shadow_gap" gtk_paint_shadow_gap ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
Int32 -> -- gap_x : TBasicType TInt32
Int32 -> -- gap_width : TBasicType TInt32
IO ()
{-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}
paintShadowGap ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
Int32 -> -- gap_x
Int32 -> -- gap_width
m ()
paintShadowGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_shadow_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_shadow
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_shadow" gtk_paint_shadow ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintShadow ["(Since version 3.0)","Use gtk_render_frame() instead"]#-}
paintShadow ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintShadow style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_shadow style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_resize_grip
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "gtk_paint_resize_grip" gtk_paint_resize_grip ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
CUInt -> -- edge : TInterface "Gdk" "WindowEdge"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use gtk_render_handle() instead"]#-}
paintResizeGrip ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Gdk.WindowEdge -> -- edge
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintResizeGrip style cr state_type widget detail edge x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let edge' = (fromIntegral . fromEnum) edge
gtk_paint_resize_grip style' cr' state_type' maybeWidget maybeDetail edge' x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_option
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_option" gtk_paint_option ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintOption ["(Since version 3.0)","Use gtk_render_option() instead"]#-}
paintOption ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintOption style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_option style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_layout
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_layout" gtk_paint_layout ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CInt -> -- use_text : TBasicType TBoolean
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"
IO ()
{-# DEPRECATED paintLayout ["(Since version 3.0)","Use gtk_render_layout() instead"]#-}
paintLayout ::
(MonadIO m, StyleK a, WidgetK b, Pango.LayoutK c) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Bool -> -- use_text
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
c -> -- layout
m ()
paintLayout style cr state_type use_text widget detail x y layout = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let use_text' = (fromIntegral . fromEnum) use_text
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let layout' = unsafeManagedPtrCastPtr layout
gtk_paint_layout style' cr' state_type' use_text' maybeWidget maybeDetail x y layout'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
touchManagedPtr layout
freeMem maybeDetail
return ()
-- function gtk_paint_hline
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_hline" gtk_paint_hline ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x1 : TBasicType TInt32
Int32 -> -- x2 : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
{-# DEPRECATED paintHline ["(Since version 3.0)","Use gtk_render_line() instead"]#-}
paintHline ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x1
Int32 -> -- x2
Int32 -> -- y
m ()
paintHline style cr state_type widget detail x1 x2 y = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_hline style' cr' state_type' maybeWidget maybeDetail x1 x2 y
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_handle
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_handle" gtk_paint_handle ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- orientation : TInterface "Gtk" "Orientation"
IO ()
{-# DEPRECATED paintHandle ["(Since version 3.0)","Use gtk_render_handle() instead"]#-}
paintHandle ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
Orientation -> -- orientation
m ()
paintHandle style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let orientation' = (fromIntegral . fromEnum) orientation
gtk_paint_handle style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_focus
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_focus" gtk_paint_focus ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintFocus ["(Since version 3.0)","Use gtk_render_focus() instead"]#-}
paintFocus ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintFocus style cr state_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_focus style' cr' state_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_flat_box
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_flat_box" gtk_paint_flat_box ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}
paintFlatBox ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintFlatBox style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_flat_box style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_extension
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_extension" gtk_paint_extension ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
IO ()
{-# DEPRECATED paintExtension ["(Since version 3.0)","Use gtk_render_extension() instead"]#-}
paintExtension ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
m ()
paintExtension style cr state_type shadow_type widget detail x y width height gap_side = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_extension style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_expander
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_paint_expander" gtk_paint_expander ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
CUInt -> -- expander_style : TInterface "Gtk" "ExpanderStyle"
IO ()
{-# DEPRECATED paintExpander ["(Since version 3.0)","Use gtk_render_expander() instead"]#-}
paintExpander ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
ExpanderStyle -> -- expander_style
m ()
paintExpander style cr state_type widget detail x y expander_style = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let expander_style' = (fromIntegral . fromEnum) expander_style
gtk_paint_expander style' cr' state_type' maybeWidget maybeDetail x y expander_style'
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_diamond
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_diamond" gtk_paint_diamond ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-}
paintDiamond ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintDiamond style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_diamond style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_check
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_check" gtk_paint_check ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintCheck ["(Since version 3.0)","Use gtk_render_check() instead"]#-}
paintCheck ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintCheck style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_check style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_box_gap
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", 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 "gtk_paint_box_gap" gtk_paint_box_gap ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CUInt -> -- gap_side : TInterface "Gtk" "PositionType"
Int32 -> -- gap_x : TBasicType TInt32
Int32 -> -- gap_width : TBasicType TInt32
IO ()
{-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-}
paintBoxGap ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
PositionType -> -- gap_side
Int32 -> -- gap_x
Int32 -> -- gap_width
m ()
paintBoxGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let gap_side' = (fromIntegral . fromEnum) gap_side
gtk_paint_box_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_box
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 "gtk_paint_box" gtk_paint_box ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-}
paintBox ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintBox style cr state_type shadow_type widget detail x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
gtk_paint_box style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_paint_arrow
-- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, 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 = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, 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 "gtk_paint_arrow" gtk_paint_arrow ::
Ptr Style -> -- style : TInterface "Gtk" "Style"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
CUInt -> -- state_type : TInterface "Gtk" "StateType"
CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
CString -> -- detail : TBasicType TUTF8
CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType"
CInt -> -- fill : TBasicType TBoolean
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
{-# DEPRECATED paintArrow ["(Since version 3.0)","Use gtk_render_arrow() instead"]#-}
paintArrow ::
(MonadIO m, StyleK a, WidgetK b) =>
a -> -- style
Cairo.Context -> -- cr
StateType -> -- state_type
ShadowType -> -- shadow_type
Maybe (b) -> -- widget
Maybe (T.Text) -> -- detail
ArrowType -> -- arrow_type
Bool -> -- fill
Int32 -> -- x
Int32 -> -- y
Int32 -> -- width
Int32 -> -- height
m ()
paintArrow style cr state_type shadow_type widget detail arrow_type fill x y width height = liftIO $ do
let style' = unsafeManagedPtrCastPtr style
let cr' = unsafeManagedPtrGetPtr cr
let state_type' = (fromIntegral . fromEnum) state_type
let shadow_type' = (fromIntegral . fromEnum) shadow_type
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
maybeDetail <- case detail of
Nothing -> return nullPtr
Just jDetail -> do
jDetail' <- textToCString jDetail
return jDetail'
let arrow_type' = (fromIntegral . fromEnum) arrow_type
let fill' = (fromIntegral . fromEnum) fill
gtk_paint_arrow style' cr' state_type' shadow_type' maybeWidget maybeDetail arrow_type' fill' x y width height
touchManagedPtr style
touchManagedPtr cr
whenJust widget touchManagedPtr
freeMem maybeDetail
return ()
-- function gtk_main_quit
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_quit" gtk_main_quit ::
IO ()
mainQuit ::
(MonadIO m) =>
m ()
mainQuit = liftIO $ do
gtk_main_quit
return ()
-- function gtk_main_level
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_level" gtk_main_level ::
IO Word32
mainLevel ::
(MonadIO m) =>
m Word32
mainLevel = liftIO $ do
result <- gtk_main_level
return result
-- function gtk_main_iteration_do
-- Args : [Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "blocking", 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 "gtk_main_iteration_do" gtk_main_iteration_do ::
CInt -> -- blocking : TBasicType TBoolean
IO CInt
mainIterationDo ::
(MonadIO m) =>
Bool -> -- blocking
m Bool
mainIterationDo blocking = liftIO $ do
let blocking' = (fromIntegral . fromEnum) blocking
result <- gtk_main_iteration_do blocking'
let result' = (/= 0) result
return result'
-- function gtk_main_iteration
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_iteration" gtk_main_iteration ::
IO CInt
mainIteration ::
(MonadIO m) =>
m Bool
mainIteration = liftIO $ do
result <- gtk_main_iteration
let result' = (/= 0) result
return result'
-- function gtk_main_do_event
-- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main_do_event" gtk_main_do_event ::
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO ()
mainDoEvent ::
(MonadIO m) =>
Gdk.Event -> -- event
m ()
mainDoEvent event = liftIO $ do
let event' = unsafeManagedPtrGetPtr event
gtk_main_do_event event'
touchManagedPtr event
return ()
-- function gtk_main
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_main" gtk_main ::
IO ()
main ::
(MonadIO m) =>
m ()
main = liftIO $ do
gtk_main
return ()
-- function gtk_key_snooper_remove
-- Args : [Arg {argName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "snooper_handler_id", 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 "gtk_key_snooper_remove" gtk_key_snooper_remove ::
Word32 -> -- snooper_handler_id : TBasicType TUInt32
IO ()
{-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-}
keySnooperRemove ::
(MonadIO m) =>
Word32 -> -- snooper_handler_id
m ()
keySnooperRemove snooper_handler_id = liftIO $ do
gtk_key_snooper_remove snooper_handler_id
return ()
-- function gtk_init_with_args
-- 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gtk_init_with_args" gtk_init_with_args ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
CString -> -- parameter_string : TBasicType TUTF8
Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry")
CString -> -- translation_domain : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
initWithArgs ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
Maybe (T.Text) -> -- parameter_string
[GLib.OptionEntry] -> -- entries
T.Text -> -- translation_domain
m ((Maybe [T.Text]))
initWithArgs argv parameter_string entries translation_domain = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
maybeParameter_string <- case parameter_string of
Nothing -> return nullPtr
Just jParameter_string -> do
jParameter_string' <- textToCString jParameter_string
return jParameter_string'
let entries' = map unsafeManagedPtrGetPtr entries
entries'' <- packZeroTerminatedPtrArray entries'
translation_domain' <- textToCString translation_domain
onException (do
_ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameter_string entries'' translation_domain'
argc'' <- peek argc'
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
mapM_ touchManagedPtr entries
freeMem argc'
freeMem maybeArgv'
freeMem maybeParameter_string
freeMem entries''
freeMem translation_domain'
return maybeMaybeArgv''
) (do
freeMem argc'
freeMem maybeArgv'
freeMem maybeParameter_string
freeMem entries''
freeMem translation_domain'
)
-- function gtk_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 = True, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_init_check" gtk_init_check ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO CInt
initCheck ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
m (Bool,(Maybe [T.Text]))
initCheck argv = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
result <- gtk_init_check argc' maybeArgv'
argc'' <- peek argc'
let result' = (/= 0) result
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
freeMem argc'
freeMem maybeArgv'
return (result', maybeMaybeArgv'')
-- function gtk_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 = True, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_init" gtk_init ::
Ptr Int32 -> -- argc : TBasicType TInt32
Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8)
IO ()
init ::
(MonadIO m) =>
Maybe ([T.Text]) -> -- argv
m ((Maybe [T.Text]))
init argv = liftIO $ do
let argc = case argv of
Nothing -> 0
Just jArgv -> fromIntegral $ length jArgv
argc' <- allocMem :: IO (Ptr Int32)
poke argc' argc
maybeArgv <- case argv of
Nothing -> return nullPtr
Just jArgv -> do
jArgv' <- packUTF8CArray jArgv
return jArgv'
maybeArgv' <- allocMem :: IO (Ptr (Ptr CString))
poke maybeArgv' maybeArgv
gtk_init argc' maybeArgv'
argc'' <- peek argc'
maybeArgv'' <- peek maybeArgv'
maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do
maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv'''
(mapCArrayWithLength argc'') freeMem maybeArgv'''
freeMem maybeArgv'''
return maybeArgv''''
freeMem argc'
freeMem maybeArgv'
return maybeMaybeArgv''
-- function gtk_icon_theme_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_theme_error_quark" gtk_icon_theme_error_quark ::
IO Word32
iconThemeErrorQuark ::
(MonadIO m) =>
m Word32
iconThemeErrorQuark = liftIO $ do
result <- gtk_icon_theme_error_quark
return result
-- function gtk_icon_size_register_alias
-- Args : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", 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 "gtk_icon_size_register_alias" gtk_icon_size_register_alias ::
CString -> -- alias : TBasicType TUTF8
Int32 -> -- target : TBasicType TInt32
IO ()
{-# DEPRECATED iconSizeRegisterAlias ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeRegisterAlias ::
(MonadIO m) =>
T.Text -> -- alias
Int32 -> -- target
m ()
iconSizeRegisterAlias alias target = liftIO $ do
alias' <- textToCString alias
gtk_icon_size_register_alias alias' target
freeMem alias'
return ()
-- function gtk_icon_size_register
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, 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 = "name", argType = TBasicType TUTF8, 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 TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_register" gtk_icon_size_register ::
CString -> -- name : TBasicType TUTF8
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO Int32
{-# DEPRECATED iconSizeRegister ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeRegister ::
(MonadIO m) =>
T.Text -> -- name
Int32 -> -- width
Int32 -> -- height
m Int32
iconSizeRegister name width height = liftIO $ do
name' <- textToCString name
result <- gtk_icon_size_register name' width height
freeMem name'
return result
-- function gtk_icon_size_lookup_for_settings
-- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", 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 "gtk_icon_size_lookup_for_settings" gtk_icon_size_lookup_for_settings ::
Ptr Settings -> -- settings : TInterface "Gtk" "Settings"
Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO CInt
{-# DEPRECATED iconSizeLookupForSettings ["(Since version 3.10)","Use gtk_icon_size_lookup() instead."]#-}
iconSizeLookupForSettings ::
(MonadIO m, SettingsK a) =>
a -> -- settings
Int32 -> -- size
m (Bool,Int32,Int32)
iconSizeLookupForSettings settings size = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
result <- gtk_icon_size_lookup_for_settings settings' size width height
let result' = (/= 0) result
width' <- peek width
height' <- peek height
touchManagedPtr settings
freeMem width
freeMem height
return (result', width', height')
-- function gtk_icon_size_lookup
-- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "size", 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 "gtk_icon_size_lookup" gtk_icon_size_lookup ::
Int32 -> -- size : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO CInt
iconSizeLookup ::
(MonadIO m) =>
Int32 -> -- size
m (Bool,Int32,Int32)
iconSizeLookup size = liftIO $ do
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
result <- gtk_icon_size_lookup size width height
let result' = (/= 0) result
width' <- peek width
height' <- peek height
freeMem width
freeMem height
return (result', width', height')
-- function gtk_icon_size_get_name
-- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_get_name" gtk_icon_size_get_name ::
Int32 -> -- size : TBasicType TInt32
IO CString
{-# DEPRECATED iconSizeGetName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeGetName ::
(MonadIO m) =>
Int32 -> -- size
m T.Text
iconSizeGetName size = liftIO $ do
result <- gtk_icon_size_get_name size
checkUnexpectedReturnNULL "gtk_icon_size_get_name" result
result' <- cstringToText result
return result'
-- function gtk_icon_size_from_name
-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, 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}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_icon_size_from_name" gtk_icon_size_from_name ::
CString -> -- name : TBasicType TUTF8
IO Int32
{-# DEPRECATED iconSizeFromName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-}
iconSizeFromName ::
(MonadIO m) =>
T.Text -> -- name
m Int32
iconSizeFromName name = liftIO $ do
name' <- textToCString name
result <- gtk_icon_size_from_name name'
freeMem name'
return result
-- function gtk_grab_get_current
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grab_get_current" gtk_grab_get_current ::
IO (Ptr Widget)
grabGetCurrent ::
(MonadIO m) =>
m Widget
grabGetCurrent = liftIO $ do
result <- gtk_grab_get_current
checkUnexpectedReturnNULL "gtk_grab_get_current" result
result' <- (newObject Widget) result
return result'
-- function gtk_get_option_group
-- Args : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "OptionGroup"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_option_group" gtk_get_option_group ::
CInt -> -- open_default_display : TBasicType TBoolean
IO (Ptr GLib.OptionGroup)
getOptionGroup ::
(MonadIO m) =>
Bool -> -- open_default_display
m GLib.OptionGroup
getOptionGroup open_default_display = liftIO $ do
let open_default_display' = (fromIntegral . fromEnum) open_default_display
result <- gtk_get_option_group open_default_display'
checkUnexpectedReturnNULL "gtk_get_option_group" result
result' <- (wrapBoxed GLib.OptionGroup) result
return result'
-- function gtk_get_minor_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_minor_version" gtk_get_minor_version ::
IO Word32
getMinorVersion ::
(MonadIO m) =>
m Word32
getMinorVersion = liftIO $ do
result <- gtk_get_minor_version
return result
-- function gtk_get_micro_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_micro_version" gtk_get_micro_version ::
IO Word32
getMicroVersion ::
(MonadIO m) =>
m Word32
getMicroVersion = liftIO $ do
result <- gtk_get_micro_version
return result
-- function gtk_get_major_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_major_version" gtk_get_major_version ::
IO Word32
getMajorVersion ::
(MonadIO m) =>
m Word32
getMajorVersion = liftIO $ do
result <- gtk_get_major_version
return result
-- function gtk_get_locale_direction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TextDirection"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_locale_direction" gtk_get_locale_direction ::
IO CUInt
getLocaleDirection ::
(MonadIO m) =>
m TextDirection
getLocaleDirection = liftIO $ do
result <- gtk_get_locale_direction
let result' = (toEnum . fromIntegral) result
return result'
-- function gtk_get_interface_age
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_interface_age" gtk_get_interface_age ::
IO Word32
getInterfaceAge ::
(MonadIO m) =>
m Word32
getInterfaceAge = liftIO $ do
result <- gtk_get_interface_age
return result
-- function gtk_get_event_widget
-- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_event_widget" gtk_get_event_widget ::
Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event"
IO (Ptr Widget)
getEventWidget ::
(MonadIO m) =>
Gdk.Event -> -- event
m Widget
getEventWidget event = liftIO $ do
let event' = unsafeManagedPtrGetPtr event
result <- gtk_get_event_widget event'
checkUnexpectedReturnNULL "gtk_get_event_widget" result
result' <- (newObject Widget) result
touchManagedPtr event
return result'
-- function gtk_get_default_language
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Pango" "Language"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_default_language" gtk_get_default_language ::
IO (Ptr Pango.Language)
getDefaultLanguage ::
(MonadIO m) =>
m Pango.Language
getDefaultLanguage = liftIO $ do
result <- gtk_get_default_language
checkUnexpectedReturnNULL "gtk_get_default_language" result
result' <- (newBoxed Pango.Language) result
return result'
-- function gtk_get_debug_flags
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_debug_flags" gtk_get_debug_flags ::
IO Word32
getDebugFlags ::
(MonadIO m) =>
m Word32
getDebugFlags = liftIO $ do
result <- gtk_get_debug_flags
return result
-- function gtk_get_current_event_time
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_time" gtk_get_current_event_time ::
IO Word32
getCurrentEventTime ::
(MonadIO m) =>
m Word32
getCurrentEventTime = liftIO $ do
result <- gtk_get_current_event_time
return result
-- function gtk_get_current_event_state
-- Args : [Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_state" gtk_get_current_event_state ::
Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType"
IO CInt
getCurrentEventState ::
(MonadIO m) =>
m (Bool,[Gdk.ModifierType])
getCurrentEventState = liftIO $ do
state <- allocMem :: IO (Ptr CUInt)
result <- gtk_get_current_event_state state
let result' = (/= 0) result
state' <- peek state
let state'' = wordToGFlags state'
freeMem state
return (result', state'')
-- function gtk_get_current_event_device
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "Device"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event_device" gtk_get_current_event_device ::
IO (Ptr Gdk.Device)
getCurrentEventDevice ::
(MonadIO m) =>
m Gdk.Device
getCurrentEventDevice = liftIO $ do
result <- gtk_get_current_event_device
checkUnexpectedReturnNULL "gtk_get_current_event_device" result
result' <- (newObject Gdk.Device) result
return result'
-- function gtk_get_current_event
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "Event"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_current_event" gtk_get_current_event ::
IO (Ptr Gdk.Event)
getCurrentEvent ::
(MonadIO m) =>
m Gdk.Event
getCurrentEvent = liftIO $ do
result <- gtk_get_current_event
checkUnexpectedReturnNULL "gtk_get_current_event" result
result' <- (wrapBoxed Gdk.Event) result
return result'
-- function gtk_get_binary_age
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_get_binary_age" gtk_get_binary_age ::
IO Word32
getBinaryAge ::
(MonadIO m) =>
m Word32
getBinaryAge = liftIO $ do
result <- gtk_get_binary_age
return result
-- function gtk_file_chooser_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_file_chooser_error_quark" gtk_file_chooser_error_quark ::
IO Word32
fileChooserErrorQuark ::
(MonadIO m) =>
m Word32
fileChooserErrorQuark = liftIO $ do
result <- gtk_file_chooser_error_quark
return result
-- function gtk_false
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_false" gtk_false ::
IO CInt
false ::
(MonadIO m) =>
m Bool
false = liftIO $ do
result <- gtk_false
let result' = (/= 0) result
return result'
-- function gtk_events_pending
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_events_pending" gtk_events_pending ::
IO CInt
eventsPending ::
(MonadIO m) =>
m Bool
eventsPending = liftIO $ do
result <- gtk_events_pending
let result' = (/= 0) result
return result'
-- function gtk_draw_insertion_cursor
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", 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 "gtk_draw_insertion_cursor" gtk_draw_insertion_cursor ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Cairo.RectangleInt -> -- location : TInterface "cairo" "RectangleInt"
CInt -> -- is_primary : TBasicType TBoolean
CUInt -> -- direction : TInterface "Gtk" "TextDirection"
CInt -> -- draw_arrow : TBasicType TBoolean
IO ()
{-# DEPRECATED drawInsertionCursor ["(Since version 3.4)","Use gtk_render_insertion_cursor() instead."]#-}
drawInsertionCursor ::
(MonadIO m, WidgetK a) =>
a -> -- widget
Cairo.Context -> -- cr
Cairo.RectangleInt -> -- location
Bool -> -- is_primary
TextDirection -> -- direction
Bool -> -- draw_arrow
m ()
drawInsertionCursor widget cr location is_primary direction draw_arrow = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let cr' = unsafeManagedPtrGetPtr cr
let location' = unsafeManagedPtrGetPtr location
let is_primary' = (fromIntegral . fromEnum) is_primary
let direction' = (fromIntegral . fromEnum) direction
let draw_arrow' = (fromIntegral . fromEnum) draw_arrow
gtk_draw_insertion_cursor widget' cr' location' is_primary' direction' draw_arrow'
touchManagedPtr widget
touchManagedPtr cr
touchManagedPtr location
return ()
-- function gtk_drag_set_icon_widget
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, 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 = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconWidget ::
(MonadIO m, Gdk.DragContextK a, WidgetK b) =>
a -> -- context
b -> -- widget
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconWidget context widget hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let widget' = unsafeManagedPtrCastPtr widget
gtk_drag_set_icon_widget context' widget' hot_x hot_y
touchManagedPtr context
touchManagedPtr widget
return ()
-- function gtk_drag_set_icon_surface
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_surface" gtk_drag_set_icon_surface ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface"
IO ()
dragSetIconSurface ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
Cairo.Surface -> -- surface
m ()
dragSetIconSurface context surface = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let surface' = unsafeManagedPtrGetPtr surface
gtk_drag_set_icon_surface context' surface'
touchManagedPtr context
touchManagedPtr surface
return ()
-- function gtk_drag_set_icon_stock
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, 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 = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CString -> -- stock_id : TBasicType TUTF8
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
{-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-}
dragSetIconStock ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
T.Text -> -- stock_id
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconStock context stock_id hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
stock_id' <- textToCString stock_id
gtk_drag_set_icon_stock context' stock_id' hot_x hot_y
touchManagedPtr context
freeMem stock_id'
return ()
-- function gtk_drag_set_icon_pixbuf
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", 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 = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, 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 = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconPixbuf ::
(MonadIO m, Gdk.DragContextK a, GdkPixbuf.PixbufK b) =>
a -> -- context
b -> -- pixbuf
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconPixbuf context pixbuf hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let pixbuf' = unsafeManagedPtrCastPtr pixbuf
gtk_drag_set_icon_pixbuf context' pixbuf' hot_x hot_y
touchManagedPtr context
touchManagedPtr pixbuf
return ()
-- function gtk_drag_set_icon_name
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, 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 = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_name" gtk_drag_set_icon_name ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CString -> -- icon_name : TBasicType TUTF8
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconName ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
T.Text -> -- icon_name
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconName context icon_name hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
icon_name' <- textToCString icon_name
gtk_drag_set_icon_name context' icon_name' hot_x hot_y
touchManagedPtr context
freeMem icon_name'
return ()
-- function gtk_drag_set_icon_gicon
-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, 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 = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon"
Int32 -> -- hot_x : TBasicType TInt32
Int32 -> -- hot_y : TBasicType TInt32
IO ()
dragSetIconGicon ::
(MonadIO m, Gdk.DragContextK a, Gio.IconK b) =>
a -> -- context
b -> -- icon
Int32 -> -- hot_x
Int32 -> -- hot_y
m ()
dragSetIconGicon context icon hot_x hot_y = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let icon' = unsafeManagedPtrCastPtr icon
gtk_drag_set_icon_gicon context' icon' hot_x hot_y
touchManagedPtr context
touchManagedPtr icon
return ()
-- function gtk_drag_set_icon_default
-- 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 TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_set_icon_default" gtk_drag_set_icon_default ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO ()
dragSetIconDefault ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m ()
dragSetIconDefault context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
gtk_drag_set_icon_default context'
touchManagedPtr context
return ()
-- function gtk_drag_get_source_widget
-- 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 "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_get_source_widget" gtk_drag_get_source_widget ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO (Ptr Widget)
dragGetSourceWidget ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m Widget
dragGetSourceWidget context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
result <- gtk_drag_get_source_widget context'
checkUnexpectedReturnNULL "gtk_drag_get_source_widget" result
result' <- (newObject Widget) result
touchManagedPtr context
return result'
-- function gtk_drag_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 = "del", 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 = "del", 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 "gtk_drag_finish" gtk_drag_finish ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
CInt -> -- success : TBasicType TBoolean
CInt -> -- del : TBasicType TBoolean
Word32 -> -- time_ : TBasicType TUInt32
IO ()
dragFinish ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
Bool -> -- success
Bool -> -- del
Word32 -> -- time_
m ()
dragFinish context success del time_ = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
let success' = (fromIntegral . fromEnum) success
let del' = (fromIntegral . fromEnum) del
gtk_drag_finish context' success' del' time_
touchManagedPtr context
return ()
-- function gtk_drag_cancel
-- 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 TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_drag_cancel" gtk_drag_cancel ::
Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext"
IO ()
dragCancel ::
(MonadIO m, Gdk.DragContextK a) =>
a -> -- context
m ()
dragCancel context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
gtk_drag_cancel context'
touchManagedPtr context
return ()
-- function gtk_distribute_natural_allocation
-- Args : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation ::
Int32 -> -- extra_space : TBasicType TInt32
Word32 -> -- n_requested_sizes : TBasicType TUInt32
Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize"
IO Int32
distributeNaturalAllocation ::
(MonadIO m) =>
Int32 -> -- extra_space
Word32 -> -- n_requested_sizes
RequestedSize -> -- sizes
m Int32
distributeNaturalAllocation extra_space n_requested_sizes sizes = liftIO $ do
let sizes' = unsafeManagedPtrGetPtr sizes
result <- gtk_distribute_natural_allocation extra_space n_requested_sizes sizes'
touchManagedPtr sizes
return result
-- function gtk_disable_setlocale
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale ::
IO ()
disableSetlocale ::
(MonadIO m) =>
m ()
disableSetlocale = liftIO $ do
gtk_disable_setlocale
return ()
-- function gtk_device_grab_remove
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_device_grab_remove" gtk_device_grab_remove ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
IO ()
deviceGrabRemove ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- widget
b -> -- device
m ()
deviceGrabRemove widget device = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let device' = unsafeManagedPtrCastPtr device
gtk_device_grab_remove widget' device'
touchManagedPtr widget
touchManagedPtr device
return ()
-- function gtk_device_grab_add
-- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", 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 = "block_others", 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 "gtk_device_grab_add" gtk_device_grab_add ::
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device"
CInt -> -- block_others : TBasicType TBoolean
IO ()
deviceGrabAdd ::
(MonadIO m, WidgetK a, Gdk.DeviceK b) =>
a -> -- widget
b -> -- device
Bool -> -- block_others
m ()
deviceGrabAdd widget device block_others = liftIO $ do
let widget' = unsafeManagedPtrCastPtr widget
let device' = unsafeManagedPtrCastPtr device
let block_others' = (fromIntegral . fromEnum) block_others
gtk_device_grab_add widget' device' block_others'
touchManagedPtr widget
touchManagedPtr device
return ()
-- function gtk_css_provider_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_css_provider_error_quark" gtk_css_provider_error_quark ::
IO Word32
cssProviderErrorQuark ::
(MonadIO m) =>
m Word32
cssProviderErrorQuark = liftIO $ do
result <- gtk_css_provider_error_quark
return result
-- function gtk_check_version
-- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", 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 "gtk_check_version" gtk_check_version ::
Word32 -> -- required_major : TBasicType TUInt32
Word32 -> -- required_minor : TBasicType TUInt32
Word32 -> -- required_micro : TBasicType TUInt32
IO CString
checkVersion ::
(MonadIO m) =>
Word32 -> -- required_major
Word32 -> -- required_minor
Word32 -> -- required_micro
m T.Text
checkVersion required_major required_minor required_micro = liftIO $ do
result <- gtk_check_version required_major required_minor required_micro
checkUnexpectedReturnNULL "gtk_check_version" result
result' <- cstringToText result
return result'
-- function gtk_cairo_transform_to_window
-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cairo_transform_to_window" gtk_cairo_transform_to_window ::
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO ()
cairoTransformToWindow ::
(MonadIO m, WidgetK a, Gdk.WindowK b) =>
Cairo.Context -> -- cr
a -> -- widget
b -> -- window
m ()
cairoTransformToWindow cr widget window = liftIO $ do
let cr' = unsafeManagedPtrGetPtr cr
let widget' = unsafeManagedPtrCastPtr widget
let window' = unsafeManagedPtrCastPtr window
gtk_cairo_transform_to_window cr' widget' window'
touchManagedPtr cr
touchManagedPtr widget
touchManagedPtr window
return ()
-- function gtk_cairo_should_draw_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}]
-- 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}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_cairo_should_draw_window" gtk_cairo_should_draw_window ::
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window"
IO CInt
cairoShouldDrawWindow ::
(MonadIO m, Gdk.WindowK a) =>
Cairo.Context -> -- cr
a -> -- window
m Bool
cairoShouldDrawWindow cr window = liftIO $ do
let cr' = unsafeManagedPtrGetPtr cr
let window' = unsafeManagedPtrCastPtr window
result <- gtk_cairo_should_draw_window cr' window'
let result' = (/= 0) result
touchManagedPtr cr
touchManagedPtr window
return result'
-- function gtk_builder_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_builder_error_quark" gtk_builder_error_quark ::
IO Word32
builderErrorQuark ::
(MonadIO m) =>
m Word32
builderErrorQuark = liftIO $ do
result <- gtk_builder_error_quark
return result
-- function gtk_bindings_activate_event
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_bindings_activate_event" gtk_bindings_activate_event ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Ptr Gdk.EventKey -> -- event : TInterface "Gdk" "EventKey"
IO CInt
bindingsActivateEvent ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Gdk.EventKey -> -- event
m Bool
bindingsActivateEvent object event = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let event' = unsafeManagedPtrGetPtr event
result <- gtk_bindings_activate_event object' event'
let result' = (/= 0) result
touchManagedPtr object
touchManagedPtr event
return result'
-- function gtk_bindings_activate
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_bindings_activate" gtk_bindings_activate ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
bindingsActivate ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
bindingsActivate object keyval modifiers = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let modifiers' = gflagsToWord modifiers
result <- gtk_bindings_activate object' keyval modifiers'
let result' = (/= 0) result
touchManagedPtr object
return result'
-- function gtk_binding_set_find
-- Args : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BindingSet"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_set_find" gtk_binding_set_find ::
CString -> -- set_name : TBasicType TUTF8
IO (Ptr BindingSet)
bindingSetFind ::
(MonadIO m) =>
T.Text -> -- set_name
m BindingSet
bindingSetFind set_name_ = liftIO $ do
set_name_' <- textToCString set_name_
result <- gtk_binding_set_find set_name_'
checkUnexpectedReturnNULL "gtk_binding_set_find" result
result' <- (newPtr 64 BindingSet) result
freeMem set_name_'
return result'
-- function gtk_binding_entry_skip
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_skip" gtk_binding_entry_skip ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO ()
bindingEntrySkip ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m ()
bindingEntrySkip binding_set keyval modifiers = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
gtk_binding_entry_skip binding_set' keyval modifiers'
touchManagedPtr binding_set
return ()
-- function gtk_binding_entry_remove
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_remove" gtk_binding_entry_remove ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO ()
bindingEntryRemove ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m ()
bindingEntryRemove binding_set keyval modifiers = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
gtk_binding_entry_remove binding_set' keyval modifiers'
touchManagedPtr binding_set
return ()
-- function gtk_binding_entry_add_signall
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", 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 = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", 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 = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_add_signall" gtk_binding_entry_add_signall ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
CString -> -- signal_name : TBasicType TUTF8
Ptr (GSList (Ptr BindingArg)) -> -- binding_args : TGSList (TInterface "Gtk" "BindingArg")
IO ()
bindingEntryAddSignall ::
(MonadIO m) =>
BindingSet -> -- binding_set
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
T.Text -> -- signal_name
[BindingArg] -> -- binding_args
m ()
bindingEntryAddSignall binding_set keyval modifiers signal_name binding_args = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
let modifiers' = gflagsToWord modifiers
signal_name' <- textToCString signal_name
let binding_args' = map unsafeManagedPtrGetPtr binding_args
binding_args'' <- packGSList binding_args'
gtk_binding_entry_add_signall binding_set' keyval modifiers' signal_name' binding_args''
touchManagedPtr binding_set
mapM_ touchManagedPtr binding_args
freeMem signal_name'
g_slist_free binding_args''
return ()
-- function gtk_binding_entry_add_signal_from_string
-- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "TokenType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_binding_entry_add_signal_from_string" gtk_binding_entry_add_signal_from_string ::
Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet"
CString -> -- signal_desc : TBasicType TUTF8
IO CUInt
bindingEntryAddSignalFromString ::
(MonadIO m) =>
BindingSet -> -- binding_set
T.Text -> -- signal_desc
m GLib.TokenType
bindingEntryAddSignalFromString binding_set signal_desc = liftIO $ do
let binding_set' = unsafeManagedPtrGetPtr binding_set
signal_desc' <- textToCString signal_desc
result <- gtk_binding_entry_add_signal_from_string binding_set' signal_desc'
let result' = (toEnum . fromIntegral) result
touchManagedPtr binding_set
freeMem signal_desc'
return result'
-- function gtk_alternative_dialog_button_order
-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_alternative_dialog_button_order" gtk_alternative_dialog_button_order ::
Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen"
IO CInt
{-# DEPRECATED alternativeDialogButtonOrder ["(Since version 3.10)","Deprecated"]#-}
alternativeDialogButtonOrder ::
(MonadIO m, Gdk.ScreenK a) =>
Maybe (a) -> -- screen
m Bool
alternativeDialogButtonOrder screen = liftIO $ do
maybeScreen <- case screen of
Nothing -> return nullPtr
Just jScreen -> do
let jScreen' = unsafeManagedPtrCastPtr jScreen
return jScreen'
result <- gtk_alternative_dialog_button_order maybeScreen
let result' = (/= 0) result
whenJust screen touchManagedPtr
return result'
-- function gtk_accelerator_valid
-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid ::
Word32 -> -- keyval : TBasicType TUInt32
CUInt -> -- modifiers : TInterface "Gdk" "ModifierType"
IO CInt
acceleratorValid ::
(MonadIO m) =>
Word32 -> -- keyval
[Gdk.ModifierType] -> -- modifiers
m Bool
acceleratorValid keyval modifiers = liftIO $ do
let modifiers' = gflagsToWord modifiers
result <- gtk_accelerator_valid keyval modifiers'
let result' = (/= 0) result
return result'
-- function gtk_accelerator_set_default_mod_mask
-- Args : [Arg {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_set_default_mod_mask" gtk_accelerator_set_default_mod_mask ::
CUInt -> -- default_mod_mask : TInterface "Gdk" "ModifierType"
IO ()
acceleratorSetDefaultModMask ::
(MonadIO m) =>
[Gdk.ModifierType] -> -- default_mod_mask
m ()
acceleratorSetDefaultModMask default_mod_mask = liftIO $ do
let default_mod_mask' = gflagsToWord default_mod_mask
gtk_accelerator_set_default_mod_mask default_mod_mask'
return ()
-- function gtk_accelerator_parse_with_keycode
-- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator", 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 "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode ::
CString -> -- accelerator : TBasicType TUTF8
Ptr Word32 -> -- accelerator_key : TBasicType TUInt32
Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt32)
Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
acceleratorParseWithKeycode ::
(MonadIO m) =>
T.Text -> -- accelerator
m (Word32,[Word32],[Gdk.ModifierType])
acceleratorParseWithKeycode accelerator = liftIO $ do
accelerator' <- textToCString accelerator
accelerator_key <- allocMem :: IO (Ptr Word32)
accelerator_codes <- allocMem :: IO (Ptr (Ptr Word32))
accelerator_mods <- allocMem :: IO (Ptr CUInt)
gtk_accelerator_parse_with_keycode accelerator' accelerator_key accelerator_codes accelerator_mods
accelerator_key' <- peek accelerator_key
accelerator_codes' <- peek accelerator_codes
accelerator_codes'' <- unpackZeroTerminatedStorableArray accelerator_codes'
freeMem accelerator_codes'
accelerator_mods' <- peek accelerator_mods
let accelerator_mods'' = wordToGFlags accelerator_mods'
freeMem accelerator'
freeMem accelerator_key
freeMem accelerator_codes
freeMem accelerator_mods
return (accelerator_key', accelerator_codes'', accelerator_mods'')
-- function gtk_accelerator_parse
-- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator", 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 "gtk_accelerator_parse" gtk_accelerator_parse ::
CString -> -- accelerator : TBasicType TUTF8
Ptr Word32 -> -- accelerator_key : TBasicType TUInt32
Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO ()
acceleratorParse ::
(MonadIO m) =>
T.Text -> -- accelerator
m (Word32,[Gdk.ModifierType])
acceleratorParse accelerator = liftIO $ do
accelerator' <- textToCString accelerator
accelerator_key <- allocMem :: IO (Ptr Word32)
accelerator_mods <- allocMem :: IO (Ptr CUInt)
gtk_accelerator_parse accelerator' accelerator_key accelerator_mods
accelerator_key' <- peek accelerator_key
accelerator_mods' <- peek accelerator_mods
let accelerator_mods'' = wordToGFlags accelerator_mods'
freeMem accelerator'
freeMem accelerator_key
freeMem accelerator_mods
return (accelerator_key', accelerator_mods'')
-- function gtk_accelerator_name_with_keycode
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word32 -> -- accelerator_key : TBasicType TUInt32
Word32 -> -- keycode : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorNameWithKeycode ::
(MonadIO m, Gdk.DisplayK a) =>
Maybe (a) -> -- display
Word32 -> -- accelerator_key
Word32 -> -- keycode
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorNameWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do
maybeDisplay <- case display of
Nothing -> return nullPtr
Just jDisplay -> do
let jDisplay' = unsafeManagedPtrCastPtr jDisplay
return jDisplay'
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_name_with_keycode maybeDisplay accelerator_key keycode accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_name_with_keycode" result
result' <- cstringToText result
freeMem result
whenJust display touchManagedPtr
return result'
-- function gtk_accelerator_name
-- Args : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_name" gtk_accelerator_name ::
Word32 -> -- accelerator_key : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorName ::
(MonadIO m) =>
Word32 -> -- accelerator_key
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorName accelerator_key accelerator_mods = liftIO $ do
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_name accelerator_key accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_name" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_accelerator_get_label_with_keycode
-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode ::
Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display"
Word32 -> -- accelerator_key : TBasicType TUInt32
Word32 -> -- keycode : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorGetLabelWithKeycode ::
(MonadIO m, Gdk.DisplayK a) =>
Maybe (a) -> -- display
Word32 -> -- accelerator_key
Word32 -> -- keycode
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorGetLabelWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do
maybeDisplay <- case display of
Nothing -> return nullPtr
Just jDisplay -> do
let jDisplay' = unsafeManagedPtrCastPtr jDisplay
return jDisplay'
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_get_label_with_keycode maybeDisplay accelerator_key keycode accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_get_label_with_keycode" result
result' <- cstringToText result
freeMem result
whenJust display touchManagedPtr
return result'
-- function gtk_accelerator_get_label
-- Args : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label ::
Word32 -> -- accelerator_key : TBasicType TUInt32
CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType"
IO CString
acceleratorGetLabel ::
(MonadIO m) =>
Word32 -> -- accelerator_key
[Gdk.ModifierType] -> -- accelerator_mods
m T.Text
acceleratorGetLabel accelerator_key accelerator_mods = liftIO $ do
let accelerator_mods' = gflagsToWord accelerator_mods
result <- gtk_accelerator_get_label accelerator_key accelerator_mods'
checkUnexpectedReturnNULL "gtk_accelerator_get_label" result
result' <- cstringToText result
freeMem result
return result'
-- function gtk_accelerator_get_default_mod_mask
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gdk" "ModifierType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accelerator_get_default_mod_mask" gtk_accelerator_get_default_mod_mask ::
IO CUInt
acceleratorGetDefaultModMask ::
(MonadIO m) =>
m [Gdk.ModifierType]
acceleratorGetDefaultModMask = liftIO $ do
result <- gtk_accelerator_get_default_mod_mask
let result' = wordToGFlags result
return result'
-- function gtk_accel_groups_from_object
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "Gtk" "AccelGroup")
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_groups_from_object" gtk_accel_groups_from_object ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
IO (Ptr (GSList (Ptr AccelGroup)))
accelGroupsFromObject ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
m [AccelGroup]
accelGroupsFromObject object = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
result <- gtk_accel_groups_from_object object'
checkUnexpectedReturnNULL "gtk_accel_groups_from_object" result
result' <- unpackGSList result
result'' <- mapM (newObject AccelGroup) result'
touchManagedPtr object
return result''
-- function gtk_accel_groups_activate
-- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_accel_groups_activate" gtk_accel_groups_activate ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
Word32 -> -- accel_key : TBasicType TUInt32
CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType"
IO CInt
accelGroupsActivate ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- object
Word32 -> -- accel_key
[Gdk.ModifierType] -> -- accel_mods
m Bool
accelGroupsActivate object accel_key accel_mods = liftIO $ do
let object' = unsafeManagedPtrCastPtr object
let accel_mods' = gflagsToWord accel_mods
result <- gtk_accel_groups_activate object' accel_key accel_mods'
let result' = (/= 0) result
touchManagedPtr object
return result'