gi-atk 0.2.18.12 → 0.2.18.13

raw patch · 73 files changed

+3551/−1785 lines, 73 filesdep ~gi-glibdep ~gi-gobjectdep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: gi-glib, gi-gobject, haskell-gi-base

API changes (from Hackage documentation)

Files

• GI/Atk.hs +6/−0
• GI/Atk/Callbacks.hs +4/−3
• GI/Atk/Constants.hs +1/−0
• GI/Atk/Enums.hs +1/−0
• GI/Atk/Flags.hs +1/−0
• GI/Atk/Functions.hs +30/−564
• GI/Atk/Interfaces.hs +1/−0
• GI/Atk/Interfaces/Action.hs +82/−35
• GI/Atk/Interfaces/Action.hs-boot +7/−0
• GI/Atk/Interfaces/Component.hs +177/−100
• GI/Atk/Interfaces/Component.hs-boot +13/−0
• GI/Atk/Interfaces/Document.hs +100/−48
• GI/Atk/Interfaces/Document.hs-boot +8/−0
• GI/Atk/Interfaces/EditableText.hs +99/−52
• GI/Atk/Interfaces/EditableText.hs-boot +7/−0
• GI/Atk/Interfaces/HyperlinkImpl.hs +21/−4
• GI/Atk/Interfaces/HyperlinkImpl.hs-boot +1/−0
• GI/Atk/Interfaces/Hypertext.hs +46/−19
• GI/Atk/Interfaces/Hypertext.hs-boot +3/−0
• GI/Atk/Interfaces/Image.hs +66/−29
• GI/Atk/Interfaces/Image.hs-boot +5/−0
• GI/Atk/Interfaces/ImplementorIface.hs +12/−0
• GI/Atk/Interfaces/Selection.hs +80/−33
• GI/Atk/Interfaces/Selection.hs-boot +7/−0
• GI/Atk/Interfaces/StreamableContent.hs +59/−27
• GI/Atk/Interfaces/StreamableContent.hs-boot +4/−0
• GI/Atk/Interfaces/Table.hs +312/−155
• GI/Atk/Interfaces/Table.hs-boot +29/−0
• GI/Atk/Interfaces/TableCell.hs +130/−38
• GI/Atk/Interfaces/TableCell.hs-boot +7/−0
• GI/Atk/Interfaces/Text.hs +326/−189
• GI/Atk/Interfaces/Text.hs-boot +20/−0
• GI/Atk/Interfaces/Value.hs +112/−50
• GI/Atk/Interfaces/Value.hs-boot +10/−0
• GI/Atk/Interfaces/Window.hs +59/−2
• GI/Atk/Objects.hs +1/−0
• GI/Atk/Objects/GObjectAccessible.hs +71/−10
• GI/Atk/Objects/GObjectAccessible.hs-boot +1/−0
• GI/Atk/Objects/Hyperlink.hs +121/−40
• GI/Atk/Objects/Hyperlink.hs-boot +8/−0
• GI/Atk/Objects/Misc.hs +54/−11
• GI/Atk/Objects/Misc.hs-boot +2/−0
• GI/Atk/Objects/NoOpObject.hs +160/−6
• GI/Atk/Objects/NoOpObjectFactory.hs +39/−3
• GI/Atk/Objects/Object.hs +273/−124
• GI/Atk/Objects/Object.hs-boot +23/−0
• GI/Atk/Objects/ObjectFactory.hs +63/−14
• GI/Atk/Objects/ObjectFactory.hs-boot +3/−0
• GI/Atk/Objects/Plug.hs +78/−8
• GI/Atk/Objects/Plug.hs-boot +1/−0
• GI/Atk/Objects/Registry.hs +69/−20
• GI/Atk/Objects/Registry.hs-boot +3/−0
• GI/Atk/Objects/Relation.hs +83/−30
• GI/Atk/Objects/Relation.hs-boot +4/−0
• GI/Atk/Objects/RelationSet.hs +117/−44
• GI/Atk/Objects/RelationSet.hs-boot +8/−0
• GI/Atk/Objects/Socket.hs +92/−17
• GI/Atk/Objects/Socket.hs-boot +2/−0
• GI/Atk/Objects/StateSet.hs +152/−69
• GI/Atk/Objects/StateSet.hs-boot +10/−0
• GI/Atk/Objects/Util.hs +35/−1
• GI/Atk/Structs.hs +1/−0
• GI/Atk/Structs/Attribute.hs +47/−0
• GI/Atk/Structs/Implementor.hs +21/−4
• GI/Atk/Structs/Implementor.hs-boot +1/−0
• GI/Atk/Structs/KeyEventStruct.hs +17/−0
• GI/Atk/Structs/PropertyValues.hs +17/−0
• GI/Atk/Structs/Range.hs +66/−30
• GI/Atk/Structs/Range.hs-boot +5/−0
• GI/Atk/Structs/Rectangle.hs +17/−0
• GI/Atk/Structs/TextRange.hs +17/−0
• GI/Atk/Structs/TextRectangle.hs +17/−0
• gi-atk.cabal +6/−6

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,6 +17,10 @@     module GI.Atk.Structs                   ,  ++    module Data.GI.Base                     ,++     ) where  import GI.Atk.Callbacks@@ -37,4 +42,5 @@ import GI.Atk.Types import GI.Atk.Callbacks +import Data.GI.Base 

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -198,10 +199,10 @@     Ptr Object ->     CInt ->     IO ()-focusHandlerWrapper funptrptr _cb object focus_in = do+focusHandlerWrapper funptrptr _cb object focusIn = do     object' <- (newObject Object) object-    let focus_in' = (/= 0) focus_in-    _cb  object' focus_in'+    let focusIn' = (/= 0) focusIn+    _cb  object' focusIn'     maybeReleaseFunPtr funptrptr  -- callback EventListenerInit

@@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -9,10 +10,6 @@     (    -- * Methods--- ** attributeSetFree-    attributeSetFree                        ,-- -- ** focusTrackerNotify     focusTrackerNotify                      , @@ -61,18 +58,6 @@     getVersion                              ,  --- ** relationTypeForName-    relationTypeForName                     ,----- ** relationTypeGetName-    relationTypeGetName                     ,----- ** relationTypeRegister-    relationTypeRegister                    ,-- -- ** removeFocusTracker     removeFocusTracker                      , @@ -85,64 +70,8 @@     removeKeyEventListener                  ,  --- ** roleForName-    roleForName                             ,  --- ** roleGetLocalizedName-    roleGetLocalizedName                    ,----- ** roleGetName-    roleGetName                             ,----- ** roleRegister-    roleRegister                            ,----- ** stateTypeForName-    stateTypeForName                        ,----- ** stateTypeGetName-    stateTypeGetName                        ,----- ** stateTypeRegister-    stateTypeRegister                       ,----- ** textAttributeForName-    textAttributeForName                    ,----- ** textAttributeGetName-    textAttributeGetName                    ,----- ** textAttributeGetValue-    textAttributeGetValue                   ,----- ** textAttributeRegister-    textAttributeRegister                   ,----- ** textFreeRanges-    textFreeRanges                          ,----- ** valueTypeGetLocalizedName-    valueTypeGetLocalizedName               ,----- ** valueTypeGetName-    valueTypeGetName                        ,----     ) where  import Prelude ()@@ -155,359 +84,9 @@ import GI.Atk.Types import GI.Atk.Callbacks --- function atk_value_type_get_name--- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_value_type_get_name" atk_value_type_get_name :: -    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"-    IO CString---valueTypeGetName ::-    (MonadIO m) =>-    ValueType ->                            -- value_type-    m T.Text-valueTypeGetName value_type = liftIO $ do-    let value_type' = (fromIntegral . fromEnum) value_type-    result <- atk_value_type_get_name value_type'-    checkUnexpectedReturnNULL "atk_value_type_get_name" result-    result' <- cstringToText result-    return result'----- function atk_value_type_get_localized_name--- Args : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "value_type", argType = TInterface "Atk" "ValueType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_value_type_get_localized_name" atk_value_type_get_localized_name :: -    CUInt ->                                -- value_type : TInterface "Atk" "ValueType"-    IO CString---valueTypeGetLocalizedName ::-    (MonadIO m) =>-    ValueType ->                            -- value_type-    m T.Text-valueTypeGetLocalizedName value_type = liftIO $ do-    let value_type' = (fromIntegral . fromEnum) value_type-    result <- atk_value_type_get_localized_name value_type'-    checkUnexpectedReturnNULL "atk_value_type_get_localized_name" result-    result' <- cstringToText result-    return result'----- function atk_text_free_ranges--- Args : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: -    Ptr (Ptr TextRange) ->                  -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange")-    IO ()---textFreeRanges ::-    (MonadIO m) =>-    Ptr (Ptr TextRange) ->                  -- ranges-    m ()-textFreeRanges ranges = liftIO $ do-    atk_text_free_ranges ranges-    return ()----- function atk_text_attribute_register--- 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 : TInterface "Atk" "TextAttribute"--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_register" atk_text_attribute_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---textAttributeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m TextAttribute-textAttributeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_text_attribute_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_text_attribute_get_value--- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", 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}]--- Lengths : []--- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", 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}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_get_value" atk_text_attribute_get_value :: -    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"-    Int32 ->                                -- index_ : TBasicType TInt32-    IO CString---textAttributeGetValue ::-    (MonadIO m) =>-    TextAttribute ->                        -- attr-    Int32 ->                                -- index_-    m T.Text-textAttributeGetValue attr index_ = liftIO $ do-    let attr' = (fromIntegral . fromEnum) attr-    result <- atk_text_attribute_get_value attr' index_-    checkUnexpectedReturnNULL "atk_text_attribute_get_value" result-    result' <- cstringToText result-    return result'----- function atk_text_attribute_get_name--- Args : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "attr", argType = TInterface "Atk" "TextAttribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_get_name" atk_text_attribute_get_name :: -    CUInt ->                                -- attr : TInterface "Atk" "TextAttribute"-    IO CString---textAttributeGetName ::-    (MonadIO m) =>-    TextAttribute ->                        -- attr-    m T.Text-textAttributeGetName attr = liftIO $ do-    let attr' = (fromIntegral . fromEnum) attr-    result <- atk_text_attribute_get_name attr'-    checkUnexpectedReturnNULL "atk_text_attribute_get_name" result-    result' <- cstringToText result-    return result'----- function atk_text_attribute_for_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 : TInterface "Atk" "TextAttribute"--- throws : False--- Skip return : False--foreign import ccall "atk_text_attribute_for_name" atk_text_attribute_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---textAttributeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m TextAttribute-textAttributeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_text_attribute_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_state_type_register--- 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 : TInterface "Atk" "StateType"--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_register" atk_state_type_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---stateTypeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m StateType-stateTypeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_state_type_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_state_type_get_name--- Args : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_get_name" atk_state_type_get_name :: -    CUInt ->                                -- type : TInterface "Atk" "StateType"-    IO CString---stateTypeGetName ::-    (MonadIO m) =>-    StateType ->                            -- type-    m T.Text-stateTypeGetName type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_state_type_get_name type_'-    checkUnexpectedReturnNULL "atk_state_type_get_name" result-    result' <- cstringToText result-    return result'----- function atk_state_type_for_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 : TInterface "Atk" "StateType"--- throws : False--- Skip return : False--foreign import ccall "atk_state_type_for_name" atk_state_type_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---stateTypeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m StateType-stateTypeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_state_type_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_role_register--- 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 : TInterface "Atk" "Role"--- throws : False--- Skip return : False--foreign import ccall "atk_role_register" atk_role_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt--{-# DEPRECATED roleRegister ["Since 2.12. If your application/toolkit doesn't find a","suitable role for a specific object defined at #AtkRole, please","submit a bug in order to add a new role to the specification."]#-}-roleRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m Role-roleRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_role_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_role_get_name--- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_role_get_name" atk_role_get_name :: -    CUInt ->                                -- role : TInterface "Atk" "Role"-    IO CString---roleGetName ::-    (MonadIO m) =>-    Role ->                                 -- role-    m T.Text-roleGetName role = liftIO $ do-    let role' = (fromIntegral . fromEnum) role-    result <- atk_role_get_name role'-    checkUnexpectedReturnNULL "atk_role_get_name" result-    result' <- cstringToText result-    return result'----- function atk_role_get_localized_name--- Args : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_role_get_localized_name" atk_role_get_localized_name :: -    CUInt ->                                -- role : TInterface "Atk" "Role"-    IO CString---roleGetLocalizedName ::-    (MonadIO m) =>-    Role ->                                 -- role-    m T.Text-roleGetLocalizedName role = liftIO $ do-    let role' = (fromIntegral . fromEnum) role-    result <- atk_role_get_localized_name role'-    checkUnexpectedReturnNULL "atk_role_get_localized_name" result-    result' <- cstringToText result-    return result'----- function atk_role_for_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 : TInterface "Atk" "Role"--- throws : False--- Skip return : False--foreign import ccall "atk_role_for_name" atk_role_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---roleForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m Role-roleForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_role_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'-- -- function atk_remove_key_event_listener--- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -519,17 +98,16 @@  removeKeyEventListener ::     (MonadIO m) =>-    Word32 ->                               -- listener_id-    m ()-removeKeyEventListener listener_id = liftIO $ do-    atk_remove_key_event_listener listener_id+    Word32                                  -- listenerId+    -> m ()                                 -- result+removeKeyEventListener listenerId = liftIO $ do+    atk_remove_key_event_listener listenerId     return ()   -- function atk_remove_global_event_listener--- Args : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "listener_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -541,17 +119,16 @@  removeGlobalEventListener ::     (MonadIO m) =>-    Word32 ->                               -- listener_id-    m ()-removeGlobalEventListener listener_id = liftIO $ do-    atk_remove_global_event_listener listener_id+    Word32                                  -- listenerId+    -> m ()                                 -- result+removeGlobalEventListener listenerId = liftIO $ do+    atk_remove_global_event_listener listenerId     return ()   -- function atk_remove_focus_tracker--- Args : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "tracker_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -563,92 +140,16 @@ {-# DEPRECATED removeFocusTracker ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. If you need focus tracking on your","implementation, subscribe to the #AtkObject::state-change \"focused\" signal.","","Removes the specified focus tracker from the list of functions","to be called when any object receives focus."]#-} removeFocusTracker ::     (MonadIO m) =>-    Word32 ->                               -- tracker_id-    m ()-removeFocusTracker tracker_id = liftIO $ do-    atk_remove_focus_tracker tracker_id+    Word32                                  -- trackerId+    -> m ()                                 -- result+removeFocusTracker trackerId = liftIO $ do+    atk_remove_focus_tracker trackerId     return ()  --- function atk_relation_type_register--- 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 : TInterface "Atk" "RelationType"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_register" atk_relation_type_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---relationTypeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m RelationType-relationTypeRegister name = liftIO $ do-    name' <- textToCString name-    result <- atk_relation_type_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function atk_relation_type_get_name--- Args : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_get_name" atk_relation_type_get_name :: -    CUInt ->                                -- type : TInterface "Atk" "RelationType"-    IO CString---relationTypeGetName ::-    (MonadIO m) =>-    RelationType ->                         -- type-    m T.Text-relationTypeGetName type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- atk_relation_type_get_name type_'-    checkUnexpectedReturnNULL "atk_relation_type_get_name" result-    result' <- cstringToText result-    return result'----- function atk_relation_type_for_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 : TInterface "Atk" "RelationType"--- throws : False--- Skip return : False--foreign import ccall "atk_relation_type_for_name" atk_relation_type_for_name :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---relationTypeForName ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m RelationType-relationTypeForName name = liftIO $ do-    name' <- textToCString name-    result <- atk_relation_type_for_name name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'-- -- function atk_get_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -659,7 +160,7 @@  getVersion ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getVersion  = liftIO $ do     result <- atk_get_version     checkUnexpectedReturnNULL "atk_get_version" result@@ -670,7 +171,6 @@ -- function atk_get_toolkit_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -681,7 +181,7 @@  getToolkitVersion ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getToolkitVersion  = liftIO $ do     result <- atk_get_toolkit_version     checkUnexpectedReturnNULL "atk_get_toolkit_version" result@@ -692,7 +192,6 @@ -- function atk_get_toolkit_name -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -703,7 +202,7 @@  getToolkitName ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getToolkitName  = liftIO $ do     result <- atk_get_toolkit_name     checkUnexpectedReturnNULL "atk_get_toolkit_name" result@@ -714,7 +213,6 @@ -- function atk_get_root -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -725,7 +223,7 @@  getRoot ::     (MonadIO m) =>-    m Object+    m Object                                -- result getRoot  = liftIO $ do     result <- atk_get_root     checkUnexpectedReturnNULL "atk_get_root" result@@ -736,7 +234,6 @@ -- function atk_get_minor_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -747,7 +244,7 @@  getMinorVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMinorVersion  = liftIO $ do     result <- atk_get_minor_version     return result@@ -756,7 +253,6 @@ -- function atk_get_micro_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -767,7 +263,7 @@  getMicroVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMicroVersion  = liftIO $ do     result <- atk_get_micro_version     return result@@ -776,7 +272,6 @@ -- function atk_get_major_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -787,7 +282,7 @@  getMajorVersion ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getMajorVersion  = liftIO $ do     result <- atk_get_major_version     return result@@ -796,7 +291,6 @@ -- function atk_get_interface_age -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -807,7 +301,7 @@  getInterfaceAge ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getInterfaceAge  = liftIO $ do     result <- atk_get_interface_age     return result@@ -816,7 +310,6 @@ -- function atk_get_focus_object -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -827,7 +320,7 @@  getFocusObject ::     (MonadIO m) =>-    m Object+    m Object                                -- result getFocusObject  = liftIO $ do     result <- atk_get_focus_object     checkUnexpectedReturnNULL "atk_get_focus_object" result@@ -838,7 +331,6 @@ -- function atk_get_default_registry -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "Atk" "Registry" -- throws : False -- Skip return : False@@ -849,7 +341,7 @@  getDefaultRegistry ::     (MonadIO m) =>-    m Registry+    m Registry                              -- result getDefaultRegistry  = liftIO $ do     result <- atk_get_default_registry     checkUnexpectedReturnNULL "atk_get_default_registry" result@@ -860,7 +352,6 @@ -- function atk_get_binary_age -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -871,16 +362,15 @@  getBinaryAge ::     (MonadIO m) =>-    m Word32+    m Word32                                -- result getBinaryAge  = liftIO $ do     result <- atk_get_binary_age     return result   -- function atk_focus_tracker_notify--- Args : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -892,36 +382,12 @@ {-# DEPRECATED focusTrackerNotify ["(Since version 2.9.4)","Focus tracking has been dropped as a feature","to be implemented by ATK itself. As #AtkObject::focus-event was","deprecated in favor of a #AtkObject::state-change signal, in order","to notify a focus change on your implementation, you can use","atk_object_notify_state_change() instead."]#-} focusTrackerNotify ::     (MonadIO m, ObjectK a) =>-    a ->                                    -- object-    m ()+    a                                       -- object+    -> m ()                                 -- result focusTrackerNotify object = liftIO $ do     let object' = unsafeManagedPtrCastPtr object     atk_focus_tracker_notify object'     touchManagedPtr object-    return ()----- function atk_attribute_set_free--- Args : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: -    Ptr (GSList (Ptr ())) ->                -- attrib_set : TGSList (TBasicType TVoid)-    IO ()---attributeSetFree ::-    (MonadIO m) =>-    [Ptr ()] ->                             -- attrib_set-    m ()-attributeSetFree attrib_set = liftIO $ do-    attrib_set' <- packGSList attrib_set-    atk_attribute_set_free attrib_set'-    g_slist_free attrib_set'     return ()  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,30 +17,37 @@   -- * Methods -- ** actionDoAction+    ActionDoActionMethodInfo                ,     actionDoAction                          ,   -- ** actionGetDescription+    ActionGetDescriptionMethodInfo          ,     actionGetDescription                    ,   -- ** actionGetKeybinding+    ActionGetKeybindingMethodInfo           ,     actionGetKeybinding                     ,   -- ** actionGetLocalizedName+    ActionGetLocalizedNameMethodInfo        ,     actionGetLocalizedName                  ,   -- ** actionGetNActions+    ActionGetNActionsMethodInfo             ,     actionGetNActions                       ,   -- ** actionGetName+    ActionGetNameMethodInfo                 ,     actionGetName                           ,   -- ** actionSetDescription+    ActionSetDescriptionMethodInfo          ,     actionSetDescription                    ,  @@ -63,6 +71,24 @@ noAction :: Maybe Action noAction = Nothing +type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where+    ResolveActionMethod "doAction" o = ActionDoActionMethodInfo+    ResolveActionMethod "getDescription" o = ActionGetDescriptionMethodInfo+    ResolveActionMethod "getKeybinding" o = ActionGetKeybindingMethodInfo+    ResolveActionMethod "getLocalizedName" o = ActionGetLocalizedNameMethodInfo+    ResolveActionMethod "getNActions" o = ActionGetNActionsMethodInfo+    ResolveActionMethod "getName" o = ActionGetNameMethodInfo+    ResolveActionMethod "setDescription" o = ActionSetDescriptionMethodInfo+    ResolveActionMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Action = ActionAttributeList type ActionAttributeList = ('[ ] :: [(Symbol, *)]) @@ -76,9 +102,8 @@  -- method Action::do_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -91,9 +116,9 @@  actionDoAction ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool+    a                                       -- _obj+    -> Int32                                -- i+    -> m Bool                               -- result actionDoAction _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_do_action _obj' i@@ -101,11 +126,14 @@     touchManagedPtr _obj     return result' +data ActionDoActionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, ActionK a) => MethodInfo ActionDoActionMethodInfo a signature where+    overloadedMethod _ = actionDoAction+ -- method Action::get_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -118,9 +146,9 @@  actionGetDescription ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result actionGetDescription _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_get_description _obj' i@@ -129,11 +157,14 @@     touchManagedPtr _obj     return result' +data ActionGetDescriptionMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetDescriptionMethodInfo a signature where+    overloadedMethod _ = actionGetDescription+ -- method Action::get_keybinding -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -146,9 +177,9 @@  actionGetKeybinding ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result actionGetKeybinding _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_get_keybinding _obj' i@@ -157,11 +188,14 @@     touchManagedPtr _obj     return result' +data ActionGetKeybindingMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetKeybindingMethodInfo a signature where+    overloadedMethod _ = actionGetKeybinding+ -- method Action::get_localized_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -174,9 +208,9 @@  actionGetLocalizedName ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result actionGetLocalizedName _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_get_localized_name _obj' i@@ -185,11 +219,14 @@     touchManagedPtr _obj     return result' +data ActionGetLocalizedNameMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetLocalizedNameMethodInfo a signature where+    overloadedMethod _ = actionGetLocalizedName+ -- method Action::get_n_actions -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -201,19 +238,22 @@  actionGetNActions ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result actionGetNActions _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_get_n_actions _obj'     touchManagedPtr _obj     return result +data ActionGetNActionsMethodInfo+instance (signature ~ (m Int32), MonadIO m, ActionK a) => MethodInfo ActionGetNActionsMethodInfo a signature where+    overloadedMethod _ = actionGetNActions+ -- method Action::get_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -226,9 +266,9 @@  actionGetName ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result actionGetName _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_action_get_name _obj' i@@ -237,11 +277,14 @@     touchManagedPtr _obj     return result' +data ActionGetNameMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where+    overloadedMethod _ = actionGetName+ -- method Action::set_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -255,10 +298,10 @@  actionSetDescription ::     (MonadIO m, ActionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    T.Text ->                               -- desc-    m Bool+    a                                       -- _obj+    -> Int32                                -- i+    -> T.Text                               -- desc+    -> m Bool                               -- result actionSetDescription _obj i desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     desc' <- textToCString desc@@ -267,5 +310,9 @@     touchManagedPtr _obj     freeMem desc'     return result'++data ActionSetDescriptionMethodInfo+instance (signature ~ (Int32 -> T.Text -> m Bool), MonadIO m, ActionK a) => MethodInfo ActionSetDescriptionMethodInfo a signature where+    overloadedMethod _ = actionSetDescription  

@@ -10,3 +10,10 @@ newtype Action = Action (ForeignPtr Action) class ForeignPtrNewtype a => ActionK a instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o+data ActionDoActionMethodInfo+data ActionGetDescriptionMethodInfo+data ActionGetKeybindingMethodInfo+data ActionGetLocalizedNameMethodInfo+data ActionGetNActionsMethodInfo+data ActionGetNameMethodInfo+data ActionSetDescriptionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,54 +17,67 @@   -- * Methods -- ** componentContains+    ComponentContainsMethodInfo             ,     componentContains                       ,   -- ** componentGetAlpha+    ComponentGetAlphaMethodInfo             ,     componentGetAlpha                       ,   -- ** componentGetExtents+    ComponentGetExtentsMethodInfo           ,     componentGetExtents                     ,   -- ** componentGetLayer+    ComponentGetLayerMethodInfo             ,     componentGetLayer                       ,   -- ** componentGetMdiZorder+    ComponentGetMdiZorderMethodInfo         ,     componentGetMdiZorder                   ,   -- ** componentGetPosition+    ComponentGetPositionMethodInfo          ,     componentGetPosition                    ,   -- ** componentGetSize+    ComponentGetSizeMethodInfo              ,     componentGetSize                        ,   -- ** componentGrabFocus+    ComponentGrabFocusMethodInfo            ,     componentGrabFocus                      ,   -- ** componentRefAccessibleAtPoint+    ComponentRefAccessibleAtPointMethodInfo ,     componentRefAccessibleAtPoint           ,   -- ** componentRemoveFocusHandler+    ComponentRemoveFocusHandlerMethodInfo   ,     componentRemoveFocusHandler             ,   -- ** componentSetExtents+    ComponentSetExtentsMethodInfo           ,     componentSetExtents                     ,   -- ** componentSetPosition+    ComponentSetPositionMethodInfo          ,     componentSetPosition                    ,   -- ** componentSetSize+    ComponentSetSizeMethodInfo              ,     componentSetSize                        ,  @@ -102,6 +116,30 @@ noComponent :: Maybe Component noComponent = Nothing +type family ResolveComponentMethod (t :: Symbol) (o :: *) :: * where+    ResolveComponentMethod "contains" o = ComponentContainsMethodInfo+    ResolveComponentMethod "grabFocus" o = ComponentGrabFocusMethodInfo+    ResolveComponentMethod "refAccessibleAtPoint" o = ComponentRefAccessibleAtPointMethodInfo+    ResolveComponentMethod "removeFocusHandler" o = ComponentRemoveFocusHandlerMethodInfo+    ResolveComponentMethod "getAlpha" o = ComponentGetAlphaMethodInfo+    ResolveComponentMethod "getExtents" o = ComponentGetExtentsMethodInfo+    ResolveComponentMethod "getLayer" o = ComponentGetLayerMethodInfo+    ResolveComponentMethod "getMdiZorder" o = ComponentGetMdiZorderMethodInfo+    ResolveComponentMethod "getPosition" o = ComponentGetPositionMethodInfo+    ResolveComponentMethod "getSize" o = ComponentGetSizeMethodInfo+    ResolveComponentMethod "setExtents" o = ComponentSetExtentsMethodInfo+    ResolveComponentMethod "setPosition" o = ComponentSetPositionMethodInfo+    ResolveComponentMethod "setSize" o = ComponentSetSizeMethodInfo+    ResolveComponentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveComponentMethod t Component, MethodInfo info Component p) => IsLabelProxy t (Component -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveComponentMethod t Component, MethodInfo info Component p) => IsLabel t (Component -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Component::bounds-changed type ComponentBoundsChangedCallback =     Rectangle ->@@ -153,7 +191,7 @@     connectSignal _ = connectComponentBoundsChanged  type instance SignalList Component = ComponentSignalList-type ComponentSignalList = ('[ '("bounds-changed", ComponentBoundsChangedSignalInfo)] :: [(Symbol, *)])+type ComponentSignalList = ('[ '("boundsChanged", ComponentBoundsChangedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => ComponentK a instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o@@ -162,9 +200,8 @@  -- method Component::contains -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -179,24 +216,27 @@  componentContains ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Bool-componentContains _obj x y coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coordType+    -> m Bool                               -- result+componentContains _obj x y coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_contains _obj' x y coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    result <- atk_component_contains _obj' x y coordType'     let result' = (/= 0) result     touchManagedPtr _obj     return result' +data ComponentContainsMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m Bool), MonadIO m, ComponentK a) => MethodInfo ComponentContainsMethodInfo a signature where+    overloadedMethod _ = componentContains+ -- method Component::get_alpha -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -208,8 +248,8 @@  componentGetAlpha ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result componentGetAlpha _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_component_get_alpha _obj'@@ -217,11 +257,14 @@     touchManagedPtr _obj     return result' +data ComponentGetAlphaMethodInfo+instance (signature ~ (m Double), MonadIO m, ComponentK a) => MethodInfo ComponentGetAlphaMethodInfo a signature where+    overloadedMethod _ = componentGetAlpha+ -- method Component::get_extents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -238,25 +281,28 @@  componentGetExtents ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coord_type-    m ()-componentGetExtents _obj x y width height coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> Int32                                -- width+    -> Int32                                -- height+    -> CoordType                            -- coordType+    -> m ()                                 -- result+componentGetExtents _obj x y width height coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_component_get_extents _obj' x y width height coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    atk_component_get_extents _obj' x y width height coordType'     touchManagedPtr _obj     return () +data ComponentGetExtentsMethodInfo+instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> CoordType -> m ()), MonadIO m, ComponentK a) => MethodInfo ComponentGetExtentsMethodInfo a signature where+    overloadedMethod _ = componentGetExtents+ -- method Component::get_layer -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Layer" -- throws : False -- Skip return : False@@ -268,8 +314,8 @@  componentGetLayer ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Layer+    a                                       -- _obj+    -> m Layer                              -- result componentGetLayer _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_component_get_layer _obj'@@ -277,11 +323,14 @@     touchManagedPtr _obj     return result' +data ComponentGetLayerMethodInfo+instance (signature ~ (m Layer), MonadIO m, ComponentK a) => MethodInfo ComponentGetLayerMethodInfo a signature where+    overloadedMethod _ = componentGetLayer+ -- method Component::get_mdi_zorder -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -293,19 +342,22 @@  componentGetMdiZorder ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result componentGetMdiZorder _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_component_get_mdi_zorder _obj'     touchManagedPtr _obj     return result +data ComponentGetMdiZorderMethodInfo+instance (signature ~ (m Int32), MonadIO m, ComponentK a) => MethodInfo ComponentGetMdiZorderMethodInfo a signature where+    overloadedMethod _ = componentGetMdiZorder+ -- method Component::get_position -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -320,23 +372,26 @@ {-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-} componentGetPosition ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m ()-componentGetPosition _obj x y coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coordType+    -> m ()                                 -- result+componentGetPosition _obj x y coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_component_get_position _obj' x y coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    atk_component_get_position _obj' x y coordType'     touchManagedPtr _obj     return () +data ComponentGetPositionMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m ()), MonadIO m, ComponentK a) => MethodInfo ComponentGetPositionMethodInfo a signature where+    overloadedMethod _ = componentGetPosition+ -- method Component::get_size -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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@@ -350,21 +405,24 @@ {-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-} componentGetSize ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()+    a                                       -- _obj+    -> Int32                                -- width+    -> Int32                                -- height+    -> m ()                                 -- result componentGetSize _obj width height = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     atk_component_get_size _obj' width height     touchManagedPtr _obj     return () +data ComponentGetSizeMethodInfo+instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, ComponentK a) => MethodInfo ComponentGetSizeMethodInfo a signature where+    overloadedMethod _ = componentGetSize+ -- method Component::grab_focus -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -376,8 +434,8 @@  componentGrabFocus ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result componentGrabFocus _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_component_grab_focus _obj'@@ -385,11 +443,14 @@     touchManagedPtr _obj     return result' +data ComponentGrabFocusMethodInfo+instance (signature ~ (m Bool), MonadIO m, ComponentK a) => MethodInfo ComponentGrabFocusMethodInfo a signature where+    overloadedMethod _ = componentGrabFocus+ -- method Component::ref_accessible_at_point -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -404,25 +465,28 @@  componentRefAccessibleAtPoint ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Object-componentRefAccessibleAtPoint _obj x y coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coordType+    -> m Object                             -- result+componentRefAccessibleAtPoint _obj x y coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_ref_accessible_at_point _obj' x y coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    result <- atk_component_ref_accessible_at_point _obj' x y coordType'     checkUnexpectedReturnNULL "atk_component_ref_accessible_at_point" result     result' <- (wrapObject Object) result     touchManagedPtr _obj     return result' +data ComponentRefAccessibleAtPointMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m Object), MonadIO m, ComponentK a) => MethodInfo ComponentRefAccessibleAtPointMethodInfo a signature where+    overloadedMethod _ = componentRefAccessibleAtPoint+ -- method Component::remove_focus_handler -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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@@ -435,20 +499,23 @@ {-# DEPRECATED componentRemoveFocusHandler ["(Since version 2.9.4)","If you need to track when an object gains or","lose the focus, use the #AtkObject::state-change \"focused\" notification instead."]#-} componentRemoveFocusHandler ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- handler_id-    m ()-componentRemoveFocusHandler _obj handler_id = liftIO $ do+    a                                       -- _obj+    -> Word32                               -- handlerId+    -> m ()                                 -- result+componentRemoveFocusHandler _obj handlerId = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    atk_component_remove_focus_handler _obj' handler_id+    atk_component_remove_focus_handler _obj' handlerId     touchManagedPtr _obj     return () +data ComponentRemoveFocusHandlerMethodInfo+instance (signature ~ (Word32 -> m ()), MonadIO m, ComponentK a) => MethodInfo ComponentRemoveFocusHandlerMethodInfo a signature where+    overloadedMethod _ = componentRemoveFocusHandler+ -- method Component::set_extents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -465,26 +532,29 @@  componentSetExtents ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coord_type-    m Bool-componentSetExtents _obj x y width height coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> Int32                                -- width+    -> Int32                                -- height+    -> CoordType                            -- coordType+    -> m Bool                               -- result+componentSetExtents _obj x y width height coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_set_extents _obj' x y width height coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    result <- atk_component_set_extents _obj' x y width height coordType'     let result' = (/= 0) result     touchManagedPtr _obj     return result' +data ComponentSetExtentsMethodInfo+instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> CoordType -> m Bool), MonadIO m, ComponentK a) => MethodInfo ComponentSetExtentsMethodInfo a signature where+    overloadedMethod _ = componentSetExtents+ -- method Component::set_position -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -499,24 +569,27 @@  componentSetPosition ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m Bool-componentSetPosition _obj x y coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coordType+    -> m Bool                               -- result+componentSetPosition _obj x y coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    result <- atk_component_set_position _obj' x y coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    result <- atk_component_set_position _obj' x y coordType'     let result' = (/= 0) result     touchManagedPtr _obj     return result' +data ComponentSetPositionMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m Bool), MonadIO m, ComponentK a) => MethodInfo ComponentSetPositionMethodInfo a signature where+    overloadedMethod _ = componentSetPosition+ -- method Component::set_size -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Component", 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 TBoolean -- throws : False -- Skip return : False@@ -530,15 +603,19 @@  componentSetSize ::     (MonadIO m, ComponentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m Bool+    a                                       -- _obj+    -> Int32                                -- width+    -> Int32                                -- height+    -> m Bool                               -- result componentSetSize _obj width height = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_component_set_size _obj' width height     let result' = (/= 0) result     touchManagedPtr _obj     return result'++data ComponentSetSizeMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, ComponentK a) => MethodInfo ComponentSetSizeMethodInfo a signature where+    overloadedMethod _ = componentSetSize  

@@ -11,3 +11,16 @@ data ComponentBoundsChangedSignalInfo class ForeignPtrNewtype a => ComponentK a instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o+data ComponentContainsMethodInfo+data ComponentGetAlphaMethodInfo+data ComponentGetExtentsMethodInfo+data ComponentGetLayerMethodInfo+data ComponentGetMdiZorderMethodInfo+data ComponentGetPositionMethodInfo+data ComponentGetSizeMethodInfo+data ComponentGrabFocusMethodInfo+data ComponentRefAccessibleAtPointMethodInfo+data ComponentRemoveFocusHandlerMethodInfo+data ComponentSetExtentsMethodInfo+data ComponentSetPositionMethodInfo+data ComponentSetSizeMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,34 +17,42 @@   -- * Methods -- ** documentGetAttributeValue+    DocumentGetAttributeValueMethodInfo     ,     documentGetAttributeValue               ,   -- ** documentGetAttributes+    DocumentGetAttributesMethodInfo         ,     documentGetAttributes                   ,   -- ** documentGetCurrentPageNumber+    DocumentGetCurrentPageNumberMethodInfo  ,     documentGetCurrentPageNumber            ,   -- ** documentGetDocument+    DocumentGetDocumentMethodInfo           ,     documentGetDocument                     ,   -- ** documentGetDocumentType+    DocumentGetDocumentTypeMethodInfo       ,     documentGetDocumentType                 ,   -- ** documentGetLocale+    DocumentGetLocaleMethodInfo             ,     documentGetLocale                       ,   -- ** documentGetPageCount+    DocumentGetPageCountMethodInfo          ,     documentGetPageCount                    ,   -- ** documentSetAttributeValue+    DocumentSetAttributeValueMethodInfo     ,     documentSetAttributeValue               ,  @@ -118,6 +127,25 @@ noDocument :: Maybe Document noDocument = Nothing +type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where+    ResolveDocumentMethod "getAttributeValue" o = DocumentGetAttributeValueMethodInfo+    ResolveDocumentMethod "getAttributes" o = DocumentGetAttributesMethodInfo+    ResolveDocumentMethod "getCurrentPageNumber" o = DocumentGetCurrentPageNumberMethodInfo+    ResolveDocumentMethod "getDocument" o = DocumentGetDocumentMethodInfo+    ResolveDocumentMethod "getDocumentType" o = DocumentGetDocumentTypeMethodInfo+    ResolveDocumentMethod "getLocale" o = DocumentGetLocaleMethodInfo+    ResolveDocumentMethod "getPageCount" o = DocumentGetPageCountMethodInfo+    ResolveDocumentMethod "setAttributeValue" o = DocumentSetAttributeValueMethodInfo+    ResolveDocumentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabelProxy t (Document -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabel t (Document -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Document::load-complete type DocumentLoadCompleteCallback =     IO ()@@ -221,8 +249,8 @@     Int32 ->     Ptr () ->     IO ()-documentPageChangedCallbackWrapper _cb _ page_number _ = do-    _cb  page_number+documentPageChangedCallbackWrapper _cb _ pageNumber _ = do+    _cb  pageNumber  onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore@@ -297,7 +325,7 @@     connectSignal _ = connectDocumentReload  type instance SignalList Document = DocumentSignalList-type DocumentSignalList = ('[ '("load-complete", DocumentLoadCompleteSignalInfo), '("load-stopped", DocumentLoadStoppedSignalInfo), '("page-changed", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)])+type DocumentSignalList = ('[ '("loadComplete", DocumentLoadCompleteSignalInfo), '("loadStopped", DocumentLoadStoppedSignalInfo), '("pageChanged", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => DocumentK a instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o@@ -306,9 +334,8 @@  -- method Document::get_attribute_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -321,24 +348,27 @@  documentGetAttributeValue ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- attribute_name-    m T.Text-documentGetAttributeValue _obj attribute_name = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- attributeName+    -> m T.Text                             -- result+documentGetAttributeValue _obj attributeName = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    attribute_name' <- textToCString attribute_name-    result <- atk_document_get_attribute_value _obj' attribute_name'+    attributeName' <- textToCString attributeName+    result <- atk_document_get_attribute_value _obj' attributeName'     checkUnexpectedReturnNULL "atk_document_get_attribute_value" result     result' <- cstringToText result     touchManagedPtr _obj-    freeMem attribute_name'+    freeMem attributeName'     return result' +data DocumentGetAttributeValueMethodInfo+instance (signature ~ (T.Text -> m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttributeValueMethodInfo a signature where+    overloadedMethod _ = documentGetAttributeValue+ -- method Document::get_attributes -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TBasicType TVoid) -- throws : False -- Skip return : False@@ -350,8 +380,8 @@  documentGetAttributes ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m [Ptr ()]+    a                                       -- _obj+    -> m [Ptr ()]                           -- result documentGetAttributes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_document_get_attributes _obj'@@ -360,11 +390,14 @@     touchManagedPtr _obj     return result' +data DocumentGetAttributesMethodInfo+instance (signature ~ (m [Ptr ()]), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttributesMethodInfo a signature where+    overloadedMethod _ = documentGetAttributes+ -- method Document::get_current_page_number -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -376,19 +409,22 @@  documentGetCurrentPageNumber ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result documentGetCurrentPageNumber _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_document_get_current_page_number _obj'     touchManagedPtr _obj     return result +data DocumentGetCurrentPageNumberMethodInfo+instance (signature ~ (m Int32), MonadIO m, DocumentK a) => MethodInfo DocumentGetCurrentPageNumberMethodInfo a signature where+    overloadedMethod _ = documentGetCurrentPageNumber+ -- method Document::get_document -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -400,19 +436,22 @@ {-# DEPRECATED documentGetDocument ["Since 2.12. @document is already a representation of","the document. Use it directly, or one of its children, as an","instance of the DOM."]#-} documentGetDocument ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result documentGetDocument _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     atk_document_get_document _obj'     touchManagedPtr _obj     return () +data DocumentGetDocumentMethodInfo+instance (signature ~ (m ()), MonadIO m, DocumentK a) => MethodInfo DocumentGetDocumentMethodInfo a signature where+    overloadedMethod _ = documentGetDocument+ -- method Document::get_document_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -424,8 +463,8 @@ {-# DEPRECATED documentGetDocumentType ["Since 2.12. Please use atk_document_get_attributes() to","ask for the document type if it applies."]#-} documentGetDocumentType ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetDocumentType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_document_get_document_type _obj'@@ -434,11 +473,14 @@     touchManagedPtr _obj     return result' +data DocumentGetDocumentTypeMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetDocumentTypeMethodInfo a signature where+    overloadedMethod _ = documentGetDocumentType+ -- method Document::get_locale -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -450,8 +492,8 @@ {-# DEPRECATED documentGetLocale ["(Since version 2.7.90)","Please use atk_object_get_object_locale() instead."]#-} documentGetLocale ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetLocale _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_document_get_locale _obj'@@ -460,11 +502,14 @@     touchManagedPtr _obj     return result' +data DocumentGetLocaleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetLocaleMethodInfo a signature where+    overloadedMethod _ = documentGetLocale+ -- method Document::get_page_count -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -476,19 +521,22 @@  documentGetPageCount ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result documentGetPageCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_document_get_page_count _obj'     touchManagedPtr _obj     return result +data DocumentGetPageCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageCountMethodInfo a signature where+    overloadedMethod _ = documentGetPageCount+ -- method Document::set_attribute_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -502,19 +550,23 @@  documentSetAttributeValue ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- attribute_name-    T.Text ->                               -- attribute_value-    m Bool-documentSetAttributeValue _obj attribute_name attribute_value = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- attributeName+    -> T.Text                               -- attributeValue+    -> m Bool                               -- result+documentSetAttributeValue _obj attributeName attributeValue = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    attribute_name' <- textToCString attribute_name-    attribute_value' <- textToCString attribute_value-    result <- atk_document_set_attribute_value _obj' attribute_name' attribute_value'+    attributeName' <- textToCString attributeName+    attributeValue' <- textToCString attributeValue+    result <- atk_document_set_attribute_value _obj' attributeName' attributeValue'     let result' = (/= 0) result     touchManagedPtr _obj-    freeMem attribute_name'-    freeMem attribute_value'+    freeMem attributeName'+    freeMem attributeValue'     return result'++data DocumentSetAttributeValueMethodInfo+instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentSetAttributeValueMethodInfo a signature where+    overloadedMethod _ = documentSetAttributeValue  

@@ -14,3 +14,11 @@ data DocumentReloadSignalInfo class ForeignPtrNewtype a => DocumentK a instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o+data DocumentGetAttributeValueMethodInfo+data DocumentGetAttributesMethodInfo+data DocumentGetCurrentPageNumberMethodInfo+data DocumentGetDocumentMethodInfo+data DocumentGetDocumentTypeMethodInfo+data DocumentGetLocaleMethodInfo+data DocumentGetPageCountMethodInfo+data DocumentSetAttributeValueMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,30 +17,37 @@   -- * Methods -- ** editableTextCopyText+    EditableTextCopyTextMethodInfo          ,     editableTextCopyText                    ,   -- ** editableTextCutText+    EditableTextCutTextMethodInfo           ,     editableTextCutText                     ,   -- ** editableTextDeleteText+    EditableTextDeleteTextMethodInfo        ,     editableTextDeleteText                  ,   -- ** editableTextInsertText+    EditableTextInsertTextMethodInfo        ,     editableTextInsertText                  ,   -- ** editableTextPasteText+    EditableTextPasteTextMethodInfo         ,     editableTextPasteText                   ,   -- ** editableTextSetRunAttributes+    EditableTextSetRunAttributesMethodInfo  ,     editableTextSetRunAttributes            ,   -- ** editableTextSetTextContents+    EditableTextSetTextContentsMethodInfo   ,     editableTextSetTextContents             ,  @@ -63,6 +71,24 @@ noEditableText :: Maybe EditableText noEditableText = Nothing +type family ResolveEditableTextMethod (t :: Symbol) (o :: *) :: * where+    ResolveEditableTextMethod "copyText" o = EditableTextCopyTextMethodInfo+    ResolveEditableTextMethod "cutText" o = EditableTextCutTextMethodInfo+    ResolveEditableTextMethod "deleteText" o = EditableTextDeleteTextMethodInfo+    ResolveEditableTextMethod "insertText" o = EditableTextInsertTextMethodInfo+    ResolveEditableTextMethod "pasteText" o = EditableTextPasteTextMethodInfo+    ResolveEditableTextMethod "setRunAttributes" o = EditableTextSetRunAttributesMethodInfo+    ResolveEditableTextMethod "setTextContents" o = EditableTextSetTextContentsMethodInfo+    ResolveEditableTextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveEditableTextMethod t EditableText, MethodInfo info EditableText p) => IsLabelProxy t (EditableText -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveEditableTextMethod t EditableText, MethodInfo info EditableText p) => IsLabel t (EditableText -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList EditableText = EditableTextAttributeList type EditableTextAttributeList = ('[ ] :: [(Symbol, *)]) @@ -76,9 +102,8 @@  -- method EditableText::copy_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -92,21 +117,24 @@  editableTextCopyText ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextCopyText _obj start_pos end_pos = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startPos+    -> Int32                                -- endPos+    -> m ()                                 -- result+editableTextCopyText _obj startPos endPos = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_copy_text _obj' start_pos end_pos+    atk_editable_text_copy_text _obj' startPos endPos     touchManagedPtr _obj     return () +data EditableTextCopyTextMethodInfo+instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextCopyTextMethodInfo a signature where+    overloadedMethod _ = editableTextCopyText+ -- method EditableText::cut_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -120,21 +148,24 @@  editableTextCutText ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextCutText _obj start_pos end_pos = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startPos+    -> Int32                                -- endPos+    -> m ()                                 -- result+editableTextCutText _obj startPos endPos = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_cut_text _obj' start_pos end_pos+    atk_editable_text_cut_text _obj' startPos endPos     touchManagedPtr _obj     return () +data EditableTextCutTextMethodInfo+instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextCutTextMethodInfo a signature where+    overloadedMethod _ = editableTextCutText+ -- method EditableText::delete_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -148,21 +179,24 @@  editableTextDeleteText ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_pos-    Int32 ->                                -- end_pos-    m ()-editableTextDeleteText _obj start_pos end_pos = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startPos+    -> Int32                                -- endPos+    -> m ()                                 -- result+editableTextDeleteText _obj startPos endPos = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    atk_editable_text_delete_text _obj' start_pos end_pos+    atk_editable_text_delete_text _obj' startPos endPos     touchManagedPtr _obj     return () +data EditableTextDeleteTextMethodInfo+instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextDeleteTextMethodInfo a signature where+    overloadedMethod _ = editableTextDeleteText+ -- method EditableText::insert_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", 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},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", 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},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -177,11 +211,11 @@  editableTextInsertText ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- string-    Int32 ->                                -- length-    Int32 ->                                -- position-    m ()+    a                                       -- _obj+    -> T.Text                               -- string+    -> Int32                                -- length_+    -> Int32                                -- position+    -> m ()                                 -- result editableTextInsertText _obj string length_ position = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     string' <- textToCString string@@ -190,11 +224,14 @@     freeMem string'     return () +data EditableTextInsertTextMethodInfo+instance (signature ~ (T.Text -> Int32 -> Int32 -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextInsertTextMethodInfo a signature where+    overloadedMethod _ = editableTextInsertText+ -- method EditableText::paste_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -207,20 +244,23 @@  editableTextPasteText ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- position-    m ()+    a                                       -- _obj+    -> Int32                                -- position+    -> m ()                                 -- result editableTextPasteText _obj position = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     atk_editable_text_paste_text _obj' position     touchManagedPtr _obj     return () +data EditableTextPasteTextMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextPasteTextMethodInfo a signature where+    overloadedMethod _ = editableTextPasteText+ -- method EditableText::set_run_attributes -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrib_set", argType = TGSList (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -235,25 +275,28 @@  editableTextSetRunAttributes ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    [Ptr ()] ->                             -- attrib_set-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-editableTextSetRunAttributes _obj attrib_set start_offset end_offset = liftIO $ do+    a                                       -- _obj+    -> [Ptr ()]                             -- attribSet+    -> Int32                                -- startOffset+    -> Int32                                -- endOffset+    -> m Bool                               -- result+editableTextSetRunAttributes _obj attribSet startOffset endOffset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    attrib_set' <- packGSList attrib_set-    result <- atk_editable_text_set_run_attributes _obj' attrib_set' start_offset end_offset+    attribSet' <- packGSList attribSet+    result <- atk_editable_text_set_run_attributes _obj' attribSet' startOffset endOffset     let result' = (/= 0) result     touchManagedPtr _obj-    g_slist_free attrib_set'+    g_slist_free attribSet'     return result' +data EditableTextSetRunAttributesMethodInfo+instance (signature ~ ([Ptr ()] -> Int32 -> Int32 -> m Bool), MonadIO m, EditableTextK a) => MethodInfo EditableTextSetRunAttributesMethodInfo a signature where+    overloadedMethod _ = editableTextSetRunAttributes+ -- method EditableText::set_text_contents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "EditableText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "EditableText", 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@@ -266,9 +309,9 @@  editableTextSetTextContents ::     (MonadIO m, EditableTextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- string-    m ()+    a                                       -- _obj+    -> T.Text                               -- string+    -> m ()                                 -- result editableTextSetTextContents _obj string = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     string' <- textToCString string@@ -276,5 +319,9 @@     touchManagedPtr _obj     freeMem string'     return ()++data EditableTextSetTextContentsMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextSetTextContentsMethodInfo a signature where+    overloadedMethod _ = editableTextSetTextContents  

@@ -10,3 +10,10 @@ newtype EditableText = EditableText (ForeignPtr EditableText) class ForeignPtrNewtype a => EditableTextK a instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o+data EditableTextCopyTextMethodInfo+data EditableTextCutTextMethodInfo+data EditableTextDeleteTextMethodInfo+data EditableTextInsertTextMethodInfo+data EditableTextPasteTextMethodInfo+data EditableTextSetRunAttributesMethodInfo+data EditableTextSetTextContentsMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,6 +17,7 @@   -- * Methods -- ** hyperlinkImplGetHyperlink+    HyperlinkImplGetHyperlinkMethodInfo     ,     hyperlinkImplGetHyperlink               ,  @@ -39,6 +41,18 @@ noHyperlinkImpl :: Maybe HyperlinkImpl noHyperlinkImpl = Nothing +type family ResolveHyperlinkImplMethod (t :: Symbol) (o :: *) :: * where+    ResolveHyperlinkImplMethod "getHyperlink" o = HyperlinkImplGetHyperlinkMethodInfo+    ResolveHyperlinkImplMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveHyperlinkImplMethod t HyperlinkImpl, MethodInfo info HyperlinkImpl p) => IsLabelProxy t (HyperlinkImpl -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveHyperlinkImplMethod t HyperlinkImpl, MethodInfo info HyperlinkImpl p) => IsLabel t (HyperlinkImpl -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList HyperlinkImpl = HyperlinkImplAttributeList type HyperlinkImplAttributeList = ('[ ] :: [(Symbol, *)]) @@ -52,9 +66,8 @@  -- method HyperlinkImpl::get_hyperlink -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Hyperlink" -- throws : False -- Skip return : False@@ -66,8 +79,8 @@  hyperlinkImplGetHyperlink ::     (MonadIO m, HyperlinkImplK a) =>-    a ->                                    -- _obj-    m Hyperlink+    a                                       -- _obj+    -> m Hyperlink                          -- result hyperlinkImplGetHyperlink _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_impl_get_hyperlink _obj'@@ -75,5 +88,9 @@     result' <- (wrapObject Hyperlink) result     touchManagedPtr _obj     return result'++data HyperlinkImplGetHyperlinkMethodInfo+instance (signature ~ (m Hyperlink), MonadIO m, HyperlinkImplK a) => MethodInfo HyperlinkImplGetHyperlinkMethodInfo a signature where+    overloadedMethod _ = hyperlinkImplGetHyperlink  

@@ -10,3 +10,4 @@ newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl) class ForeignPtrNewtype a => HyperlinkImplK a instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o+data HyperlinkImplGetHyperlinkMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,14 +17,17 @@   -- * Methods -- ** hypertextGetLink+    HypertextGetLinkMethodInfo              ,     hypertextGetLink                        ,   -- ** hypertextGetLinkIndex+    HypertextGetLinkIndexMethodInfo         ,     hypertextGetLinkIndex                   ,   -- ** hypertextGetNLinks+    HypertextGetNLinksMethodInfo            ,     hypertextGetNLinks                      ,  @@ -62,6 +66,20 @@ noHypertext :: Maybe Hypertext noHypertext = Nothing +type family ResolveHypertextMethod (t :: Symbol) (o :: *) :: * where+    ResolveHypertextMethod "getLink" o = HypertextGetLinkMethodInfo+    ResolveHypertextMethod "getLinkIndex" o = HypertextGetLinkIndexMethodInfo+    ResolveHypertextMethod "getNLinks" o = HypertextGetNLinksMethodInfo+    ResolveHypertextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveHypertextMethod t Hypertext, MethodInfo info Hypertext p) => IsLabelProxy t (Hypertext -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveHypertextMethod t Hypertext, MethodInfo info Hypertext p) => IsLabel t (Hypertext -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Hypertext::link-selected type HypertextLinkSelectedCallback =     Int32 ->@@ -112,7 +130,7 @@     connectSignal _ = connectHypertextLinkSelected  type instance SignalList Hypertext = HypertextSignalList-type HypertextSignalList = ('[ '("link-selected", HypertextLinkSelectedSignalInfo)] :: [(Symbol, *)])+type HypertextSignalList = ('[ '("linkSelected", HypertextLinkSelectedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => HypertextK a instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o@@ -121,9 +139,8 @@  -- method Hypertext::get_link -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Hyperlink" -- throws : False -- Skip return : False@@ -136,22 +153,25 @@  hypertextGetLink ::     (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- link_index-    m Hyperlink-hypertextGetLink _obj link_index = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- linkIndex+    -> m Hyperlink                          -- result+hypertextGetLink _obj linkIndex = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hypertext_get_link _obj' link_index+    result <- atk_hypertext_get_link _obj' linkIndex     checkUnexpectedReturnNULL "atk_hypertext_get_link" result     result' <- (newObject Hyperlink) result     touchManagedPtr _obj     return result' +data HypertextGetLinkMethodInfo+instance (signature ~ (Int32 -> m Hyperlink), MonadIO m, HypertextK a) => MethodInfo HypertextGetLinkMethodInfo a signature where+    overloadedMethod _ = hypertextGetLink+ -- method Hypertext::get_link_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -164,20 +184,23 @@  hypertextGetLinkIndex ::     (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- char_index-    m Int32-hypertextGetLinkIndex _obj char_index = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- charIndex+    -> m Int32                              -- result+hypertextGetLinkIndex _obj charIndex = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_hypertext_get_link_index _obj' char_index+    result <- atk_hypertext_get_link_index _obj' charIndex     touchManagedPtr _obj     return result +data HypertextGetLinkIndexMethodInfo+instance (signature ~ (Int32 -> m Int32), MonadIO m, HypertextK a) => MethodInfo HypertextGetLinkIndexMethodInfo a signature where+    overloadedMethod _ = hypertextGetLinkIndex+ -- method Hypertext::get_n_links -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -189,12 +212,16 @@  hypertextGetNLinks ::     (MonadIO m, HypertextK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result hypertextGetNLinks _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hypertext_get_n_links _obj'     touchManagedPtr _obj     return result++data HypertextGetNLinksMethodInfo+instance (signature ~ (m Int32), MonadIO m, HypertextK a) => MethodInfo HypertextGetNLinksMethodInfo a signature where+    overloadedMethod _ = hypertextGetNLinks  

@@ -11,3 +11,6 @@ data HypertextLinkSelectedSignalInfo class ForeignPtrNewtype a => HypertextK a instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o+data HypertextGetLinkMethodInfo+data HypertextGetLinkIndexMethodInfo+data HypertextGetNLinksMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,22 +17,27 @@   -- * Methods -- ** imageGetImageDescription+    ImageGetImageDescriptionMethodInfo      ,     imageGetImageDescription                ,   -- ** imageGetImageLocale+    ImageGetImageLocaleMethodInfo           ,     imageGetImageLocale                     ,   -- ** imageGetImagePosition+    ImageGetImagePositionMethodInfo         ,     imageGetImagePosition                   ,   -- ** imageGetImageSize+    ImageGetImageSizeMethodInfo             ,     imageGetImageSize                       ,   -- ** imageSetImageDescription+    ImageSetImageDescriptionMethodInfo      ,     imageSetImageDescription                ,  @@ -55,6 +61,22 @@ noImage :: Maybe Image noImage = Nothing +type family ResolveImageMethod (t :: Symbol) (o :: *) :: * where+    ResolveImageMethod "getImageDescription" o = ImageGetImageDescriptionMethodInfo+    ResolveImageMethod "getImageLocale" o = ImageGetImageLocaleMethodInfo+    ResolveImageMethod "getImagePosition" o = ImageGetImagePositionMethodInfo+    ResolveImageMethod "getImageSize" o = ImageGetImageSizeMethodInfo+    ResolveImageMethod "setImageDescription" o = ImageSetImageDescriptionMethodInfo+    ResolveImageMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveImageMethod t Image, MethodInfo info Image p) => IsLabelProxy t (Image -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveImageMethod t Image, MethodInfo info Image p) => IsLabel t (Image -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Image = ImageAttributeList type ImageAttributeList = ('[ ] :: [(Symbol, *)]) @@ -68,9 +90,8 @@  -- method Image::get_image_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -82,8 +103,8 @@  imageGetImageDescription ::     (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result imageGetImageDescription _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_image_get_image_description _obj'@@ -92,11 +113,14 @@     touchManagedPtr _obj     return result' +data ImageGetImageDescriptionMethodInfo+instance (signature ~ (m T.Text), MonadIO m, ImageK a) => MethodInfo ImageGetImageDescriptionMethodInfo a signature where+    overloadedMethod _ = imageGetImageDescription+ -- method Image::get_image_locale -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -108,8 +132,8 @@  imageGetImageLocale ::     (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result imageGetImageLocale _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_image_get_image_locale _obj'@@ -118,11 +142,14 @@     touchManagedPtr _obj     return result' +data ImageGetImageLocaleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, ImageK a) => MethodInfo ImageGetImageLocaleMethodInfo a signature where+    overloadedMethod _ = imageGetImageLocale+ -- method Image::get_image_position -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", 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 = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -137,23 +164,26 @@  imageGetImagePosition ::     (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coord_type-    m ()-imageGetImagePosition _obj x y coord_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coordType+    -> m ()                                 -- result+imageGetImagePosition _obj x y coordType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type-    atk_image_get_image_position _obj' x y coord_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    atk_image_get_image_position _obj' x y coordType'     touchManagedPtr _obj     return () +data ImageGetImagePositionMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m ()), MonadIO m, ImageK a) => MethodInfo ImageGetImagePositionMethodInfo a signature where+    overloadedMethod _ = imageGetImagePosition+ -- method Image::get_image_size -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", 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@@ -167,21 +197,24 @@  imageGetImageSize ::     (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()+    a                                       -- _obj+    -> Int32                                -- width+    -> Int32                                -- height+    -> m ()                                 -- result imageGetImageSize _obj width height = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     atk_image_get_image_size _obj' width height     touchManagedPtr _obj     return () +data ImageGetImageSizeMethodInfo+instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, ImageK a) => MethodInfo ImageGetImageSizeMethodInfo a signature where+    overloadedMethod _ = imageGetImageSize+ -- method Image::set_image_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -194,9 +227,9 @@  imageSetImageDescription ::     (MonadIO m, ImageK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- description-    m Bool+    a                                       -- _obj+    -> T.Text                               -- description+    -> m Bool                               -- result imageSetImageDescription _obj description = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     description' <- textToCString description@@ -205,5 +238,9 @@     touchManagedPtr _obj     freeMem description'     return result'++data ImageSetImageDescriptionMethodInfo+instance (signature ~ (T.Text -> m Bool), MonadIO m, ImageK a) => MethodInfo ImageSetImageDescriptionMethodInfo a signature where+    overloadedMethod _ = imageSetImageDescription  

@@ -10,3 +10,8 @@ newtype Image = Image (ForeignPtr Image) class ForeignPtrNewtype a => ImageK a instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o+data ImageGetImageDescriptionMethodInfo+data ImageGetImageLocaleMethodInfo+data ImageGetImagePositionMethodInfo+data ImageGetImageSizeMethodInfo+data ImageSetImageDescriptionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -31,6 +32,17 @@ newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface) noImplementorIface :: Maybe ImplementorIface noImplementorIface = Nothing++type family ResolveImplementorIfaceMethod (t :: Symbol) (o :: *) :: * where+    ResolveImplementorIfaceMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveImplementorIfaceMethod t ImplementorIface, MethodInfo info ImplementorIface p) => IsLabelProxy t (ImplementorIface -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveImplementorIfaceMethod t ImplementorIface, MethodInfo info ImplementorIface p) => IsLabel t (ImplementorIface -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif  type instance AttributeList ImplementorIface = ImplementorIfaceAttributeList type ImplementorIfaceAttributeList = ('[ ] :: [(Symbol, *)])

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,30 +17,37 @@   -- * Methods -- ** selectionAddSelection+    SelectionAddSelectionMethodInfo         ,     selectionAddSelection                   ,   -- ** selectionClearSelection+    SelectionClearSelectionMethodInfo       ,     selectionClearSelection                 ,   -- ** selectionGetSelectionCount+    SelectionGetSelectionCountMethodInfo    ,     selectionGetSelectionCount              ,   -- ** selectionIsChildSelected+    SelectionIsChildSelectedMethodInfo      ,     selectionIsChildSelected                ,   -- ** selectionRefSelection+    SelectionRefSelectionMethodInfo         ,     selectionRefSelection                   ,   -- ** selectionRemoveSelection+    SelectionRemoveSelectionMethodInfo      ,     selectionRemoveSelection                ,   -- ** selectionSelectAllSelection+    SelectionSelectAllSelectionMethodInfo   ,     selectionSelectAllSelection             ,  @@ -78,6 +86,24 @@ noSelection :: Maybe Selection noSelection = Nothing +type family ResolveSelectionMethod (t :: Symbol) (o :: *) :: * where+    ResolveSelectionMethod "addSelection" o = SelectionAddSelectionMethodInfo+    ResolveSelectionMethod "clearSelection" o = SelectionClearSelectionMethodInfo+    ResolveSelectionMethod "isChildSelected" o = SelectionIsChildSelectedMethodInfo+    ResolveSelectionMethod "refSelection" o = SelectionRefSelectionMethodInfo+    ResolveSelectionMethod "removeSelection" o = SelectionRemoveSelectionMethodInfo+    ResolveSelectionMethod "selectAllSelection" o = SelectionSelectAllSelectionMethodInfo+    ResolveSelectionMethod "getSelectionCount" o = SelectionGetSelectionCountMethodInfo+    ResolveSelectionMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveSelectionMethod t Selection, MethodInfo info Selection p) => IsLabelProxy t (Selection -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveSelectionMethod t Selection, MethodInfo info Selection p) => IsLabel t (Selection -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Selection::selection-changed type SelectionSelectionChangedCallback =     IO ()@@ -125,7 +151,7 @@     connectSignal _ = connectSelectionSelectionChanged  type instance SignalList Selection = SelectionSignalList-type SelectionSignalList = ('[ '("selection-changed", SelectionSelectionChangedSignalInfo)] :: [(Symbol, *)])+type SelectionSignalList = ('[ '("selectionChanged", SelectionSelectionChangedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => SelectionK a instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o@@ -134,9 +160,8 @@  -- method Selection::add_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -149,9 +174,9 @@  selectionAddSelection ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool+    a                                       -- _obj+    -> Int32                                -- i+    -> m Bool                               -- result selectionAddSelection _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_add_selection _obj' i@@ -159,11 +184,14 @@     touchManagedPtr _obj     return result' +data SelectionAddSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, SelectionK a) => MethodInfo SelectionAddSelectionMethodInfo a signature where+    overloadedMethod _ = selectionAddSelection+ -- method Selection::clear_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -175,8 +203,8 @@  selectionClearSelection ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result selectionClearSelection _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_clear_selection _obj'@@ -184,11 +212,14 @@     touchManagedPtr _obj     return result' +data SelectionClearSelectionMethodInfo+instance (signature ~ (m Bool), MonadIO m, SelectionK a) => MethodInfo SelectionClearSelectionMethodInfo a signature where+    overloadedMethod _ = selectionClearSelection+ -- method Selection::get_selection_count -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -200,19 +231,22 @@  selectionGetSelectionCount ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result selectionGetSelectionCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_get_selection_count _obj'     touchManagedPtr _obj     return result +data SelectionGetSelectionCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, SelectionK a) => MethodInfo SelectionGetSelectionCountMethodInfo a signature where+    overloadedMethod _ = selectionGetSelectionCount+ -- method Selection::is_child_selected -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -225,9 +259,9 @@  selectionIsChildSelected ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool+    a                                       -- _obj+    -> Int32                                -- i+    -> m Bool                               -- result selectionIsChildSelected _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_is_child_selected _obj' i@@ -235,11 +269,14 @@     touchManagedPtr _obj     return result' +data SelectionIsChildSelectedMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, SelectionK a) => MethodInfo SelectionIsChildSelectedMethodInfo a signature where+    overloadedMethod _ = selectionIsChildSelected+ -- method Selection::ref_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -252,9 +289,9 @@  selectionRefSelection ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Object+    a                                       -- _obj+    -> Int32                                -- i+    -> m Object                             -- result selectionRefSelection _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_ref_selection _obj' i@@ -263,11 +300,14 @@     touchManagedPtr _obj     return result' +data SelectionRefSelectionMethodInfo+instance (signature ~ (Int32 -> m Object), MonadIO m, SelectionK a) => MethodInfo SelectionRefSelectionMethodInfo a signature where+    overloadedMethod _ = selectionRefSelection+ -- method Selection::remove_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -280,9 +320,9 @@  selectionRemoveSelection ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Bool+    a                                       -- _obj+    -> Int32                                -- i+    -> m Bool                               -- result selectionRemoveSelection _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_remove_selection _obj' i@@ -290,11 +330,14 @@     touchManagedPtr _obj     return result' +data SelectionRemoveSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, SelectionK a) => MethodInfo SelectionRemoveSelectionMethodInfo a signature where+    overloadedMethod _ = selectionRemoveSelection+ -- method Selection::select_all_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -306,13 +349,17 @@  selectionSelectAllSelection ::     (MonadIO m, SelectionK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result selectionSelectAllSelection _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_selection_select_all_selection _obj'     let result' = (/= 0) result     touchManagedPtr _obj     return result'++data SelectionSelectAllSelectionMethodInfo+instance (signature ~ (m Bool), MonadIO m, SelectionK a) => MethodInfo SelectionSelectAllSelectionMethodInfo a signature where+    overloadedMethod _ = selectionSelectAllSelection  

@@ -11,3 +11,10 @@ data SelectionSelectionChangedSignalInfo class ForeignPtrNewtype a => SelectionK a instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o+data SelectionAddSelectionMethodInfo+data SelectionClearSelectionMethodInfo+data SelectionGetSelectionCountMethodInfo+data SelectionIsChildSelectedMethodInfo+data SelectionRefSelectionMethodInfo+data SelectionRemoveSelectionMethodInfo+data SelectionSelectAllSelectionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,18 +17,22 @@   -- * Methods -- ** streamableContentGetMimeType+    StreamableContentGetMimeTypeMethodInfo  ,     streamableContentGetMimeType            ,   -- ** streamableContentGetNMimeTypes+    StreamableContentGetNMimeTypesMethodInfo,     streamableContentGetNMimeTypes          ,   -- ** streamableContentGetStream+    StreamableContentGetStreamMethodInfo    ,     streamableContentGetStream              ,   -- ** streamableContentGetUri+    StreamableContentGetUriMethodInfo       ,     streamableContentGetUri                 ,  @@ -52,6 +57,21 @@ noStreamableContent :: Maybe StreamableContent noStreamableContent = Nothing +type family ResolveStreamableContentMethod (t :: Symbol) (o :: *) :: * where+    ResolveStreamableContentMethod "getMimeType" o = StreamableContentGetMimeTypeMethodInfo+    ResolveStreamableContentMethod "getNMimeTypes" o = StreamableContentGetNMimeTypesMethodInfo+    ResolveStreamableContentMethod "getStream" o = StreamableContentGetStreamMethodInfo+    ResolveStreamableContentMethod "getUri" o = StreamableContentGetUriMethodInfo+    ResolveStreamableContentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveStreamableContentMethod t StreamableContent, MethodInfo info StreamableContent p) => IsLabelProxy t (StreamableContent -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveStreamableContentMethod t StreamableContent, MethodInfo info StreamableContent p) => IsLabel t (StreamableContent -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList StreamableContent = StreamableContentAttributeList type StreamableContentAttributeList = ('[ ] :: [(Symbol, *)]) @@ -65,9 +85,8 @@  -- method StreamableContent::get_mime_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -80,9 +99,9 @@  streamableContentGetMimeType ::     (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result streamableContentGetMimeType _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_streamable_content_get_mime_type _obj' i@@ -91,11 +110,14 @@     touchManagedPtr _obj     return result' +data StreamableContentGetMimeTypeMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, StreamableContentK a) => MethodInfo StreamableContentGetMimeTypeMethodInfo a signature where+    overloadedMethod _ = streamableContentGetMimeType+ -- method StreamableContent::get_n_mime_types -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -107,19 +129,22 @@  streamableContentGetNMimeTypes ::     (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result streamableContentGetNMimeTypes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_streamable_content_get_n_mime_types _obj'     touchManagedPtr _obj     return result +data StreamableContentGetNMimeTypesMethodInfo+instance (signature ~ (m Int32), MonadIO m, StreamableContentK a) => MethodInfo StreamableContentGetNMimeTypesMethodInfo a signature where+    overloadedMethod _ = streamableContentGetNMimeTypes+ -- method StreamableContent::get_stream -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "IOChannel" -- throws : False -- Skip return : False@@ -132,24 +157,27 @@  streamableContentGetStream ::     (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- mime_type-    m GLib.IOChannel-streamableContentGetStream _obj mime_type = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- mimeType+    -> m GLib.IOChannel                     -- result+streamableContentGetStream _obj mimeType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    mime_type' <- textToCString mime_type-    result <- atk_streamable_content_get_stream _obj' mime_type'+    mimeType' <- textToCString mimeType+    result <- atk_streamable_content_get_stream _obj' mimeType'     checkUnexpectedReturnNULL "atk_streamable_content_get_stream" result     result' <- (wrapBoxed GLib.IOChannel) result     touchManagedPtr _obj-    freeMem mime_type'+    freeMem mimeType'     return result' +data StreamableContentGetStreamMethodInfo+instance (signature ~ (T.Text -> m GLib.IOChannel), MonadIO m, StreamableContentK a) => MethodInfo StreamableContentGetStreamMethodInfo a signature where+    overloadedMethod _ = streamableContentGetStream+ -- method StreamableContent::get_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -162,17 +190,21 @@  streamableContentGetUri ::     (MonadIO m, StreamableContentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- mime_type-    m T.Text-streamableContentGetUri _obj mime_type = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- mimeType+    -> m T.Text                             -- result+streamableContentGetUri _obj mimeType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    mime_type' <- textToCString mime_type-    result <- atk_streamable_content_get_uri _obj' mime_type'+    mimeType' <- textToCString mimeType+    result <- atk_streamable_content_get_uri _obj' mimeType'     checkUnexpectedReturnNULL "atk_streamable_content_get_uri" result     result' <- cstringToText result     touchManagedPtr _obj-    freeMem mime_type'+    freeMem mimeType'     return result'++data StreamableContentGetUriMethodInfo+instance (signature ~ (T.Text -> m T.Text), MonadIO m, StreamableContentK a) => MethodInfo StreamableContentGetUriMethodInfo a signature where+    overloadedMethod _ = streamableContentGetUri  

@@ -10,3 +10,7 @@ newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent) class ForeignPtrNewtype a => StreamableContentK a instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o+data StreamableContentGetMimeTypeMethodInfo+data StreamableContentGetNMimeTypesMethodInfo+data StreamableContentGetStreamMethodInfo+data StreamableContentGetUriMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,118 +17,147 @@   -- * Methods -- ** tableAddColumnSelection+    TableAddColumnSelectionMethodInfo       ,     tableAddColumnSelection                 ,   -- ** tableAddRowSelection+    TableAddRowSelectionMethodInfo          ,     tableAddRowSelection                    ,   -- ** tableGetCaption+    TableGetCaptionMethodInfo               ,     tableGetCaption                         ,   -- ** tableGetColumnAtIndex+    TableGetColumnAtIndexMethodInfo         ,     tableGetColumnAtIndex                   ,   -- ** tableGetColumnDescription+    TableGetColumnDescriptionMethodInfo     ,     tableGetColumnDescription               ,   -- ** tableGetColumnExtentAt+    TableGetColumnExtentAtMethodInfo        ,     tableGetColumnExtentAt                  ,   -- ** tableGetColumnHeader+    TableGetColumnHeaderMethodInfo          ,     tableGetColumnHeader                    ,   -- ** tableGetIndexAt+    TableGetIndexAtMethodInfo               ,     tableGetIndexAt                         ,   -- ** tableGetNColumns+    TableGetNColumnsMethodInfo              ,     tableGetNColumns                        ,   -- ** tableGetNRows+    TableGetNRowsMethodInfo                 ,     tableGetNRows                           ,   -- ** tableGetRowAtIndex+    TableGetRowAtIndexMethodInfo            ,     tableGetRowAtIndex                      ,   -- ** tableGetRowDescription+    TableGetRowDescriptionMethodInfo        ,     tableGetRowDescription                  ,   -- ** tableGetRowExtentAt+    TableGetRowExtentAtMethodInfo           ,     tableGetRowExtentAt                     ,   -- ** tableGetRowHeader+    TableGetRowHeaderMethodInfo             ,     tableGetRowHeader                       ,   -- ** tableGetSelectedColumns+    TableGetSelectedColumnsMethodInfo       ,     tableGetSelectedColumns                 ,   -- ** tableGetSelectedRows+    TableGetSelectedRowsMethodInfo          ,     tableGetSelectedRows                    ,   -- ** tableGetSummary+    TableGetSummaryMethodInfo               ,     tableGetSummary                         ,   -- ** tableIsColumnSelected+    TableIsColumnSelectedMethodInfo         ,     tableIsColumnSelected                   ,   -- ** tableIsRowSelected+    TableIsRowSelectedMethodInfo            ,     tableIsRowSelected                      ,   -- ** tableIsSelected+    TableIsSelectedMethodInfo               ,     tableIsSelected                         ,   -- ** tableRefAt+    TableRefAtMethodInfo                    ,     tableRefAt                              ,   -- ** tableRemoveColumnSelection+    TableRemoveColumnSelectionMethodInfo    ,     tableRemoveColumnSelection              ,   -- ** tableRemoveRowSelection+    TableRemoveRowSelectionMethodInfo       ,     tableRemoveRowSelection                 ,   -- ** tableSetCaption+    TableSetCaptionMethodInfo               ,     tableSetCaption                         ,   -- ** tableSetColumnDescription+    TableSetColumnDescriptionMethodInfo     ,     tableSetColumnDescription               ,   -- ** tableSetColumnHeader+    TableSetColumnHeaderMethodInfo          ,     tableSetColumnHeader                    ,   -- ** tableSetRowDescription+    TableSetRowDescriptionMethodInfo        ,     tableSetRowDescription                  ,   -- ** tableSetRowHeader+    TableSetRowHeaderMethodInfo             ,     tableSetRowHeader                       ,   -- ** tableSetSummary+    TableSetSummaryMethodInfo               ,     tableSetSummary                         ,  @@ -238,6 +268,46 @@ noTable :: Maybe Table noTable = Nothing +type family ResolveTableMethod (t :: Symbol) (o :: *) :: * where+    ResolveTableMethod "addColumnSelection" o = TableAddColumnSelectionMethodInfo+    ResolveTableMethod "addRowSelection" o = TableAddRowSelectionMethodInfo+    ResolveTableMethod "isColumnSelected" o = TableIsColumnSelectedMethodInfo+    ResolveTableMethod "isRowSelected" o = TableIsRowSelectedMethodInfo+    ResolveTableMethod "isSelected" o = TableIsSelectedMethodInfo+    ResolveTableMethod "refAt" o = TableRefAtMethodInfo+    ResolveTableMethod "removeColumnSelection" o = TableRemoveColumnSelectionMethodInfo+    ResolveTableMethod "removeRowSelection" o = TableRemoveRowSelectionMethodInfo+    ResolveTableMethod "getCaption" o = TableGetCaptionMethodInfo+    ResolveTableMethod "getColumnAtIndex" o = TableGetColumnAtIndexMethodInfo+    ResolveTableMethod "getColumnDescription" o = TableGetColumnDescriptionMethodInfo+    ResolveTableMethod "getColumnExtentAt" o = TableGetColumnExtentAtMethodInfo+    ResolveTableMethod "getColumnHeader" o = TableGetColumnHeaderMethodInfo+    ResolveTableMethod "getIndexAt" o = TableGetIndexAtMethodInfo+    ResolveTableMethod "getNColumns" o = TableGetNColumnsMethodInfo+    ResolveTableMethod "getNRows" o = TableGetNRowsMethodInfo+    ResolveTableMethod "getRowAtIndex" o = TableGetRowAtIndexMethodInfo+    ResolveTableMethod "getRowDescription" o = TableGetRowDescriptionMethodInfo+    ResolveTableMethod "getRowExtentAt" o = TableGetRowExtentAtMethodInfo+    ResolveTableMethod "getRowHeader" o = TableGetRowHeaderMethodInfo+    ResolveTableMethod "getSelectedColumns" o = TableGetSelectedColumnsMethodInfo+    ResolveTableMethod "getSelectedRows" o = TableGetSelectedRowsMethodInfo+    ResolveTableMethod "getSummary" o = TableGetSummaryMethodInfo+    ResolveTableMethod "setCaption" o = TableSetCaptionMethodInfo+    ResolveTableMethod "setColumnDescription" o = TableSetColumnDescriptionMethodInfo+    ResolveTableMethod "setColumnHeader" o = TableSetColumnHeaderMethodInfo+    ResolveTableMethod "setRowDescription" o = TableSetRowDescriptionMethodInfo+    ResolveTableMethod "setRowHeader" o = TableSetRowHeaderMethodInfo+    ResolveTableMethod "setSummary" o = TableSetSummaryMethodInfo+    ResolveTableMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveTableMethod t Table, MethodInfo info Table p) => IsLabelProxy t (Table -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveTableMethod t Table, MethodInfo info Table p) => IsLabel t (Table -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Table::column-deleted type TableColumnDeletedCallback =     Int32 ->@@ -567,7 +637,7 @@     connectSignal _ = connectTableRowReordered  type instance SignalList Table = TableSignalList-type TableSignalList = ('[ '("column-deleted", TableColumnDeletedSignalInfo), '("column-inserted", TableColumnInsertedSignalInfo), '("column-reordered", TableColumnReorderedSignalInfo), '("model-changed", TableModelChangedSignalInfo), '("row-deleted", TableRowDeletedSignalInfo), '("row-inserted", TableRowInsertedSignalInfo), '("row-reordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)])+type TableSignalList = ('[ '("columnDeleted", TableColumnDeletedSignalInfo), '("columnInserted", TableColumnInsertedSignalInfo), '("columnReordered", TableColumnReorderedSignalInfo), '("modelChanged", TableModelChangedSignalInfo), '("rowDeleted", TableRowDeletedSignalInfo), '("rowInserted", TableRowInsertedSignalInfo), '("rowReordered", TableRowReorderedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => TableK a instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o@@ -576,9 +646,8 @@  -- method Table::add_column_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -591,9 +660,9 @@  tableAddColumnSelection ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool+    a                                       -- _obj+    -> Int32                                -- column+    -> m Bool                               -- result tableAddColumnSelection _obj column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_add_column_selection _obj' column@@ -601,11 +670,14 @@     touchManagedPtr _obj     return result' +data TableAddColumnSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableAddColumnSelectionMethodInfo a signature where+    overloadedMethod _ = tableAddColumnSelection+ -- method Table::add_row_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -618,9 +690,9 @@  tableAddRowSelection ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool+    a                                       -- _obj+    -> Int32                                -- row+    -> m Bool                               -- result tableAddRowSelection _obj row = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_add_row_selection _obj' row@@ -628,11 +700,14 @@     touchManagedPtr _obj     return result' +data TableAddRowSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableAddRowSelectionMethodInfo a signature where+    overloadedMethod _ = tableAddRowSelection+ -- method Table::get_caption -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -644,8 +719,8 @@  tableGetCaption ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Object+    a                                       -- _obj+    -> m Object                             -- result tableGetCaption _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_caption _obj'@@ -654,11 +729,14 @@     touchManagedPtr _obj     return result' +data TableGetCaptionMethodInfo+instance (signature ~ (m Object), MonadIO m, TableK a) => MethodInfo TableGetCaptionMethodInfo a signature where+    overloadedMethod _ = tableGetCaption+ -- method Table::get_column_at_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", 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}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -671,20 +749,23 @@ {-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-} tableGetColumnAtIndex ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m Int32-tableGetColumnAtIndex _obj index_ = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- index+    -> m Int32                              -- result+tableGetColumnAtIndex _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_column_at_index _obj' index_+    result <- atk_table_get_column_at_index _obj' index     touchManagedPtr _obj     return result +data TableGetColumnAtIndexMethodInfo+instance (signature ~ (Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetColumnAtIndexMethodInfo a signature where+    overloadedMethod _ = tableGetColumnAtIndex+ -- method Table::get_column_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -697,9 +778,9 @@  tableGetColumnDescription ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m T.Text+    a                                       -- _obj+    -> Int32                                -- column+    -> m T.Text                             -- result tableGetColumnDescription _obj column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_column_description _obj' column@@ -708,11 +789,14 @@     touchManagedPtr _obj     return result' +data TableGetColumnDescriptionMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, TableK a) => MethodInfo TableGetColumnDescriptionMethodInfo a signature where+    overloadedMethod _ = tableGetColumnDescription+ -- method Table::get_column_extent_at -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -726,21 +810,24 @@  tableGetColumnExtentAt ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32+    a                                       -- _obj+    -> Int32                                -- row+    -> Int32                                -- column+    -> m Int32                              -- result tableGetColumnExtentAt _obj row column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_column_extent_at _obj' row column     touchManagedPtr _obj     return result +data TableGetColumnExtentAtMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetColumnExtentAtMethodInfo a signature where+    overloadedMethod _ = tableGetColumnExtentAt+ -- method Table::get_column_header -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -753,9 +840,9 @@  tableGetColumnHeader ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Object+    a                                       -- _obj+    -> Int32                                -- column+    -> m Object                             -- result tableGetColumnHeader _obj column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_column_header _obj' column@@ -764,11 +851,14 @@     touchManagedPtr _obj     return result' +data TableGetColumnHeaderMethodInfo+instance (signature ~ (Int32 -> m Object), MonadIO m, TableK a) => MethodInfo TableGetColumnHeaderMethodInfo a signature where+    overloadedMethod _ = tableGetColumnHeader+ -- method Table::get_index_at -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -782,21 +872,24 @@ {-# DEPRECATED tableGetIndexAt ["Since 2.12. Use atk_table_ref_at() in order to get the","accessible that represents the cell at (@row, @column)"]#-} tableGetIndexAt ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32+    a                                       -- _obj+    -> Int32                                -- row+    -> Int32                                -- column+    -> m Int32                              -- result tableGetIndexAt _obj row column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_index_at _obj' row column     touchManagedPtr _obj     return result +data TableGetIndexAtMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetIndexAtMethodInfo a signature where+    overloadedMethod _ = tableGetIndexAt+ -- method Table::get_n_columns -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -808,19 +901,22 @@  tableGetNColumns ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result tableGetNColumns _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_n_columns _obj'     touchManagedPtr _obj     return result +data TableGetNColumnsMethodInfo+instance (signature ~ (m Int32), MonadIO m, TableK a) => MethodInfo TableGetNColumnsMethodInfo a signature where+    overloadedMethod _ = tableGetNColumns+ -- method Table::get_n_rows -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -832,19 +928,22 @@  tableGetNRows ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result tableGetNRows _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_n_rows _obj'     touchManagedPtr _obj     return result +data TableGetNRowsMethodInfo+instance (signature ~ (m Int32), MonadIO m, TableK a) => MethodInfo TableGetNRowsMethodInfo a signature where+    overloadedMethod _ = tableGetNRows+ -- method Table::get_row_at_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", 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}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -857,20 +956,23 @@ {-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-} tableGetRowAtIndex ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m Int32-tableGetRowAtIndex _obj index_ = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- index+    -> m Int32                              -- result+tableGetRowAtIndex _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_table_get_row_at_index _obj' index_+    result <- atk_table_get_row_at_index _obj' index     touchManagedPtr _obj     return result +data TableGetRowAtIndexMethodInfo+instance (signature ~ (Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetRowAtIndexMethodInfo a signature where+    overloadedMethod _ = tableGetRowAtIndex+ -- method Table::get_row_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -883,9 +985,9 @@  tableGetRowDescription ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m T.Text+    a                                       -- _obj+    -> Int32                                -- row+    -> m T.Text                             -- result tableGetRowDescription _obj row = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_row_description _obj' row@@ -894,11 +996,14 @@     touchManagedPtr _obj     return result' +data TableGetRowDescriptionMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, TableK a) => MethodInfo TableGetRowDescriptionMethodInfo a signature where+    overloadedMethod _ = tableGetRowDescription+ -- method Table::get_row_extent_at -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -912,21 +1017,24 @@  tableGetRowExtentAt ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Int32+    a                                       -- _obj+    -> Int32                                -- row+    -> Int32                                -- column+    -> m Int32                              -- result tableGetRowExtentAt _obj row column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_row_extent_at _obj' row column     touchManagedPtr _obj     return result +data TableGetRowExtentAtMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetRowExtentAtMethodInfo a signature where+    overloadedMethod _ = tableGetRowExtentAt+ -- method Table::get_row_header -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -939,9 +1047,9 @@  tableGetRowHeader ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Object+    a                                       -- _obj+    -> Int32                                -- row+    -> m Object                             -- result tableGetRowHeader _obj row = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_row_header _obj' row@@ -950,11 +1058,14 @@     touchManagedPtr _obj     return result' +data TableGetRowHeaderMethodInfo+instance (signature ~ (Int32 -> m Object), MonadIO m, TableK a) => MethodInfo TableGetRowHeaderMethodInfo a signature where+    overloadedMethod _ = tableGetRowHeader+ -- method Table::get_selected_columns -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -967,20 +1078,23 @@  tableGetSelectedColumns ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selected-    m Int32+    a                                       -- _obj+    -> Int32                                -- selected+    -> m Int32                              -- result tableGetSelectedColumns _obj selected = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_selected_columns _obj' selected     touchManagedPtr _obj     return result +data TableGetSelectedColumnsMethodInfo+instance (signature ~ (Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetSelectedColumnsMethodInfo a signature where+    overloadedMethod _ = tableGetSelectedColumns+ -- method Table::get_selected_rows -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selected", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -993,20 +1107,23 @@  tableGetSelectedRows ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selected-    m Int32+    a                                       -- _obj+    -> Int32                                -- selected+    -> m Int32                              -- result tableGetSelectedRows _obj selected = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_selected_rows _obj' selected     touchManagedPtr _obj     return result +data TableGetSelectedRowsMethodInfo+instance (signature ~ (Int32 -> m Int32), MonadIO m, TableK a) => MethodInfo TableGetSelectedRowsMethodInfo a signature where+    overloadedMethod _ = tableGetSelectedRows+ -- method Table::get_summary -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -1018,8 +1135,8 @@  tableGetSummary ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    m Object+    a                                       -- _obj+    -> m Object                             -- result tableGetSummary _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_get_summary _obj'@@ -1028,11 +1145,14 @@     touchManagedPtr _obj     return result' +data TableGetSummaryMethodInfo+instance (signature ~ (m Object), MonadIO m, TableK a) => MethodInfo TableGetSummaryMethodInfo a signature where+    overloadedMethod _ = tableGetSummary+ -- method Table::is_column_selected -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1045,9 +1165,9 @@  tableIsColumnSelected ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool+    a                                       -- _obj+    -> Int32                                -- column+    -> m Bool                               -- result tableIsColumnSelected _obj column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_is_column_selected _obj' column@@ -1055,11 +1175,14 @@     touchManagedPtr _obj     return result' +data TableIsColumnSelectedMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableIsColumnSelectedMethodInfo a signature where+    overloadedMethod _ = tableIsColumnSelected+ -- method Table::is_row_selected -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1072,9 +1195,9 @@  tableIsRowSelected ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool+    a                                       -- _obj+    -> Int32                                -- row+    -> m Bool                               -- result tableIsRowSelected _obj row = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_is_row_selected _obj' row@@ -1082,11 +1205,14 @@     touchManagedPtr _obj     return result' +data TableIsRowSelectedMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableIsRowSelectedMethodInfo a signature where+    overloadedMethod _ = tableIsRowSelected+ -- method Table::is_selected -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1100,10 +1226,10 @@  tableIsSelected ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Bool+    a                                       -- _obj+    -> Int32                                -- row+    -> Int32                                -- column+    -> m Bool                               -- result tableIsSelected _obj row column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_is_selected _obj' row column@@ -1111,11 +1237,14 @@     touchManagedPtr _obj     return result' +data TableIsSelectedMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableIsSelectedMethodInfo a signature where+    overloadedMethod _ = tableIsSelected+ -- method Table::ref_at -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -1129,10 +1258,10 @@  tableRefAt ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    Int32 ->                                -- column-    m Object+    a                                       -- _obj+    -> Int32                                -- row+    -> Int32                                -- column+    -> m Object                             -- result tableRefAt _obj row column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_ref_at _obj' row column@@ -1141,11 +1270,14 @@     touchManagedPtr _obj     return result' +data TableRefAtMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Object), MonadIO m, TableK a) => MethodInfo TableRefAtMethodInfo a signature where+    overloadedMethod _ = tableRefAt+ -- method Table::remove_column_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1158,9 +1290,9 @@  tableRemoveColumnSelection ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    m Bool+    a                                       -- _obj+    -> Int32                                -- column+    -> m Bool                               -- result tableRemoveColumnSelection _obj column = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_remove_column_selection _obj' column@@ -1168,11 +1300,14 @@     touchManagedPtr _obj     return result' +data TableRemoveColumnSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableRemoveColumnSelectionMethodInfo a signature where+    overloadedMethod _ = tableRemoveColumnSelection+ -- method Table::remove_row_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1185,9 +1320,9 @@  tableRemoveRowSelection ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    m Bool+    a                                       -- _obj+    -> Int32                                -- row+    -> m Bool                               -- result tableRemoveRowSelection _obj row = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_remove_row_selection _obj' row@@ -1195,11 +1330,14 @@     touchManagedPtr _obj     return result' +data TableRemoveRowSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TableK a) => MethodInfo TableRemoveRowSelectionMethodInfo a signature where+    overloadedMethod _ = tableRemoveRowSelection+ -- method Table::set_caption -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caption", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1212,9 +1350,9 @@  tableSetCaption ::     (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- caption-    m ()+    a                                       -- _obj+    -> b                                    -- caption+    -> m ()                                 -- result tableSetCaption _obj caption = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let caption' = unsafeManagedPtrCastPtr caption@@ -1223,11 +1361,14 @@     touchManagedPtr caption     return () +data TableSetCaptionMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, TableK a, ObjectK b) => MethodInfo TableSetCaptionMethodInfo a signature where+    overloadedMethod _ = tableSetCaption+ -- method Table::set_column_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1241,10 +1382,10 @@  tableSetColumnDescription ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    T.Text ->                               -- description-    m ()+    a                                       -- _obj+    -> Int32                                -- column+    -> T.Text                               -- description+    -> m ()                                 -- result tableSetColumnDescription _obj column description = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     description' <- textToCString description@@ -1253,11 +1394,14 @@     freeMem description'     return () +data TableSetColumnDescriptionMethodInfo+instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, TableK a) => MethodInfo TableSetColumnDescriptionMethodInfo a signature where+    overloadedMethod _ = tableSetColumnDescription+ -- method Table::set_column_header -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1271,10 +1415,10 @@  tableSetColumnHeader ::     (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    Int32 ->                                -- column-    b ->                                    -- header-    m ()+    a                                       -- _obj+    -> Int32                                -- column+    -> b                                    -- header+    -> m ()                                 -- result tableSetColumnHeader _obj column header = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let header' = unsafeManagedPtrCastPtr header@@ -1283,11 +1427,14 @@     touchManagedPtr header     return () +data TableSetColumnHeaderMethodInfo+instance (signature ~ (Int32 -> b -> m ()), MonadIO m, TableK a, ObjectK b) => MethodInfo TableSetColumnHeaderMethodInfo a signature where+    overloadedMethod _ = tableSetColumnHeader+ -- method Table::set_row_description -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1301,10 +1448,10 @@  tableSetRowDescription ::     (MonadIO m, TableK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    T.Text ->                               -- description-    m ()+    a                                       -- _obj+    -> Int32                                -- row+    -> T.Text                               -- description+    -> m ()                                 -- result tableSetRowDescription _obj row description = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     description' <- textToCString description@@ -1313,11 +1460,14 @@     freeMem description'     return () +data TableSetRowDescriptionMethodInfo+instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, TableK a) => MethodInfo TableSetRowDescriptionMethodInfo a signature where+    overloadedMethod _ = tableSetRowDescription+ -- method Table::set_row_header -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1331,10 +1481,10 @@  tableSetRowHeader ::     (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    Int32 ->                                -- row-    b ->                                    -- header-    m ()+    a                                       -- _obj+    -> Int32                                -- row+    -> b                                    -- header+    -> m ()                                 -- result tableSetRowHeader _obj row header = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let header' = unsafeManagedPtrCastPtr header@@ -1343,11 +1493,14 @@     touchManagedPtr header     return () +data TableSetRowHeaderMethodInfo+instance (signature ~ (Int32 -> b -> m ()), MonadIO m, TableK a, ObjectK b) => MethodInfo TableSetRowHeaderMethodInfo a signature where+    overloadedMethod _ = tableSetRowHeader+ -- method Table::set_summary -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accessible", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1360,9 +1513,9 @@  tableSetSummary ::     (MonadIO m, TableK a, ObjectK b) =>-    a ->                                    -- _obj-    b ->                                    -- accessible-    m ()+    a                                       -- _obj+    -> b                                    -- accessible+    -> m ()                                 -- result tableSetSummary _obj accessible = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let accessible' = unsafeManagedPtrCastPtr accessible@@ -1370,5 +1523,9 @@     touchManagedPtr _obj     touchManagedPtr accessible     return ()++data TableSetSummaryMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, TableK a, ObjectK b) => MethodInfo TableSetSummaryMethodInfo a signature where+    overloadedMethod _ = tableSetSummary  

@@ -17,3 +17,32 @@ data TableRowReorderedSignalInfo class ForeignPtrNewtype a => TableK a instance (ForeignPtrNewtype o, IsDescendantOf Table o) => TableK o+data TableAddColumnSelectionMethodInfo+data TableAddRowSelectionMethodInfo+data TableGetCaptionMethodInfo+data TableGetColumnAtIndexMethodInfo+data TableGetColumnDescriptionMethodInfo+data TableGetColumnExtentAtMethodInfo+data TableGetColumnHeaderMethodInfo+data TableGetIndexAtMethodInfo+data TableGetNColumnsMethodInfo+data TableGetNRowsMethodInfo+data TableGetRowAtIndexMethodInfo+data TableGetRowDescriptionMethodInfo+data TableGetRowExtentAtMethodInfo+data TableGetRowHeaderMethodInfo+data TableGetSelectedColumnsMethodInfo+data TableGetSelectedRowsMethodInfo+data TableGetSummaryMethodInfo+data TableIsColumnSelectedMethodInfo+data TableIsRowSelectedMethodInfo+data TableIsSelectedMethodInfo+data TableRefAtMethodInfo+data TableRemoveColumnSelectionMethodInfo+data TableRemoveRowSelectionMethodInfo+data TableSetCaptionMethodInfo+data TableSetColumnDescriptionMethodInfo+data TableSetColumnHeaderMethodInfo+data TableSetRowDescriptionMethodInfo+data TableSetRowHeaderMethodInfo+data TableSetSummaryMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,30 +18,37 @@   -- * Methods -- ** tableCellGetColumnHeaderCells+    TableCellGetColumnHeaderCellsMethodInfo ,     tableCellGetColumnHeaderCells           ,   -- ** tableCellGetColumnSpan+    TableCellGetColumnSpanMethodInfo        ,     tableCellGetColumnSpan                  ,   -- ** tableCellGetPosition+    TableCellGetPositionMethodInfo          ,     tableCellGetPosition                    ,   -- ** tableCellGetRowColumnSpan+    TableCellGetRowColumnSpanMethodInfo     ,     tableCellGetRowColumnSpan               ,   -- ** tableCellGetRowHeaderCells+    TableCellGetRowHeaderCellsMethodInfo    ,     tableCellGetRowHeaderCells              ,   -- ** tableCellGetRowSpan+    TableCellGetRowSpanMethodInfo           ,     tableCellGetRowSpan                     ,   -- ** tableCellGetTable+    TableCellGetTableMethodInfo             ,     tableCellGetTable                       ,  @@ -65,11 +73,74 @@ noTableCell :: Maybe TableCell noTableCell = Nothing +type family ResolveTableCellMethod (t :: Symbol) (o :: *) :: * where+    ResolveTableCellMethod "addRelationship" o = ObjectAddRelationshipMethodInfo+    ResolveTableCellMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveTableCellMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveTableCellMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveTableCellMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveTableCellMethod "initialize" o = ObjectInitializeMethodInfo+    ResolveTableCellMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveTableCellMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveTableCellMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveTableCellMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo+    ResolveTableCellMethod "peekParent" o = ObjectPeekParentMethodInfo+    ResolveTableCellMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveTableCellMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo+    ResolveTableCellMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo+    ResolveTableCellMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveTableCellMethod "refStateSet" o = ObjectRefStateSetMethodInfo+    ResolveTableCellMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo+    ResolveTableCellMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo+    ResolveTableCellMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveTableCellMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveTableCellMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveTableCellMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveTableCellMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveTableCellMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveTableCellMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveTableCellMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveTableCellMethod "getAttributes" o = ObjectGetAttributesMethodInfo+    ResolveTableCellMethod "getColumnHeaderCells" o = TableCellGetColumnHeaderCellsMethodInfo+    ResolveTableCellMethod "getColumnSpan" o = TableCellGetColumnSpanMethodInfo+    ResolveTableCellMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveTableCellMethod "getDescription" o = ObjectGetDescriptionMethodInfo+    ResolveTableCellMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo+    ResolveTableCellMethod "getLayer" o = ObjectGetLayerMethodInfo+    ResolveTableCellMethod "getMdiZorder" o = ObjectGetMdiZorderMethodInfo+    ResolveTableCellMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo+    ResolveTableCellMethod "getName" o = ObjectGetNameMethodInfo+    ResolveTableCellMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo+    ResolveTableCellMethod "getParent" o = ObjectGetParentMethodInfo+    ResolveTableCellMethod "getPosition" o = TableCellGetPositionMethodInfo+    ResolveTableCellMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveTableCellMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveTableCellMethod "getRole" o = ObjectGetRoleMethodInfo+    ResolveTableCellMethod "getRowColumnSpan" o = TableCellGetRowColumnSpanMethodInfo+    ResolveTableCellMethod "getRowHeaderCells" o = TableCellGetRowHeaderCellsMethodInfo+    ResolveTableCellMethod "getRowSpan" o = TableCellGetRowSpanMethodInfo+    ResolveTableCellMethod "getTable" o = TableCellGetTableMethodInfo+    ResolveTableCellMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveTableCellMethod "setDescription" o = ObjectSetDescriptionMethodInfo+    ResolveTableCellMethod "setName" o = ObjectSetNameMethodInfo+    ResolveTableCellMethod "setParent" o = ObjectSetParentMethodInfo+    ResolveTableCellMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveTableCellMethod "setRole" o = ObjectSetRoleMethodInfo+    ResolveTableCellMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveTableCellMethod t TableCell, MethodInfo info TableCell p) => IsLabelProxy t (TableCell -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveTableCellMethod t TableCell, MethodInfo info TableCell p) => IsLabel t (TableCell -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList TableCell = TableCellAttributeList-type TableCellAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])+type TableCellAttributeList = ('[ '("accessibleComponentLayer", ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", ObjectAccessibleNamePropertyInfo), '("accessibleParent", ObjectAccessibleParentPropertyInfo), '("accessibleRole", ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])  type instance SignalList TableCell = TableCellSignalList-type TableCellSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type TableCellSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])  foreign import ccall "atk_table_cell_get_type"     c_atk_table_cell_get_type :: IO GType@@ -90,9 +161,8 @@  -- method TableCell::get_column_header_cells -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TPtrArray (TInterface "Atk" "Object") -- throws : False -- Skip return : False@@ -104,8 +174,8 @@  tableCellGetColumnHeaderCells ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m [Object]+    a                                       -- _obj+    -> m [Object]                           -- result tableCellGetColumnHeaderCells _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_cell_get_column_header_cells _obj'@@ -116,11 +186,14 @@     touchManagedPtr _obj     return result'' +data TableCellGetColumnHeaderCellsMethodInfo+instance (signature ~ (m [Object]), MonadIO m, TableCellK a) => MethodInfo TableCellGetColumnHeaderCellsMethodInfo a signature where+    overloadedMethod _ = tableCellGetColumnHeaderCells+ -- method TableCell::get_column_span -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -132,19 +205,22 @@  tableCellGetColumnSpan ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result tableCellGetColumnSpan _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_cell_get_column_span _obj'     touchManagedPtr _obj     return result +data TableCellGetColumnSpanMethodInfo+instance (signature ~ (m Int32), MonadIO m, TableCellK a) => MethodInfo TableCellGetColumnSpanMethodInfo a signature where+    overloadedMethod _ = tableCellGetColumnSpan+ -- method TableCell::get_position -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -158,8 +234,8 @@  tableCellGetPosition ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m (Bool,Int32,Int32)+    a                                       -- _obj+    -> m (Bool,Int32,Int32)                 -- result tableCellGetPosition _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     row <- allocMem :: IO (Ptr Int32)@@ -173,11 +249,14 @@     freeMem column     return (result', row', column') +data TableCellGetPositionMethodInfo+instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, TableCellK a) => MethodInfo TableCellGetPositionMethodInfo a signature where+    overloadedMethod _ = tableCellGetPosition+ -- method TableCell::get_row_column_span -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "row_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column_span", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -193,32 +272,35 @@  tableCellGetRowColumnSpan ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m (Bool,Int32,Int32,Int32,Int32)+    a                                       -- _obj+    -> m (Bool,Int32,Int32,Int32,Int32)     -- result tableCellGetRowColumnSpan _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     row <- allocMem :: IO (Ptr Int32)     column <- allocMem :: IO (Ptr Int32)-    row_span <- allocMem :: IO (Ptr Int32)-    column_span <- allocMem :: IO (Ptr Int32)-    result <- atk_table_cell_get_row_column_span _obj' row column row_span column_span+    rowSpan <- allocMem :: IO (Ptr Int32)+    columnSpan <- allocMem :: IO (Ptr Int32)+    result <- atk_table_cell_get_row_column_span _obj' row column rowSpan columnSpan     let result' = (/= 0) result     row' <- peek row     column' <- peek column-    row_span' <- peek row_span-    column_span' <- peek column_span+    rowSpan' <- peek rowSpan+    columnSpan' <- peek columnSpan     touchManagedPtr _obj     freeMem row     freeMem column-    freeMem row_span-    freeMem column_span-    return (result', row', column', row_span', column_span')+    freeMem rowSpan+    freeMem columnSpan+    return (result', row', column', rowSpan', columnSpan') +data TableCellGetRowColumnSpanMethodInfo+instance (signature ~ (m (Bool,Int32,Int32,Int32,Int32)), MonadIO m, TableCellK a) => MethodInfo TableCellGetRowColumnSpanMethodInfo a signature where+    overloadedMethod _ = tableCellGetRowColumnSpan+ -- method TableCell::get_row_header_cells -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TPtrArray (TInterface "Atk" "Object") -- throws : False -- Skip return : False@@ -230,8 +312,8 @@  tableCellGetRowHeaderCells ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m [Object]+    a                                       -- _obj+    -> m [Object]                           -- result tableCellGetRowHeaderCells _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_cell_get_row_header_cells _obj'@@ -242,11 +324,14 @@     touchManagedPtr _obj     return result'' +data TableCellGetRowHeaderCellsMethodInfo+instance (signature ~ (m [Object]), MonadIO m, TableCellK a) => MethodInfo TableCellGetRowHeaderCellsMethodInfo a signature where+    overloadedMethod _ = tableCellGetRowHeaderCells+ -- method TableCell::get_row_span -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -258,19 +343,22 @@  tableCellGetRowSpan ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result tableCellGetRowSpan _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_cell_get_row_span _obj'     touchManagedPtr _obj     return result +data TableCellGetRowSpanMethodInfo+instance (signature ~ (m Int32), MonadIO m, TableCellK a) => MethodInfo TableCellGetRowSpanMethodInfo a signature where+    overloadedMethod _ = tableCellGetRowSpan+ -- method TableCell::get_table -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -282,8 +370,8 @@  tableCellGetTable ::     (MonadIO m, TableCellK a) =>-    a ->                                    -- _obj-    m Object+    a                                       -- _obj+    -> m Object                             -- result tableCellGetTable _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_table_cell_get_table _obj'@@ -291,5 +379,9 @@     result' <- (wrapObject Object) result     touchManagedPtr _obj     return result'++data TableCellGetTableMethodInfo+instance (signature ~ (m Object), MonadIO m, TableCellK a) => MethodInfo TableCellGetTableMethodInfo a signature where+    overloadedMethod _ = tableCellGetTable  

@@ -11,3 +11,10 @@ instance GObject TableCell where class GObject o => TableCellK o instance (GObject o, IsDescendantOf TableCell o) => TableCellK o+data TableCellGetColumnHeaderCellsMethodInfo+data TableCellGetColumnSpanMethodInfo+data TableCellGetPositionMethodInfo+data TableCellGetRowColumnSpanMethodInfo+data TableCellGetRowHeaderCellsMethodInfo+data TableCellGetRowSpanMethodInfo+data TableCellGetTableMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,82 +17,106 @@   -- * Methods -- ** textAddSelection+    TextAddSelectionMethodInfo              ,     textAddSelection                        ,  +-- ** textFreeRanges+    textFreeRanges                          ,++ -- ** textGetBoundedRanges+    TextGetBoundedRangesMethodInfo          ,     textGetBoundedRanges                    ,   -- ** textGetCaretOffset+    TextGetCaretOffsetMethodInfo            ,     textGetCaretOffset                      ,   -- ** textGetCharacterAtOffset+    TextGetCharacterAtOffsetMethodInfo      ,     textGetCharacterAtOffset                ,   -- ** textGetCharacterCount+    TextGetCharacterCountMethodInfo         ,     textGetCharacterCount                   ,   -- ** textGetCharacterExtents+    TextGetCharacterExtentsMethodInfo       ,     textGetCharacterExtents                 ,   -- ** textGetDefaultAttributes+    TextGetDefaultAttributesMethodInfo      ,     textGetDefaultAttributes                ,   -- ** textGetNSelections+    TextGetNSelectionsMethodInfo            ,     textGetNSelections                      ,   -- ** textGetOffsetAtPoint+    TextGetOffsetAtPointMethodInfo          ,     textGetOffsetAtPoint                    ,   -- ** textGetRangeExtents+    TextGetRangeExtentsMethodInfo           ,     textGetRangeExtents                     ,   -- ** textGetRunAttributes+    TextGetRunAttributesMethodInfo          ,     textGetRunAttributes                    ,   -- ** textGetSelection+    TextGetSelectionMethodInfo              ,     textGetSelection                        ,   -- ** textGetStringAtOffset+    TextGetStringAtOffsetMethodInfo         ,     textGetStringAtOffset                   ,   -- ** textGetText+    TextGetTextMethodInfo                   ,     textGetText                             ,   -- ** textGetTextAfterOffset+    TextGetTextAfterOffsetMethodInfo        ,     textGetTextAfterOffset                  ,   -- ** textGetTextAtOffset+    TextGetTextAtOffsetMethodInfo           ,     textGetTextAtOffset                     ,   -- ** textGetTextBeforeOffset+    TextGetTextBeforeOffsetMethodInfo       ,     textGetTextBeforeOffset                 ,   -- ** textRemoveSelection+    TextRemoveSelectionMethodInfo           ,     textRemoveSelection                     ,   -- ** textSetCaretOffset+    TextSetCaretOffsetMethodInfo            ,     textSetCaretOffset                      ,   -- ** textSetSelection+    TextSetSelectionMethodInfo              ,     textSetSelection                        ,  @@ -190,6 +215,37 @@ noText :: Maybe Text noText = Nothing +type family ResolveTextMethod (t :: Symbol) (o :: *) :: * where+    ResolveTextMethod "addSelection" o = TextAddSelectionMethodInfo+    ResolveTextMethod "removeSelection" o = TextRemoveSelectionMethodInfo+    ResolveTextMethod "getBoundedRanges" o = TextGetBoundedRangesMethodInfo+    ResolveTextMethod "getCaretOffset" o = TextGetCaretOffsetMethodInfo+    ResolveTextMethod "getCharacterAtOffset" o = TextGetCharacterAtOffsetMethodInfo+    ResolveTextMethod "getCharacterCount" o = TextGetCharacterCountMethodInfo+    ResolveTextMethod "getCharacterExtents" o = TextGetCharacterExtentsMethodInfo+    ResolveTextMethod "getDefaultAttributes" o = TextGetDefaultAttributesMethodInfo+    ResolveTextMethod "getNSelections" o = TextGetNSelectionsMethodInfo+    ResolveTextMethod "getOffsetAtPoint" o = TextGetOffsetAtPointMethodInfo+    ResolveTextMethod "getRangeExtents" o = TextGetRangeExtentsMethodInfo+    ResolveTextMethod "getRunAttributes" o = TextGetRunAttributesMethodInfo+    ResolveTextMethod "getSelection" o = TextGetSelectionMethodInfo+    ResolveTextMethod "getStringAtOffset" o = TextGetStringAtOffsetMethodInfo+    ResolveTextMethod "getText" o = TextGetTextMethodInfo+    ResolveTextMethod "getTextAfterOffset" o = TextGetTextAfterOffsetMethodInfo+    ResolveTextMethod "getTextAtOffset" o = TextGetTextAtOffsetMethodInfo+    ResolveTextMethod "getTextBeforeOffset" o = TextGetTextBeforeOffsetMethodInfo+    ResolveTextMethod "setCaretOffset" o = TextSetCaretOffsetMethodInfo+    ResolveTextMethod "setSelection" o = TextSetSelectionMethodInfo+    ResolveTextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveTextMethod t Text, MethodInfo info Text p) => IsLabelProxy t (Text -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveTextMethod t Text, MethodInfo info Text p) => IsLabel t (Text -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Text::text-attributes-changed type TextTextAttributesChangedCallback =     IO ()@@ -481,7 +537,7 @@     connectSignal _ = connectTextTextSelectionChanged  type instance SignalList Text = TextSignalList-type TextSignalList = ('[ '("text-attributes-changed", TextTextAttributesChangedSignalInfo), '("text-caret-moved", TextTextCaretMovedSignalInfo), '("text-changed", TextTextChangedSignalInfo), '("text-insert", TextTextInsertSignalInfo), '("text-remove", TextTextRemoveSignalInfo), '("text-selection-changed", TextTextSelectionChangedSignalInfo)] :: [(Symbol, *)])+type TextSignalList = ('[ '("textAttributesChanged", TextTextAttributesChangedSignalInfo), '("textCaretMoved", TextTextCaretMovedSignalInfo), '("textChanged", TextTextChangedSignalInfo), '("textInsert", TextTextInsertSignalInfo), '("textRemove", TextTextRemoveSignalInfo), '("textSelectionChanged", TextTextSelectionChangedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => TextK a instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o@@ -490,9 +546,8 @@  -- method Text::add_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -506,22 +561,25 @@  textAddSelection ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-textAddSelection _obj start_offset end_offset = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startOffset+    -> Int32                                -- endOffset+    -> m Bool                               -- result+textAddSelection _obj startOffset endOffset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_add_selection _obj' start_offset end_offset+    result <- atk_text_add_selection _obj' startOffset endOffset     let result' = (/= 0) result     touchManagedPtr _obj     return result' +data TextAddSelectionMethodInfo+instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, TextK a) => MethodInfo TextAddSelectionMethodInfo a signature where+    overloadedMethod _ = textAddSelection+ -- method Text::get_bounded_ranges -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_clip_type", argType = TInterface "Atk" "TextClipType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TInterface "Atk" "TextRange") -- throws : False -- Skip return : False@@ -537,19 +595,19 @@  textGetBoundedRanges ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    TextRectangle ->                        -- rect-    CoordType ->                            -- coord_type-    TextClipType ->                         -- x_clip_type-    TextClipType ->                         -- y_clip_type-    m [TextRange]-textGetBoundedRanges _obj rect coord_type x_clip_type y_clip_type = liftIO $ do+    a                                       -- _obj+    -> TextRectangle                        -- rect+    -> CoordType                            -- coordType+    -> TextClipType                         -- xClipType+    -> TextClipType                         -- yClipType+    -> m [TextRange]                        -- result+textGetBoundedRanges _obj rect coordType xClipType yClipType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let rect' = unsafeManagedPtrGetPtr rect-    let coord_type' = (fromIntegral . fromEnum) coord_type-    let x_clip_type' = (fromIntegral . fromEnum) x_clip_type-    let y_clip_type' = (fromIntegral . fromEnum) y_clip_type-    result <- atk_text_get_bounded_ranges _obj' rect' coord_type' x_clip_type' y_clip_type'+    let coordType' = (fromIntegral . fromEnum) coordType+    let xClipType' = (fromIntegral . fromEnum) xClipType+    let yClipType' = (fromIntegral . fromEnum) yClipType+    result <- atk_text_get_bounded_ranges _obj' rect' coordType' xClipType' yClipType'     checkUnexpectedReturnNULL "atk_text_get_bounded_ranges" result     result' <- unpackZeroTerminatedPtrArray result     result'' <- mapM (wrapBoxed TextRange) result'@@ -558,11 +616,14 @@     touchManagedPtr rect     return result'' +data TextGetBoundedRangesMethodInfo+instance (signature ~ (TextRectangle -> CoordType -> TextClipType -> TextClipType -> m [TextRange]), MonadIO m, TextK a) => MethodInfo TextGetBoundedRangesMethodInfo a signature where+    overloadedMethod _ = textGetBoundedRanges+ -- method Text::get_caret_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -574,19 +635,22 @@  textGetCaretOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result textGetCaretOffset _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_get_caret_offset _obj'     touchManagedPtr _obj     return result +data TextGetCaretOffsetMethodInfo+instance (signature ~ (m Int32), MonadIO m, TextK a) => MethodInfo TextGetCaretOffsetMethodInfo a signature where+    overloadedMethod _ = textGetCaretOffset+ -- method Text::get_character_at_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUniChar -- throws : False -- Skip return : False@@ -599,9 +663,9 @@  textGetCharacterAtOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m Char+    a                                       -- _obj+    -> Int32                                -- offset+    -> m Char                               -- result textGetCharacterAtOffset _obj offset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_get_character_at_offset _obj' offset@@ -609,11 +673,14 @@     touchManagedPtr _obj     return result' +data TextGetCharacterAtOffsetMethodInfo+instance (signature ~ (Int32 -> m Char), MonadIO m, TextK a) => MethodInfo TextGetCharacterAtOffsetMethodInfo a signature where+    overloadedMethod _ = textGetCharacterAtOffset+ -- method Text::get_character_count -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -625,19 +692,22 @@  textGetCharacterCount ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result textGetCharacterCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_get_character_count _obj'     touchManagedPtr _obj     return result +data TextGetCharacterCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, TextK a) => MethodInfo TextGetCharacterCountMethodInfo a signature where+    overloadedMethod _ = textGetCharacterCount+ -- method Text::get_character_extents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -655,14 +725,14 @@  textGetCharacterExtents ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    CoordType ->                            -- coords-    m ()+    a                                       -- _obj+    -> Int32                                -- offset+    -> Int32                                -- x+    -> Int32                                -- y+    -> Int32                                -- width+    -> Int32                                -- height+    -> CoordType                            -- coords+    -> m ()                                 -- result textGetCharacterExtents _obj offset x y width height coords = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let coords' = (fromIntegral . fromEnum) coords@@ -670,11 +740,14 @@     touchManagedPtr _obj     return () +data TextGetCharacterExtentsMethodInfo+instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> Int32 -> CoordType -> m ()), MonadIO m, TextK a) => MethodInfo TextGetCharacterExtentsMethodInfo a signature where+    overloadedMethod _ = textGetCharacterExtents+ -- method Text::get_default_attributes -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TBasicType TVoid) -- throws : False -- Skip return : False@@ -686,8 +759,8 @@  textGetDefaultAttributes ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m [Ptr ()]+    a                                       -- _obj+    -> m [Ptr ()]                           -- result textGetDefaultAttributes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_get_default_attributes _obj'@@ -697,11 +770,14 @@     touchManagedPtr _obj     return result' +data TextGetDefaultAttributesMethodInfo+instance (signature ~ (m [Ptr ()]), MonadIO m, TextK a) => MethodInfo TextGetDefaultAttributesMethodInfo a signature where+    overloadedMethod _ = textGetDefaultAttributes+ -- method Text::get_n_selections -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -713,19 +789,22 @@  textGetNSelections ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result textGetNSelections _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_get_n_selections _obj'     touchManagedPtr _obj     return result +data TextGetNSelectionsMethodInfo+instance (signature ~ (m Int32), MonadIO m, TextK a) => MethodInfo TextGetNSelectionsMethodInfo a signature where+    overloadedMethod _ = textGetNSelections+ -- method Text::get_offset_at_point -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", 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 = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", 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 = "coords", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -740,11 +819,11 @@  textGetOffsetAtPoint ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    CoordType ->                            -- coords-    m Int32+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> CoordType                            -- coords+    -> m Int32                              -- result textGetOffsetAtPoint _obj x y coords = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let coords' = (fromIntegral . fromEnum) coords@@ -752,11 +831,14 @@     touchManagedPtr _obj     return result +data TextGetOffsetAtPointMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> m Int32), MonadIO m, TextK a) => MethodInfo TextGetOffsetAtPointMethodInfo a signature where+    overloadedMethod _ = textGetOffsetAtPoint+ -- method Text::get_range_extents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Atk" "TextRectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -772,26 +854,29 @@  textGetRangeExtents ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    CoordType ->                            -- coord_type-    TextRectangle ->                        -- rect-    m ()-textGetRangeExtents _obj start_offset end_offset coord_type rect = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startOffset+    -> Int32                                -- endOffset+    -> CoordType                            -- coordType+    -> TextRectangle                        -- rect+    -> m ()                                 -- result+textGetRangeExtents _obj startOffset endOffset coordType rect = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let coord_type' = (fromIntegral . fromEnum) coord_type+    let coordType' = (fromIntegral . fromEnum) coordType     let rect' = unsafeManagedPtrGetPtr rect-    atk_text_get_range_extents _obj' start_offset end_offset coord_type' rect'+    atk_text_get_range_extents _obj' startOffset endOffset coordType' rect'     touchManagedPtr _obj     touchManagedPtr rect     return () +data TextGetRangeExtentsMethodInfo+instance (signature ~ (Int32 -> Int32 -> CoordType -> TextRectangle -> m ()), MonadIO m, TextK a) => MethodInfo TextGetRangeExtentsMethodInfo a signature where+    overloadedMethod _ = textGetRangeExtents+ -- method Text::get_run_attributes -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TBasicType TVoid) -- throws : False -- Skip return : False@@ -806,29 +891,32 @@  textGetRunAttributes ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m ([Ptr ()],Int32,Int32)+    a                                       -- _obj+    -> Int32                                -- offset+    -> m ([Ptr ()],Int32,Int32)             -- result textGetRunAttributes _obj offset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_run_attributes _obj' offset start_offset end_offset+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_run_attributes _obj' offset startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_run_attributes" result     result' <- unpackGSList result     g_slist_free result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetRunAttributesMethodInfo+instance (signature ~ (Int32 -> m ([Ptr ()],Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetRunAttributesMethodInfo a signature where+    overloadedMethod _ = textGetRunAttributes+ -- method Text::get_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -843,29 +931,32 @@  textGetSelection ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    m (T.Text,Int32,Int32)-textGetSelection _obj selection_num = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- selectionNum+    -> m (T.Text,Int32,Int32)               -- result+textGetSelection _obj selectionNum = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_selection _obj' selection_num start_offset end_offset+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_selection _obj' selectionNum startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_selection" result     result' <- cstringToText result     freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetSelectionMethodInfo+instance (signature ~ (Int32 -> m (T.Text,Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetSelectionMethodInfo a signature where+    overloadedMethod _ = textGetSelection+ -- method Text::get_string_at_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TInterface "Atk" "TextGranularity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -881,31 +972,34 @@  textGetStringAtOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextGranularity ->                      -- granularity-    m (T.Text,Int32,Int32)+    a                                       -- _obj+    -> Int32                                -- offset+    -> TextGranularity                      -- granularity+    -> m (T.Text,Int32,Int32)               -- result textGetStringAtOffset _obj offset granularity = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let granularity' = (fromIntegral . fromEnum) granularity-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_string_at_offset _obj' offset granularity' start_offset end_offset+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_string_at_offset _obj' offset granularity' startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_string_at_offset" result     result' <- cstringToText result     freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetStringAtOffsetMethodInfo+instance (signature ~ (Int32 -> TextGranularity -> m (T.Text,Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetStringAtOffsetMethodInfo a signature where+    overloadedMethod _ = textGetStringAtOffset+ -- method Text::get_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -919,24 +1013,27 @@  textGetText ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m T.Text-textGetText _obj start_offset end_offset = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- startOffset+    -> Int32                                -- endOffset+    -> m T.Text                             -- result+textGetText _obj startOffset endOffset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_get_text _obj' start_offset end_offset+    result <- atk_text_get_text _obj' startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_text" result     result' <- cstringToText result     freeMem result     touchManagedPtr _obj     return result' +data TextGetTextMethodInfo+instance (signature ~ (Int32 -> Int32 -> m T.Text), MonadIO m, TextK a) => MethodInfo TextGetTextMethodInfo a signature where+    overloadedMethod _ = textGetText+ -- method Text::get_text_after_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -952,31 +1049,34 @@ {-# DEPRECATED textGetTextAfterOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} textGetTextAfterOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextAfterOffset _obj offset boundary_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- offset+    -> TextBoundary                         -- boundaryType+    -> m (T.Text,Int32,Int32)               -- result+textGetTextAfterOffset _obj offset boundaryType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_after_offset _obj' offset boundary_type' start_offset end_offset+    let boundaryType' = (fromIntegral . fromEnum) boundaryType+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_after_offset _obj' offset boundaryType' startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_text_after_offset" result     result' <- cstringToText result     freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetTextAfterOffsetMethodInfo+instance (signature ~ (Int32 -> TextBoundary -> m (T.Text,Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetTextAfterOffsetMethodInfo a signature where+    overloadedMethod _ = textGetTextAfterOffset+ -- method Text::get_text_at_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -992,31 +1092,34 @@ {-# DEPRECATED textGetTextAtOffset ["This method is deprecated since ATK version","2.9.4. Please use atk_text_get_string_at_offset() instead."]#-} textGetTextAtOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextAtOffset _obj offset boundary_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- offset+    -> TextBoundary                         -- boundaryType+    -> m (T.Text,Int32,Int32)               -- result+textGetTextAtOffset _obj offset boundaryType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_at_offset _obj' offset boundary_type' start_offset end_offset+    let boundaryType' = (fromIntegral . fromEnum) boundaryType+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_at_offset _obj' offset boundaryType' startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_text_at_offset" result     result' <- cstringToText result     freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetTextAtOffsetMethodInfo+instance (signature ~ (Int32 -> TextBoundary -> m (T.Text,Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetTextAtOffsetMethodInfo a signature where+    overloadedMethod _ = textGetTextAtOffset+ -- method Text::get_text_before_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_type", argType = TInterface "Atk" "TextBoundary", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1032,31 +1135,34 @@ {-# DEPRECATED textGetTextBeforeOffset ["(Since version 2.9.3)","Please use atk_text_get_string_at_offset() instead."]#-} textGetTextBeforeOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    TextBoundary ->                         -- boundary_type-    m (T.Text,Int32,Int32)-textGetTextBeforeOffset _obj offset boundary_type = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- offset+    -> TextBoundary                         -- boundaryType+    -> m (T.Text,Int32,Int32)               -- result+textGetTextBeforeOffset _obj offset boundaryType = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let boundary_type' = (fromIntegral . fromEnum) boundary_type-    start_offset <- allocMem :: IO (Ptr Int32)-    end_offset <- allocMem :: IO (Ptr Int32)-    result <- atk_text_get_text_before_offset _obj' offset boundary_type' start_offset end_offset+    let boundaryType' = (fromIntegral . fromEnum) boundaryType+    startOffset <- allocMem :: IO (Ptr Int32)+    endOffset <- allocMem :: IO (Ptr Int32)+    result <- atk_text_get_text_before_offset _obj' offset boundaryType' startOffset endOffset     checkUnexpectedReturnNULL "atk_text_get_text_before_offset" result     result' <- cstringToText result     freeMem result-    start_offset' <- peek start_offset-    end_offset' <- peek end_offset+    startOffset' <- peek startOffset+    endOffset' <- peek endOffset     touchManagedPtr _obj-    freeMem start_offset-    freeMem end_offset-    return (result', start_offset', end_offset')+    freeMem startOffset+    freeMem endOffset+    return (result', startOffset', endOffset') +data TextGetTextBeforeOffsetMethodInfo+instance (signature ~ (Int32 -> TextBoundary -> m (T.Text,Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetTextBeforeOffsetMethodInfo a signature where+    overloadedMethod _ = textGetTextBeforeOffset+ -- method Text::remove_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1069,21 +1175,24 @@  textRemoveSelection ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    m Bool-textRemoveSelection _obj selection_num = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- selectionNum+    -> m Bool                               -- result+textRemoveSelection _obj selectionNum = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_remove_selection _obj' selection_num+    result <- atk_text_remove_selection _obj' selectionNum     let result' = (/= 0) result     touchManagedPtr _obj     return result' +data TextRemoveSelectionMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TextK a) => MethodInfo TextRemoveSelectionMethodInfo a signature where+    overloadedMethod _ = textRemoveSelection+ -- method Text::set_caret_offset -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1096,9 +1205,9 @@  textSetCaretOffset ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- offset-    m Bool+    a                                       -- _obj+    -> Int32                                -- offset+    -> m Bool                               -- result textSetCaretOffset _obj offset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_text_set_caret_offset _obj' offset@@ -1106,11 +1215,14 @@     touchManagedPtr _obj     return result' +data TextSetCaretOffsetMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, TextK a) => MethodInfo TextSetCaretOffsetMethodInfo a signature where+    overloadedMethod _ = textSetCaretOffset+ -- method Text::set_selection -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1125,16 +1237,41 @@  textSetSelection ::     (MonadIO m, TextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- selection_num-    Int32 ->                                -- start_offset-    Int32 ->                                -- end_offset-    m Bool-textSetSelection _obj selection_num start_offset end_offset = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- selectionNum+    -> Int32                                -- startOffset+    -> Int32                                -- endOffset+    -> m Bool                               -- result+textSetSelection _obj selectionNum startOffset endOffset = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- atk_text_set_selection _obj' selection_num start_offset end_offset+    result <- atk_text_set_selection _obj' selectionNum startOffset endOffset     let result' = (/= 0) result     touchManagedPtr _obj     return result'++data TextSetSelectionMethodInfo+instance (signature ~ (Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, TextK a) => MethodInfo TextSetSelectionMethodInfo a signature where+    overloadedMethod _ = textSetSelection++-- method Text::free_ranges+-- method type : MemberFunction+-- Args : [Arg {argCName = "ranges", argType = TCArray False (-1) (-1) (TInterface "Atk" "TextRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "atk_text_free_ranges" atk_text_free_ranges :: +    Ptr (Ptr TextRange) ->                  -- ranges : TCArray False (-1) (-1) (TInterface "Atk" "TextRange")+    IO ()+++textFreeRanges ::+    (MonadIO m) =>+    Ptr (Ptr TextRange)                     -- ranges+    -> m ()                                 -- result+textFreeRanges ranges = liftIO $ do+    atk_text_free_ranges ranges+    return ()  

@@ -16,3 +16,23 @@ data TextTextSelectionChangedSignalInfo class ForeignPtrNewtype a => TextK a instance (ForeignPtrNewtype o, IsDescendantOf Text o) => TextK o+data TextAddSelectionMethodInfo+data TextGetBoundedRangesMethodInfo+data TextGetCaretOffsetMethodInfo+data TextGetCharacterAtOffsetMethodInfo+data TextGetCharacterCountMethodInfo+data TextGetCharacterExtentsMethodInfo+data TextGetDefaultAttributesMethodInfo+data TextGetNSelectionsMethodInfo+data TextGetOffsetAtPointMethodInfo+data TextGetRangeExtentsMethodInfo+data TextGetRunAttributesMethodInfo+data TextGetSelectionMethodInfo+data TextGetStringAtOffsetMethodInfo+data TextGetTextMethodInfo+data TextGetTextAfterOffsetMethodInfo+data TextGetTextAtOffsetMethodInfo+data TextGetTextBeforeOffsetMethodInfo+data TextRemoveSelectionMethodInfo+data TextSetCaretOffsetMethodInfo+data TextSetSelectionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,42 +17,52 @@   -- * Methods -- ** valueGetCurrentValue+    ValueGetCurrentValueMethodInfo          ,     valueGetCurrentValue                    ,   -- ** valueGetIncrement+    ValueGetIncrementMethodInfo             ,     valueGetIncrement                       ,   -- ** valueGetMaximumValue+    ValueGetMaximumValueMethodInfo          ,     valueGetMaximumValue                    ,   -- ** valueGetMinimumIncrement+    ValueGetMinimumIncrementMethodInfo      ,     valueGetMinimumIncrement                ,   -- ** valueGetMinimumValue+    ValueGetMinimumValueMethodInfo          ,     valueGetMinimumValue                    ,   -- ** valueGetRange+    ValueGetRangeMethodInfo                 ,     valueGetRange                           ,   -- ** valueGetSubRanges+    ValueGetSubRangesMethodInfo             ,     valueGetSubRanges                       ,   -- ** valueGetValueAndText+    ValueGetValueAndTextMethodInfo          ,     valueGetValueAndText                    ,   -- ** valueSetCurrentValue+    ValueSetCurrentValueMethodInfo          ,     valueSetCurrentValue                    ,   -- ** valueSetValue+    ValueSetValueMethodInfo                 ,     valueSetValue                           ,  @@ -90,6 +101,27 @@ noValue :: Maybe Value noValue = Nothing +type family ResolveValueMethod (t :: Symbol) (o :: *) :: * where+    ResolveValueMethod "getCurrentValue" o = ValueGetCurrentValueMethodInfo+    ResolveValueMethod "getIncrement" o = ValueGetIncrementMethodInfo+    ResolveValueMethod "getMaximumValue" o = ValueGetMaximumValueMethodInfo+    ResolveValueMethod "getMinimumIncrement" o = ValueGetMinimumIncrementMethodInfo+    ResolveValueMethod "getMinimumValue" o = ValueGetMinimumValueMethodInfo+    ResolveValueMethod "getRange" o = ValueGetRangeMethodInfo+    ResolveValueMethod "getSubRanges" o = ValueGetSubRangesMethodInfo+    ResolveValueMethod "getValueAndText" o = ValueGetValueAndTextMethodInfo+    ResolveValueMethod "setCurrentValue" o = ValueSetCurrentValueMethodInfo+    ResolveValueMethod "setValue" o = ValueSetValueMethodInfo+    ResolveValueMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveValueMethod t Value, MethodInfo info Value p) => IsLabelProxy t (Value -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveValueMethod t Value, MethodInfo info Value p) => IsLabel t (Value -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Value::value-changed type ValueValueChangedCallback =     Double ->@@ -145,7 +177,7 @@     connectSignal _ = connectValueValueChanged  type instance SignalList Value = ValueSignalList-type ValueSignalList = ('[ '("value-changed", ValueValueChangedSignalInfo)] :: [(Symbol, *)])+type ValueSignalList = ('[ '("valueChanged", ValueValueChangedSignalInfo)] :: [(Symbol, *)])  class ForeignPtrNewtype a => ValueK a instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o@@ -154,9 +186,8 @@  -- method Value::get_current_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -169,9 +200,9 @@ {-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-} valueGetCurrentValue ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()+    a                                       -- _obj+    -> GValue                               -- value+    -> m ()                                 -- result valueGetCurrentValue _obj value = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let value' = unsafeManagedPtrGetPtr value@@ -180,11 +211,14 @@     touchManagedPtr value     return () +data ValueGetCurrentValueMethodInfo+instance (signature ~ (GValue -> m ()), MonadIO m, ValueK a) => MethodInfo ValueGetCurrentValueMethodInfo a signature where+    overloadedMethod _ = valueGetCurrentValue+ -- method Value::get_increment -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -196,8 +230,8 @@  valueGetIncrement ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result valueGetIncrement _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_value_get_increment _obj'@@ -205,11 +239,14 @@     touchManagedPtr _obj     return result' +data ValueGetIncrementMethodInfo+instance (signature ~ (m Double), MonadIO m, ValueK a) => MethodInfo ValueGetIncrementMethodInfo a signature where+    overloadedMethod _ = valueGetIncrement+ -- method Value::get_maximum_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -222,9 +259,9 @@ {-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} valueGetMaximumValue ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()+    a                                       -- _obj+    -> GValue                               -- value+    -> m ()                                 -- result valueGetMaximumValue _obj value = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let value' = unsafeManagedPtrGetPtr value@@ -233,11 +270,14 @@     touchManagedPtr value     return () +data ValueGetMaximumValueMethodInfo+instance (signature ~ (GValue -> m ()), MonadIO m, ValueK a) => MethodInfo ValueGetMaximumValueMethodInfo a signature where+    overloadedMethod _ = valueGetMaximumValue+ -- method Value::get_minimum_increment -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -250,9 +290,9 @@ {-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-} valueGetMinimumIncrement ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()+    a                                       -- _obj+    -> GValue                               -- value+    -> m ()                                 -- result valueGetMinimumIncrement _obj value = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let value' = unsafeManagedPtrGetPtr value@@ -261,11 +301,14 @@     touchManagedPtr value     return () +data ValueGetMinimumIncrementMethodInfo+instance (signature ~ (GValue -> m ()), MonadIO m, ValueK a) => MethodInfo ValueGetMinimumIncrementMethodInfo a signature where+    overloadedMethod _ = valueGetMinimumIncrement+ -- method Value::get_minimum_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -278,9 +321,9 @@ {-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-} valueGetMinimumValue ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m ()+    a                                       -- _obj+    -> GValue                               -- value+    -> m ()                                 -- result valueGetMinimumValue _obj value = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let value' = unsafeManagedPtrGetPtr value@@ -289,11 +332,14 @@     touchManagedPtr value     return () +data ValueGetMinimumValueMethodInfo+instance (signature ~ (GValue -> m ()), MonadIO m, ValueK a) => MethodInfo ValueGetMinimumValueMethodInfo a signature where+    overloadedMethod _ = valueGetMinimumValue+ -- method Value::get_range -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Range" -- throws : False -- Skip return : False@@ -305,8 +351,8 @@  valueGetRange ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m Range+    a                                       -- _obj+    -> m Range                              -- result valueGetRange _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_value_get_range _obj'@@ -315,11 +361,14 @@     touchManagedPtr _obj     return result' +data ValueGetRangeMethodInfo+instance (signature ~ (m Range), MonadIO m, ValueK a) => MethodInfo ValueGetRangeMethodInfo a signature where+    overloadedMethod _ = valueGetRange+ -- method Value::get_sub_ranges -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGSList (TInterface "Atk" "Range") -- throws : False -- Skip return : False@@ -331,8 +380,8 @@  valueGetSubRanges ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m [Range]+    a                                       -- _obj+    -> m [Range]                            -- result valueGetSubRanges _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_value_get_sub_ranges _obj'@@ -343,11 +392,14 @@     touchManagedPtr _obj     return result'' +data ValueGetSubRangesMethodInfo+instance (signature ~ (m [Range]), MonadIO m, ValueK a) => MethodInfo ValueGetSubRangesMethodInfo a signature where+    overloadedMethod _ = valueGetSubRanges+ -- method Value::get_value_and_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -361,8 +413,8 @@  valueGetValueAndText ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    m (Double,T.Text)+    a                                       -- _obj+    -> m (Double,T.Text)                    -- result valueGetValueAndText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     value <- allocMem :: IO (Ptr CDouble)@@ -378,11 +430,14 @@     freeMem text     return (value'', text'') +data ValueGetValueAndTextMethodInfo+instance (signature ~ (m (Double,T.Text)), MonadIO m, ValueK a) => MethodInfo ValueGetValueAndTextMethodInfo a signature where+    overloadedMethod _ = valueGetValueAndText+ -- method Value::set_current_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -395,9 +450,9 @@ {-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-} valueSetCurrentValue ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    GValue ->                               -- value-    m Bool+    a                                       -- _obj+    -> GValue                               -- value+    -> m Bool                               -- result valueSetCurrentValue _obj value = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let value' = unsafeManagedPtrGetPtr value@@ -407,11 +462,14 @@     touchManagedPtr value     return result' +data ValueSetCurrentValueMethodInfo+instance (signature ~ (GValue -> m Bool), MonadIO m, ValueK a) => MethodInfo ValueSetCurrentValueMethodInfo a signature where+    overloadedMethod _ = valueSetCurrentValue+ -- method Value::set_value -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -424,14 +482,18 @@  valueSetValue ::     (MonadIO m, ValueK a) =>-    a ->                                    -- _obj-    Double ->                               -- new_value-    m ()-valueSetValue _obj new_value = liftIO $ do+    a                                       -- _obj+    -> Double                               -- newValue+    -> m ()                                 -- result+valueSetValue _obj newValue = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let new_value' = realToFrac new_value-    atk_value_set_value _obj' new_value'+    let newValue' = realToFrac newValue+    atk_value_set_value _obj' newValue'     touchManagedPtr _obj     return ()++data ValueSetValueMethodInfo+instance (signature ~ (Double -> m ()), MonadIO m, ValueK a) => MethodInfo ValueSetValueMethodInfo a signature where+    overloadedMethod _ = valueSetValue  

@@ -11,3 +11,13 @@ data ValueValueChangedSignalInfo class ForeignPtrNewtype a => ValueK a instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o+data ValueGetCurrentValueMethodInfo+data ValueGetIncrementMethodInfo+data ValueGetMaximumValueMethodInfo+data ValueGetMinimumIncrementMethodInfo+data ValueGetMinimumValueMethodInfo+data ValueGetRangeMethodInfo+data ValueGetSubRangesMethodInfo+data ValueGetValueAndTextMethodInfo+data ValueSetCurrentValueMethodInfo+data ValueSetValueMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -145,6 +146,62 @@ noWindow :: Maybe Window noWindow = Nothing +type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where+    ResolveWindowMethod "addRelationship" o = ObjectAddRelationshipMethodInfo+    ResolveWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveWindowMethod "initialize" o = ObjectInitializeMethodInfo+    ResolveWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveWindowMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo+    ResolveWindowMethod "peekParent" o = ObjectPeekParentMethodInfo+    ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveWindowMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo+    ResolveWindowMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo+    ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveWindowMethod "refStateSet" o = ObjectRefStateSetMethodInfo+    ResolveWindowMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo+    ResolveWindowMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo+    ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveWindowMethod "getAttributes" o = ObjectGetAttributesMethodInfo+    ResolveWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveWindowMethod "getDescription" o = ObjectGetDescriptionMethodInfo+    ResolveWindowMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo+    ResolveWindowMethod "getLayer" o = ObjectGetLayerMethodInfo+    ResolveWindowMethod "getMdiZorder" o = ObjectGetMdiZorderMethodInfo+    ResolveWindowMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo+    ResolveWindowMethod "getName" o = ObjectGetNameMethodInfo+    ResolveWindowMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo+    ResolveWindowMethod "getParent" o = ObjectGetParentMethodInfo+    ResolveWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveWindowMethod "getRole" o = ObjectGetRoleMethodInfo+    ResolveWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveWindowMethod "setDescription" o = ObjectSetDescriptionMethodInfo+    ResolveWindowMethod "setName" o = ObjectSetNameMethodInfo+    ResolveWindowMethod "setParent" o = ObjectSetParentMethodInfo+    ResolveWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveWindowMethod "setRole" o = ObjectSetRoleMethodInfo+    ResolveWindowMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabelProxy t (Window -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabel t (Window -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Window::activate type WindowActivateCallback =     IO ()@@ -488,7 +545,7 @@     connectSignalFunPtr obj "restore" cb' after  type instance AttributeList Window = WindowAttributeList-type WindowAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])+type WindowAttributeList = ('[ '("accessibleComponentLayer", ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", ObjectAccessibleNamePropertyInfo), '("accessibleParent", ObjectAccessibleParentPropertyInfo), '("accessibleRole", ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])  data WindowActivateSignalInfo instance SignalInfo WindowActivateSignalInfo where@@ -536,7 +593,7 @@     connectSignal _ = connectWindowRestore  type instance SignalList Window = WindowSignalList-type WindowSignalList = ('[ '("activate", WindowActivateSignalInfo), '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type WindowSignalList = ('[ '("activate", WindowActivateSignalInfo), '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])  foreign import ccall "atk_window_get_type"     c_atk_window_get_type :: IO GType

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -21,6 +22,7 @@   -- ** gObjectAccessibleGetObject+    GObjectAccessibleGetObjectMethodInfo    ,     gObjectAccessibleGetObject              ,  @@ -60,17 +62,73 @@ noGObjectAccessible :: Maybe GObjectAccessible noGObjectAccessible = Nothing +type family ResolveGObjectAccessibleMethod (t :: Symbol) (o :: *) :: * where+    ResolveGObjectAccessibleMethod "addRelationship" o = ObjectAddRelationshipMethodInfo+    ResolveGObjectAccessibleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveGObjectAccessibleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveGObjectAccessibleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveGObjectAccessibleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveGObjectAccessibleMethod "initialize" o = ObjectInitializeMethodInfo+    ResolveGObjectAccessibleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveGObjectAccessibleMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveGObjectAccessibleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveGObjectAccessibleMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo+    ResolveGObjectAccessibleMethod "peekParent" o = ObjectPeekParentMethodInfo+    ResolveGObjectAccessibleMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveGObjectAccessibleMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo+    ResolveGObjectAccessibleMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo+    ResolveGObjectAccessibleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveGObjectAccessibleMethod "refStateSet" o = ObjectRefStateSetMethodInfo+    ResolveGObjectAccessibleMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo+    ResolveGObjectAccessibleMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo+    ResolveGObjectAccessibleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveGObjectAccessibleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveGObjectAccessibleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveGObjectAccessibleMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveGObjectAccessibleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveGObjectAccessibleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveGObjectAccessibleMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveGObjectAccessibleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveGObjectAccessibleMethod "getAttributes" o = ObjectGetAttributesMethodInfo+    ResolveGObjectAccessibleMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveGObjectAccessibleMethod "getDescription" o = ObjectGetDescriptionMethodInfo+    ResolveGObjectAccessibleMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo+    ResolveGObjectAccessibleMethod "getLayer" o = ObjectGetLayerMethodInfo+    ResolveGObjectAccessibleMethod "getMdiZorder" o = ObjectGetMdiZorderMethodInfo+    ResolveGObjectAccessibleMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo+    ResolveGObjectAccessibleMethod "getName" o = ObjectGetNameMethodInfo+    ResolveGObjectAccessibleMethod "getObject" o = GObjectAccessibleGetObjectMethodInfo+    ResolveGObjectAccessibleMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo+    ResolveGObjectAccessibleMethod "getParent" o = ObjectGetParentMethodInfo+    ResolveGObjectAccessibleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveGObjectAccessibleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveGObjectAccessibleMethod "getRole" o = ObjectGetRoleMethodInfo+    ResolveGObjectAccessibleMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveGObjectAccessibleMethod "setDescription" o = ObjectSetDescriptionMethodInfo+    ResolveGObjectAccessibleMethod "setName" o = ObjectSetNameMethodInfo+    ResolveGObjectAccessibleMethod "setParent" o = ObjectSetParentMethodInfo+    ResolveGObjectAccessibleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveGObjectAccessibleMethod "setRole" o = ObjectSetRoleMethodInfo+    ResolveGObjectAccessibleMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveGObjectAccessibleMethod t GObjectAccessible, MethodInfo info GObjectAccessible p) => IsLabelProxy t (GObjectAccessible -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveGObjectAccessibleMethod t GObjectAccessible, MethodInfo info GObjectAccessible p) => IsLabel t (GObjectAccessible -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList GObjectAccessible = GObjectAccessibleAttributeList-type GObjectAccessibleAttributeList = ('[ '("accessible-component-layer", ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", ObjectAccessibleNamePropertyInfo), '("accessible-parent", ObjectAccessibleParentPropertyInfo), '("accessible-role", ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])+type GObjectAccessibleAttributeList = ('[ '("accessibleComponentLayer", ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", ObjectAccessibleNamePropertyInfo), '("accessibleParent", ObjectAccessibleParentPropertyInfo), '("accessibleRole", ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)])  type instance SignalList GObjectAccessible = GObjectAccessibleSignalList-type GObjectAccessibleSignalList = ('[ '("active-descendant-changed", ObjectActiveDescendantChangedSignalInfo), '("children-changed", ObjectChildrenChangedSignalInfo), '("focus-event", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", ObjectPropertyChangeSignalInfo), '("state-change", ObjectStateChangeSignalInfo), '("visible-data-changed", ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type GObjectAccessibleSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])  -- method GObjectAccessible::get_object -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GObject" "Object" -- throws : False -- Skip return : False@@ -82,8 +140,8 @@  gObjectAccessibleGetObject ::     (MonadIO m, GObjectAccessibleK a) =>-    a ->                                    -- _obj-    m GObject.Object+    a                                       -- _obj+    -> m GObject.Object                     -- result gObjectAccessibleGetObject _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_gobject_accessible_get_object _obj'@@ -92,11 +150,14 @@     touchManagedPtr _obj     return result' +data GObjectAccessibleGetObjectMethodInfo+instance (signature ~ (m GObject.Object), MonadIO m, GObjectAccessibleK a) => MethodInfo GObjectAccessibleGetObjectMethodInfo a signature where+    overloadedMethod _ = gObjectAccessibleGetObject+ -- method GObjectAccessible::for_object -- method type : MemberFunction--- Args : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -108,8 +169,8 @@  gObjectAccessibleForObject ::     (MonadIO m, GObject.ObjectK a) =>-    a ->                                    -- obj-    m Object+    a                                       -- obj+    -> m Object                             -- result gObjectAccessibleForObject obj = liftIO $ do     let obj' = unsafeManagedPtrCastPtr obj     result <- atk_gobject_accessible_for_object obj'

@@ -11,3 +11,4 @@ instance GObject GObjectAccessible where class GObject o => GObjectAccessibleK o instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o+data GObjectAccessibleGetObjectMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,34 +18,42 @@   -- * Methods -- ** hyperlinkGetEndIndex+    HyperlinkGetEndIndexMethodInfo          ,     hyperlinkGetEndIndex                    ,   -- ** hyperlinkGetNAnchors+    HyperlinkGetNAnchorsMethodInfo          ,     hyperlinkGetNAnchors                    ,   -- ** hyperlinkGetObject+    HyperlinkGetObjectMethodInfo            ,     hyperlinkGetObject                      ,   -- ** hyperlinkGetStartIndex+    HyperlinkGetStartIndexMethodInfo        ,     hyperlinkGetStartIndex                  ,   -- ** hyperlinkGetUri+    HyperlinkGetUriMethodInfo               ,     hyperlinkGetUri                         ,   -- ** hyperlinkIsInline+    HyperlinkIsInlineMethodInfo             ,     hyperlinkIsInline                       ,   -- ** hyperlinkIsSelectedLink+    HyperlinkIsSelectedLinkMethodInfo       ,     hyperlinkIsSelectedLink                 ,   -- ** hyperlinkIsValid+    HyperlinkIsValidMethodInfo              ,     hyperlinkIsValid                        ,  @@ -122,6 +131,54 @@ noHyperlink :: Maybe Hyperlink noHyperlink = Nothing +type family ResolveHyperlinkMethod (t :: Symbol) (o :: *) :: * where+    ResolveHyperlinkMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveHyperlinkMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveHyperlinkMethod "doAction" o = ActionDoActionMethodInfo+    ResolveHyperlinkMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveHyperlinkMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveHyperlinkMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveHyperlinkMethod "isInline" o = HyperlinkIsInlineMethodInfo+    ResolveHyperlinkMethod "isSelectedLink" o = HyperlinkIsSelectedLinkMethodInfo+    ResolveHyperlinkMethod "isValid" o = HyperlinkIsValidMethodInfo+    ResolveHyperlinkMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveHyperlinkMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveHyperlinkMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveHyperlinkMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveHyperlinkMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveHyperlinkMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveHyperlinkMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveHyperlinkMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveHyperlinkMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveHyperlinkMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveHyperlinkMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveHyperlinkMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveHyperlinkMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveHyperlinkMethod "getDescription" o = ActionGetDescriptionMethodInfo+    ResolveHyperlinkMethod "getEndIndex" o = HyperlinkGetEndIndexMethodInfo+    ResolveHyperlinkMethod "getKeybinding" o = ActionGetKeybindingMethodInfo+    ResolveHyperlinkMethod "getLocalizedName" o = ActionGetLocalizedNameMethodInfo+    ResolveHyperlinkMethod "getNActions" o = ActionGetNActionsMethodInfo+    ResolveHyperlinkMethod "getNAnchors" o = HyperlinkGetNAnchorsMethodInfo+    ResolveHyperlinkMethod "getName" o = ActionGetNameMethodInfo+    ResolveHyperlinkMethod "getObject" o = HyperlinkGetObjectMethodInfo+    ResolveHyperlinkMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveHyperlinkMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveHyperlinkMethod "getStartIndex" o = HyperlinkGetStartIndexMethodInfo+    ResolveHyperlinkMethod "getUri" o = HyperlinkGetUriMethodInfo+    ResolveHyperlinkMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveHyperlinkMethod "setDescription" o = ActionSetDescriptionMethodInfo+    ResolveHyperlinkMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveHyperlinkMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveHyperlinkMethod t Hyperlink, MethodInfo info Hyperlink p) => IsLabelProxy t (Hyperlink -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveHyperlinkMethod t Hyperlink, MethodInfo info Hyperlink p) => IsLabel t (Hyperlink -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- signal Hyperlink::link-activated type HyperlinkLinkActivatedCallback =     IO ()@@ -173,7 +230,7 @@     type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) ()     type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK     type AttrGetType HyperlinkEndIndexPropertyInfo = Int32-    type AttrLabel HyperlinkEndIndexPropertyInfo = "Hyperlink::end-index"+    type AttrLabel HyperlinkEndIndexPropertyInfo = "end-index"     attrGet _ = getHyperlinkEndIndex     attrSet _ = undefined     attrConstruct _ = undefined@@ -191,7 +248,7 @@     type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) ()     type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK     type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32-    type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "Hyperlink::number-of-anchors"+    type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "number-of-anchors"     attrGet _ = getHyperlinkNumberOfAnchors     attrSet _ = undefined     attrConstruct _ = undefined@@ -209,7 +266,7 @@     type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) ()     type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK     type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool-    type AttrLabel HyperlinkSelectedLinkPropertyInfo = "Hyperlink::selected-link"+    type AttrLabel HyperlinkSelectedLinkPropertyInfo = "selected-link"     attrGet _ = getHyperlinkSelectedLink     attrSet _ = undefined     attrConstruct _ = undefined@@ -227,13 +284,13 @@     type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) ()     type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK     type AttrGetType HyperlinkStartIndexPropertyInfo = Int32-    type AttrLabel HyperlinkStartIndexPropertyInfo = "Hyperlink::start-index"+    type AttrLabel HyperlinkStartIndexPropertyInfo = "start-index"     attrGet _ = getHyperlinkStartIndex     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList Hyperlink = HyperlinkAttributeList-type HyperlinkAttributeList = ('[ '("end-index", HyperlinkEndIndexPropertyInfo), '("number-of-anchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selected-link", HyperlinkSelectedLinkPropertyInfo), '("start-index", HyperlinkStartIndexPropertyInfo)] :: [(Symbol, *)])+type HyperlinkAttributeList = ('[ '("endIndex", HyperlinkEndIndexPropertyInfo), '("numberOfAnchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selectedLink", HyperlinkSelectedLinkPropertyInfo), '("startIndex", HyperlinkStartIndexPropertyInfo)] :: [(Symbol, *)])  data HyperlinkLinkActivatedSignalInfo instance SignalInfo HyperlinkLinkActivatedSignalInfo where@@ -241,13 +298,12 @@     connectSignal _ = connectHyperlinkLinkActivated  type instance SignalList Hyperlink = HyperlinkSignalList-type HyperlinkSignalList = ('[ '("link-activated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type HyperlinkSignalList = ('[ '("linkActivated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Hyperlink::get_end_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -259,19 +315,22 @@  hyperlinkGetEndIndex ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result hyperlinkGetEndIndex _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_get_end_index _obj'     touchManagedPtr _obj     return result +data HyperlinkGetEndIndexMethodInfo+instance (signature ~ (m Int32), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkGetEndIndexMethodInfo a signature where+    overloadedMethod _ = hyperlinkGetEndIndex+ -- method Hyperlink::get_n_anchors -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -283,19 +342,22 @@  hyperlinkGetNAnchors ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result hyperlinkGetNAnchors _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_get_n_anchors _obj'     touchManagedPtr _obj     return result +data HyperlinkGetNAnchorsMethodInfo+instance (signature ~ (m Int32), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkGetNAnchorsMethodInfo a signature where+    overloadedMethod _ = hyperlinkGetNAnchors+ -- method Hyperlink::get_object -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Atk" "Object" -- throws : False -- Skip return : False@@ -308,9 +370,9 @@  hyperlinkGetObject ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m Object+    a                                       -- _obj+    -> Int32                                -- i+    -> m Object                             -- result hyperlinkGetObject _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_get_object _obj' i@@ -319,11 +381,14 @@     touchManagedPtr _obj     return result' +data HyperlinkGetObjectMethodInfo+instance (signature ~ (Int32 -> m Object), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkGetObjectMethodInfo a signature where+    overloadedMethod _ = hyperlinkGetObject+ -- method Hyperlink::get_start_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -335,19 +400,22 @@  hyperlinkGetStartIndex ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result hyperlinkGetStartIndex _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_get_start_index _obj'     touchManagedPtr _obj     return result +data HyperlinkGetStartIndexMethodInfo+instance (signature ~ (m Int32), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkGetStartIndexMethodInfo a signature where+    overloadedMethod _ = hyperlinkGetStartIndex+ -- method Hyperlink::get_uri -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -360,9 +428,9 @@  hyperlinkGetUri ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- i-    m T.Text+    a                                       -- _obj+    -> Int32                                -- i+    -> m T.Text                             -- result hyperlinkGetUri _obj i = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_get_uri _obj' i@@ -372,11 +440,14 @@     touchManagedPtr _obj     return result' +data HyperlinkGetUriMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkGetUriMethodInfo a signature where+    overloadedMethod _ = hyperlinkGetUri+ -- method Hyperlink::is_inline -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -388,8 +459,8 @@  hyperlinkIsInline ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hyperlinkIsInline _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_is_inline _obj'@@ -397,11 +468,14 @@     touchManagedPtr _obj     return result' +data HyperlinkIsInlineMethodInfo+instance (signature ~ (m Bool), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkIsInlineMethodInfo a signature where+    overloadedMethod _ = hyperlinkIsInline+ -- method Hyperlink::is_selected_link -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -413,8 +487,8 @@ {-# DEPRECATED hyperlinkIsSelectedLink ["(Since version 1.8)","Please use ATK_STATE_FOCUSABLE for all links,","and ATK_STATE_FOCUSED for focused links."]#-} hyperlinkIsSelectedLink ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hyperlinkIsSelectedLink _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_is_selected_link _obj'@@ -422,11 +496,14 @@     touchManagedPtr _obj     return result' +data HyperlinkIsSelectedLinkMethodInfo+instance (signature ~ (m Bool), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkIsSelectedLinkMethodInfo a signature where+    overloadedMethod _ = hyperlinkIsSelectedLink+ -- method Hyperlink::is_valid -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -438,13 +515,17 @@  hyperlinkIsValid ::     (MonadIO m, HyperlinkK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result hyperlinkIsValid _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- atk_hyperlink_is_valid _obj'     let result' = (/= 0) result     touchManagedPtr _obj     return result'++data HyperlinkIsValidMethodInfo+instance (signature ~ (m Bool), MonadIO m, HyperlinkK a) => MethodInfo HyperlinkIsValidMethodInfo a signature where+    overloadedMethod _ = hyperlinkIsValid