gi-gtk-0.3.18.12: GI/Gtk/Structs/WidgetPath.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)
GtkWidgetPath is a boxed type that represents a widget hierarchy from
the topmost widget, typically a toplevel, to any child. This widget
path abstraction is used in #GtkStyleContext on behalf of the real
widget in order to query style information.
If you are using GTK+ widgets, you probably will not need to use
this API directly, as there is gtk_widget_get_path(), and the style
context returned by gtk_widget_get_style_context() will be automatically
updated on widget hierarchy changes.
The widget path generation is generally simple:
## Defining a button within a window
|[<!-- language="C" -->
{
GtkWidgetPath *path;
path = gtk_widget_path_new ();
gtk_widget_path_append_type (path, GTK_TYPE_WINDOW);
gtk_widget_path_append_type (path, GTK_TYPE_BUTTON);
}
]|
Although more complex information, such as widget names, or
different classes (property that may be used by other widget
types) and intermediate regions may be included:
## Defining the first tab widget in a notebook
|[<!-- language="C" -->
{
GtkWidgetPath *path;
guint pos;
path = gtk_widget_path_new ();
pos = gtk_widget_path_append_type (path, GTK_TYPE_NOTEBOOK);
gtk_widget_path_iter_add_region (path, pos, "tab", GTK_REGION_EVEN | GTK_REGION_FIRST);
pos = gtk_widget_path_append_type (path, GTK_TYPE_LABEL);
gtk_widget_path_iter_set_name (path, pos, "first tab label");
}
]|
All this information will be used to match the style information
that applies to the described widget.
-}
module GI.Gtk.Structs.WidgetPath
(
-- * Exported types
WidgetPath(..) ,
noWidgetPath ,
-- * Methods
-- ** widgetPathAppendForWidget
widgetPathAppendForWidget ,
-- ** widgetPathAppendType
widgetPathAppendType ,
-- ** widgetPathAppendWithSiblings
widgetPathAppendWithSiblings ,
-- ** widgetPathCopy
widgetPathCopy ,
-- ** widgetPathFree
widgetPathFree ,
-- ** widgetPathGetObjectType
widgetPathGetObjectType ,
-- ** widgetPathHasParent
widgetPathHasParent ,
-- ** widgetPathIsType
widgetPathIsType ,
-- ** widgetPathIterAddClass
widgetPathIterAddClass ,
-- ** widgetPathIterAddRegion
widgetPathIterAddRegion ,
-- ** widgetPathIterClearClasses
widgetPathIterClearClasses ,
-- ** widgetPathIterClearRegions
widgetPathIterClearRegions ,
-- ** widgetPathIterGetName
widgetPathIterGetName ,
-- ** widgetPathIterGetObjectType
widgetPathIterGetObjectType ,
-- ** widgetPathIterGetSiblingIndex
widgetPathIterGetSiblingIndex ,
-- ** widgetPathIterGetSiblings
widgetPathIterGetSiblings ,
-- ** widgetPathIterGetState
widgetPathIterGetState ,
-- ** widgetPathIterHasClass
widgetPathIterHasClass ,
-- ** widgetPathIterHasName
widgetPathIterHasName ,
-- ** widgetPathIterHasQclass
widgetPathIterHasQclass ,
-- ** widgetPathIterHasQname
widgetPathIterHasQname ,
-- ** widgetPathIterHasQregion
widgetPathIterHasQregion ,
-- ** widgetPathIterHasRegion
widgetPathIterHasRegion ,
-- ** widgetPathIterListClasses
widgetPathIterListClasses ,
-- ** widgetPathIterListRegions
widgetPathIterListRegions ,
-- ** widgetPathIterRemoveClass
widgetPathIterRemoveClass ,
-- ** widgetPathIterRemoveRegion
widgetPathIterRemoveRegion ,
-- ** widgetPathIterSetName
widgetPathIterSetName ,
-- ** widgetPathIterSetObjectType
widgetPathIterSetObjectType ,
-- ** widgetPathIterSetState
widgetPathIterSetState ,
-- ** widgetPathLength
widgetPathLength ,
-- ** widgetPathNew
widgetPathNew ,
-- ** widgetPathPrependType
widgetPathPrependType ,
-- ** widgetPathRef
widgetPathRef ,
-- ** widgetPathToString
widgetPathToString ,
-- ** widgetPathUnref
widgetPathUnref ,
) 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
newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath)
foreign import ccall "gtk_widget_path_get_type" c_gtk_widget_path_get_type ::
IO GType
instance BoxedObject WidgetPath where
boxedType _ = c_gtk_widget_path_get_type
noWidgetPath :: Maybe WidgetPath
noWidgetPath = Nothing
-- method WidgetPath::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_new" gtk_widget_path_new ::
IO (Ptr WidgetPath)
widgetPathNew ::
(MonadIO m) =>
m WidgetPath
widgetPathNew = liftIO $ do
result <- gtk_widget_path_new
checkUnexpectedReturnNULL "gtk_widget_path_new" result
result' <- (wrapBoxed WidgetPath) result
return result'
-- method WidgetPath::append_for_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", 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}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_for_widget" gtk_widget_path_append_for_widget ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO Int32
widgetPathAppendForWidget ::
(MonadIO m, WidgetK a) =>
WidgetPath -> -- _obj
a -> -- widget
m Int32
widgetPathAppendForWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let widget' = unsafeManagedPtrCastPtr widget
result <- gtk_widget_path_append_for_widget _obj' widget'
touchManagedPtr _obj
touchManagedPtr widget
return result
-- method WidgetPath::append_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_type" gtk_widget_path_append_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO Int32
widgetPathAppendType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Int32
widgetPathAppendType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_append_type _obj' type_'
touchManagedPtr _obj
return result
-- method WidgetPath::append_with_siblings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_append_with_siblings" gtk_widget_path_append_with_siblings ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Ptr WidgetPath -> -- siblings : TInterface "Gtk" "WidgetPath"
Word32 -> -- sibling_index : TBasicType TUInt32
IO Int32
widgetPathAppendWithSiblings ::
(MonadIO m) =>
WidgetPath -> -- _obj
WidgetPath -> -- siblings
Word32 -> -- sibling_index
m Int32
widgetPathAppendWithSiblings _obj siblings sibling_index = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let siblings' = unsafeManagedPtrGetPtr siblings
result <- gtk_widget_path_append_with_siblings _obj' siblings' sibling_index
touchManagedPtr _obj
touchManagedPtr siblings
return result
-- method WidgetPath::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_copy" gtk_widget_path_copy ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO (Ptr WidgetPath)
widgetPathCopy ::
(MonadIO m) =>
WidgetPath -> -- _obj
m WidgetPath
widgetPathCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_copy _obj'
checkUnexpectedReturnNULL "gtk_widget_path_copy" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_free" gtk_widget_path_free ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO ()
widgetPathFree ::
(MonadIO m) =>
WidgetPath -> -- _obj
m ()
widgetPathFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_free _obj'
touchManagedPtr _obj
return ()
-- method WidgetPath::get_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_get_object_type" gtk_widget_path_get_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO CGType
widgetPathGetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
m GType
widgetPathGetObjectType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_get_object_type _obj'
let result' = GType result
touchManagedPtr _obj
return result'
-- method WidgetPath::has_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_has_parent" gtk_widget_path_has_parent ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO CInt
widgetPathHasParent ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Bool
widgetPathHasParent _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_has_parent _obj' type_'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::is_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_is_type" gtk_widget_path_is_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO CInt
widgetPathIsType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m Bool
widgetPathIsType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
result <- gtk_widget_path_is_type _obj' type_'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_add_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_add_class" gtk_widget_path_iter_add_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterAddClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterAddClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_add_class _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_add_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_add_region" gtk_widget_path_iter_add_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO ()
{-# DEPRECATED widgetPathIterAddRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterAddRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
[RegionFlags] -> -- flags
m ()
widgetPathIterAddRegion _obj pos name flags = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
let flags' = gflagsToWord flags
gtk_widget_path_iter_add_region _obj' pos name' flags'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_clear_classes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", 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_widget_path_iter_clear_classes" gtk_widget_path_iter_clear_classes ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO ()
widgetPathIterClearClasses ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m ()
widgetPathIterClearClasses _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_iter_clear_classes _obj' pos
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_clear_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", 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_widget_path_iter_clear_regions" gtk_widget_path_iter_clear_regions ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO ()
{-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterClearRegions ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m ()
widgetPathIterClearRegions _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_iter_clear_regions _obj' pos
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", 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_widget_path_iter_get_name" gtk_widget_path_iter_get_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CString
widgetPathIterGetName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m T.Text
widgetPathIterGetName _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_name _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TGType
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_object_type" gtk_widget_path_iter_get_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CGType
widgetPathIterGetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m GType
widgetPathIterGetObjectType _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_object_type _obj' pos
let result' = GType result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_sibling_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_sibling_index" gtk_widget_path_iter_get_sibling_index ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO Word32
widgetPathIterGetSiblingIndex ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m Word32
widgetPathIterGetSiblingIndex _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_sibling_index _obj' pos
touchManagedPtr _obj
return result
-- method WidgetPath::iter_get_siblings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_siblings" gtk_widget_path_iter_get_siblings ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr WidgetPath)
widgetPathIterGetSiblings ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m WidgetPath
widgetPathIterGetSiblings _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_siblings _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_get_siblings" result
result' <- (newBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "StateFlags"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_get_state" gtk_widget_path_iter_get_state ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO CUInt
widgetPathIterGetState ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [StateFlags]
widgetPathIterGetState _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_get_state _obj' pos
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_class" gtk_widget_path_iter_has_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO CInt
widgetPathIterHasClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m Bool
widgetPathIterHasClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- gtk_widget_path_iter_has_class _obj' pos name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method WidgetPath::iter_has_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_name" gtk_widget_path_iter_has_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO CInt
widgetPathIterHasName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m Bool
widgetPathIterHasName _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- gtk_widget_path_iter_has_name _obj' pos name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method WidgetPath::iter_has_qclass
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", 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_widget_path_iter_has_qclass" gtk_widget_path_iter_has_qclass ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
IO CInt
widgetPathIterHasQclass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m Bool
widgetPathIterHasQclass _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_has_qclass _obj' pos qname
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_qname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", 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_widget_path_iter_has_qname" gtk_widget_path_iter_has_qname ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
IO CInt
widgetPathIterHasQname ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m Bool
widgetPathIterHasQname _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_has_qname _obj' pos qname
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WidgetPath::iter_has_qregion
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", 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_widget_path_iter_has_qregion" gtk_widget_path_iter_has_qregion ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
Word32 -> -- qname : TBasicType TUInt32
Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED widgetPathIterHasQregion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterHasQregion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
Word32 -> -- qname
m (Bool,[RegionFlags])
widgetPathIterHasQregion _obj pos qname = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
flags <- allocMem :: IO (Ptr CUInt)
result <- gtk_widget_path_iter_has_qregion _obj' pos qname flags
let result' = (/= 0) result
flags' <- peek flags
let flags'' = wordToGFlags flags'
touchManagedPtr _obj
freeMem flags
return (result', flags'')
-- method WidgetPath::iter_has_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_has_region" gtk_widget_path_iter_has_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags"
IO CInt
{-# DEPRECATED widgetPathIterHasRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterHasRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m (Bool,[RegionFlags])
widgetPathIterHasRegion _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
flags <- allocMem :: IO (Ptr CUInt)
result <- gtk_widget_path_iter_has_region _obj' pos name' flags
let result' = (/= 0) result
flags' <- peek flags
let flags'' = wordToGFlags flags'
touchManagedPtr _obj
freeMem name'
freeMem flags
return (result', flags'')
-- method WidgetPath::iter_list_classes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_list_classes" gtk_widget_path_iter_list_classes ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr (GSList CString))
widgetPathIterListClasses ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [T.Text]
widgetPathIterListClasses _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_list_classes _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_list_classes" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method WidgetPath::iter_list_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_list_regions" gtk_widget_path_iter_list_regions ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
IO (Ptr (GSList CString))
{-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterListRegions ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
m [T.Text]
widgetPathIterListRegions _obj pos = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_iter_list_regions _obj' pos
checkUnexpectedReturnNULL "gtk_widget_path_iter_list_regions" result
result' <- unpackGSList result
result'' <- mapM cstringToText result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method WidgetPath::iter_remove_class
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_remove_class" gtk_widget_path_iter_remove_class ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterRemoveClass ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterRemoveClass _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_remove_class _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_remove_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_remove_region" gtk_widget_path_iter_remove_region ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
{-# DEPRECATED widgetPathIterRemoveRegion ["(Since version 3.14)","The use of regions is deprecated."]#-}
widgetPathIterRemoveRegion ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterRemoveRegion _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_remove_region _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_name" gtk_widget_path_iter_set_name ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CString -> -- name : TBasicType TUTF8
IO ()
widgetPathIterSetName ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
T.Text -> -- name
m ()
widgetPathIterSetName _obj pos name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
gtk_widget_path_iter_set_name _obj' pos name'
touchManagedPtr _obj
freeMem name'
return ()
-- method WidgetPath::iter_set_object_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, 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 = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, 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 : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_object_type" gtk_widget_path_iter_set_object_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CGType -> -- type : TBasicType TGType
IO ()
widgetPathIterSetObjectType ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
GType -> -- type
m ()
widgetPathIterSetObjectType _obj pos type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
gtk_widget_path_iter_set_object_type _obj' pos type_'
touchManagedPtr _obj
return ()
-- method WidgetPath::iter_set_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_iter_set_state" gtk_widget_path_iter_set_state ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
Int32 -> -- pos : TBasicType TInt32
CUInt -> -- state : TInterface "Gtk" "StateFlags"
IO ()
widgetPathIterSetState ::
(MonadIO m) =>
WidgetPath -> -- _obj
Int32 -> -- pos
[StateFlags] -> -- state
m ()
widgetPathIterSetState _obj pos state = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let state' = gflagsToWord state
gtk_widget_path_iter_set_state _obj' pos state'
touchManagedPtr _obj
return ()
-- method WidgetPath::length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_length" gtk_widget_path_length ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO Int32
widgetPathLength ::
(MonadIO m) =>
WidgetPath -> -- _obj
m Int32
widgetPathLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_length _obj'
touchManagedPtr _obj
return result
-- method WidgetPath::prepend_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, 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 : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_prepend_type" gtk_widget_path_prepend_type ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
CGType -> -- type : TBasicType TGType
IO ()
widgetPathPrependType ::
(MonadIO m) =>
WidgetPath -> -- _obj
GType -> -- type
m ()
widgetPathPrependType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let type_' = gtypeToCGType type_
gtk_widget_path_prepend_type _obj' type_'
touchManagedPtr _obj
return ()
-- method WidgetPath::ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "WidgetPath"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_ref" gtk_widget_path_ref ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO (Ptr WidgetPath)
widgetPathRef ::
(MonadIO m) =>
WidgetPath -> -- _obj
m WidgetPath
widgetPathRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_ref _obj'
checkUnexpectedReturnNULL "gtk_widget_path_ref" result
result' <- (wrapBoxed WidgetPath) result
touchManagedPtr _obj
return result'
-- method WidgetPath::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_to_string" gtk_widget_path_to_string ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO CString
widgetPathToString ::
(MonadIO m) =>
WidgetPath -> -- _obj
m T.Text
widgetPathToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- gtk_widget_path_to_string _obj'
checkUnexpectedReturnNULL "gtk_widget_path_to_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method WidgetPath::unref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_widget_path_unref" gtk_widget_path_unref ::
Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath"
IO ()
widgetPathUnref ::
(MonadIO m) =>
WidgetPath -> -- _obj
m ()
widgetPathUnref _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
gtk_widget_path_unref _obj'
touchManagedPtr _obj
return ()