gi-atk 0.2.18.15 → 2.0.1
raw patch · 87 files changed
+31/−17117 lines, 87 filesdep ~gi-glibdep ~gi-gobjectdep ~transformersbuild-type:Customsetup-changed
Dependency ranges changed: gi-glib, gi-gobject, transformers
Files
- Atk.overrides +4/−0
- GI/Atk.hs +0/−46
- GI/Atk/Callbacks.hs +0/−262
- GI/Atk/Constants.hs +0/−49
- GI/Atk/Enums.hs +0/−1002
- GI/Atk/Flags.hs +0/−50
- GI/Atk/Functions.hs +0/−394
- GI/Atk/Interfaces.hs +0/−55
- GI/Atk/Interfaces/Action.hs +0/−322
- GI/Atk/Interfaces/Action.hs-boot +0/−19
- GI/Atk/Interfaces/Component.hs +0/−622
- GI/Atk/Interfaces/Component.hs-boot +0/−26
- GI/Atk/Interfaces/Document.hs +0/−572
- GI/Atk/Interfaces/Document.hs-boot +0/−24
- GI/Atk/Interfaces/EditableText.hs +0/−327
- GI/Atk/Interfaces/EditableText.hs-boot +0/−19
- GI/Atk/Interfaces/HyperlinkImpl.hs +0/−96
- GI/Atk/Interfaces/HyperlinkImpl.hs-boot +0/−13
- GI/Atk/Interfaces/Hypertext.hs +0/−227
- GI/Atk/Interfaces/Hypertext.hs-boot +0/−16
- GI/Atk/Interfaces/Image.hs +0/−247
- GI/Atk/Interfaces/Image.hs-boot +0/−17
- GI/Atk/Interfaces/ImplementorIface.hs +0/−58
- GI/Atk/Interfaces/ImplementorIface.hs-boot +0/−12
- GI/Atk/Interfaces/Selection.hs +0/−366
- GI/Atk/Interfaces/Selection.hs-boot +0/−20
- GI/Atk/Interfaces/StreamableContent.hs +0/−211
- GI/Atk/Interfaces/StreamableContent.hs-boot +0/−16
- GI/Atk/Interfaces/Table.hs +0/−1535
- GI/Atk/Interfaces/Table.hs-boot +0/−48
- GI/Atk/Interfaces/TableCell.hs +0/−387
- GI/Atk/Interfaces/TableCell.hs-boot +0/−20
- GI/Atk/Interfaces/Text.hs +0/−1276
- GI/Atk/Interfaces/Text.hs-boot +0/−38
- GI/Atk/Interfaces/Value.hs +0/−499
- GI/Atk/Interfaces/Value.hs-boot +0/−23
- GI/Atk/Interfaces/Window.hs +0/−615
- GI/Atk/Interfaces/Window.hs-boot +0/−22
- GI/Atk/Objects.hs +0/−53
- GI/Atk/Objects/GObjectAccessible.hs +0/−182
- GI/Atk/Objects/GObjectAccessible.hs-boot +0/−14
- GI/Atk/Objects/Hyperlink.hs +0/−555
- GI/Atk/Objects/Hyperlink.hs-boot +0/−26
- GI/Atk/Objects/Misc.hs +0/−186
- GI/Atk/Objects/Misc.hs-boot +0/−15
- GI/Atk/Objects/NoOpObject.hs +0/−245
- GI/Atk/Objects/NoOpObject.hs-boot +0/−13
- GI/Atk/Objects/NoOpObjectFactory.hs +0/−123
- GI/Atk/Objects/NoOpObjectFactory.hs-boot +0/−13
- GI/Atk/Objects/Object.hs +0/−1847
- GI/Atk/Objects/Object.hs-boot +0/−57
- GI/Atk/Objects/ObjectFactory.hs +0/−201
- GI/Atk/Objects/ObjectFactory.hs-boot +0/−16
- GI/Atk/Objects/Plug.hs +0/−188
- GI/Atk/Objects/Plug.hs-boot +0/−14
- GI/Atk/Objects/Registry.hs +0/−209
- GI/Atk/Objects/Registry.hs-boot +0/−16
- GI/Atk/Objects/Relation.hs +0/−357
- GI/Atk/Objects/Relation.hs-boot +0/−19
- GI/Atk/Objects/RelationSet.hs +0/−420
- GI/Atk/Objects/RelationSet.hs-boot +0/−21
- GI/Atk/Objects/Socket.hs +0/−223
- GI/Atk/Objects/Socket.hs-boot +0/−15
- GI/Atk/Objects/StateSet.hs +0/−497
- GI/Atk/Objects/StateSet.hs-boot +0/−23
- GI/Atk/Objects/Util.hs +0/−92
- GI/Atk/Objects/Util.hs-boot +0/−13
- GI/Atk/Structs.hs +0/−41
- GI/Atk/Structs/Attribute.hs +0/−188
- GI/Atk/Structs/Attribute.hs-boot +0/−11
- GI/Atk/Structs/Implementor.hs +0/−92
- GI/Atk/Structs/Implementor.hs-boot +0/−12
- GI/Atk/Structs/KeyEventStruct.hs +0/−295
- GI/Atk/Structs/KeyEventStruct.hs-boot +0/−11
- GI/Atk/Structs/PropertyValues.hs +0/−189
- GI/Atk/Structs/PropertyValues.hs-boot +0/−11
- GI/Atk/Structs/Range.hs +0/−269
- GI/Atk/Structs/Range.hs-boot +0/−16
- GI/Atk/Structs/Rectangle.hs +0/−196
- GI/Atk/Structs/Rectangle.hs-boot +0/−11
- GI/Atk/Structs/TextRange.hs +0/−211
- GI/Atk/Structs/TextRange.hs-boot +0/−11
- GI/Atk/Structs/TextRectangle.hs +0/−194
- GI/Atk/Structs/TextRectangle.hs-boot +0/−11
- GI/Atk/Types.hs +0/−86
- Setup.hs +12/−3
- gi-atk.cabal +15/−55
+ Atk.overrides view
@@ -0,0 +1,4 @@+namespace Atk++# Not marked properly as a GType struct (which we hide)+ignore _RegistryClass
− GI/Atk.hs
@@ -1,46 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk- ( module GI.Atk.Callbacks ,- module GI.Atk.Constants ,- module GI.Atk.Enums ,- module GI.Atk.Flags ,- module GI.Atk.Functions ,- module GI.Atk.Interfaces ,- module GI.Atk.Objects ,- module GI.Atk.Structs ,---- module Data.GI.Base ,--- ) where--import GI.Atk.Callbacks-import GI.Atk.Constants-import GI.Atk.Enums-import GI.Atk.Flags-import GI.Atk.Functions-import GI.Atk.Interfaces-import GI.Atk.Objects-import GI.Atk.Structs--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--import Data.GI.Base-
− GI/Atk/Callbacks.hs
@@ -1,262 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Callbacks- ( -- -- * Signals--- ** EventListener- EventListener ,- EventListenerC ,- eventListenerClosure ,- eventListenerWrapper ,- mkEventListener ,- noEventListener ,----- ** EventListenerInit- EventListenerInit ,- EventListenerInitC ,- eventListenerInitClosure ,- eventListenerInitWrapper ,- mkEventListenerInit ,- noEventListenerInit ,----- ** FocusHandler- FocusHandler ,- FocusHandlerC ,- focusHandlerClosure ,- focusHandlerWrapper ,- mkFocusHandler ,- noFocusHandler ,----- ** Function- Function ,- FunctionC ,- functionClosure ,- functionWrapper ,- mkFunction ,- noFunction ,----- ** KeySnoopFunc- KeySnoopFunc ,- KeySnoopFuncC ,- keySnoopFuncClosure ,- keySnoopFuncWrapper ,- mkKeySnoopFunc ,- noKeySnoopFunc ,----- ** PropertyChangeHandler- PropertyChangeHandler ,- PropertyChangeHandlerC ,- mkPropertyChangeHandler ,- noPropertyChangeHandler ,- propertyChangeHandlerClosure ,- propertyChangeHandlerWrapper ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types----- callback PropertyChangeHandler-propertyChangeHandlerClosure :: PropertyChangeHandler -> IO Closure-propertyChangeHandlerClosure cb = newCClosure =<< mkPropertyChangeHandler wrapped- where wrapped = propertyChangeHandlerWrapper Nothing cb--type PropertyChangeHandlerC =- Ptr Object ->- Ptr PropertyValues ->- IO ()--foreign import ccall "wrapper"- mkPropertyChangeHandler :: PropertyChangeHandlerC -> IO (FunPtr PropertyChangeHandlerC)--type PropertyChangeHandler =- Object ->- PropertyValues ->- IO ()--noPropertyChangeHandler :: Maybe PropertyChangeHandler-noPropertyChangeHandler = Nothing--propertyChangeHandlerWrapper ::- Maybe (Ptr (FunPtr (PropertyChangeHandlerC))) ->- PropertyChangeHandler ->- Ptr Object ->- Ptr PropertyValues ->- IO ()-propertyChangeHandlerWrapper funptrptr _cb obj vals = do- obj' <- (newObject Object) obj- vals' <- (newPtr PropertyValues) vals- _cb obj' vals'- maybeReleaseFunPtr funptrptr---- callback KeySnoopFunc-keySnoopFuncClosure :: KeySnoopFunc -> IO Closure-keySnoopFuncClosure cb = newCClosure =<< mkKeySnoopFunc wrapped- where wrapped = keySnoopFuncWrapper Nothing cb--type KeySnoopFuncC =- Ptr KeyEventStruct ->- Ptr () ->- IO Int32--foreign import ccall "wrapper"- mkKeySnoopFunc :: KeySnoopFuncC -> IO (FunPtr KeySnoopFuncC)--type KeySnoopFunc =- KeyEventStruct ->- IO Int32--noKeySnoopFunc :: Maybe KeySnoopFunc-noKeySnoopFunc = Nothing--keySnoopFuncWrapper ::- Maybe (Ptr (FunPtr (KeySnoopFuncC))) ->- KeySnoopFunc ->- Ptr KeyEventStruct ->- Ptr () ->- IO Int32-keySnoopFuncWrapper funptrptr _cb event _ = do- event' <- (newPtr KeyEventStruct) event- result <- _cb event'- maybeReleaseFunPtr funptrptr- return result---- callback Function-functionClosure :: Function -> IO Closure-functionClosure cb = newCClosure =<< mkFunction wrapped- where wrapped = functionWrapper Nothing cb--type FunctionC =- Ptr () ->- IO CInt--foreign import ccall "wrapper"- mkFunction :: FunctionC -> IO (FunPtr FunctionC)--type Function =- IO Bool--noFunction :: Maybe Function-noFunction = Nothing--functionWrapper ::- Maybe (Ptr (FunPtr (FunctionC))) ->- Function ->- Ptr () ->- IO CInt-functionWrapper funptrptr _cb _ = do- result <- _cb - maybeReleaseFunPtr funptrptr- let result' = (fromIntegral . fromEnum) result- return result'---- callback FocusHandler-focusHandlerClosure :: FocusHandler -> IO Closure-focusHandlerClosure cb = newCClosure =<< mkFocusHandler wrapped- where wrapped = focusHandlerWrapper Nothing cb--type FocusHandlerC =- Ptr Object ->- CInt ->- IO ()--foreign import ccall "wrapper"- mkFocusHandler :: FocusHandlerC -> IO (FunPtr FocusHandlerC)--type FocusHandler =- Object ->- Bool ->- IO ()--noFocusHandler :: Maybe FocusHandler-noFocusHandler = Nothing--focusHandlerWrapper ::- Maybe (Ptr (FunPtr (FocusHandlerC))) ->- FocusHandler ->- Ptr Object ->- CInt ->- IO ()-focusHandlerWrapper funptrptr _cb object focusIn = do- object' <- (newObject Object) object- let focusIn' = (/= 0) focusIn- _cb object' focusIn'- maybeReleaseFunPtr funptrptr---- callback EventListenerInit-eventListenerInitClosure :: EventListenerInit -> IO Closure-eventListenerInitClosure cb = newCClosure =<< mkEventListenerInit wrapped- where wrapped = eventListenerInitWrapper Nothing cb--type EventListenerInitC =- IO ()--foreign import ccall "wrapper"- mkEventListenerInit :: EventListenerInitC -> IO (FunPtr EventListenerInitC)--type EventListenerInit =- IO ()--noEventListenerInit :: Maybe EventListenerInit-noEventListenerInit = Nothing--eventListenerInitWrapper ::- Maybe (Ptr (FunPtr (EventListenerInitC))) ->- EventListenerInit ->- IO ()-eventListenerInitWrapper funptrptr _cb = do- _cb - maybeReleaseFunPtr funptrptr---- callback EventListener-eventListenerClosure :: EventListener -> IO Closure-eventListenerClosure cb = newCClosure =<< mkEventListener wrapped- where wrapped = eventListenerWrapper Nothing cb--type EventListenerC =- Ptr Object ->- IO ()--foreign import ccall "wrapper"- mkEventListener :: EventListenerC -> IO (FunPtr EventListenerC)--type EventListener =- Object ->- IO ()--noEventListener :: Maybe EventListener-noEventListener = Nothing--eventListenerWrapper ::- Maybe (Ptr (FunPtr (EventListenerC))) ->- EventListener ->- Ptr Object ->- IO ()-eventListenerWrapper funptrptr _cb obj = do- obj' <- (newObject Object) obj- _cb obj'- maybeReleaseFunPtr funptrptr--
− GI/Atk/Constants.hs
@@ -1,49 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Constants- ( - pattern VERSION_MIN_REQUIRED ,- pattern MINOR_VERSION ,- pattern MICRO_VERSION ,- pattern MAJOR_VERSION ,- pattern INTERFACE_AGE ,- pattern BINARY_AGE ,-- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---pattern VERSION_MIN_REQUIRED = 2 :: Int32---pattern MINOR_VERSION = 18 :: Int32---pattern MICRO_VERSION = 0 :: Int32---pattern MAJOR_VERSION = 2 :: Int32---pattern INTERFACE_AGE = 1 :: Int32---pattern BINARY_AGE = 21810 :: Int32--
− GI/Atk/Enums.hs
@@ -1,1002 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Enums- ( ---- * Exported types- ValueType(..) ,- TextGranularity(..) ,- TextClipType(..) ,- TextBoundary(..) ,- TextAttribute(..) ,- StateType(..) ,- Role(..) ,- RelationType(..) ,- Layer(..) ,- KeyEventType(..) ,- CoordType(..) ,--- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum ValueType--data ValueType = - ValueTypeVeryWeak- | ValueTypeWeak- | ValueTypeAcceptable- | ValueTypeStrong- | ValueTypeVeryStrong- | ValueTypeVeryLow- | ValueTypeLow- | ValueTypeMedium- | ValueTypeHigh- | ValueTypeVeryHigh- | ValueTypeVeryBad- | ValueTypeBad- | ValueTypeGood- | ValueTypeVeryGood- | ValueTypeBest- | ValueTypeLastDefined- | AnotherValueType Int- deriving (Show, Eq)--instance Enum ValueType where- fromEnum ValueTypeVeryWeak = 0- fromEnum ValueTypeWeak = 1- fromEnum ValueTypeAcceptable = 2- fromEnum ValueTypeStrong = 3- fromEnum ValueTypeVeryStrong = 4- fromEnum ValueTypeVeryLow = 5- fromEnum ValueTypeLow = 6- fromEnum ValueTypeMedium = 7- fromEnum ValueTypeHigh = 8- fromEnum ValueTypeVeryHigh = 9- fromEnum ValueTypeVeryBad = 10- fromEnum ValueTypeBad = 11- fromEnum ValueTypeGood = 12- fromEnum ValueTypeVeryGood = 13- fromEnum ValueTypeBest = 14- fromEnum ValueTypeLastDefined = 15- fromEnum (AnotherValueType k) = k-- toEnum 0 = ValueTypeVeryWeak- toEnum 1 = ValueTypeWeak- toEnum 2 = ValueTypeAcceptable- toEnum 3 = ValueTypeStrong- toEnum 4 = ValueTypeVeryStrong- toEnum 5 = ValueTypeVeryLow- toEnum 6 = ValueTypeLow- toEnum 7 = ValueTypeMedium- toEnum 8 = ValueTypeHigh- toEnum 9 = ValueTypeVeryHigh- toEnum 10 = ValueTypeVeryBad- toEnum 11 = ValueTypeBad- toEnum 12 = ValueTypeGood- toEnum 13 = ValueTypeVeryGood- toEnum 14 = ValueTypeBest- toEnum 15 = ValueTypeLastDefined- toEnum k = AnotherValueType k--foreign import ccall "atk_value_type_get_type" c_atk_value_type_get_type :: - IO GType--instance BoxedEnum ValueType where- boxedEnumType _ = c_atk_value_type_get_type---- Enum TextGranularity--data TextGranularity = - TextGranularityChar- | TextGranularityWord- | TextGranularitySentence- | TextGranularityLine- | TextGranularityParagraph- | AnotherTextGranularity Int- deriving (Show, Eq)--instance Enum TextGranularity where- fromEnum TextGranularityChar = 0- fromEnum TextGranularityWord = 1- fromEnum TextGranularitySentence = 2- fromEnum TextGranularityLine = 3- fromEnum TextGranularityParagraph = 4- fromEnum (AnotherTextGranularity k) = k-- toEnum 0 = TextGranularityChar- toEnum 1 = TextGranularityWord- toEnum 2 = TextGranularitySentence- toEnum 3 = TextGranularityLine- toEnum 4 = TextGranularityParagraph- toEnum k = AnotherTextGranularity k--foreign import ccall "atk_text_granularity_get_type" c_atk_text_granularity_get_type :: - IO GType--instance BoxedEnum TextGranularity where- boxedEnumType _ = c_atk_text_granularity_get_type---- Enum TextClipType--data TextClipType = - TextClipTypeNone- | TextClipTypeMin- | TextClipTypeMax- | TextClipTypeBoth- | AnotherTextClipType Int- deriving (Show, Eq)--instance Enum TextClipType where- fromEnum TextClipTypeNone = 0- fromEnum TextClipTypeMin = 1- fromEnum TextClipTypeMax = 2- fromEnum TextClipTypeBoth = 3- fromEnum (AnotherTextClipType k) = k-- toEnum 0 = TextClipTypeNone- toEnum 1 = TextClipTypeMin- toEnum 2 = TextClipTypeMax- toEnum 3 = TextClipTypeBoth- toEnum k = AnotherTextClipType k--foreign import ccall "atk_text_clip_type_get_type" c_atk_text_clip_type_get_type :: - IO GType--instance BoxedEnum TextClipType where- boxedEnumType _ = c_atk_text_clip_type_get_type---- Enum TextBoundary--data TextBoundary = - TextBoundaryChar- | TextBoundaryWordStart- | TextBoundaryWordEnd- | TextBoundarySentenceStart- | TextBoundarySentenceEnd- | TextBoundaryLineStart- | TextBoundaryLineEnd- | AnotherTextBoundary Int- deriving (Show, Eq)--instance Enum TextBoundary where- fromEnum TextBoundaryChar = 0- fromEnum TextBoundaryWordStart = 1- fromEnum TextBoundaryWordEnd = 2- fromEnum TextBoundarySentenceStart = 3- fromEnum TextBoundarySentenceEnd = 4- fromEnum TextBoundaryLineStart = 5- fromEnum TextBoundaryLineEnd = 6- fromEnum (AnotherTextBoundary k) = k-- toEnum 0 = TextBoundaryChar- toEnum 1 = TextBoundaryWordStart- toEnum 2 = TextBoundaryWordEnd- toEnum 3 = TextBoundarySentenceStart- toEnum 4 = TextBoundarySentenceEnd- toEnum 5 = TextBoundaryLineStart- toEnum 6 = TextBoundaryLineEnd- toEnum k = AnotherTextBoundary k--foreign import ccall "atk_text_boundary_get_type" c_atk_text_boundary_get_type :: - IO GType--instance BoxedEnum TextBoundary where- boxedEnumType _ = c_atk_text_boundary_get_type---- Enum TextAttribute--data TextAttribute = - TextAttributeInvalid- | TextAttributeLeftMargin- | TextAttributeRightMargin- | TextAttributeIndent- | TextAttributeInvisible- | TextAttributeEditable- | TextAttributePixelsAboveLines- | TextAttributePixelsBelowLines- | TextAttributePixelsInsideWrap- | TextAttributeBgFullHeight- | TextAttributeRise- | TextAttributeUnderline- | TextAttributeStrikethrough- | TextAttributeSize- | TextAttributeScale- | TextAttributeWeight- | TextAttributeLanguage- | TextAttributeFamilyName- | TextAttributeBgColor- | TextAttributeFgColor- | TextAttributeBgStipple- | TextAttributeFgStipple- | TextAttributeWrapMode- | TextAttributeDirection- | TextAttributeJustification- | TextAttributeStretch- | TextAttributeVariant- | TextAttributeStyle- | TextAttributeLastDefined- | AnotherTextAttribute Int- deriving (Show, Eq)--instance Enum TextAttribute where- fromEnum TextAttributeInvalid = 0- fromEnum TextAttributeLeftMargin = 1- fromEnum TextAttributeRightMargin = 2- fromEnum TextAttributeIndent = 3- fromEnum TextAttributeInvisible = 4- fromEnum TextAttributeEditable = 5- fromEnum TextAttributePixelsAboveLines = 6- fromEnum TextAttributePixelsBelowLines = 7- fromEnum TextAttributePixelsInsideWrap = 8- fromEnum TextAttributeBgFullHeight = 9- fromEnum TextAttributeRise = 10- fromEnum TextAttributeUnderline = 11- fromEnum TextAttributeStrikethrough = 12- fromEnum TextAttributeSize = 13- fromEnum TextAttributeScale = 14- fromEnum TextAttributeWeight = 15- fromEnum TextAttributeLanguage = 16- fromEnum TextAttributeFamilyName = 17- fromEnum TextAttributeBgColor = 18- fromEnum TextAttributeFgColor = 19- fromEnum TextAttributeBgStipple = 20- fromEnum TextAttributeFgStipple = 21- fromEnum TextAttributeWrapMode = 22- fromEnum TextAttributeDirection = 23- fromEnum TextAttributeJustification = 24- fromEnum TextAttributeStretch = 25- fromEnum TextAttributeVariant = 26- fromEnum TextAttributeStyle = 27- fromEnum TextAttributeLastDefined = 28- fromEnum (AnotherTextAttribute k) = k-- toEnum 0 = TextAttributeInvalid- toEnum 1 = TextAttributeLeftMargin- toEnum 2 = TextAttributeRightMargin- toEnum 3 = TextAttributeIndent- toEnum 4 = TextAttributeInvisible- toEnum 5 = TextAttributeEditable- toEnum 6 = TextAttributePixelsAboveLines- toEnum 7 = TextAttributePixelsBelowLines- toEnum 8 = TextAttributePixelsInsideWrap- toEnum 9 = TextAttributeBgFullHeight- toEnum 10 = TextAttributeRise- toEnum 11 = TextAttributeUnderline- toEnum 12 = TextAttributeStrikethrough- toEnum 13 = TextAttributeSize- toEnum 14 = TextAttributeScale- toEnum 15 = TextAttributeWeight- toEnum 16 = TextAttributeLanguage- toEnum 17 = TextAttributeFamilyName- toEnum 18 = TextAttributeBgColor- toEnum 19 = TextAttributeFgColor- toEnum 20 = TextAttributeBgStipple- toEnum 21 = TextAttributeFgStipple- toEnum 22 = TextAttributeWrapMode- toEnum 23 = TextAttributeDirection- toEnum 24 = TextAttributeJustification- toEnum 25 = TextAttributeStretch- toEnum 26 = TextAttributeVariant- toEnum 27 = TextAttributeStyle- toEnum 28 = TextAttributeLastDefined- toEnum k = AnotherTextAttribute k--foreign import ccall "atk_text_attribute_get_type" c_atk_text_attribute_get_type :: - IO GType--instance BoxedEnum TextAttribute where- boxedEnumType _ = c_atk_text_attribute_get_type---- Enum StateType--data StateType = - StateTypeInvalid- | StateTypeActive- | StateTypeArmed- | StateTypeBusy- | StateTypeChecked- | StateTypeDefunct- | StateTypeEditable- | StateTypeEnabled- | StateTypeExpandable- | StateTypeExpanded- | StateTypeFocusable- | StateTypeFocused- | StateTypeHorizontal- | StateTypeIconified- | StateTypeModal- | StateTypeMultiLine- | StateTypeMultiselectable- | StateTypeOpaque- | StateTypePressed- | StateTypeResizable- | StateTypeSelectable- | StateTypeSelected- | StateTypeSensitive- | StateTypeShowing- | StateTypeSingleLine- | StateTypeStale- | StateTypeTransient- | StateTypeVertical- | StateTypeVisible- | StateTypeManagesDescendants- | StateTypeIndeterminate- | StateTypeTruncated- | StateTypeRequired- | StateTypeInvalidEntry- | StateTypeSupportsAutocompletion- | StateTypeSelectableText- | StateTypeDefault- | StateTypeAnimated- | StateTypeVisited- | StateTypeCheckable- | StateTypeHasPopup- | StateTypeHasTooltip- | StateTypeReadOnly- | StateTypeLastDefined- | AnotherStateType Int- deriving (Show, Eq)--instance Enum StateType where- fromEnum StateTypeInvalid = 0- fromEnum StateTypeActive = 1- fromEnum StateTypeArmed = 2- fromEnum StateTypeBusy = 3- fromEnum StateTypeChecked = 4- fromEnum StateTypeDefunct = 5- fromEnum StateTypeEditable = 6- fromEnum StateTypeEnabled = 7- fromEnum StateTypeExpandable = 8- fromEnum StateTypeExpanded = 9- fromEnum StateTypeFocusable = 10- fromEnum StateTypeFocused = 11- fromEnum StateTypeHorizontal = 12- fromEnum StateTypeIconified = 13- fromEnum StateTypeModal = 14- fromEnum StateTypeMultiLine = 15- fromEnum StateTypeMultiselectable = 16- fromEnum StateTypeOpaque = 17- fromEnum StateTypePressed = 18- fromEnum StateTypeResizable = 19- fromEnum StateTypeSelectable = 20- fromEnum StateTypeSelected = 21- fromEnum StateTypeSensitive = 22- fromEnum StateTypeShowing = 23- fromEnum StateTypeSingleLine = 24- fromEnum StateTypeStale = 25- fromEnum StateTypeTransient = 26- fromEnum StateTypeVertical = 27- fromEnum StateTypeVisible = 28- fromEnum StateTypeManagesDescendants = 29- fromEnum StateTypeIndeterminate = 30- fromEnum StateTypeTruncated = 31- fromEnum StateTypeRequired = 32- fromEnum StateTypeInvalidEntry = 33- fromEnum StateTypeSupportsAutocompletion = 34- fromEnum StateTypeSelectableText = 35- fromEnum StateTypeDefault = 36- fromEnum StateTypeAnimated = 37- fromEnum StateTypeVisited = 38- fromEnum StateTypeCheckable = 39- fromEnum StateTypeHasPopup = 40- fromEnum StateTypeHasTooltip = 41- fromEnum StateTypeReadOnly = 42- fromEnum StateTypeLastDefined = 43- fromEnum (AnotherStateType k) = k-- toEnum 0 = StateTypeInvalid- toEnum 1 = StateTypeActive- toEnum 2 = StateTypeArmed- toEnum 3 = StateTypeBusy- toEnum 4 = StateTypeChecked- toEnum 5 = StateTypeDefunct- toEnum 6 = StateTypeEditable- toEnum 7 = StateTypeEnabled- toEnum 8 = StateTypeExpandable- toEnum 9 = StateTypeExpanded- toEnum 10 = StateTypeFocusable- toEnum 11 = StateTypeFocused- toEnum 12 = StateTypeHorizontal- toEnum 13 = StateTypeIconified- toEnum 14 = StateTypeModal- toEnum 15 = StateTypeMultiLine- toEnum 16 = StateTypeMultiselectable- toEnum 17 = StateTypeOpaque- toEnum 18 = StateTypePressed- toEnum 19 = StateTypeResizable- toEnum 20 = StateTypeSelectable- toEnum 21 = StateTypeSelected- toEnum 22 = StateTypeSensitive- toEnum 23 = StateTypeShowing- toEnum 24 = StateTypeSingleLine- toEnum 25 = StateTypeStale- toEnum 26 = StateTypeTransient- toEnum 27 = StateTypeVertical- toEnum 28 = StateTypeVisible- toEnum 29 = StateTypeManagesDescendants- toEnum 30 = StateTypeIndeterminate- toEnum 31 = StateTypeTruncated- toEnum 32 = StateTypeRequired- toEnum 33 = StateTypeInvalidEntry- toEnum 34 = StateTypeSupportsAutocompletion- toEnum 35 = StateTypeSelectableText- toEnum 36 = StateTypeDefault- toEnum 37 = StateTypeAnimated- toEnum 38 = StateTypeVisited- toEnum 39 = StateTypeCheckable- toEnum 40 = StateTypeHasPopup- toEnum 41 = StateTypeHasTooltip- toEnum 42 = StateTypeReadOnly- toEnum 43 = StateTypeLastDefined- toEnum k = AnotherStateType k--foreign import ccall "atk_state_type_get_type" c_atk_state_type_get_type :: - IO GType--instance BoxedEnum StateType where- boxedEnumType _ = c_atk_state_type_get_type---- Enum Role--data Role = - RoleInvalid- | RoleAcceleratorLabel- | RoleAlert- | RoleAnimation- | RoleArrow- | RoleCalendar- | RoleCanvas- | RoleCheckBox- | RoleCheckMenuItem- | RoleColorChooser- | RoleColumnHeader- | RoleComboBox- | RoleDateEditor- | RoleDesktopIcon- | RoleDesktopFrame- | RoleDial- | RoleDialog- | RoleDirectoryPane- | RoleDrawingArea- | RoleFileChooser- | RoleFiller- | RoleFontChooser- | RoleFrame- | RoleGlassPane- | RoleHtmlContainer- | RoleIcon- | RoleImage- | RoleInternalFrame- | RoleLabel- | RoleLayeredPane- | RoleList- | RoleListItem- | RoleMenu- | RoleMenuBar- | RoleMenuItem- | RoleOptionPane- | RolePageTab- | RolePageTabList- | RolePanel- | RolePasswordText- | RolePopupMenu- | RoleProgressBar- | RolePushButton- | RoleRadioButton- | RoleRadioMenuItem- | RoleRootPane- | RoleRowHeader- | RoleScrollBar- | RoleScrollPane- | RoleSeparator- | RoleSlider- | RoleSplitPane- | RoleSpinButton- | RoleStatusbar- | RoleTable- | RoleTableCell- | RoleTableColumnHeader- | RoleTableRowHeader- | RoleTearOffMenuItem- | RoleTerminal- | RoleText- | RoleToggleButton- | RoleToolBar- | RoleToolTip- | RoleTree- | RoleTreeTable- | RoleUnknown- | RoleViewport- | RoleWindow- | RoleHeader- | RoleFooter- | RoleParagraph- | RoleRuler- | RoleApplication- | RoleAutocomplete- | RoleEditBar- | RoleEmbedded- | RoleEntry- | RoleChart- | RoleCaption- | RoleDocumentFrame- | RoleHeading- | RolePage- | RoleSection- | RoleRedundantObject- | RoleForm- | RoleLink- | RoleInputMethodWindow- | RoleTableRow- | RoleTreeItem- | RoleDocumentSpreadsheet- | RoleDocumentPresentation- | RoleDocumentText- | RoleDocumentWeb- | RoleDocumentEmail- | RoleComment- | RoleListBox- | RoleGrouping- | RoleImageMap- | RoleNotification- | RoleInfoBar- | RoleLevelBar- | RoleTitleBar- | RoleBlockQuote- | RoleAudio- | RoleVideo- | RoleDefinition- | RoleArticle- | RoleLandmark- | RoleLog- | RoleMarquee- | RoleMath- | RoleRating- | RoleTimer- | RoleDescriptionList- | RoleDescriptionTerm- | RoleDescriptionValue- | RoleStatic- | RoleMathFraction- | RoleMathRoot- | RoleSubscript- | RoleSuperscript- | RoleLastDefined- | AnotherRole Int- deriving (Show, Eq)--instance Enum Role where- fromEnum RoleInvalid = 0- fromEnum RoleAcceleratorLabel = 1- fromEnum RoleAlert = 2- fromEnum RoleAnimation = 3- fromEnum RoleArrow = 4- fromEnum RoleCalendar = 5- fromEnum RoleCanvas = 6- fromEnum RoleCheckBox = 7- fromEnum RoleCheckMenuItem = 8- fromEnum RoleColorChooser = 9- fromEnum RoleColumnHeader = 10- fromEnum RoleComboBox = 11- fromEnum RoleDateEditor = 12- fromEnum RoleDesktopIcon = 13- fromEnum RoleDesktopFrame = 14- fromEnum RoleDial = 15- fromEnum RoleDialog = 16- fromEnum RoleDirectoryPane = 17- fromEnum RoleDrawingArea = 18- fromEnum RoleFileChooser = 19- fromEnum RoleFiller = 20- fromEnum RoleFontChooser = 21- fromEnum RoleFrame = 22- fromEnum RoleGlassPane = 23- fromEnum RoleHtmlContainer = 24- fromEnum RoleIcon = 25- fromEnum RoleImage = 26- fromEnum RoleInternalFrame = 27- fromEnum RoleLabel = 28- fromEnum RoleLayeredPane = 29- fromEnum RoleList = 30- fromEnum RoleListItem = 31- fromEnum RoleMenu = 32- fromEnum RoleMenuBar = 33- fromEnum RoleMenuItem = 34- fromEnum RoleOptionPane = 35- fromEnum RolePageTab = 36- fromEnum RolePageTabList = 37- fromEnum RolePanel = 38- fromEnum RolePasswordText = 39- fromEnum RolePopupMenu = 40- fromEnum RoleProgressBar = 41- fromEnum RolePushButton = 42- fromEnum RoleRadioButton = 43- fromEnum RoleRadioMenuItem = 44- fromEnum RoleRootPane = 45- fromEnum RoleRowHeader = 46- fromEnum RoleScrollBar = 47- fromEnum RoleScrollPane = 48- fromEnum RoleSeparator = 49- fromEnum RoleSlider = 50- fromEnum RoleSplitPane = 51- fromEnum RoleSpinButton = 52- fromEnum RoleStatusbar = 53- fromEnum RoleTable = 54- fromEnum RoleTableCell = 55- fromEnum RoleTableColumnHeader = 56- fromEnum RoleTableRowHeader = 57- fromEnum RoleTearOffMenuItem = 58- fromEnum RoleTerminal = 59- fromEnum RoleText = 60- fromEnum RoleToggleButton = 61- fromEnum RoleToolBar = 62- fromEnum RoleToolTip = 63- fromEnum RoleTree = 64- fromEnum RoleTreeTable = 65- fromEnum RoleUnknown = 66- fromEnum RoleViewport = 67- fromEnum RoleWindow = 68- fromEnum RoleHeader = 69- fromEnum RoleFooter = 70- fromEnum RoleParagraph = 71- fromEnum RoleRuler = 72- fromEnum RoleApplication = 73- fromEnum RoleAutocomplete = 74- fromEnum RoleEditBar = 75- fromEnum RoleEmbedded = 76- fromEnum RoleEntry = 77- fromEnum RoleChart = 78- fromEnum RoleCaption = 79- fromEnum RoleDocumentFrame = 80- fromEnum RoleHeading = 81- fromEnum RolePage = 82- fromEnum RoleSection = 83- fromEnum RoleRedundantObject = 84- fromEnum RoleForm = 85- fromEnum RoleLink = 86- fromEnum RoleInputMethodWindow = 87- fromEnum RoleTableRow = 88- fromEnum RoleTreeItem = 89- fromEnum RoleDocumentSpreadsheet = 90- fromEnum RoleDocumentPresentation = 91- fromEnum RoleDocumentText = 92- fromEnum RoleDocumentWeb = 93- fromEnum RoleDocumentEmail = 94- fromEnum RoleComment = 95- fromEnum RoleListBox = 96- fromEnum RoleGrouping = 97- fromEnum RoleImageMap = 98- fromEnum RoleNotification = 99- fromEnum RoleInfoBar = 100- fromEnum RoleLevelBar = 101- fromEnum RoleTitleBar = 102- fromEnum RoleBlockQuote = 103- fromEnum RoleAudio = 104- fromEnum RoleVideo = 105- fromEnum RoleDefinition = 106- fromEnum RoleArticle = 107- fromEnum RoleLandmark = 108- fromEnum RoleLog = 109- fromEnum RoleMarquee = 110- fromEnum RoleMath = 111- fromEnum RoleRating = 112- fromEnum RoleTimer = 113- fromEnum RoleDescriptionList = 114- fromEnum RoleDescriptionTerm = 115- fromEnum RoleDescriptionValue = 116- fromEnum RoleStatic = 117- fromEnum RoleMathFraction = 118- fromEnum RoleMathRoot = 119- fromEnum RoleSubscript = 120- fromEnum RoleSuperscript = 121- fromEnum RoleLastDefined = 122- fromEnum (AnotherRole k) = k-- toEnum 0 = RoleInvalid- toEnum 1 = RoleAcceleratorLabel- toEnum 2 = RoleAlert- toEnum 3 = RoleAnimation- toEnum 4 = RoleArrow- toEnum 5 = RoleCalendar- toEnum 6 = RoleCanvas- toEnum 7 = RoleCheckBox- toEnum 8 = RoleCheckMenuItem- toEnum 9 = RoleColorChooser- toEnum 10 = RoleColumnHeader- toEnum 11 = RoleComboBox- toEnum 12 = RoleDateEditor- toEnum 13 = RoleDesktopIcon- toEnum 14 = RoleDesktopFrame- toEnum 15 = RoleDial- toEnum 16 = RoleDialog- toEnum 17 = RoleDirectoryPane- toEnum 18 = RoleDrawingArea- toEnum 19 = RoleFileChooser- toEnum 20 = RoleFiller- toEnum 21 = RoleFontChooser- toEnum 22 = RoleFrame- toEnum 23 = RoleGlassPane- toEnum 24 = RoleHtmlContainer- toEnum 25 = RoleIcon- toEnum 26 = RoleImage- toEnum 27 = RoleInternalFrame- toEnum 28 = RoleLabel- toEnum 29 = RoleLayeredPane- toEnum 30 = RoleList- toEnum 31 = RoleListItem- toEnum 32 = RoleMenu- toEnum 33 = RoleMenuBar- toEnum 34 = RoleMenuItem- toEnum 35 = RoleOptionPane- toEnum 36 = RolePageTab- toEnum 37 = RolePageTabList- toEnum 38 = RolePanel- toEnum 39 = RolePasswordText- toEnum 40 = RolePopupMenu- toEnum 41 = RoleProgressBar- toEnum 42 = RolePushButton- toEnum 43 = RoleRadioButton- toEnum 44 = RoleRadioMenuItem- toEnum 45 = RoleRootPane- toEnum 46 = RoleRowHeader- toEnum 47 = RoleScrollBar- toEnum 48 = RoleScrollPane- toEnum 49 = RoleSeparator- toEnum 50 = RoleSlider- toEnum 51 = RoleSplitPane- toEnum 52 = RoleSpinButton- toEnum 53 = RoleStatusbar- toEnum 54 = RoleTable- toEnum 55 = RoleTableCell- toEnum 56 = RoleTableColumnHeader- toEnum 57 = RoleTableRowHeader- toEnum 58 = RoleTearOffMenuItem- toEnum 59 = RoleTerminal- toEnum 60 = RoleText- toEnum 61 = RoleToggleButton- toEnum 62 = RoleToolBar- toEnum 63 = RoleToolTip- toEnum 64 = RoleTree- toEnum 65 = RoleTreeTable- toEnum 66 = RoleUnknown- toEnum 67 = RoleViewport- toEnum 68 = RoleWindow- toEnum 69 = RoleHeader- toEnum 70 = RoleFooter- toEnum 71 = RoleParagraph- toEnum 72 = RoleRuler- toEnum 73 = RoleApplication- toEnum 74 = RoleAutocomplete- toEnum 75 = RoleEditBar- toEnum 76 = RoleEmbedded- toEnum 77 = RoleEntry- toEnum 78 = RoleChart- toEnum 79 = RoleCaption- toEnum 80 = RoleDocumentFrame- toEnum 81 = RoleHeading- toEnum 82 = RolePage- toEnum 83 = RoleSection- toEnum 84 = RoleRedundantObject- toEnum 85 = RoleForm- toEnum 86 = RoleLink- toEnum 87 = RoleInputMethodWindow- toEnum 88 = RoleTableRow- toEnum 89 = RoleTreeItem- toEnum 90 = RoleDocumentSpreadsheet- toEnum 91 = RoleDocumentPresentation- toEnum 92 = RoleDocumentText- toEnum 93 = RoleDocumentWeb- toEnum 94 = RoleDocumentEmail- toEnum 95 = RoleComment- toEnum 96 = RoleListBox- toEnum 97 = RoleGrouping- toEnum 98 = RoleImageMap- toEnum 99 = RoleNotification- toEnum 100 = RoleInfoBar- toEnum 101 = RoleLevelBar- toEnum 102 = RoleTitleBar- toEnum 103 = RoleBlockQuote- toEnum 104 = RoleAudio- toEnum 105 = RoleVideo- toEnum 106 = RoleDefinition- toEnum 107 = RoleArticle- toEnum 108 = RoleLandmark- toEnum 109 = RoleLog- toEnum 110 = RoleMarquee- toEnum 111 = RoleMath- toEnum 112 = RoleRating- toEnum 113 = RoleTimer- toEnum 114 = RoleDescriptionList- toEnum 115 = RoleDescriptionTerm- toEnum 116 = RoleDescriptionValue- toEnum 117 = RoleStatic- toEnum 118 = RoleMathFraction- toEnum 119 = RoleMathRoot- toEnum 120 = RoleSubscript- toEnum 121 = RoleSuperscript- toEnum 122 = RoleLastDefined- toEnum k = AnotherRole k--foreign import ccall "atk_role_get_type" c_atk_role_get_type :: - IO GType--instance BoxedEnum Role where- boxedEnumType _ = c_atk_role_get_type---- Enum RelationType--data RelationType = - RelationTypeNull- | RelationTypeControlledBy- | RelationTypeControllerFor- | RelationTypeLabelFor- | RelationTypeLabelledBy- | RelationTypeMemberOf- | RelationTypeNodeChildOf- | RelationTypeFlowsTo- | RelationTypeFlowsFrom- | RelationTypeSubwindowOf- | RelationTypeEmbeds- | RelationTypeEmbeddedBy- | RelationTypePopupFor- | RelationTypeParentWindowOf- | RelationTypeDescribedBy- | RelationTypeDescriptionFor- | RelationTypeNodeParentOf- | RelationTypeLastDefined- | AnotherRelationType Int- deriving (Show, Eq)--instance Enum RelationType where- fromEnum RelationTypeNull = 0- fromEnum RelationTypeControlledBy = 1- fromEnum RelationTypeControllerFor = 2- fromEnum RelationTypeLabelFor = 3- fromEnum RelationTypeLabelledBy = 4- fromEnum RelationTypeMemberOf = 5- fromEnum RelationTypeNodeChildOf = 6- fromEnum RelationTypeFlowsTo = 7- fromEnum RelationTypeFlowsFrom = 8- fromEnum RelationTypeSubwindowOf = 9- fromEnum RelationTypeEmbeds = 10- fromEnum RelationTypeEmbeddedBy = 11- fromEnum RelationTypePopupFor = 12- fromEnum RelationTypeParentWindowOf = 13- fromEnum RelationTypeDescribedBy = 14- fromEnum RelationTypeDescriptionFor = 15- fromEnum RelationTypeNodeParentOf = 16- fromEnum RelationTypeLastDefined = 17- fromEnum (AnotherRelationType k) = k-- toEnum 0 = RelationTypeNull- toEnum 1 = RelationTypeControlledBy- toEnum 2 = RelationTypeControllerFor- toEnum 3 = RelationTypeLabelFor- toEnum 4 = RelationTypeLabelledBy- toEnum 5 = RelationTypeMemberOf- toEnum 6 = RelationTypeNodeChildOf- toEnum 7 = RelationTypeFlowsTo- toEnum 8 = RelationTypeFlowsFrom- toEnum 9 = RelationTypeSubwindowOf- toEnum 10 = RelationTypeEmbeds- toEnum 11 = RelationTypeEmbeddedBy- toEnum 12 = RelationTypePopupFor- toEnum 13 = RelationTypeParentWindowOf- toEnum 14 = RelationTypeDescribedBy- toEnum 15 = RelationTypeDescriptionFor- toEnum 16 = RelationTypeNodeParentOf- toEnum 17 = RelationTypeLastDefined- toEnum k = AnotherRelationType k--foreign import ccall "atk_relation_type_get_type" c_atk_relation_type_get_type :: - IO GType--instance BoxedEnum RelationType where- boxedEnumType _ = c_atk_relation_type_get_type---- Enum Layer--data Layer = - LayerInvalid- | LayerBackground- | LayerCanvas- | LayerWidget- | LayerMdi- | LayerPopup- | LayerOverlay- | LayerWindow- | AnotherLayer Int- deriving (Show, Eq)--instance Enum Layer where- fromEnum LayerInvalid = 0- fromEnum LayerBackground = 1- fromEnum LayerCanvas = 2- fromEnum LayerWidget = 3- fromEnum LayerMdi = 4- fromEnum LayerPopup = 5- fromEnum LayerOverlay = 6- fromEnum LayerWindow = 7- fromEnum (AnotherLayer k) = k-- toEnum 0 = LayerInvalid- toEnum 1 = LayerBackground- toEnum 2 = LayerCanvas- toEnum 3 = LayerWidget- toEnum 4 = LayerMdi- toEnum 5 = LayerPopup- toEnum 6 = LayerOverlay- toEnum 7 = LayerWindow- toEnum k = AnotherLayer k--foreign import ccall "atk_layer_get_type" c_atk_layer_get_type :: - IO GType--instance BoxedEnum Layer where- boxedEnumType _ = c_atk_layer_get_type---- Enum KeyEventType--data KeyEventType = - KeyEventTypePress- | KeyEventTypeRelease- | KeyEventTypeLastDefined- | AnotherKeyEventType Int- deriving (Show, Eq)--instance Enum KeyEventType where- fromEnum KeyEventTypePress = 0- fromEnum KeyEventTypeRelease = 1- fromEnum KeyEventTypeLastDefined = 2- fromEnum (AnotherKeyEventType k) = k-- toEnum 0 = KeyEventTypePress- toEnum 1 = KeyEventTypeRelease- toEnum 2 = KeyEventTypeLastDefined- toEnum k = AnotherKeyEventType k--foreign import ccall "atk_key_event_type_get_type" c_atk_key_event_type_get_type :: - IO GType--instance BoxedEnum KeyEventType where- boxedEnumType _ = c_atk_key_event_type_get_type---- Enum CoordType--data CoordType = - CoordTypeScreen- | CoordTypeWindow- | AnotherCoordType Int- deriving (Show, Eq)--instance Enum CoordType where- fromEnum CoordTypeScreen = 0- fromEnum CoordTypeWindow = 1- fromEnum (AnotherCoordType k) = k-- toEnum 0 = CoordTypeScreen- toEnum 1 = CoordTypeWindow- toEnum k = AnotherCoordType k--foreign import ccall "atk_coord_type_get_type" c_atk_coord_type_get_type :: - IO GType--instance BoxedEnum CoordType where- boxedEnumType _ = c_atk_coord_type_get_type--
− GI/Atk/Flags.hs
@@ -1,50 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Flags- ( ---- * Exported types- HyperlinkStateFlags(..) ,--- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags HyperlinkStateFlags--data HyperlinkStateFlags = - HyperlinkStateFlagsInline- | AnotherHyperlinkStateFlags Int- deriving (Show, Eq)--instance Enum HyperlinkStateFlags where- fromEnum HyperlinkStateFlagsInline = 1- fromEnum (AnotherHyperlinkStateFlags k) = k-- toEnum 1 = HyperlinkStateFlagsInline- toEnum k = AnotherHyperlinkStateFlags k--foreign import ccall "atk_hyperlink_state_flags_get_type" c_atk_hyperlink_state_flags_get_type :: - IO GType--instance BoxedFlags HyperlinkStateFlags where- boxedFlagsType _ = c_atk_hyperlink_state_flags_get_type--instance IsGFlag HyperlinkStateFlags--
− GI/Atk/Functions.hs
@@ -1,394 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Functions- ( -- -- * Methods--- ** focusTrackerNotify- focusTrackerNotify ,----- ** getBinaryAge- getBinaryAge ,----- ** getDefaultRegistry- getDefaultRegistry ,----- ** getFocusObject- getFocusObject ,----- ** getInterfaceAge- getInterfaceAge ,----- ** getMajorVersion- getMajorVersion ,----- ** getMicroVersion- getMicroVersion ,----- ** getMinorVersion- getMinorVersion ,----- ** getRoot- getRoot ,----- ** getToolkitName- getToolkitName ,----- ** getToolkitVersion- getToolkitVersion ,----- ** getVersion- getVersion ,----- ** removeFocusTracker- removeFocusTracker ,----- ** removeGlobalEventListener- removeGlobalEventListener ,----- ** removeKeyEventListener- removeKeyEventListener ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- function atk_remove_key_event_listener--- Args : [Arg {argCName = "listener_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_remove_key_event_listener" atk_remove_key_event_listener :: - Word32 -> -- listener_id : TBasicType TUInt- IO ()---removeKeyEventListener ::- (MonadIO m) =>- Word32 -- listenerId- -> m () -- result-removeKeyEventListener listenerId = liftIO $ do- atk_remove_key_event_listener listenerId- return ()----- function atk_remove_global_event_listener--- Args : [Arg {argCName = "listener_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_remove_global_event_listener" atk_remove_global_event_listener :: - Word32 -> -- listener_id : TBasicType TUInt- IO ()---removeGlobalEventListener ::- (MonadIO m) =>- Word32 -- listenerId- -> m () -- result-removeGlobalEventListener listenerId = liftIO $ do- atk_remove_global_event_listener listenerId- return ()----- function atk_remove_focus_tracker--- Args : [Arg {argCName = "tracker_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_remove_focus_tracker" atk_remove_focus_tracker :: - Word32 -> -- tracker_id : TBasicType TUInt- IO ()--{-# 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 -- trackerId- -> m () -- result-removeFocusTracker trackerId = liftIO $ do- atk_remove_focus_tracker trackerId- return ()----- function atk_get_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_get_version" atk_get_version :: - IO CString---getVersion ::- (MonadIO m) =>- m T.Text -- result-getVersion = liftIO $ do- result <- atk_get_version- checkUnexpectedReturnNULL "atk_get_version" result- result' <- cstringToText result- return result'----- function atk_get_toolkit_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_get_toolkit_version" atk_get_toolkit_version :: - IO CString---getToolkitVersion ::- (MonadIO m) =>- m T.Text -- result-getToolkitVersion = liftIO $ do- result <- atk_get_toolkit_version- checkUnexpectedReturnNULL "atk_get_toolkit_version" result- result' <- cstringToText result- return result'----- function atk_get_toolkit_name--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_get_toolkit_name" atk_get_toolkit_name :: - IO CString---getToolkitName ::- (MonadIO m) =>- m T.Text -- result-getToolkitName = liftIO $ do- result <- atk_get_toolkit_name- checkUnexpectedReturnNULL "atk_get_toolkit_name" result- result' <- cstringToText result- return result'----- function atk_get_root--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_get_root" atk_get_root :: - IO (Ptr Object)---getRoot ::- (MonadIO m) =>- m Object -- result-getRoot = liftIO $ do- result <- atk_get_root- checkUnexpectedReturnNULL "atk_get_root" result- result' <- (newObject Object) result- return result'----- function atk_get_minor_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "atk_get_minor_version" atk_get_minor_version :: - IO Word32---getMinorVersion ::- (MonadIO m) =>- m Word32 -- result-getMinorVersion = liftIO $ do- result <- atk_get_minor_version- return result----- function atk_get_micro_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "atk_get_micro_version" atk_get_micro_version :: - IO Word32---getMicroVersion ::- (MonadIO m) =>- m Word32 -- result-getMicroVersion = liftIO $ do- result <- atk_get_micro_version- return result----- function atk_get_major_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "atk_get_major_version" atk_get_major_version :: - IO Word32---getMajorVersion ::- (MonadIO m) =>- m Word32 -- result-getMajorVersion = liftIO $ do- result <- atk_get_major_version- return result----- function atk_get_interface_age--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "atk_get_interface_age" atk_get_interface_age :: - IO Word32---getInterfaceAge ::- (MonadIO m) =>- m Word32 -- result-getInterfaceAge = liftIO $ do- result <- atk_get_interface_age- return result----- function atk_get_focus_object--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_get_focus_object" atk_get_focus_object :: - IO (Ptr Object)---getFocusObject ::- (MonadIO m) =>- m Object -- result-getFocusObject = liftIO $ do- result <- atk_get_focus_object- checkUnexpectedReturnNULL "atk_get_focus_object" result- result' <- (newObject Object) result- return result'----- function atk_get_default_registry--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Registry")--- throws : False--- Skip return : False--foreign import ccall "atk_get_default_registry" atk_get_default_registry :: - IO (Ptr Registry)---getDefaultRegistry ::- (MonadIO m) =>- m Registry -- result-getDefaultRegistry = liftIO $ do- result <- atk_get_default_registry- checkUnexpectedReturnNULL "atk_get_default_registry" result- result' <- (wrapObject Registry) result- return result'----- function atk_get_binary_age--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "atk_get_binary_age" atk_get_binary_age :: - IO Word32---getBinaryAge ::- (MonadIO m) =>- m Word32 -- result-getBinaryAge = liftIO $ do- result <- atk_get_binary_age- return result----- function atk_focus_tracker_notify--- Args : [Arg {argCName = "object", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_focus_tracker_notify" atk_focus_tracker_notify :: - Ptr Object -> -- object : TInterface "Atk" "Object"- IO ()--{-# 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 () -- result-focusTrackerNotify object = liftIO $ do- let object' = unsafeManagedPtrCastPtr object- atk_focus_tracker_notify object'- touchManagedPtr object- return ()---
− GI/Atk/Interfaces.hs
@@ -1,55 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces- ( module GI.Atk.Interfaces.Action ,- module GI.Atk.Interfaces.Component ,- module GI.Atk.Interfaces.Document ,- module GI.Atk.Interfaces.EditableText ,- module GI.Atk.Interfaces.HyperlinkImpl ,- module GI.Atk.Interfaces.Hypertext ,- module GI.Atk.Interfaces.Image ,- module GI.Atk.Interfaces.ImplementorIface,- module GI.Atk.Interfaces.Selection ,- module GI.Atk.Interfaces.StreamableContent,- module GI.Atk.Interfaces.Table ,- module GI.Atk.Interfaces.TableCell ,- module GI.Atk.Interfaces.Text ,- module GI.Atk.Interfaces.Value ,- module GI.Atk.Interfaces.Window ,--- ) where--import GI.Atk.Interfaces.Action-import GI.Atk.Interfaces.Component-import GI.Atk.Interfaces.Document-import GI.Atk.Interfaces.EditableText-import GI.Atk.Interfaces.HyperlinkImpl-import GI.Atk.Interfaces.Hypertext-import GI.Atk.Interfaces.Image-import GI.Atk.Interfaces.ImplementorIface-import GI.Atk.Interfaces.Selection-import GI.Atk.Interfaces.StreamableContent-import GI.Atk.Interfaces.Table-import GI.Atk.Interfaces.TableCell-import GI.Atk.Interfaces.Text-import GI.Atk.Interfaces.Value-import GI.Atk.Interfaces.Window--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--
− GI/Atk/Interfaces/Action.hs
@@ -1,322 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Action- ( ---- * Exported types- Action(..) ,- noAction ,- ActionK ,--- -- * Methods--- ** actionDoAction- ActionDoActionMethodInfo ,- actionDoAction ,----- ** actionGetDescription- ActionGetDescriptionMethodInfo ,- actionGetDescription ,----- ** actionGetKeybinding- ActionGetKeybindingMethodInfo ,- actionGetKeybinding ,----- ** actionGetLocalizedName- ActionGetLocalizedNameMethodInfo ,- actionGetLocalizedName ,----- ** actionGetNActions- ActionGetNActionsMethodInfo ,- actionGetNActions ,----- ** actionGetName- ActionGetNameMethodInfo ,- actionGetName ,----- ** actionSetDescription- ActionSetDescriptionMethodInfo ,- actionSetDescription ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Action --newtype Action = Action (ForeignPtr Action)-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, *)])--type instance SignalList Action = ActionSignalList-type ActionSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => ActionK a-instance (ForeignPtrNewtype o, IsDescendantOf Action o) => ActionK o-type instance ParentTypes Action = ActionParentTypes-type ActionParentTypes = '[]---- method Action::do_action--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_action_do_action" atk_action_do_action :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- IO CInt---actionDoAction ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> m Bool -- result-actionDoAction _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_action_do_action _obj' i- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_description" atk_action_get_description :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- IO CString---actionGetDescription ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> m (Maybe T.Text) -- result-actionGetDescription _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_action_get_description _obj' i- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data ActionGetDescriptionMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ActionK a) => MethodInfo ActionGetDescriptionMethodInfo a signature where- overloadedMethod _ = actionGetDescription---- method Action::get_keybinding--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_keybinding" atk_action_get_keybinding :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- IO CString---actionGetKeybinding ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> m (Maybe T.Text) -- result-actionGetKeybinding _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_action_get_keybinding _obj' i- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data ActionGetKeybindingMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ActionK a) => MethodInfo ActionGetKeybindingMethodInfo a signature where- overloadedMethod _ = actionGetKeybinding---- method Action::get_localized_name--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_localized_name" atk_action_get_localized_name :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- IO CString---actionGetLocalizedName ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> m (Maybe T.Text) -- result-actionGetLocalizedName _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_action_get_localized_name _obj' i- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data ActionGetLocalizedNameMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ActionK a) => MethodInfo ActionGetLocalizedNameMethodInfo a signature where- overloadedMethod _ = actionGetLocalizedName---- method Action::get_n_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_n_actions" atk_action_get_n_actions :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- IO Int32---actionGetNActions ::- (MonadIO m, ActionK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_action_get_name" atk_action_get_name :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- IO CString---actionGetName ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> m (Maybe T.Text) -- result-actionGetName _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_action_get_name _obj' i- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data ActionGetNameMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where- overloadedMethod _ = actionGetName---- method Action::set_description--- method type : OrdinaryMethod--- 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 TInt, 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_action_set_description" atk_action_set_description :: - Ptr Action -> -- _obj : TInterface "Atk" "Action"- Int32 -> -- i : TBasicType TInt- CString -> -- desc : TBasicType TUTF8- IO CInt---actionSetDescription ::- (MonadIO m, ActionK a) =>- a -- _obj- -> Int32 -- i- -> T.Text -- desc- -> m Bool -- result-actionSetDescription _obj i desc = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- desc' <- textToCString desc- result <- atk_action_set_description _obj' i desc'- let result' = (/= 0) result- 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--
− GI/Atk/Interfaces/Action.hs-boot
@@ -1,19 +0,0 @@-module GI.Atk.Interfaces.Action where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--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
− GI/Atk/Interfaces/Component.hs
@@ -1,622 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Component- ( ---- * Exported types- Component(..) ,- noComponent ,- ComponentK ,--- -- * 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 ,----- -- * Signals--- ** BoundsChanged- ComponentBoundsChangedCallback ,- ComponentBoundsChangedCallbackC ,- ComponentBoundsChangedSignalInfo ,- afterComponentBoundsChanged ,- componentBoundsChangedCallbackWrapper ,- componentBoundsChangedClosure ,- mkComponentBoundsChangedCallback ,- noComponentBoundsChangedCallback ,- onComponentBoundsChanged ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Component --newtype Component = Component (ForeignPtr Component)-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 ->- IO ()--noComponentBoundsChangedCallback :: Maybe ComponentBoundsChangedCallback-noComponentBoundsChangedCallback = Nothing--type ComponentBoundsChangedCallbackC =- Ptr () -> -- object- Ptr Rectangle ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkComponentBoundsChangedCallback :: ComponentBoundsChangedCallbackC -> IO (FunPtr ComponentBoundsChangedCallbackC)--componentBoundsChangedClosure :: ComponentBoundsChangedCallback -> IO Closure-componentBoundsChangedClosure cb = newCClosure =<< mkComponentBoundsChangedCallback wrapped- where wrapped = componentBoundsChangedCallbackWrapper cb--componentBoundsChangedCallbackWrapper ::- ComponentBoundsChangedCallback ->- Ptr () ->- Ptr Rectangle ->- Ptr () ->- IO ()-componentBoundsChangedCallbackWrapper _cb _ arg1 _ = do- arg1' <- (newBoxed Rectangle) arg1- _cb arg1'--onComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId-onComponentBoundsChanged obj cb = liftIO $ connectComponentBoundsChanged obj cb SignalConnectBefore-afterComponentBoundsChanged :: (GObject a, MonadIO m) => a -> ComponentBoundsChangedCallback -> m SignalHandlerId-afterComponentBoundsChanged obj cb = connectComponentBoundsChanged obj cb SignalConnectAfter--connectComponentBoundsChanged :: (GObject a, MonadIO m) =>- a -> ComponentBoundsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectComponentBoundsChanged obj cb after = liftIO $ do- cb' <- mkComponentBoundsChangedCallback (componentBoundsChangedCallbackWrapper cb)- connectSignalFunPtr obj "bounds-changed" cb' after--type instance AttributeList Component = ComponentAttributeList-type ComponentAttributeList = ('[ ] :: [(Symbol, *)])--data ComponentBoundsChangedSignalInfo-instance SignalInfo ComponentBoundsChangedSignalInfo where- type HaskellCallbackType ComponentBoundsChangedSignalInfo = ComponentBoundsChangedCallback- connectSignal _ = connectComponentBoundsChanged--type instance SignalList Component = ComponentSignalList-type ComponentSignalList = ('[ '("boundsChanged", ComponentBoundsChangedSignalInfo)] :: [(Symbol, *)])--class ForeignPtrNewtype a => ComponentK a-instance (ForeignPtrNewtype o, IsDescendantOf Component o) => ComponentK o-type instance ParentTypes Component = ComponentParentTypes-type ComponentParentTypes = '[]---- method Component::contains--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_component_contains" atk_component_contains :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO CInt---componentContains ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> Int32 -- x- -> Int32 -- y- -> CoordType -- coordType- -> m Bool -- result-componentContains _obj x y coordType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_alpha" atk_component_get_alpha :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- IO CDouble---componentGetAlpha ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> m Double -- result-componentGetAlpha _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_component_get_alpha _obj'- let result' = realToFrac result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_extents" atk_component_get_extents :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO ()---componentGetExtents ::- (MonadIO m, ComponentK a) =>- 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 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 {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Layer")--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_layer" atk_component_get_layer :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- IO CUInt---componentGetLayer ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> m Layer -- result-componentGetLayer _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_component_get_layer _obj'- let result' = (toEnum . fromIntegral) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_mdi_zorder" atk_component_get_mdi_zorder :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- IO Int32---componentGetMdiZorder ::- (MonadIO m, ComponentK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_position" atk_component_get_position :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO ()--{-# DEPRECATED componentGetPosition ["Since 2.12. Use atk_component_get_extents() instead."]#-}-componentGetPosition ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> Int32 -- x- -> Int32 -- y- -> CoordType -- coordType- -> m () -- result-componentGetPosition _obj x y coordType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_component_get_size" atk_component_get_size :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- IO ()--{-# DEPRECATED componentGetSize ["Since 2.12. Use atk_component_get_extents() instead."]#-}-componentGetSize ::- (MonadIO m, ComponentK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "Component", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_component_grab_focus" atk_component_grab_focus :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- IO CInt---componentGrabFocus ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> m Bool -- result-componentGrabFocus _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_component_grab_focus _obj'- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_component_ref_accessible_at_point" atk_component_ref_accessible_at_point :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO (Ptr Object)---componentRefAccessibleAtPoint ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> Int32 -- x- -> Int32 -- y- -> CoordType -- coordType- -> m (Maybe Object) -- result-componentRefAccessibleAtPoint _obj x y coordType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let coordType' = (fromIntegral . fromEnum) coordType- result <- atk_component_ref_accessible_at_point _obj' x y coordType'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapObject Object) result'- return result''- touchManagedPtr _obj- return maybeResult--data ComponentRefAccessibleAtPointMethodInfo-instance (signature ~ (Int32 -> Int32 -> CoordType -> m (Maybe Object)), MonadIO m, ComponentK a) => MethodInfo ComponentRefAccessibleAtPointMethodInfo a signature where- overloadedMethod _ = componentRefAccessibleAtPoint---- method Component::remove_focus_handler--- method type : OrdinaryMethod--- 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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_component_remove_focus_handler" atk_component_remove_focus_handler :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Word32 -> -- handler_id : TBasicType TUInt- IO ()--{-# 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 -- handlerId- -> m () -- result-componentRemoveFocusHandler _obj handlerId = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_extents" atk_component_set_extents :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO CInt---componentSetExtents ::- (MonadIO m, ComponentK a) =>- 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 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_position" atk_component_set_position :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO CInt---componentSetPosition ::- (MonadIO m, ComponentK a) =>- a -- _obj- -> Int32 -- x- -> Int32 -- y- -> CoordType -- coordType- -> m Bool -- result-componentSetPosition _obj x y coordType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_component_set_size" atk_component_set_size :: - Ptr Component -> -- _obj : TInterface "Atk" "Component"- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- IO CInt---componentSetSize ::- (MonadIO m, ComponentK a) =>- 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--
− GI/Atk/Interfaces/Component.hs-boot
@@ -1,26 +0,0 @@-module GI.Atk.Interfaces.Component where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Component = Component (ForeignPtr Component)-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
− GI/Atk/Interfaces/Document.hs
@@ -1,572 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Document- ( ---- * Exported types- Document(..) ,- noDocument ,- DocumentK ,--- -- * 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 ,----- -- * Signals--- ** LoadComplete- DocumentLoadCompleteCallback ,- DocumentLoadCompleteCallbackC ,- DocumentLoadCompleteSignalInfo ,- afterDocumentLoadComplete ,- documentLoadCompleteCallbackWrapper ,- documentLoadCompleteClosure ,- mkDocumentLoadCompleteCallback ,- noDocumentLoadCompleteCallback ,- onDocumentLoadComplete ,----- ** LoadStopped- DocumentLoadStoppedCallback ,- DocumentLoadStoppedCallbackC ,- DocumentLoadStoppedSignalInfo ,- afterDocumentLoadStopped ,- documentLoadStoppedCallbackWrapper ,- documentLoadStoppedClosure ,- mkDocumentLoadStoppedCallback ,- noDocumentLoadStoppedCallback ,- onDocumentLoadStopped ,----- ** PageChanged- DocumentPageChangedCallback ,- DocumentPageChangedCallbackC ,- DocumentPageChangedSignalInfo ,- afterDocumentPageChanged ,- documentPageChangedCallbackWrapper ,- documentPageChangedClosure ,- mkDocumentPageChangedCallback ,- noDocumentPageChangedCallback ,- onDocumentPageChanged ,----- ** Reload- DocumentReloadCallback ,- DocumentReloadCallbackC ,- DocumentReloadSignalInfo ,- afterDocumentReload ,- documentReloadCallbackWrapper ,- documentReloadClosure ,- mkDocumentReloadCallback ,- noDocumentReloadCallback ,- onDocumentReload ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Document --newtype Document = Document (ForeignPtr Document)-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 ()--noDocumentLoadCompleteCallback :: Maybe DocumentLoadCompleteCallback-noDocumentLoadCompleteCallback = Nothing--type DocumentLoadCompleteCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkDocumentLoadCompleteCallback :: DocumentLoadCompleteCallbackC -> IO (FunPtr DocumentLoadCompleteCallbackC)--documentLoadCompleteClosure :: DocumentLoadCompleteCallback -> IO Closure-documentLoadCompleteClosure cb = newCClosure =<< mkDocumentLoadCompleteCallback wrapped- where wrapped = documentLoadCompleteCallbackWrapper cb--documentLoadCompleteCallbackWrapper ::- DocumentLoadCompleteCallback ->- Ptr () ->- Ptr () ->- IO ()-documentLoadCompleteCallbackWrapper _cb _ _ = do- _cb --onDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId-onDocumentLoadComplete obj cb = liftIO $ connectDocumentLoadComplete obj cb SignalConnectBefore-afterDocumentLoadComplete :: (GObject a, MonadIO m) => a -> DocumentLoadCompleteCallback -> m SignalHandlerId-afterDocumentLoadComplete obj cb = connectDocumentLoadComplete obj cb SignalConnectAfter--connectDocumentLoadComplete :: (GObject a, MonadIO m) =>- a -> DocumentLoadCompleteCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentLoadComplete obj cb after = liftIO $ do- cb' <- mkDocumentLoadCompleteCallback (documentLoadCompleteCallbackWrapper cb)- connectSignalFunPtr obj "load-complete" cb' after---- signal Document::load-stopped-type DocumentLoadStoppedCallback =- IO ()--noDocumentLoadStoppedCallback :: Maybe DocumentLoadStoppedCallback-noDocumentLoadStoppedCallback = Nothing--type DocumentLoadStoppedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkDocumentLoadStoppedCallback :: DocumentLoadStoppedCallbackC -> IO (FunPtr DocumentLoadStoppedCallbackC)--documentLoadStoppedClosure :: DocumentLoadStoppedCallback -> IO Closure-documentLoadStoppedClosure cb = newCClosure =<< mkDocumentLoadStoppedCallback wrapped- where wrapped = documentLoadStoppedCallbackWrapper cb--documentLoadStoppedCallbackWrapper ::- DocumentLoadStoppedCallback ->- Ptr () ->- Ptr () ->- IO ()-documentLoadStoppedCallbackWrapper _cb _ _ = do- _cb --onDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId-onDocumentLoadStopped obj cb = liftIO $ connectDocumentLoadStopped obj cb SignalConnectBefore-afterDocumentLoadStopped :: (GObject a, MonadIO m) => a -> DocumentLoadStoppedCallback -> m SignalHandlerId-afterDocumentLoadStopped obj cb = connectDocumentLoadStopped obj cb SignalConnectAfter--connectDocumentLoadStopped :: (GObject a, MonadIO m) =>- a -> DocumentLoadStoppedCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentLoadStopped obj cb after = liftIO $ do- cb' <- mkDocumentLoadStoppedCallback (documentLoadStoppedCallbackWrapper cb)- connectSignalFunPtr obj "load-stopped" cb' after---- signal Document::page-changed-type DocumentPageChangedCallback =- Int32 ->- IO ()--noDocumentPageChangedCallback :: Maybe DocumentPageChangedCallback-noDocumentPageChangedCallback = Nothing--type DocumentPageChangedCallbackC =- Ptr () -> -- object- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkDocumentPageChangedCallback :: DocumentPageChangedCallbackC -> IO (FunPtr DocumentPageChangedCallbackC)--documentPageChangedClosure :: DocumentPageChangedCallback -> IO Closure-documentPageChangedClosure cb = newCClosure =<< mkDocumentPageChangedCallback wrapped- where wrapped = documentPageChangedCallbackWrapper cb--documentPageChangedCallbackWrapper ::- DocumentPageChangedCallback ->- Ptr () ->- Int32 ->- Ptr () ->- IO ()-documentPageChangedCallbackWrapper _cb _ pageNumber _ = do- _cb pageNumber--onDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId-onDocumentPageChanged obj cb = liftIO $ connectDocumentPageChanged obj cb SignalConnectBefore-afterDocumentPageChanged :: (GObject a, MonadIO m) => a -> DocumentPageChangedCallback -> m SignalHandlerId-afterDocumentPageChanged obj cb = connectDocumentPageChanged obj cb SignalConnectAfter--connectDocumentPageChanged :: (GObject a, MonadIO m) =>- a -> DocumentPageChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentPageChanged obj cb after = liftIO $ do- cb' <- mkDocumentPageChangedCallback (documentPageChangedCallbackWrapper cb)- connectSignalFunPtr obj "page-changed" cb' after---- signal Document::reload-type DocumentReloadCallback =- IO ()--noDocumentReloadCallback :: Maybe DocumentReloadCallback-noDocumentReloadCallback = Nothing--type DocumentReloadCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkDocumentReloadCallback :: DocumentReloadCallbackC -> IO (FunPtr DocumentReloadCallbackC)--documentReloadClosure :: DocumentReloadCallback -> IO Closure-documentReloadClosure cb = newCClosure =<< mkDocumentReloadCallback wrapped- where wrapped = documentReloadCallbackWrapper cb--documentReloadCallbackWrapper ::- DocumentReloadCallback ->- Ptr () ->- Ptr () ->- IO ()-documentReloadCallbackWrapper _cb _ _ = do- _cb --onDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId-onDocumentReload obj cb = liftIO $ connectDocumentReload obj cb SignalConnectBefore-afterDocumentReload :: (GObject a, MonadIO m) => a -> DocumentReloadCallback -> m SignalHandlerId-afterDocumentReload obj cb = connectDocumentReload obj cb SignalConnectAfter--connectDocumentReload :: (GObject a, MonadIO m) =>- a -> DocumentReloadCallback -> SignalConnectMode -> m SignalHandlerId-connectDocumentReload obj cb after = liftIO $ do- cb' <- mkDocumentReloadCallback (documentReloadCallbackWrapper cb)- connectSignalFunPtr obj "reload" cb' after--type instance AttributeList Document = DocumentAttributeList-type DocumentAttributeList = ('[ ] :: [(Symbol, *)])--data DocumentLoadCompleteSignalInfo-instance SignalInfo DocumentLoadCompleteSignalInfo where- type HaskellCallbackType DocumentLoadCompleteSignalInfo = DocumentLoadCompleteCallback- connectSignal _ = connectDocumentLoadComplete--data DocumentLoadStoppedSignalInfo-instance SignalInfo DocumentLoadStoppedSignalInfo where- type HaskellCallbackType DocumentLoadStoppedSignalInfo = DocumentLoadStoppedCallback- connectSignal _ = connectDocumentLoadStopped--data DocumentPageChangedSignalInfo-instance SignalInfo DocumentPageChangedSignalInfo where- type HaskellCallbackType DocumentPageChangedSignalInfo = DocumentPageChangedCallback- connectSignal _ = connectDocumentPageChanged--data DocumentReloadSignalInfo-instance SignalInfo DocumentReloadSignalInfo where- type HaskellCallbackType DocumentReloadSignalInfo = DocumentReloadCallback- connectSignal _ = connectDocumentReload--type instance SignalList Document = DocumentSignalList-type DocumentSignalList = ('[ '("loadComplete", DocumentLoadCompleteSignalInfo), '("loadStopped", DocumentLoadStoppedSignalInfo), '("pageChanged", DocumentPageChangedSignalInfo), '("reload", DocumentReloadSignalInfo)] :: [(Symbol, *)])--class ForeignPtrNewtype a => DocumentK a-instance (ForeignPtrNewtype o, IsDescendantOf Document o) => DocumentK o-type instance ParentTypes Document = DocumentParentTypes-type DocumentParentTypes = '[]---- method Document::get_attribute_value--- method type : OrdinaryMethod--- 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 : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_attribute_value" atk_document_get_attribute_value :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- CString -> -- attribute_name : TBasicType TUTF8- IO CString---documentGetAttributeValue ::- (MonadIO m, DocumentK a) =>- a -- _obj- -> T.Text -- attributeName- -> m (Maybe T.Text) -- result-documentGetAttributeValue _obj attributeName = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- attributeName' <- textToCString attributeName- result <- atk_document_get_attribute_value _obj' attributeName'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- freeMem attributeName'- return maybeResult--data DocumentGetAttributeValueMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttributeValueMethodInfo a signature where- overloadedMethod _ = documentGetAttributeValue---- method Document::get_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TPtr))--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_attributes" atk_document_get_attributes :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO (Ptr (GSList (Ptr ())))---documentGetAttributes ::- (MonadIO m, DocumentK a) =>- a -- _obj- -> m [Ptr ()] -- result-documentGetAttributes _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_document_get_attributes _obj'- result' <- unpackGSList result- 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 {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_current_page_number" atk_document_get_current_page_number :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO Int32---documentGetCurrentPageNumber ::- (MonadIO m, DocumentK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_document" atk_document_get_document :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO (Ptr ())--{-# 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 (Ptr ()) -- result-documentGetDocument _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_document_get_document _obj'- touchManagedPtr _obj- return result--data DocumentGetDocumentMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, DocumentK a) => MethodInfo DocumentGetDocumentMethodInfo a signature where- overloadedMethod _ = documentGetDocument---- method Document::get_document_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_document_type" atk_document_get_document_type :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO CString--{-# 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 -- result-documentGetDocumentType _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_document_get_document_type _obj'- checkUnexpectedReturnNULL "atk_document_get_document_type" result- result' <- cstringToText result- 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 {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_locale" atk_document_get_locale :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO CString--{-# 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 -- result-documentGetLocale _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_document_get_locale _obj'- checkUnexpectedReturnNULL "atk_document_get_locale" result- result' <- cstringToText result- 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 {argCName = "_obj", argType = TInterface "Atk" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_document_get_page_count" atk_document_get_page_count :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- IO Int32---documentGetPageCount ::- (MonadIO m, DocumentK a) =>- 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 {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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_document_set_attribute_value" atk_document_set_attribute_value :: - Ptr Document -> -- _obj : TInterface "Atk" "Document"- CString -> -- attribute_name : TBasicType TUTF8- CString -> -- attribute_value : TBasicType TUTF8- IO CInt---documentSetAttributeValue ::- (MonadIO m, DocumentK a) =>- a -- _obj- -> T.Text -- attributeName- -> T.Text -- attributeValue- -> m Bool -- result-documentSetAttributeValue _obj attributeName attributeValue = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- attributeName' <- textToCString attributeName- attributeValue' <- textToCString attributeValue- result <- atk_document_set_attribute_value _obj' attributeName' attributeValue'- let result' = (/= 0) result- touchManagedPtr _obj- 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--
− GI/Atk/Interfaces/Document.hs-boot
@@ -1,24 +0,0 @@-module GI.Atk.Interfaces.Document where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Document = Document (ForeignPtr Document)-data DocumentLoadCompleteSignalInfo-data DocumentLoadStoppedSignalInfo-data DocumentPageChangedSignalInfo-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
− GI/Atk/Interfaces/EditableText.hs
@@ -1,327 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.EditableText- ( ---- * Exported types- EditableText(..) ,- noEditableText ,- EditableTextK ,--- -- * Methods--- ** editableTextCopyText- EditableTextCopyTextMethodInfo ,- editableTextCopyText ,----- ** editableTextCutText- EditableTextCutTextMethodInfo ,- editableTextCutText ,----- ** editableTextDeleteText- EditableTextDeleteTextMethodInfo ,- editableTextDeleteText ,----- ** editableTextInsertText- EditableTextInsertTextMethodInfo ,- editableTextInsertText ,----- ** editableTextPasteText- EditableTextPasteTextMethodInfo ,- editableTextPasteText ,----- ** editableTextSetRunAttributes- EditableTextSetRunAttributesMethodInfo ,- editableTextSetRunAttributes ,----- ** editableTextSetTextContents- EditableTextSetTextContentsMethodInfo ,- editableTextSetTextContents ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface EditableText --newtype EditableText = EditableText (ForeignPtr EditableText)-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, *)])--type instance SignalList EditableText = EditableTextSignalList-type EditableTextSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => EditableTextK a-instance (ForeignPtrNewtype o, IsDescendantOf EditableText o) => EditableTextK o-type instance ParentTypes EditableText = EditableTextParentTypes-type EditableTextParentTypes = '[]---- method EditableText::copy_text--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_copy_text" atk_editable_text_copy_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- Int32 -> -- start_pos : TBasicType TInt- Int32 -> -- end_pos : TBasicType TInt- IO ()---editableTextCopyText ::- (MonadIO m, EditableTextK a) =>- a -- _obj- -> Int32 -- startPos- -> Int32 -- endPos- -> m () -- result-editableTextCopyText _obj startPos endPos = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_cut_text" atk_editable_text_cut_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- Int32 -> -- start_pos : TBasicType TInt- Int32 -> -- end_pos : TBasicType TInt- IO ()---editableTextCutText ::- (MonadIO m, EditableTextK a) =>- a -- _obj- -> Int32 -- startPos- -> Int32 -- endPos- -> m () -- result-editableTextCutText _obj startPos endPos = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_delete_text" atk_editable_text_delete_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- Int32 -> -- start_pos : TBasicType TInt- Int32 -> -- end_pos : TBasicType TInt- IO ()---editableTextDeleteText ::- (MonadIO m, EditableTextK a) =>- a -- _obj- -> Int32 -- startPos- -> Int32 -- endPos- -> m () -- result-editableTextDeleteText _obj startPos endPos = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_insert_text" atk_editable_text_insert_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- CString -> -- string : TBasicType TUTF8- Int32 -> -- length : TBasicType TInt- Int32 -> -- position : TBasicType TInt- IO ()---editableTextInsertText ::- (MonadIO m, EditableTextK a) =>- 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- atk_editable_text_insert_text _obj' string' length_ position- touchManagedPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_paste_text" atk_editable_text_paste_text :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- Int32 -> -- position : TBasicType TInt- IO ()---editableTextPasteText ::- (MonadIO m, EditableTextK a) =>- 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 {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 TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_set_run_attributes" atk_editable_text_set_run_attributes :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TPtr)- Int32 -> -- start_offset : TBasicType TInt- Int32 -> -- end_offset : TBasicType TInt- IO CInt---editableTextSetRunAttributes ::- (MonadIO m, EditableTextK a) =>- a -- _obj- -> [Ptr ()] -- attribSet- -> Int32 -- startOffset- -> Int32 -- endOffset- -> m Bool -- result-editableTextSetRunAttributes _obj attribSet startOffset endOffset = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- attribSet' <- packGSList attribSet- result <- atk_editable_text_set_run_attributes _obj' attribSet' startOffset endOffset- let result' = (/= 0) result- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_editable_text_set_text_contents" atk_editable_text_set_text_contents :: - Ptr EditableText -> -- _obj : TInterface "Atk" "EditableText"- CString -> -- string : TBasicType TUTF8- IO ()---editableTextSetTextContents ::- (MonadIO m, EditableTextK a) =>- a -- _obj- -> T.Text -- string- -> m () -- result-editableTextSetTextContents _obj string = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- string' <- textToCString string- atk_editable_text_set_text_contents _obj' string'- touchManagedPtr _obj- freeMem string'- return ()--data EditableTextSetTextContentsMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, EditableTextK a) => MethodInfo EditableTextSetTextContentsMethodInfo a signature where- overloadedMethod _ = editableTextSetTextContents--
− GI/Atk/Interfaces/EditableText.hs-boot
@@ -1,19 +0,0 @@-module GI.Atk.Interfaces.EditableText where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--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
− GI/Atk/Interfaces/HyperlinkImpl.hs
@@ -1,96 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.HyperlinkImpl- ( ---- * Exported types- HyperlinkImpl(..) ,- noHyperlinkImpl ,- HyperlinkImplK ,--- -- * Methods--- ** hyperlinkImplGetHyperlink- HyperlinkImplGetHyperlinkMethodInfo ,- hyperlinkImplGetHyperlink ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface HyperlinkImpl --newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)-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, *)])--type instance SignalList HyperlinkImpl = HyperlinkImplSignalList-type HyperlinkImplSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => HyperlinkImplK a-instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o-type instance ParentTypes HyperlinkImpl = HyperlinkImplParentTypes-type HyperlinkImplParentTypes = '[]---- method HyperlinkImpl::get_hyperlink--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "HyperlinkImpl", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Hyperlink")--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_impl_get_hyperlink" atk_hyperlink_impl_get_hyperlink :: - Ptr HyperlinkImpl -> -- _obj : TInterface "Atk" "HyperlinkImpl"- IO (Ptr Hyperlink)---hyperlinkImplGetHyperlink ::- (MonadIO m, HyperlinkImplK a) =>- a -- _obj- -> m Hyperlink -- result-hyperlinkImplGetHyperlink _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_hyperlink_impl_get_hyperlink _obj'- checkUnexpectedReturnNULL "atk_hyperlink_impl_get_hyperlink" result- 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--
− GI/Atk/Interfaces/HyperlinkImpl.hs-boot
@@ -1,13 +0,0 @@-module GI.Atk.Interfaces.HyperlinkImpl where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype HyperlinkImpl = HyperlinkImpl (ForeignPtr HyperlinkImpl)-class ForeignPtrNewtype a => HyperlinkImplK a-instance (ForeignPtrNewtype o, IsDescendantOf HyperlinkImpl o) => HyperlinkImplK o-data HyperlinkImplGetHyperlinkMethodInfo
− GI/Atk/Interfaces/Hypertext.hs
@@ -1,227 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Hypertext- ( ---- * Exported types- Hypertext(..) ,- noHypertext ,- HypertextK ,--- -- * Methods--- ** hypertextGetLink- HypertextGetLinkMethodInfo ,- hypertextGetLink ,----- ** hypertextGetLinkIndex- HypertextGetLinkIndexMethodInfo ,- hypertextGetLinkIndex ,----- ** hypertextGetNLinks- HypertextGetNLinksMethodInfo ,- hypertextGetNLinks ,----- -- * Signals--- ** LinkSelected- HypertextLinkSelectedCallback ,- HypertextLinkSelectedCallbackC ,- HypertextLinkSelectedSignalInfo ,- afterHypertextLinkSelected ,- hypertextLinkSelectedCallbackWrapper ,- hypertextLinkSelectedClosure ,- mkHypertextLinkSelectedCallback ,- noHypertextLinkSelectedCallback ,- onHypertextLinkSelected ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Hypertext --newtype Hypertext = Hypertext (ForeignPtr Hypertext)-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 ->- IO ()--noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback-noHypertextLinkSelectedCallback = Nothing--type HypertextLinkSelectedCallbackC =- Ptr () -> -- object- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkHypertextLinkSelectedCallback :: HypertextLinkSelectedCallbackC -> IO (FunPtr HypertextLinkSelectedCallbackC)--hypertextLinkSelectedClosure :: HypertextLinkSelectedCallback -> IO Closure-hypertextLinkSelectedClosure cb = newCClosure =<< mkHypertextLinkSelectedCallback wrapped- where wrapped = hypertextLinkSelectedCallbackWrapper cb--hypertextLinkSelectedCallbackWrapper ::- HypertextLinkSelectedCallback ->- Ptr () ->- Int32 ->- Ptr () ->- IO ()-hypertextLinkSelectedCallbackWrapper _cb _ arg1 _ = do- _cb arg1--onHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId-onHypertextLinkSelected obj cb = liftIO $ connectHypertextLinkSelected obj cb SignalConnectBefore-afterHypertextLinkSelected :: (GObject a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId-afterHypertextLinkSelected obj cb = connectHypertextLinkSelected obj cb SignalConnectAfter--connectHypertextLinkSelected :: (GObject a, MonadIO m) =>- a -> HypertextLinkSelectedCallback -> SignalConnectMode -> m SignalHandlerId-connectHypertextLinkSelected obj cb after = liftIO $ do- cb' <- mkHypertextLinkSelectedCallback (hypertextLinkSelectedCallbackWrapper cb)- connectSignalFunPtr obj "link-selected" cb' after--type instance AttributeList Hypertext = HypertextAttributeList-type HypertextAttributeList = ('[ ] :: [(Symbol, *)])--data HypertextLinkSelectedSignalInfo-instance SignalInfo HypertextLinkSelectedSignalInfo where- type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback- connectSignal _ = connectHypertextLinkSelected--type instance SignalList Hypertext = HypertextSignalList-type HypertextSignalList = ('[ '("linkSelected", HypertextLinkSelectedSignalInfo)] :: [(Symbol, *)])--class ForeignPtrNewtype a => HypertextK a-instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o-type instance ParentTypes Hypertext = HypertextParentTypes-type HypertextParentTypes = '[]---- method Hypertext::get_link--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Hyperlink")--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext"- Int32 -> -- link_index : TBasicType TInt- IO (Ptr Hyperlink)---hypertextGetLink ::- (MonadIO m, HypertextK a) =>- a -- _obj- -> Int32 -- linkIndex- -> m Hyperlink -- result-hypertextGetLink _obj linkIndex = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext"- Int32 -> -- char_index : TBasicType TInt- IO Int32---hypertextGetLinkIndex ::- (MonadIO m, HypertextK a) =>- a -- _obj- -> Int32 -- charIndex- -> m Int32 -- result-hypertextGetLinkIndex _obj charIndex = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {argCName = "_obj", argType = TInterface "Atk" "Hypertext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: - Ptr Hypertext -> -- _obj : TInterface "Atk" "Hypertext"- IO Int32---hypertextGetNLinks ::- (MonadIO m, HypertextK a) =>- 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--
− GI/Atk/Interfaces/Hypertext.hs-boot
@@ -1,16 +0,0 @@-module GI.Atk.Interfaces.Hypertext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Hypertext = Hypertext (ForeignPtr Hypertext)-data HypertextLinkSelectedSignalInfo-class ForeignPtrNewtype a => HypertextK a-instance (ForeignPtrNewtype o, IsDescendantOf Hypertext o) => HypertextK o-data HypertextGetLinkMethodInfo-data HypertextGetLinkIndexMethodInfo-data HypertextGetNLinksMethodInfo
− GI/Atk/Interfaces/Image.hs
@@ -1,247 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Image- ( ---- * Exported types- Image(..) ,- noImage ,- ImageK ,--- -- * Methods--- ** imageGetImageDescription- ImageGetImageDescriptionMethodInfo ,- imageGetImageDescription ,----- ** imageGetImageLocale- ImageGetImageLocaleMethodInfo ,- imageGetImageLocale ,----- ** imageGetImagePosition- ImageGetImagePositionMethodInfo ,- imageGetImagePosition ,----- ** imageGetImageSize- ImageGetImageSizeMethodInfo ,- imageGetImageSize ,----- ** imageSetImageDescription- ImageSetImageDescriptionMethodInfo ,- imageSetImageDescription ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Image --newtype Image = Image (ForeignPtr Image)-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, *)])--type instance SignalList Image = ImageSignalList-type ImageSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => ImageK a-instance (ForeignPtrNewtype o, IsDescendantOf Image o) => ImageK o-type instance ParentTypes Image = ImageParentTypes-type ImageParentTypes = '[]---- method Image::get_image_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_description" atk_image_get_image_description :: - Ptr Image -> -- _obj : TInterface "Atk" "Image"- IO CString---imageGetImageDescription ::- (MonadIO m, ImageK a) =>- a -- _obj- -> m T.Text -- result-imageGetImageDescription _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_image_get_image_description _obj'- checkUnexpectedReturnNULL "atk_image_get_image_description" result- result' <- cstringToText result- 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 {argCName = "_obj", argType = TInterface "Atk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_locale" atk_image_get_image_locale :: - Ptr Image -> -- _obj : TInterface "Atk" "Image"- IO CString---imageGetImageLocale ::- (MonadIO m, ImageK a) =>- a -- _obj- -> m (Maybe T.Text) -- result-imageGetImageLocale _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_image_get_image_locale _obj'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data ImageGetImageLocaleMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, ImageK a) => MethodInfo ImageGetImageLocaleMethodInfo a signature where- overloadedMethod _ = imageGetImageLocale---- method Image::get_image_position--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_position" atk_image_get_image_position :: - Ptr Image -> -- _obj : TInterface "Atk" "Image"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- IO ()---imageGetImagePosition ::- (MonadIO m, ImageK a) =>- a -- _obj- -> Int32 -- x- -> Int32 -- y- -> CoordType -- coordType- -> m () -- result-imageGetImagePosition _obj x y coordType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_image_get_image_size" atk_image_get_image_size :: - Ptr Image -> -- _obj : TInterface "Atk" "Image"- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- IO ()---imageGetImageSize ::- (MonadIO m, ImageK a) =>- 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 {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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_image_set_image_description" atk_image_set_image_description :: - Ptr Image -> -- _obj : TInterface "Atk" "Image"- CString -> -- description : TBasicType TUTF8- IO CInt---imageSetImageDescription ::- (MonadIO m, ImageK a) =>- a -- _obj- -> T.Text -- description- -> m Bool -- result-imageSetImageDescription _obj description = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- description' <- textToCString description- result <- atk_image_set_image_description _obj' description'- let result' = (/= 0) result- 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--
− GI/Atk/Interfaces/Image.hs-boot
@@ -1,17 +0,0 @@-module GI.Atk.Interfaces.Image where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--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
− GI/Atk/Interfaces/ImplementorIface.hs
@@ -1,58 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.ImplementorIface- ( ---- * Exported types- ImplementorIface(..) ,- noImplementorIface ,- ImplementorIfaceK ,--- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface ImplementorIface --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, *)])--type instance SignalList ImplementorIface = ImplementorIfaceSignalList-type ImplementorIfaceSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => ImplementorIfaceK a-instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o-type instance ParentTypes ImplementorIface = ImplementorIfaceParentTypes-type ImplementorIfaceParentTypes = '[]--
− GI/Atk/Interfaces/ImplementorIface.hs-boot
@@ -1,12 +0,0 @@-module GI.Atk.Interfaces.ImplementorIface where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ImplementorIface = ImplementorIface (ForeignPtr ImplementorIface)-class ForeignPtrNewtype a => ImplementorIfaceK a-instance (ForeignPtrNewtype o, IsDescendantOf ImplementorIface o) => ImplementorIfaceK o
− GI/Atk/Interfaces/Selection.hs
@@ -1,366 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Selection- ( ---- * Exported types- Selection(..) ,- noSelection ,- SelectionK ,--- -- * Methods--- ** selectionAddSelection- SelectionAddSelectionMethodInfo ,- selectionAddSelection ,----- ** selectionClearSelection- SelectionClearSelectionMethodInfo ,- selectionClearSelection ,----- ** selectionGetSelectionCount- SelectionGetSelectionCountMethodInfo ,- selectionGetSelectionCount ,----- ** selectionIsChildSelected- SelectionIsChildSelectedMethodInfo ,- selectionIsChildSelected ,----- ** selectionRefSelection- SelectionRefSelectionMethodInfo ,- selectionRefSelection ,----- ** selectionRemoveSelection- SelectionRemoveSelectionMethodInfo ,- selectionRemoveSelection ,----- ** selectionSelectAllSelection- SelectionSelectAllSelectionMethodInfo ,- selectionSelectAllSelection ,----- -- * Signals--- ** SelectionChanged- SelectionSelectionChangedCallback ,- SelectionSelectionChangedCallbackC ,- SelectionSelectionChangedSignalInfo ,- afterSelectionSelectionChanged ,- mkSelectionSelectionChangedCallback ,- noSelectionSelectionChangedCallback ,- onSelectionSelectionChanged ,- selectionSelectionChangedCallbackWrapper,- selectionSelectionChangedClosure ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Selection --newtype Selection = Selection (ForeignPtr Selection)-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 ()--noSelectionSelectionChangedCallback :: Maybe SelectionSelectionChangedCallback-noSelectionSelectionChangedCallback = Nothing--type SelectionSelectionChangedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkSelectionSelectionChangedCallback :: SelectionSelectionChangedCallbackC -> IO (FunPtr SelectionSelectionChangedCallbackC)--selectionSelectionChangedClosure :: SelectionSelectionChangedCallback -> IO Closure-selectionSelectionChangedClosure cb = newCClosure =<< mkSelectionSelectionChangedCallback wrapped- where wrapped = selectionSelectionChangedCallbackWrapper cb--selectionSelectionChangedCallbackWrapper ::- SelectionSelectionChangedCallback ->- Ptr () ->- Ptr () ->- IO ()-selectionSelectionChangedCallbackWrapper _cb _ _ = do- _cb --onSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId-onSelectionSelectionChanged obj cb = liftIO $ connectSelectionSelectionChanged obj cb SignalConnectBefore-afterSelectionSelectionChanged :: (GObject a, MonadIO m) => a -> SelectionSelectionChangedCallback -> m SignalHandlerId-afterSelectionSelectionChanged obj cb = connectSelectionSelectionChanged obj cb SignalConnectAfter--connectSelectionSelectionChanged :: (GObject a, MonadIO m) =>- a -> SelectionSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectSelectionSelectionChanged obj cb after = liftIO $ do- cb' <- mkSelectionSelectionChangedCallback (selectionSelectionChangedCallbackWrapper cb)- connectSignalFunPtr obj "selection-changed" cb' after--type instance AttributeList Selection = SelectionAttributeList-type SelectionAttributeList = ('[ ] :: [(Symbol, *)])--data SelectionSelectionChangedSignalInfo-instance SignalInfo SelectionSelectionChangedSignalInfo where- type HaskellCallbackType SelectionSelectionChangedSignalInfo = SelectionSelectionChangedCallback- connectSignal _ = connectSelectionSelectionChanged--type instance SignalList Selection = SelectionSignalList-type SelectionSignalList = ('[ '("selectionChanged", SelectionSelectionChangedSignalInfo)] :: [(Symbol, *)])--class ForeignPtrNewtype a => SelectionK a-instance (ForeignPtrNewtype o, IsDescendantOf Selection o) => SelectionK o-type instance ParentTypes Selection = SelectionParentTypes-type SelectionParentTypes = '[]---- method Selection::add_selection--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_add_selection" atk_selection_add_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- Int32 -> -- i : TBasicType TInt- IO CInt---selectionAddSelection ::- (MonadIO m, SelectionK a) =>- a -- _obj- -> Int32 -- i- -> m Bool -- result-selectionAddSelection _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_selection_add_selection _obj' i- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_clear_selection" atk_selection_clear_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- IO CInt---selectionClearSelection ::- (MonadIO m, SelectionK a) =>- a -- _obj- -> m Bool -- result-selectionClearSelection _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_selection_clear_selection _obj'- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_get_selection_count" atk_selection_get_selection_count :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- IO Int32---selectionGetSelectionCount ::- (MonadIO m, SelectionK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_is_child_selected" atk_selection_is_child_selected :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- Int32 -> -- i : TBasicType TInt- IO CInt---selectionIsChildSelected ::- (MonadIO m, SelectionK a) =>- a -- _obj- -> Int32 -- i- -> m Bool -- result-selectionIsChildSelected _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_selection_is_child_selected _obj' i- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_selection_ref_selection" atk_selection_ref_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- Int32 -> -- i : TBasicType TInt- IO (Ptr Object)---selectionRefSelection ::- (MonadIO m, SelectionK a) =>- a -- _obj- -> Int32 -- i- -> m (Maybe Object) -- result-selectionRefSelection _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_selection_ref_selection _obj' i- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapObject Object) result'- return result''- touchManagedPtr _obj- return maybeResult--data SelectionRefSelectionMethodInfo-instance (signature ~ (Int32 -> m (Maybe Object)), MonadIO m, SelectionK a) => MethodInfo SelectionRefSelectionMethodInfo a signature where- overloadedMethod _ = selectionRefSelection---- method Selection::remove_selection--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_remove_selection" atk_selection_remove_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- Int32 -> -- i : TBasicType TInt- IO CInt---selectionRemoveSelection ::- (MonadIO m, SelectionK a) =>- a -- _obj- -> Int32 -- i- -> m Bool -- result-selectionRemoveSelection _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_selection_remove_selection _obj' i- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Selection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_selection_select_all_selection" atk_selection_select_all_selection :: - Ptr Selection -> -- _obj : TInterface "Atk" "Selection"- IO CInt---selectionSelectAllSelection ::- (MonadIO m, SelectionK a) =>- 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--
− GI/Atk/Interfaces/Selection.hs-boot
@@ -1,20 +0,0 @@-module GI.Atk.Interfaces.Selection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Selection = Selection (ForeignPtr Selection)-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
− GI/Atk/Interfaces/StreamableContent.hs
@@ -1,211 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.StreamableContent- ( ---- * Exported types- StreamableContent(..) ,- noStreamableContent ,- StreamableContentK ,--- -- * Methods--- ** streamableContentGetMimeType- StreamableContentGetMimeTypeMethodInfo ,- streamableContentGetMimeType ,----- ** streamableContentGetNMimeTypes- StreamableContentGetNMimeTypesMethodInfo,- streamableContentGetNMimeTypes ,----- ** streamableContentGetStream- StreamableContentGetStreamMethodInfo ,- streamableContentGetStream ,----- ** streamableContentGetUri- StreamableContentGetUriMethodInfo ,- streamableContentGetUri ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GLib as GLib---- interface StreamableContent --newtype StreamableContent = StreamableContent (ForeignPtr StreamableContent)-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, *)])--type instance SignalList StreamableContent = StreamableContentSignalList-type StreamableContentSignalList = ('[ ] :: [(Symbol, *)])--class ForeignPtrNewtype a => StreamableContentK a-instance (ForeignPtrNewtype o, IsDescendantOf StreamableContent o) => StreamableContentK o-type instance ParentTypes StreamableContent = StreamableContentParentTypes-type StreamableContentParentTypes = '[]---- method StreamableContent::get_mime_type--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent"- Int32 -> -- i : TBasicType TInt- IO CString---streamableContentGetMimeType ::- (MonadIO m, StreamableContentK a) =>- 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- checkUnexpectedReturnNULL "atk_streamable_content_get_mime_type" result- result' <- cstringToText result- 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 {argCName = "_obj", argType = TInterface "Atk" "StreamableContent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent"- IO Int32---streamableContentGetNMimeTypes ::- (MonadIO m, StreamableContentK a) =>- 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 {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 : []--- returnType : Just (TInterface "GLib" "IOChannel")--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent"- CString -> -- mime_type : TBasicType TUTF8- IO (Ptr GLib.IOChannel)---streamableContentGetStream ::- (MonadIO m, StreamableContentK a) =>- a -- _obj- -> T.Text -- mimeType- -> m GLib.IOChannel -- result-streamableContentGetStream _obj mimeType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 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 {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 : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri :: - Ptr StreamableContent -> -- _obj : TInterface "Atk" "StreamableContent"- CString -> -- mime_type : TBasicType TUTF8- IO CString---streamableContentGetUri ::- (MonadIO m, StreamableContentK a) =>- a -- _obj- -> T.Text -- mimeType- -> m (Maybe T.Text) -- result-streamableContentGetUri _obj mimeType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- mimeType' <- textToCString mimeType- result <- atk_streamable_content_get_uri _obj' mimeType'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- freeMem mimeType'- return maybeResult--data StreamableContentGetUriMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, StreamableContentK a) => MethodInfo StreamableContentGetUriMethodInfo a signature where- overloadedMethod _ = streamableContentGetUri--
− GI/Atk/Interfaces/StreamableContent.hs-boot
@@ -1,16 +0,0 @@-module GI.Atk.Interfaces.StreamableContent where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--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
− GI/Atk/Interfaces/Table.hs
@@ -1,1535 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Table- ( ---- * Exported types- Table(..) ,- noTable ,- TableK ,--- -- * 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 ,----- -- * Signals--- ** ColumnDeleted- TableColumnDeletedCallback ,- TableColumnDeletedCallbackC ,- TableColumnDeletedSignalInfo ,- afterTableColumnDeleted ,- mkTableColumnDeletedCallback ,- noTableColumnDeletedCallback ,- onTableColumnDeleted ,- tableColumnDeletedCallbackWrapper ,- tableColumnDeletedClosure ,----- ** ColumnInserted- TableColumnInsertedCallback ,- TableColumnInsertedCallbackC ,- TableColumnInsertedSignalInfo ,- afterTableColumnInserted ,- mkTableColumnInsertedCallback ,- noTableColumnInsertedCallback ,- onTableColumnInserted ,- tableColumnInsertedCallbackWrapper ,- tableColumnInsertedClosure ,----- ** ColumnReordered- TableColumnReorderedCallback ,- TableColumnReorderedCallbackC ,- TableColumnReorderedSignalInfo ,- afterTableColumnReordered ,- mkTableColumnReorderedCallback ,- noTableColumnReorderedCallback ,- onTableColumnReordered ,- tableColumnReorderedCallbackWrapper ,- tableColumnReorderedClosure ,----- ** ModelChanged- TableModelChangedCallback ,- TableModelChangedCallbackC ,- TableModelChangedSignalInfo ,- afterTableModelChanged ,- mkTableModelChangedCallback ,- noTableModelChangedCallback ,- onTableModelChanged ,- tableModelChangedCallbackWrapper ,- tableModelChangedClosure ,----- ** RowDeleted- TableRowDeletedCallback ,- TableRowDeletedCallbackC ,- TableRowDeletedSignalInfo ,- afterTableRowDeleted ,- mkTableRowDeletedCallback ,- noTableRowDeletedCallback ,- onTableRowDeleted ,- tableRowDeletedCallbackWrapper ,- tableRowDeletedClosure ,----- ** RowInserted- TableRowInsertedCallback ,- TableRowInsertedCallbackC ,- TableRowInsertedSignalInfo ,- afterTableRowInserted ,- mkTableRowInsertedCallback ,- noTableRowInsertedCallback ,- onTableRowInserted ,- tableRowInsertedCallbackWrapper ,- tableRowInsertedClosure ,----- ** RowReordered- TableRowReorderedCallback ,- TableRowReorderedCallbackC ,- TableRowReorderedSignalInfo ,- afterTableRowReordered ,- mkTableRowReorderedCallback ,- noTableRowReorderedCallback ,- onTableRowReordered ,- tableRowReorderedCallbackWrapper ,- tableRowReorderedClosure ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Table --newtype Table = Table (ForeignPtr Table)-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 ->- Int32 ->- IO ()--noTableColumnDeletedCallback :: Maybe TableColumnDeletedCallback-noTableColumnDeletedCallback = Nothing--type TableColumnDeletedCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableColumnDeletedCallback :: TableColumnDeletedCallbackC -> IO (FunPtr TableColumnDeletedCallbackC)--tableColumnDeletedClosure :: TableColumnDeletedCallback -> IO Closure-tableColumnDeletedClosure cb = newCClosure =<< mkTableColumnDeletedCallback wrapped- where wrapped = tableColumnDeletedCallbackWrapper cb--tableColumnDeletedCallbackWrapper ::- TableColumnDeletedCallback ->- Ptr () ->- Int32 ->- Int32 ->- Ptr () ->- IO ()-tableColumnDeletedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId-onTableColumnDeleted obj cb = liftIO $ connectTableColumnDeleted obj cb SignalConnectBefore-afterTableColumnDeleted :: (GObject a, MonadIO m) => a -> TableColumnDeletedCallback -> m SignalHandlerId-afterTableColumnDeleted obj cb = connectTableColumnDeleted obj cb SignalConnectAfter--connectTableColumnDeleted :: (GObject a, MonadIO m) =>- a -> TableColumnDeletedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnDeleted obj cb after = liftIO $ do- cb' <- mkTableColumnDeletedCallback (tableColumnDeletedCallbackWrapper cb)- connectSignalFunPtr obj "column-deleted" cb' after---- signal Table::column-inserted-type TableColumnInsertedCallback =- Int32 ->- Int32 ->- IO ()--noTableColumnInsertedCallback :: Maybe TableColumnInsertedCallback-noTableColumnInsertedCallback = Nothing--type TableColumnInsertedCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableColumnInsertedCallback :: TableColumnInsertedCallbackC -> IO (FunPtr TableColumnInsertedCallbackC)--tableColumnInsertedClosure :: TableColumnInsertedCallback -> IO Closure-tableColumnInsertedClosure cb = newCClosure =<< mkTableColumnInsertedCallback wrapped- where wrapped = tableColumnInsertedCallbackWrapper cb--tableColumnInsertedCallbackWrapper ::- TableColumnInsertedCallback ->- Ptr () ->- Int32 ->- Int32 ->- Ptr () ->- IO ()-tableColumnInsertedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId-onTableColumnInserted obj cb = liftIO $ connectTableColumnInserted obj cb SignalConnectBefore-afterTableColumnInserted :: (GObject a, MonadIO m) => a -> TableColumnInsertedCallback -> m SignalHandlerId-afterTableColumnInserted obj cb = connectTableColumnInserted obj cb SignalConnectAfter--connectTableColumnInserted :: (GObject a, MonadIO m) =>- a -> TableColumnInsertedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnInserted obj cb after = liftIO $ do- cb' <- mkTableColumnInsertedCallback (tableColumnInsertedCallbackWrapper cb)- connectSignalFunPtr obj "column-inserted" cb' after---- signal Table::column-reordered-type TableColumnReorderedCallback =- IO ()--noTableColumnReorderedCallback :: Maybe TableColumnReorderedCallback-noTableColumnReorderedCallback = Nothing--type TableColumnReorderedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableColumnReorderedCallback :: TableColumnReorderedCallbackC -> IO (FunPtr TableColumnReorderedCallbackC)--tableColumnReorderedClosure :: TableColumnReorderedCallback -> IO Closure-tableColumnReorderedClosure cb = newCClosure =<< mkTableColumnReorderedCallback wrapped- where wrapped = tableColumnReorderedCallbackWrapper cb--tableColumnReorderedCallbackWrapper ::- TableColumnReorderedCallback ->- Ptr () ->- Ptr () ->- IO ()-tableColumnReorderedCallbackWrapper _cb _ _ = do- _cb --onTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId-onTableColumnReordered obj cb = liftIO $ connectTableColumnReordered obj cb SignalConnectBefore-afterTableColumnReordered :: (GObject a, MonadIO m) => a -> TableColumnReorderedCallback -> m SignalHandlerId-afterTableColumnReordered obj cb = connectTableColumnReordered obj cb SignalConnectAfter--connectTableColumnReordered :: (GObject a, MonadIO m) =>- a -> TableColumnReorderedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableColumnReordered obj cb after = liftIO $ do- cb' <- mkTableColumnReorderedCallback (tableColumnReorderedCallbackWrapper cb)- connectSignalFunPtr obj "column-reordered" cb' after---- signal Table::model-changed-type TableModelChangedCallback =- IO ()--noTableModelChangedCallback :: Maybe TableModelChangedCallback-noTableModelChangedCallback = Nothing--type TableModelChangedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableModelChangedCallback :: TableModelChangedCallbackC -> IO (FunPtr TableModelChangedCallbackC)--tableModelChangedClosure :: TableModelChangedCallback -> IO Closure-tableModelChangedClosure cb = newCClosure =<< mkTableModelChangedCallback wrapped- where wrapped = tableModelChangedCallbackWrapper cb--tableModelChangedCallbackWrapper ::- TableModelChangedCallback ->- Ptr () ->- Ptr () ->- IO ()-tableModelChangedCallbackWrapper _cb _ _ = do- _cb --onTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId-onTableModelChanged obj cb = liftIO $ connectTableModelChanged obj cb SignalConnectBefore-afterTableModelChanged :: (GObject a, MonadIO m) => a -> TableModelChangedCallback -> m SignalHandlerId-afterTableModelChanged obj cb = connectTableModelChanged obj cb SignalConnectAfter--connectTableModelChanged :: (GObject a, MonadIO m) =>- a -> TableModelChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableModelChanged obj cb after = liftIO $ do- cb' <- mkTableModelChangedCallback (tableModelChangedCallbackWrapper cb)- connectSignalFunPtr obj "model-changed" cb' after---- signal Table::row-deleted-type TableRowDeletedCallback =- Int32 ->- Int32 ->- IO ()--noTableRowDeletedCallback :: Maybe TableRowDeletedCallback-noTableRowDeletedCallback = Nothing--type TableRowDeletedCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableRowDeletedCallback :: TableRowDeletedCallbackC -> IO (FunPtr TableRowDeletedCallbackC)--tableRowDeletedClosure :: TableRowDeletedCallback -> IO Closure-tableRowDeletedClosure cb = newCClosure =<< mkTableRowDeletedCallback wrapped- where wrapped = tableRowDeletedCallbackWrapper cb--tableRowDeletedCallbackWrapper ::- TableRowDeletedCallback ->- Ptr () ->- Int32 ->- Int32 ->- Ptr () ->- IO ()-tableRowDeletedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId-onTableRowDeleted obj cb = liftIO $ connectTableRowDeleted obj cb SignalConnectBefore-afterTableRowDeleted :: (GObject a, MonadIO m) => a -> TableRowDeletedCallback -> m SignalHandlerId-afterTableRowDeleted obj cb = connectTableRowDeleted obj cb SignalConnectAfter--connectTableRowDeleted :: (GObject a, MonadIO m) =>- a -> TableRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowDeleted obj cb after = liftIO $ do- cb' <- mkTableRowDeletedCallback (tableRowDeletedCallbackWrapper cb)- connectSignalFunPtr obj "row-deleted" cb' after---- signal Table::row-inserted-type TableRowInsertedCallback =- Int32 ->- Int32 ->- IO ()--noTableRowInsertedCallback :: Maybe TableRowInsertedCallback-noTableRowInsertedCallback = Nothing--type TableRowInsertedCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableRowInsertedCallback :: TableRowInsertedCallbackC -> IO (FunPtr TableRowInsertedCallbackC)--tableRowInsertedClosure :: TableRowInsertedCallback -> IO Closure-tableRowInsertedClosure cb = newCClosure =<< mkTableRowInsertedCallback wrapped- where wrapped = tableRowInsertedCallbackWrapper cb--tableRowInsertedCallbackWrapper ::- TableRowInsertedCallback ->- Ptr () ->- Int32 ->- Int32 ->- Ptr () ->- IO ()-tableRowInsertedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId-onTableRowInserted obj cb = liftIO $ connectTableRowInserted obj cb SignalConnectBefore-afterTableRowInserted :: (GObject a, MonadIO m) => a -> TableRowInsertedCallback -> m SignalHandlerId-afterTableRowInserted obj cb = connectTableRowInserted obj cb SignalConnectAfter--connectTableRowInserted :: (GObject a, MonadIO m) =>- a -> TableRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowInserted obj cb after = liftIO $ do- cb' <- mkTableRowInsertedCallback (tableRowInsertedCallbackWrapper cb)- connectSignalFunPtr obj "row-inserted" cb' after---- signal Table::row-reordered-type TableRowReorderedCallback =- IO ()--noTableRowReorderedCallback :: Maybe TableRowReorderedCallback-noTableRowReorderedCallback = Nothing--type TableRowReorderedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTableRowReorderedCallback :: TableRowReorderedCallbackC -> IO (FunPtr TableRowReorderedCallbackC)--tableRowReorderedClosure :: TableRowReorderedCallback -> IO Closure-tableRowReorderedClosure cb = newCClosure =<< mkTableRowReorderedCallback wrapped- where wrapped = tableRowReorderedCallbackWrapper cb--tableRowReorderedCallbackWrapper ::- TableRowReorderedCallback ->- Ptr () ->- Ptr () ->- IO ()-tableRowReorderedCallbackWrapper _cb _ _ = do- _cb --onTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId-onTableRowReordered obj cb = liftIO $ connectTableRowReordered obj cb SignalConnectBefore-afterTableRowReordered :: (GObject a, MonadIO m) => a -> TableRowReorderedCallback -> m SignalHandlerId-afterTableRowReordered obj cb = connectTableRowReordered obj cb SignalConnectAfter--connectTableRowReordered :: (GObject a, MonadIO m) =>- a -> TableRowReorderedCallback -> SignalConnectMode -> m SignalHandlerId-connectTableRowReordered obj cb after = liftIO $ do- cb' <- mkTableRowReorderedCallback (tableRowReorderedCallbackWrapper cb)- connectSignalFunPtr obj "row-reordered" cb' after--type instance AttributeList Table = TableAttributeList-type TableAttributeList = ('[ ] :: [(Symbol, *)])--data TableColumnDeletedSignalInfo-instance SignalInfo TableColumnDeletedSignalInfo where- type HaskellCallbackType TableColumnDeletedSignalInfo = TableColumnDeletedCallback- connectSignal _ = connectTableColumnDeleted--data TableColumnInsertedSignalInfo-instance SignalInfo TableColumnInsertedSignalInfo where- type HaskellCallbackType TableColumnInsertedSignalInfo = TableColumnInsertedCallback- connectSignal _ = connectTableColumnInserted--data TableColumnReorderedSignalInfo-instance SignalInfo TableColumnReorderedSignalInfo where- type HaskellCallbackType TableColumnReorderedSignalInfo = TableColumnReorderedCallback- connectSignal _ = connectTableColumnReordered--data TableModelChangedSignalInfo-instance SignalInfo TableModelChangedSignalInfo where- type HaskellCallbackType TableModelChangedSignalInfo = TableModelChangedCallback- connectSignal _ = connectTableModelChanged--data TableRowDeletedSignalInfo-instance SignalInfo TableRowDeletedSignalInfo where- type HaskellCallbackType TableRowDeletedSignalInfo = TableRowDeletedCallback- connectSignal _ = connectTableRowDeleted--data TableRowInsertedSignalInfo-instance SignalInfo TableRowInsertedSignalInfo where- type HaskellCallbackType TableRowInsertedSignalInfo = TableRowInsertedCallback- connectSignal _ = connectTableRowInserted--data TableRowReorderedSignalInfo-instance SignalInfo TableRowReorderedSignalInfo where- type HaskellCallbackType TableRowReorderedSignalInfo = TableRowReorderedCallback- connectSignal _ = connectTableRowReordered--type instance SignalList Table = TableSignalList-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-type instance ParentTypes Table = TableParentTypes-type TableParentTypes = '[]---- method Table::add_column_selection--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_add_column_selection" atk_table_add_column_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- IO CInt---tableAddColumnSelection ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- column- -> m Bool -- result-tableAddColumnSelection _obj column = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_add_column_selection _obj' column- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_add_row_selection" atk_table_add_row_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- IO CInt---tableAddRowSelection ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> m Bool -- result-tableAddRowSelection _obj row = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_add_row_selection _obj' row- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_caption" atk_table_get_caption :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- IO (Ptr Object)---tableGetCaption ::- (MonadIO m, TableK a) =>- a -- _obj- -> m (Maybe Object) -- result-tableGetCaption _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_get_caption _obj'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (newObject Object) result'- return result''- touchManagedPtr _obj- return maybeResult--data TableGetCaptionMethodInfo-instance (signature ~ (m (Maybe Object)), MonadIO m, TableK a) => MethodInfo TableGetCaptionMethodInfo a signature where- overloadedMethod _ = tableGetCaption---- method Table::get_column_at_index--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_at_index" atk_table_get_column_at_index :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- index_ : TBasicType TInt- IO Int32--{-# DEPRECATED tableGetColumnAtIndex ["Since 2.12."]#-}-tableGetColumnAtIndex ::- (MonadIO m, TableK a) =>- 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_- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_description" atk_table_get_column_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- IO CString---tableGetColumnDescription ::- (MonadIO m, TableK a) =>- 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- checkUnexpectedReturnNULL "atk_table_get_column_description" result- result' <- cstringToText result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_extent_at" atk_table_get_column_extent_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Int32 -> -- column : TBasicType TInt- IO Int32---tableGetColumnExtentAt ::- (MonadIO m, TableK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_column_header" atk_table_get_column_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- IO (Ptr Object)---tableGetColumnHeader ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- column- -> m (Maybe Object) -- result-tableGetColumnHeader _obj column = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_get_column_header _obj' column- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (newObject Object) result'- return result''- touchManagedPtr _obj- return maybeResult--data TableGetColumnHeaderMethodInfo-instance (signature ~ (Int32 -> m (Maybe Object)), MonadIO m, TableK a) => MethodInfo TableGetColumnHeaderMethodInfo a signature where- overloadedMethod _ = tableGetColumnHeader---- method Table::get_index_at--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_index_at" atk_table_get_index_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Int32 -> -- column : TBasicType TInt- IO Int32--{-# 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 -- 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 {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_n_columns" atk_table_get_n_columns :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- IO Int32---tableGetNColumns ::- (MonadIO m, TableK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_n_rows" atk_table_get_n_rows :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- IO Int32---tableGetNRows ::- (MonadIO m, TableK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_at_index" atk_table_get_row_at_index :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- index_ : TBasicType TInt- IO Int32--{-# DEPRECATED tableGetRowAtIndex ["since 2.12."]#-}-tableGetRowAtIndex ::- (MonadIO m, TableK a) =>- 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_- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_description" atk_table_get_row_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- IO CString---tableGetRowDescription ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> m (Maybe T.Text) -- result-tableGetRowDescription _obj row = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_get_row_description _obj' row- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- return result''- touchManagedPtr _obj- return maybeResult--data TableGetRowDescriptionMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, TableK a) => MethodInfo TableGetRowDescriptionMethodInfo a signature where- overloadedMethod _ = tableGetRowDescription---- method Table::get_row_extent_at--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_extent_at" atk_table_get_row_extent_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Int32 -> -- column : TBasicType TInt- IO Int32---tableGetRowExtentAt ::- (MonadIO m, TableK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_row_header" atk_table_get_row_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- IO (Ptr Object)---tableGetRowHeader ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> m (Maybe Object) -- result-tableGetRowHeader _obj row = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_get_row_header _obj' row- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (newObject Object) result'- return result''- touchManagedPtr _obj- return maybeResult--data TableGetRowHeaderMethodInfo-instance (signature ~ (Int32 -> m (Maybe Object)), MonadIO m, TableK a) => MethodInfo TableGetRowHeaderMethodInfo a signature where- overloadedMethod _ = tableGetRowHeader---- method Table::get_selected_columns--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_selected_columns" atk_table_get_selected_columns :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- selected : TBasicType TInt- IO Int32---tableGetSelectedColumns ::- (MonadIO m, TableK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_selected_rows" atk_table_get_selected_rows :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- selected : TBasicType TInt- IO Int32---tableGetSelectedRows ::- (MonadIO m, TableK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_get_summary" atk_table_get_summary :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- IO (Ptr Object)---tableGetSummary ::- (MonadIO m, TableK a) =>- a -- _obj- -> m Object -- result-tableGetSummary _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_get_summary _obj'- checkUnexpectedReturnNULL "atk_table_get_summary" result- result' <- (wrapObject Object) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_column_selected" atk_table_is_column_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- IO CInt---tableIsColumnSelected ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- column- -> m Bool -- result-tableIsColumnSelected _obj column = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_is_column_selected _obj' column- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_row_selected" atk_table_is_row_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- IO CInt---tableIsRowSelected ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> m Bool -- result-tableIsRowSelected _obj row = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_is_row_selected _obj' row- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_is_selected" atk_table_is_selected :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Int32 -> -- column : TBasicType TInt- IO CInt---tableIsSelected ::- (MonadIO m, TableK a) =>- 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- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_ref_at" atk_table_ref_at :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Int32 -> -- column : TBasicType TInt- IO (Ptr Object)---tableRefAt ::- (MonadIO m, TableK a) =>- 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- checkUnexpectedReturnNULL "atk_table_ref_at" result- result' <- (wrapObject Object) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_remove_column_selection" atk_table_remove_column_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- IO CInt---tableRemoveColumnSelection ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- column- -> m Bool -- result-tableRemoveColumnSelection _obj column = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_remove_column_selection _obj' column- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_remove_row_selection" atk_table_remove_row_selection :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- IO CInt---tableRemoveRowSelection ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> m Bool -- result-tableRemoveRowSelection _obj row = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_remove_row_selection _obj' row- let result' = (/= 0) result- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_caption" atk_table_set_caption :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Ptr Object -> -- caption : TInterface "Atk" "Object"- IO ()---tableSetCaption ::- (MonadIO m, TableK a, ObjectK b) =>- a -- _obj- -> b -- caption- -> m () -- result-tableSetCaption _obj caption = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let caption' = unsafeManagedPtrCastPtr caption- atk_table_set_caption _obj' caption'- touchManagedPtr _obj- 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 {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 TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_column_description" atk_table_set_column_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- CString -> -- description : TBasicType TUTF8- IO ()---tableSetColumnDescription ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- column- -> T.Text -- description- -> m () -- result-tableSetColumnDescription _obj column description = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- description' <- textToCString description- atk_table_set_column_description _obj' column description'- touchManagedPtr _obj- 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 {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 TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_column_header" atk_table_set_column_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- column : TBasicType TInt- Ptr Object -> -- header : TInterface "Atk" "Object"- IO ()---tableSetColumnHeader ::- (MonadIO m, TableK a, ObjectK b) =>- a -- _obj- -> Int32 -- column- -> b -- header- -> m () -- result-tableSetColumnHeader _obj column header = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let header' = unsafeManagedPtrCastPtr header- atk_table_set_column_header _obj' column header'- touchManagedPtr _obj- 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 {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 TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_row_description" atk_table_set_row_description :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- CString -> -- description : TBasicType TUTF8- IO ()---tableSetRowDescription ::- (MonadIO m, TableK a) =>- a -- _obj- -> Int32 -- row- -> T.Text -- description- -> m () -- result-tableSetRowDescription _obj row description = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- description' <- textToCString description- atk_table_set_row_description _obj' row description'- touchManagedPtr _obj- 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 {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 TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_row_header" atk_table_set_row_header :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Int32 -> -- row : TBasicType TInt- Ptr Object -> -- header : TInterface "Atk" "Object"- IO ()---tableSetRowHeader ::- (MonadIO m, TableK a, ObjectK b) =>- a -- _obj- -> Int32 -- row- -> b -- header- -> m () -- result-tableSetRowHeader _obj row header = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let header' = unsafeManagedPtrCastPtr header- atk_table_set_row_header _obj' row header'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_table_set_summary" atk_table_set_summary :: - Ptr Table -> -- _obj : TInterface "Atk" "Table"- Ptr Object -> -- accessible : TInterface "Atk" "Object"- IO ()---tableSetSummary ::- (MonadIO m, TableK a, ObjectK b) =>- a -- _obj- -> b -- accessible- -> m () -- result-tableSetSummary _obj accessible = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let accessible' = unsafeManagedPtrCastPtr accessible- atk_table_set_summary _obj' accessible'- touchManagedPtr _obj- touchManagedPtr accessible- return ()--data TableSetSummaryMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TableK a, ObjectK b) => MethodInfo TableSetSummaryMethodInfo a signature where- overloadedMethod _ = tableSetSummary--
− GI/Atk/Interfaces/Table.hs-boot
@@ -1,48 +0,0 @@-module GI.Atk.Interfaces.Table where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Table = Table (ForeignPtr Table)-data TableColumnDeletedSignalInfo-data TableColumnInsertedSignalInfo-data TableColumnReorderedSignalInfo-data TableModelChangedSignalInfo-data TableRowDeletedSignalInfo-data TableRowInsertedSignalInfo-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
− GI/Atk/Interfaces/TableCell.hs
@@ -1,387 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.TableCell- ( ---- * Exported types- TableCell(..) ,- noTableCell ,- TableCellK ,- toTableCell ,--- -- * Methods--- ** tableCellGetColumnHeaderCells- TableCellGetColumnHeaderCellsMethodInfo ,- tableCellGetColumnHeaderCells ,----- ** tableCellGetColumnSpan- TableCellGetColumnSpanMethodInfo ,- tableCellGetColumnSpan ,----- ** tableCellGetPosition- TableCellGetPositionMethodInfo ,- tableCellGetPosition ,----- ** tableCellGetRowColumnSpan- TableCellGetRowColumnSpanMethodInfo ,- tableCellGetRowColumnSpan ,----- ** tableCellGetRowHeaderCells- TableCellGetRowHeaderCellsMethodInfo ,- tableCellGetRowHeaderCells ,----- ** tableCellGetRowSpan- TableCellGetRowSpanMethodInfo ,- tableCellGetRowSpan ,----- ** tableCellGetTable- TableCellGetTableMethodInfo ,- tableCellGetTable ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject---- interface TableCell --newtype TableCell = TableCell (ForeignPtr TableCell)-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 = ('[ '("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 = ('[ '("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--type instance ParentTypes TableCell = TableCellParentTypes-type TableCellParentTypes = '[Object, GObject.Object]--instance GObject TableCell where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_table_cell_get_type- --class GObject o => TableCellK o-instance (GObject o, IsDescendantOf TableCell o) => TableCellK o--toTableCell :: TableCellK o => o -> IO TableCell-toTableCell = unsafeCastTo TableCell---- method TableCell::get_column_header_cells--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TPtrArray (TInterface "Atk" "Object"))--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_column_header_cells" atk_table_cell_get_column_header_cells :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- IO (Ptr (GPtrArray (Ptr Object)))---tableCellGetColumnHeaderCells ::- (MonadIO m, TableCellK a) =>- a -- _obj- -> m [Object] -- result-tableCellGetColumnHeaderCells _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_cell_get_column_header_cells _obj'- checkUnexpectedReturnNULL "atk_table_cell_get_column_header_cells" result- result' <- unpackGPtrArray result- result'' <- mapM (wrapObject Object) result'- unrefPtrArray result- 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 {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_column_span" atk_table_cell_get_column_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- IO Int32---tableCellGetColumnSpan ::- (MonadIO m, TableCellK a) =>- 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 {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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_position" atk_table_cell_get_position :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- Ptr Int32 -> -- row : TBasicType TInt- Ptr Int32 -> -- column : TBasicType TInt- IO CInt---tableCellGetPosition ::- (MonadIO m, TableCellK a) =>- a -- _obj- -> m (Bool,Int32,Int32) -- result-tableCellGetPosition _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- row <- allocMem :: IO (Ptr Int32)- column <- allocMem :: IO (Ptr Int32)- result <- atk_table_cell_get_position _obj' row column- let result' = (/= 0) result- row' <- peek row- column' <- peek column- touchManagedPtr _obj- freeMem row- 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 {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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "row_span", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column_span", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_column_span" atk_table_cell_get_row_column_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- Ptr Int32 -> -- row : TBasicType TInt- Ptr Int32 -> -- column : TBasicType TInt- Ptr Int32 -> -- row_span : TBasicType TInt- Ptr Int32 -> -- column_span : TBasicType TInt- IO CInt---tableCellGetRowColumnSpan ::- (MonadIO m, TableCellK a) =>- 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)- 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- rowSpan' <- peek rowSpan- columnSpan' <- peek columnSpan- touchManagedPtr _obj- freeMem row- freeMem column- 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 {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TPtrArray (TInterface "Atk" "Object"))--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_header_cells" atk_table_cell_get_row_header_cells :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- IO (Ptr (GPtrArray (Ptr Object)))---tableCellGetRowHeaderCells ::- (MonadIO m, TableCellK a) =>- a -- _obj- -> m [Object] -- result-tableCellGetRowHeaderCells _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_cell_get_row_header_cells _obj'- checkUnexpectedReturnNULL "atk_table_cell_get_row_header_cells" result- result' <- unpackGPtrArray result- result'' <- mapM (wrapObject Object) result'- unrefPtrArray result- 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 {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_row_span" atk_table_cell_get_row_span :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- IO Int32---tableCellGetRowSpan ::- (MonadIO m, TableCellK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "TableCell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_table_cell_get_table" atk_table_cell_get_table :: - Ptr TableCell -> -- _obj : TInterface "Atk" "TableCell"- IO (Ptr Object)---tableCellGetTable ::- (MonadIO m, TableCellK a) =>- a -- _obj- -> m Object -- result-tableCellGetTable _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_table_cell_get_table _obj'- checkUnexpectedReturnNULL "atk_table_cell_get_table" result- 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--
− GI/Atk/Interfaces/TableCell.hs-boot
@@ -1,20 +0,0 @@-module GI.Atk.Interfaces.TableCell where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TableCell = TableCell (ForeignPtr TableCell)-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
− GI/Atk/Interfaces/Text.hs
@@ -1,1276 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Text- ( ---- * Exported types- Text(..) ,- noText ,- TextK ,--- -- * 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 ,----- -- * Signals--- ** TextAttributesChanged- TextTextAttributesChangedCallback ,- TextTextAttributesChangedCallbackC ,- TextTextAttributesChangedSignalInfo ,- afterTextTextAttributesChanged ,- mkTextTextAttributesChangedCallback ,- noTextTextAttributesChangedCallback ,- onTextTextAttributesChanged ,- textTextAttributesChangedCallbackWrapper,- textTextAttributesChangedClosure ,----- ** TextCaretMoved- TextTextCaretMovedCallback ,- TextTextCaretMovedCallbackC ,- TextTextCaretMovedSignalInfo ,- afterTextTextCaretMoved ,- mkTextTextCaretMovedCallback ,- noTextTextCaretMovedCallback ,- onTextTextCaretMoved ,- textTextCaretMovedCallbackWrapper ,- textTextCaretMovedClosure ,----- ** TextChanged- TextTextChangedCallback ,- TextTextChangedCallbackC ,- TextTextChangedSignalInfo ,- afterTextTextChanged ,- mkTextTextChangedCallback ,- noTextTextChangedCallback ,- onTextTextChanged ,- textTextChangedCallbackWrapper ,- textTextChangedClosure ,----- ** TextInsert- TextTextInsertCallback ,- TextTextInsertCallbackC ,- TextTextInsertSignalInfo ,- afterTextTextInsert ,- mkTextTextInsertCallback ,- noTextTextInsertCallback ,- onTextTextInsert ,- textTextInsertCallbackWrapper ,- textTextInsertClosure ,----- ** TextRemove- TextTextRemoveCallback ,- TextTextRemoveCallbackC ,- TextTextRemoveSignalInfo ,- afterTextTextRemove ,- mkTextTextRemoveCallback ,- noTextTextRemoveCallback ,- onTextTextRemove ,- textTextRemoveCallbackWrapper ,- textTextRemoveClosure ,----- ** TextSelectionChanged- TextTextSelectionChangedCallback ,- TextTextSelectionChangedCallbackC ,- TextTextSelectionChangedSignalInfo ,- afterTextTextSelectionChanged ,- mkTextTextSelectionChangedCallback ,- noTextTextSelectionChangedCallback ,- onTextTextSelectionChanged ,- textTextSelectionChangedCallbackWrapper ,- textTextSelectionChangedClosure ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Text --newtype Text = Text (ForeignPtr Text)-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 ()--noTextTextAttributesChangedCallback :: Maybe TextTextAttributesChangedCallback-noTextTextAttributesChangedCallback = Nothing--type TextTextAttributesChangedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextAttributesChangedCallback :: TextTextAttributesChangedCallbackC -> IO (FunPtr TextTextAttributesChangedCallbackC)--textTextAttributesChangedClosure :: TextTextAttributesChangedCallback -> IO Closure-textTextAttributesChangedClosure cb = newCClosure =<< mkTextTextAttributesChangedCallback wrapped- where wrapped = textTextAttributesChangedCallbackWrapper cb--textTextAttributesChangedCallbackWrapper ::- TextTextAttributesChangedCallback ->- Ptr () ->- Ptr () ->- IO ()-textTextAttributesChangedCallbackWrapper _cb _ _ = do- _cb --onTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId-onTextTextAttributesChanged obj cb = liftIO $ connectTextTextAttributesChanged obj cb SignalConnectBefore-afterTextTextAttributesChanged :: (GObject a, MonadIO m) => a -> TextTextAttributesChangedCallback -> m SignalHandlerId-afterTextTextAttributesChanged obj cb = connectTextTextAttributesChanged obj cb SignalConnectAfter--connectTextTextAttributesChanged :: (GObject a, MonadIO m) =>- a -> TextTextAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextAttributesChanged obj cb after = liftIO $ do- cb' <- mkTextTextAttributesChangedCallback (textTextAttributesChangedCallbackWrapper cb)- connectSignalFunPtr obj "text-attributes-changed" cb' after---- signal Text::text-caret-moved-type TextTextCaretMovedCallback =- Int32 ->- IO ()--noTextTextCaretMovedCallback :: Maybe TextTextCaretMovedCallback-noTextTextCaretMovedCallback = Nothing--type TextTextCaretMovedCallbackC =- Ptr () -> -- object- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextCaretMovedCallback :: TextTextCaretMovedCallbackC -> IO (FunPtr TextTextCaretMovedCallbackC)--textTextCaretMovedClosure :: TextTextCaretMovedCallback -> IO Closure-textTextCaretMovedClosure cb = newCClosure =<< mkTextTextCaretMovedCallback wrapped- where wrapped = textTextCaretMovedCallbackWrapper cb--textTextCaretMovedCallbackWrapper ::- TextTextCaretMovedCallback ->- Ptr () ->- Int32 ->- Ptr () ->- IO ()-textTextCaretMovedCallbackWrapper _cb _ arg1 _ = do- _cb arg1--onTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId-onTextTextCaretMoved obj cb = liftIO $ connectTextTextCaretMoved obj cb SignalConnectBefore-afterTextTextCaretMoved :: (GObject a, MonadIO m) => a -> TextTextCaretMovedCallback -> m SignalHandlerId-afterTextTextCaretMoved obj cb = connectTextTextCaretMoved obj cb SignalConnectAfter--connectTextTextCaretMoved :: (GObject a, MonadIO m) =>- a -> TextTextCaretMovedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextCaretMoved obj cb after = liftIO $ do- cb' <- mkTextTextCaretMovedCallback (textTextCaretMovedCallbackWrapper cb)- connectSignalFunPtr obj "text-caret-moved" cb' after---- signal Text::text-changed-type TextTextChangedCallback =- Int32 ->- Int32 ->- IO ()--noTextTextChangedCallback :: Maybe TextTextChangedCallback-noTextTextChangedCallback = Nothing--type TextTextChangedCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextChangedCallback :: TextTextChangedCallbackC -> IO (FunPtr TextTextChangedCallbackC)--textTextChangedClosure :: TextTextChangedCallback -> IO Closure-textTextChangedClosure cb = newCClosure =<< mkTextTextChangedCallback wrapped- where wrapped = textTextChangedCallbackWrapper cb--textTextChangedCallbackWrapper ::- TextTextChangedCallback ->- Ptr () ->- Int32 ->- Int32 ->- Ptr () ->- IO ()-textTextChangedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId-onTextTextChanged obj cb = liftIO $ connectTextTextChanged obj cb SignalConnectBefore-afterTextTextChanged :: (GObject a, MonadIO m) => a -> TextTextChangedCallback -> m SignalHandlerId-afterTextTextChanged obj cb = connectTextTextChanged obj cb SignalConnectAfter--connectTextTextChanged :: (GObject a, MonadIO m) =>- a -> TextTextChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextChanged obj cb after = liftIO $ do- cb' <- mkTextTextChangedCallback (textTextChangedCallbackWrapper cb)- connectSignalFunPtr obj "text-changed" cb' after---- signal Text::text-insert-type TextTextInsertCallback =- Int32 ->- Int32 ->- T.Text ->- IO ()--noTextTextInsertCallback :: Maybe TextTextInsertCallback-noTextTextInsertCallback = Nothing--type TextTextInsertCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- CString ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextInsertCallback :: TextTextInsertCallbackC -> IO (FunPtr TextTextInsertCallbackC)--textTextInsertClosure :: TextTextInsertCallback -> IO Closure-textTextInsertClosure cb = newCClosure =<< mkTextTextInsertCallback wrapped- where wrapped = textTextInsertCallbackWrapper cb--textTextInsertCallbackWrapper ::- TextTextInsertCallback ->- Ptr () ->- Int32 ->- Int32 ->- CString ->- Ptr () ->- IO ()-textTextInsertCallbackWrapper _cb _ arg1 arg2 arg3 _ = do- arg3' <- cstringToText arg3- _cb arg1 arg2 arg3'--onTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId-onTextTextInsert obj cb = liftIO $ connectTextTextInsert obj cb SignalConnectBefore-afterTextTextInsert :: (GObject a, MonadIO m) => a -> TextTextInsertCallback -> m SignalHandlerId-afterTextTextInsert obj cb = connectTextTextInsert obj cb SignalConnectAfter--connectTextTextInsert :: (GObject a, MonadIO m) =>- a -> TextTextInsertCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextInsert obj cb after = liftIO $ do- cb' <- mkTextTextInsertCallback (textTextInsertCallbackWrapper cb)- connectSignalFunPtr obj "text-insert" cb' after---- signal Text::text-remove-type TextTextRemoveCallback =- Int32 ->- Int32 ->- T.Text ->- IO ()--noTextTextRemoveCallback :: Maybe TextTextRemoveCallback-noTextTextRemoveCallback = Nothing--type TextTextRemoveCallbackC =- Ptr () -> -- object- Int32 ->- Int32 ->- CString ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextRemoveCallback :: TextTextRemoveCallbackC -> IO (FunPtr TextTextRemoveCallbackC)--textTextRemoveClosure :: TextTextRemoveCallback -> IO Closure-textTextRemoveClosure cb = newCClosure =<< mkTextTextRemoveCallback wrapped- where wrapped = textTextRemoveCallbackWrapper cb--textTextRemoveCallbackWrapper ::- TextTextRemoveCallback ->- Ptr () ->- Int32 ->- Int32 ->- CString ->- Ptr () ->- IO ()-textTextRemoveCallbackWrapper _cb _ arg1 arg2 arg3 _ = do- arg3' <- cstringToText arg3- _cb arg1 arg2 arg3'--onTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId-onTextTextRemove obj cb = liftIO $ connectTextTextRemove obj cb SignalConnectBefore-afterTextTextRemove :: (GObject a, MonadIO m) => a -> TextTextRemoveCallback -> m SignalHandlerId-afterTextTextRemove obj cb = connectTextTextRemove obj cb SignalConnectAfter--connectTextTextRemove :: (GObject a, MonadIO m) =>- a -> TextTextRemoveCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextRemove obj cb after = liftIO $ do- cb' <- mkTextTextRemoveCallback (textTextRemoveCallbackWrapper cb)- connectSignalFunPtr obj "text-remove" cb' after---- signal Text::text-selection-changed-type TextTextSelectionChangedCallback =- IO ()--noTextTextSelectionChangedCallback :: Maybe TextTextSelectionChangedCallback-noTextTextSelectionChangedCallback = Nothing--type TextTextSelectionChangedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkTextTextSelectionChangedCallback :: TextTextSelectionChangedCallbackC -> IO (FunPtr TextTextSelectionChangedCallbackC)--textTextSelectionChangedClosure :: TextTextSelectionChangedCallback -> IO Closure-textTextSelectionChangedClosure cb = newCClosure =<< mkTextTextSelectionChangedCallback wrapped- where wrapped = textTextSelectionChangedCallbackWrapper cb--textTextSelectionChangedCallbackWrapper ::- TextTextSelectionChangedCallback ->- Ptr () ->- Ptr () ->- IO ()-textTextSelectionChangedCallbackWrapper _cb _ _ = do- _cb --onTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId-onTextTextSelectionChanged obj cb = liftIO $ connectTextTextSelectionChanged obj cb SignalConnectBefore-afterTextTextSelectionChanged :: (GObject a, MonadIO m) => a -> TextTextSelectionChangedCallback -> m SignalHandlerId-afterTextTextSelectionChanged obj cb = connectTextTextSelectionChanged obj cb SignalConnectAfter--connectTextTextSelectionChanged :: (GObject a, MonadIO m) =>- a -> TextTextSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectTextTextSelectionChanged obj cb after = liftIO $ do- cb' <- mkTextTextSelectionChangedCallback (textTextSelectionChangedCallbackWrapper cb)- connectSignalFunPtr obj "text-selection-changed" cb' after--type instance AttributeList Text = TextAttributeList-type TextAttributeList = ('[ ] :: [(Symbol, *)])--data TextTextAttributesChangedSignalInfo-instance SignalInfo TextTextAttributesChangedSignalInfo where- type HaskellCallbackType TextTextAttributesChangedSignalInfo = TextTextAttributesChangedCallback- connectSignal _ = connectTextTextAttributesChanged--data TextTextCaretMovedSignalInfo-instance SignalInfo TextTextCaretMovedSignalInfo where- type HaskellCallbackType TextTextCaretMovedSignalInfo = TextTextCaretMovedCallback- connectSignal _ = connectTextTextCaretMoved--data TextTextChangedSignalInfo-instance SignalInfo TextTextChangedSignalInfo where- type HaskellCallbackType TextTextChangedSignalInfo = TextTextChangedCallback- connectSignal _ = connectTextTextChanged--data TextTextInsertSignalInfo-instance SignalInfo TextTextInsertSignalInfo where- type HaskellCallbackType TextTextInsertSignalInfo = TextTextInsertCallback- connectSignal _ = connectTextTextInsert--data TextTextRemoveSignalInfo-instance SignalInfo TextTextRemoveSignalInfo where- type HaskellCallbackType TextTextRemoveSignalInfo = TextTextRemoveCallback- connectSignal _ = connectTextTextRemove--data TextTextSelectionChangedSignalInfo-instance SignalInfo TextTextSelectionChangedSignalInfo where- type HaskellCallbackType TextTextSelectionChangedSignalInfo = TextTextSelectionChangedCallback- connectSignal _ = connectTextTextSelectionChanged--type instance SignalList Text = TextSignalList-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-type instance ParentTypes Text = TextParentTypes-type TextParentTypes = '[]---- method Text::add_selection--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_text_add_selection" atk_text_add_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- start_offset : TBasicType TInt- Int32 -> -- end_offset : TBasicType TInt- IO CInt---textAddSelection ::- (MonadIO m, TextK a) =>- 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' 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 {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 : []--- returnType : Just (TCArray True (-1) (-1) (TInterface "Atk" "TextRange"))--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_bounded_ranges" atk_text_get_bounded_ranges :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle"- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- CUInt -> -- x_clip_type : TInterface "Atk" "TextClipType"- CUInt -> -- y_clip_type : TInterface "Atk" "TextClipType"- IO (Ptr (Ptr TextRange))---textGetBoundedRanges ::- (MonadIO m, TextK a) =>- 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 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'- freeMem result- touchManagedPtr _obj- 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 {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_caret_offset" atk_text_get_caret_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- IO Int32---textGetCaretOffset ::- (MonadIO m, TextK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUniChar)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_at_offset" atk_text_get_character_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- IO CInt---textGetCharacterAtOffset ::- (MonadIO m, TextK a) =>- 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- let result' = (chr . fromIntegral) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_count" atk_text_get_character_count :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- IO Int32---textGetCharacterCount ::- (MonadIO m, TextK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_character_extents" atk_text_get_character_extents :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- Int32 -> -- width : TBasicType TInt- Int32 -> -- height : TBasicType TInt- CUInt -> -- coords : TInterface "Atk" "CoordType"- IO ()---textGetCharacterExtents ::- (MonadIO m, TextK a) =>- 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- atk_text_get_character_extents _obj' offset x y width height coords'- 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 {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TPtr))--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_default_attributes" atk_text_get_default_attributes :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- IO (Ptr (GSList (Ptr ())))---textGetDefaultAttributes ::- (MonadIO m, TextK a) =>- a -- _obj- -> m [Ptr ()] -- result-textGetDefaultAttributes _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_text_get_default_attributes _obj'- result' <- unpackGSList result- g_slist_free result- 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 {argCName = "_obj", argType = TInterface "Atk" "Text", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_n_selections" atk_text_get_n_selections :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- IO Int32---textGetNSelections ::- (MonadIO m, TextK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, 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 : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_offset_at_point" atk_text_get_offset_at_point :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- x : TBasicType TInt- Int32 -> -- y : TBasicType TInt- CUInt -> -- coords : TInterface "Atk" "CoordType"- IO Int32---textGetOffsetAtPoint ::- (MonadIO m, TextK a) =>- 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- result <- atk_text_get_offset_at_point _obj' x y coords'- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_range_extents" atk_text_get_range_extents :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- start_offset : TBasicType TInt- Int32 -> -- end_offset : TBasicType TInt- CUInt -> -- coord_type : TInterface "Atk" "CoordType"- Ptr TextRectangle -> -- rect : TInterface "Atk" "TextRectangle"- IO ()---textGetRangeExtents ::- (MonadIO m, TextK a) =>- 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 coordType' = (fromIntegral . fromEnum) coordType- let rect' = unsafeManagedPtrGetPtr 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TPtr))--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_run_attributes" atk_text_get_run_attributes :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO (Ptr (GSList (Ptr ())))---textGetRunAttributes ::- (MonadIO m, TextK a) =>- a -- _obj- -> Int32 -- offset- -> m ([Ptr ()],Int32,Int32) -- result-textGetRunAttributes _obj offset = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- startOffset <- allocMem :: IO (Ptr Int32)- endOffset <- allocMem :: IO (Ptr Int32)- result <- atk_text_get_run_attributes _obj' offset startOffset endOffset- result' <- unpackGSList result- g_slist_free result- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_selection" atk_text_get_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- selection_num : TBasicType TInt- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO CString---textGetSelection ::- (MonadIO m, TextK a) =>- a -- _obj- -> Int32 -- selectionNum- -> m (T.Text,Int32,Int32) -- result-textGetSelection _obj selectionNum = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- 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 {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 TInt, 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_string_at_offset" atk_text_get_string_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- CUInt -> -- granularity : TInterface "Atk" "TextGranularity"- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO CString---textGetStringAtOffset ::- (MonadIO m, TextK a) =>- a -- _obj- -> Int32 -- offset- -> TextGranularity -- granularity- -> m ((Maybe T.Text),Int32,Int32) -- result-textGetStringAtOffset _obj offset granularity = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let granularity' = (fromIntegral . fromEnum) granularity- startOffset <- allocMem :: IO (Ptr Int32)- endOffset <- allocMem :: IO (Ptr Int32)- result <- atk_text_get_string_at_offset _obj' offset granularity' startOffset endOffset- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- cstringToText result'- freeMem result'- return result''- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- freeMem startOffset- freeMem endOffset- return (maybeResult, startOffset', endOffset')--data TextGetStringAtOffsetMethodInfo-instance (signature ~ (Int32 -> TextGranularity -> m ((Maybe T.Text),Int32,Int32)), MonadIO m, TextK a) => MethodInfo TextGetStringAtOffsetMethodInfo a signature where- overloadedMethod _ = textGetStringAtOffset---- method Text::get_text--- method type : OrdinaryMethod--- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text" atk_text_get_text :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- start_offset : TBasicType TInt- Int32 -> -- end_offset : TBasicType TInt- IO CString---textGetText ::- (MonadIO m, TextK a) =>- 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' 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 {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 TInt, 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_after_offset" atk_text_get_text_after_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary"- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO CString--{-# 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 -- boundaryType- -> m (T.Text,Int32,Int32) -- result-textGetTextAfterOffset _obj offset boundaryType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- 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 {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 TInt, 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_at_offset" atk_text_get_text_at_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary"- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO CString--{-# 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 -- boundaryType- -> m (T.Text,Int32,Int32) -- result-textGetTextAtOffset _obj offset boundaryType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- 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 {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 TInt, 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_text_get_text_before_offset" atk_text_get_text_before_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- CUInt -> -- boundary_type : TInterface "Atk" "TextBoundary"- Ptr Int32 -> -- start_offset : TBasicType TInt- Ptr Int32 -> -- end_offset : TBasicType TInt- IO CString--{-# 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 -- boundaryType- -> m (T.Text,Int32,Int32) -- result-textGetTextBeforeOffset _obj offset boundaryType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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- startOffset' <- peek startOffset- endOffset' <- peek endOffset- touchManagedPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_text_remove_selection" atk_text_remove_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- selection_num : TBasicType TInt- IO CInt---textRemoveSelection ::- (MonadIO m, TextK a) =>- a -- _obj- -> Int32 -- selectionNum- -> m Bool -- result-textRemoveSelection _obj selectionNum = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_text_set_caret_offset" atk_text_set_caret_offset :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- offset : TBasicType TInt- IO CInt---textSetCaretOffset ::- (MonadIO m, TextK a) =>- a -- _obj- -> Int32 -- offset- -> m Bool -- result-textSetCaretOffset _obj offset = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_text_set_caret_offset _obj' offset- let result' = (/= 0) result- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_text_set_selection" atk_text_set_selection :: - Ptr Text -> -- _obj : TInterface "Atk" "Text"- Int32 -> -- selection_num : TBasicType TInt- Int32 -> -- start_offset : TBasicType TInt- Int32 -> -- end_offset : TBasicType TInt- IO CInt---textSetSelection ::- (MonadIO m, TextK a) =>- 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' 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 : Nothing--- 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 ()--
− GI/Atk/Interfaces/Text.hs-boot
@@ -1,38 +0,0 @@-module GI.Atk.Interfaces.Text where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Text = Text (ForeignPtr Text)-data TextTextAttributesChangedSignalInfo-data TextTextCaretMovedSignalInfo-data TextTextChangedSignalInfo-data TextTextInsertSignalInfo-data TextTextRemoveSignalInfo-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
− GI/Atk/Interfaces/Value.hs
@@ -1,499 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Value- ( ---- * Exported types- Value(..) ,- noValue ,- ValueK ,--- -- * 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 ,----- -- * Signals--- ** ValueChanged- ValueValueChangedCallback ,- ValueValueChangedCallbackC ,- ValueValueChangedSignalInfo ,- afterValueValueChanged ,- mkValueValueChangedCallback ,- noValueValueChangedCallback ,- onValueValueChanged ,- valueValueChangedCallbackWrapper ,- valueValueChangedClosure ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks---- interface Value --newtype Value = Value (ForeignPtr Value)-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 ->- T.Text ->- IO ()--noValueValueChangedCallback :: Maybe ValueValueChangedCallback-noValueValueChangedCallback = Nothing--type ValueValueChangedCallbackC =- Ptr () -> -- object- CDouble ->- CString ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkValueValueChangedCallback :: ValueValueChangedCallbackC -> IO (FunPtr ValueValueChangedCallbackC)--valueValueChangedClosure :: ValueValueChangedCallback -> IO Closure-valueValueChangedClosure cb = newCClosure =<< mkValueValueChangedCallback wrapped- where wrapped = valueValueChangedCallbackWrapper cb--valueValueChangedCallbackWrapper ::- ValueValueChangedCallback ->- Ptr () ->- CDouble ->- CString ->- Ptr () ->- IO ()-valueValueChangedCallbackWrapper _cb _ value text _ = do- let value' = realToFrac value- text' <- cstringToText text- _cb value' text'--onValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId-onValueValueChanged obj cb = liftIO $ connectValueValueChanged obj cb SignalConnectBefore-afterValueValueChanged :: (GObject a, MonadIO m) => a -> ValueValueChangedCallback -> m SignalHandlerId-afterValueValueChanged obj cb = connectValueValueChanged obj cb SignalConnectAfter--connectValueValueChanged :: (GObject a, MonadIO m) =>- a -> ValueValueChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectValueValueChanged obj cb after = liftIO $ do- cb' <- mkValueValueChangedCallback (valueValueChangedCallbackWrapper cb)- connectSignalFunPtr obj "value-changed" cb' after--type instance AttributeList Value = ValueAttributeList-type ValueAttributeList = ('[ ] :: [(Symbol, *)])--data ValueValueChangedSignalInfo-instance SignalInfo ValueValueChangedSignalInfo where- type HaskellCallbackType ValueValueChangedSignalInfo = ValueValueChangedCallback- connectSignal _ = connectValueValueChanged--type instance SignalList Value = ValueSignalList-type ValueSignalList = ('[ '("valueChanged", ValueValueChangedSignalInfo)] :: [(Symbol, *)])--class ForeignPtrNewtype a => ValueK a-instance (ForeignPtrNewtype o, IsDescendantOf Value o) => ValueK o-type instance ParentTypes Value = ValueParentTypes-type ValueParentTypes = '[]---- method Value::get_current_value--- method type : OrdinaryMethod--- 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_current_value" atk_value_get_current_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr GValue -> -- value : TInterface "GObject" "Value"- IO ()--{-# DEPRECATED valueGetCurrentValue ["Since 2.12. Use atk_value_get_value_and_text()","instead."]#-}-valueGetCurrentValue ::- (MonadIO m, ValueK a) =>- a -- _obj- -> GValue -- value- -> m () -- result-valueGetCurrentValue _obj value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = unsafeManagedPtrGetPtr value- atk_value_get_current_value _obj' value'- touchManagedPtr _obj- 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 {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_increment" atk_value_get_increment :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- IO CDouble---valueGetIncrement ::- (MonadIO m, ValueK a) =>- a -- _obj- -> m Double -- result-valueGetIncrement _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_value_get_increment _obj'- let result' = realToFrac result- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_maximum_value" atk_value_get_maximum_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr GValue -> -- value : TInterface "GObject" "Value"- IO ()--{-# DEPRECATED valueGetMaximumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}-valueGetMaximumValue ::- (MonadIO m, ValueK a) =>- a -- _obj- -> GValue -- value- -> m () -- result-valueGetMaximumValue _obj value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = unsafeManagedPtrGetPtr value- atk_value_get_maximum_value _obj' value'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_minimum_increment" atk_value_get_minimum_increment :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr GValue -> -- value : TInterface "GObject" "Value"- IO ()--{-# DEPRECATED valueGetMinimumIncrement ["Since 2.12. Use atk_value_get_increment() instead."]#-}-valueGetMinimumIncrement ::- (MonadIO m, ValueK a) =>- a -- _obj- -> GValue -- value- -> m () -- result-valueGetMinimumIncrement _obj value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = unsafeManagedPtrGetPtr value- atk_value_get_minimum_increment _obj' value'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_minimum_value" atk_value_get_minimum_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr GValue -> -- value : TInterface "GObject" "Value"- IO ()--{-# DEPRECATED valueGetMinimumValue ["Since 2.12. Use atk_value_get_range() instead."]#-}-valueGetMinimumValue ::- (MonadIO m, ValueK a) =>- a -- _obj- -> GValue -- value- -> m () -- result-valueGetMinimumValue _obj value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = unsafeManagedPtrGetPtr value- atk_value_get_minimum_value _obj' value'- touchManagedPtr _obj- 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 {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Range")--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_range" atk_value_get_range :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- IO (Ptr Range)---valueGetRange ::- (MonadIO m, ValueK a) =>- a -- _obj- -> m (Maybe Range) -- result-valueGetRange _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_value_get_range _obj'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapBoxed Range) result'- return result''- touchManagedPtr _obj- return maybeResult--data ValueGetRangeMethodInfo-instance (signature ~ (m (Maybe Range)), MonadIO m, ValueK a) => MethodInfo ValueGetRangeMethodInfo a signature where- overloadedMethod _ = valueGetRange---- method Value::get_sub_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Atk" "Range"))--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_sub_ranges" atk_value_get_sub_ranges :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- IO (Ptr (GSList (Ptr Range)))---valueGetSubRanges ::- (MonadIO m, ValueK a) =>- a -- _obj- -> m [Range] -- result-valueGetSubRanges _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_value_get_sub_ranges _obj'- result' <- unpackGSList result- result'' <- mapM (wrapBoxed Range) result'- g_slist_free result- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_get_value_and_text" atk_value_get_value_and_text :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr CDouble -> -- value : TBasicType TDouble- Ptr CString -> -- text : TBasicType TUTF8- IO ()---valueGetValueAndText ::- (MonadIO m, ValueK a) =>- a -- _obj- -> m (Double,T.Text) -- result-valueGetValueAndText _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- value <- allocMem :: IO (Ptr CDouble)- text <- allocMem :: IO (Ptr CString)- atk_value_get_value_and_text _obj' value text- value' <- peek value- let value'' = realToFrac value'- text' <- peek text- text'' <- cstringToText text'- freeMem text'- touchManagedPtr _obj- freeMem value- 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 {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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_value_set_current_value" atk_value_set_current_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- Ptr GValue -> -- value : TInterface "GObject" "Value"- IO CInt--{-# DEPRECATED valueSetCurrentValue ["Since 2.12. Use atk_value_set_value() instead."]#-}-valueSetCurrentValue ::- (MonadIO m, ValueK a) =>- a -- _obj- -> GValue -- value- -> m Bool -- result-valueSetCurrentValue _obj value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = unsafeManagedPtrGetPtr value- result <- atk_value_set_current_value _obj' value'- let result' = (/= 0) result- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_value_set_value" atk_value_set_value :: - Ptr Value -> -- _obj : TInterface "Atk" "Value"- CDouble -> -- new_value : TBasicType TDouble- IO ()---valueSetValue ::- (MonadIO m, ValueK a) =>- a -- _obj- -> Double -- newValue- -> m () -- result-valueSetValue _obj newValue = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- 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--
− GI/Atk/Interfaces/Value.hs-boot
@@ -1,23 +0,0 @@-module GI.Atk.Interfaces.Value where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Value = Value (ForeignPtr Value)-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
− GI/Atk/Interfaces/Window.hs
@@ -1,615 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Interfaces.Window- ( ---- * Exported types- Window(..) ,- noWindow ,- WindowK ,- toWindow ,--- -- * Signals--- ** Activate- WindowActivateCallback ,- WindowActivateCallbackC ,- WindowActivateSignalInfo ,- afterWindowActivate ,- mkWindowActivateCallback ,- noWindowActivateCallback ,- onWindowActivate ,- windowActivateCallbackWrapper ,- windowActivateClosure ,----- ** Create- WindowCreateCallback ,- WindowCreateCallbackC ,- WindowCreateSignalInfo ,- afterWindowCreate ,- mkWindowCreateCallback ,- noWindowCreateCallback ,- onWindowCreate ,- windowCreateCallbackWrapper ,- windowCreateClosure ,----- ** Deactivate- WindowDeactivateCallback ,- WindowDeactivateCallbackC ,- WindowDeactivateSignalInfo ,- afterWindowDeactivate ,- mkWindowDeactivateCallback ,- noWindowDeactivateCallback ,- onWindowDeactivate ,- windowDeactivateCallbackWrapper ,- windowDeactivateClosure ,----- ** Destroy- WindowDestroyCallback ,- WindowDestroyCallbackC ,- WindowDestroySignalInfo ,- afterWindowDestroy ,- mkWindowDestroyCallback ,- noWindowDestroyCallback ,- onWindowDestroy ,- windowDestroyCallbackWrapper ,- windowDestroyClosure ,----- ** Maximize- WindowMaximizeCallback ,- WindowMaximizeCallbackC ,- WindowMaximizeSignalInfo ,- afterWindowMaximize ,- mkWindowMaximizeCallback ,- noWindowMaximizeCallback ,- onWindowMaximize ,- windowMaximizeCallbackWrapper ,- windowMaximizeClosure ,----- ** Minimize- WindowMinimizeCallback ,- WindowMinimizeCallbackC ,- WindowMinimizeSignalInfo ,- afterWindowMinimize ,- mkWindowMinimizeCallback ,- noWindowMinimizeCallback ,- onWindowMinimize ,- windowMinimizeCallbackWrapper ,- windowMinimizeClosure ,----- ** Move- WindowMoveCallback ,- WindowMoveCallbackC ,- WindowMoveSignalInfo ,- afterWindowMove ,- mkWindowMoveCallback ,- noWindowMoveCallback ,- onWindowMove ,- windowMoveCallbackWrapper ,- windowMoveClosure ,----- ** Resize- WindowResizeCallback ,- WindowResizeCallbackC ,- WindowResizeSignalInfo ,- afterWindowResize ,- mkWindowResizeCallback ,- noWindowResizeCallback ,- onWindowResize ,- windowResizeCallbackWrapper ,- windowResizeClosure ,----- ** Restore- WindowRestoreCallback ,- WindowRestoreCallbackC ,- WindowRestoreSignalInfo ,- afterWindowRestore ,- mkWindowRestoreCallback ,- noWindowRestoreCallback ,- onWindowRestore ,- windowRestoreCallbackWrapper ,- windowRestoreClosure ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject---- interface Window --newtype Window = Window (ForeignPtr Window)-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 ()--noWindowActivateCallback :: Maybe WindowActivateCallback-noWindowActivateCallback = Nothing--type WindowActivateCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowActivateCallback :: WindowActivateCallbackC -> IO (FunPtr WindowActivateCallbackC)--windowActivateClosure :: WindowActivateCallback -> IO Closure-windowActivateClosure cb = newCClosure =<< mkWindowActivateCallback wrapped- where wrapped = windowActivateCallbackWrapper cb--windowActivateCallbackWrapper ::- WindowActivateCallback ->- Ptr () ->- Ptr () ->- IO ()-windowActivateCallbackWrapper _cb _ _ = do- _cb --onWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId-onWindowActivate obj cb = liftIO $ connectWindowActivate obj cb SignalConnectBefore-afterWindowActivate :: (GObject a, MonadIO m) => a -> WindowActivateCallback -> m SignalHandlerId-afterWindowActivate obj cb = connectWindowActivate obj cb SignalConnectAfter--connectWindowActivate :: (GObject a, MonadIO m) =>- a -> WindowActivateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowActivate obj cb after = liftIO $ do- cb' <- mkWindowActivateCallback (windowActivateCallbackWrapper cb)- connectSignalFunPtr obj "activate" cb' after---- signal Window::create-type WindowCreateCallback =- IO ()--noWindowCreateCallback :: Maybe WindowCreateCallback-noWindowCreateCallback = Nothing--type WindowCreateCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowCreateCallback :: WindowCreateCallbackC -> IO (FunPtr WindowCreateCallbackC)--windowCreateClosure :: WindowCreateCallback -> IO Closure-windowCreateClosure cb = newCClosure =<< mkWindowCreateCallback wrapped- where wrapped = windowCreateCallbackWrapper cb--windowCreateCallbackWrapper ::- WindowCreateCallback ->- Ptr () ->- Ptr () ->- IO ()-windowCreateCallbackWrapper _cb _ _ = do- _cb --onWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId-onWindowCreate obj cb = liftIO $ connectWindowCreate obj cb SignalConnectBefore-afterWindowCreate :: (GObject a, MonadIO m) => a -> WindowCreateCallback -> m SignalHandlerId-afterWindowCreate obj cb = connectWindowCreate obj cb SignalConnectAfter--connectWindowCreate :: (GObject a, MonadIO m) =>- a -> WindowCreateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowCreate obj cb after = liftIO $ do- cb' <- mkWindowCreateCallback (windowCreateCallbackWrapper cb)- connectSignalFunPtr obj "create" cb' after---- signal Window::deactivate-type WindowDeactivateCallback =- IO ()--noWindowDeactivateCallback :: Maybe WindowDeactivateCallback-noWindowDeactivateCallback = Nothing--type WindowDeactivateCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowDeactivateCallback :: WindowDeactivateCallbackC -> IO (FunPtr WindowDeactivateCallbackC)--windowDeactivateClosure :: WindowDeactivateCallback -> IO Closure-windowDeactivateClosure cb = newCClosure =<< mkWindowDeactivateCallback wrapped- where wrapped = windowDeactivateCallbackWrapper cb--windowDeactivateCallbackWrapper ::- WindowDeactivateCallback ->- Ptr () ->- Ptr () ->- IO ()-windowDeactivateCallbackWrapper _cb _ _ = do- _cb --onWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId-onWindowDeactivate obj cb = liftIO $ connectWindowDeactivate obj cb SignalConnectBefore-afterWindowDeactivate :: (GObject a, MonadIO m) => a -> WindowDeactivateCallback -> m SignalHandlerId-afterWindowDeactivate obj cb = connectWindowDeactivate obj cb SignalConnectAfter--connectWindowDeactivate :: (GObject a, MonadIO m) =>- a -> WindowDeactivateCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowDeactivate obj cb after = liftIO $ do- cb' <- mkWindowDeactivateCallback (windowDeactivateCallbackWrapper cb)- connectSignalFunPtr obj "deactivate" cb' after---- signal Window::destroy-type WindowDestroyCallback =- IO ()--noWindowDestroyCallback :: Maybe WindowDestroyCallback-noWindowDestroyCallback = Nothing--type WindowDestroyCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowDestroyCallback :: WindowDestroyCallbackC -> IO (FunPtr WindowDestroyCallbackC)--windowDestroyClosure :: WindowDestroyCallback -> IO Closure-windowDestroyClosure cb = newCClosure =<< mkWindowDestroyCallback wrapped- where wrapped = windowDestroyCallbackWrapper cb--windowDestroyCallbackWrapper ::- WindowDestroyCallback ->- Ptr () ->- Ptr () ->- IO ()-windowDestroyCallbackWrapper _cb _ _ = do- _cb --onWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId-onWindowDestroy obj cb = liftIO $ connectWindowDestroy obj cb SignalConnectBefore-afterWindowDestroy :: (GObject a, MonadIO m) => a -> WindowDestroyCallback -> m SignalHandlerId-afterWindowDestroy obj cb = connectWindowDestroy obj cb SignalConnectAfter--connectWindowDestroy :: (GObject a, MonadIO m) =>- a -> WindowDestroyCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowDestroy obj cb after = liftIO $ do- cb' <- mkWindowDestroyCallback (windowDestroyCallbackWrapper cb)- connectSignalFunPtr obj "destroy" cb' after---- signal Window::maximize-type WindowMaximizeCallback =- IO ()--noWindowMaximizeCallback :: Maybe WindowMaximizeCallback-noWindowMaximizeCallback = Nothing--type WindowMaximizeCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowMaximizeCallback :: WindowMaximizeCallbackC -> IO (FunPtr WindowMaximizeCallbackC)--windowMaximizeClosure :: WindowMaximizeCallback -> IO Closure-windowMaximizeClosure cb = newCClosure =<< mkWindowMaximizeCallback wrapped- where wrapped = windowMaximizeCallbackWrapper cb--windowMaximizeCallbackWrapper ::- WindowMaximizeCallback ->- Ptr () ->- Ptr () ->- IO ()-windowMaximizeCallbackWrapper _cb _ _ = do- _cb --onWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId-onWindowMaximize obj cb = liftIO $ connectWindowMaximize obj cb SignalConnectBefore-afterWindowMaximize :: (GObject a, MonadIO m) => a -> WindowMaximizeCallback -> m SignalHandlerId-afterWindowMaximize obj cb = connectWindowMaximize obj cb SignalConnectAfter--connectWindowMaximize :: (GObject a, MonadIO m) =>- a -> WindowMaximizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMaximize obj cb after = liftIO $ do- cb' <- mkWindowMaximizeCallback (windowMaximizeCallbackWrapper cb)- connectSignalFunPtr obj "maximize" cb' after---- signal Window::minimize-type WindowMinimizeCallback =- IO ()--noWindowMinimizeCallback :: Maybe WindowMinimizeCallback-noWindowMinimizeCallback = Nothing--type WindowMinimizeCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowMinimizeCallback :: WindowMinimizeCallbackC -> IO (FunPtr WindowMinimizeCallbackC)--windowMinimizeClosure :: WindowMinimizeCallback -> IO Closure-windowMinimizeClosure cb = newCClosure =<< mkWindowMinimizeCallback wrapped- where wrapped = windowMinimizeCallbackWrapper cb--windowMinimizeCallbackWrapper ::- WindowMinimizeCallback ->- Ptr () ->- Ptr () ->- IO ()-windowMinimizeCallbackWrapper _cb _ _ = do- _cb --onWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId-onWindowMinimize obj cb = liftIO $ connectWindowMinimize obj cb SignalConnectBefore-afterWindowMinimize :: (GObject a, MonadIO m) => a -> WindowMinimizeCallback -> m SignalHandlerId-afterWindowMinimize obj cb = connectWindowMinimize obj cb SignalConnectAfter--connectWindowMinimize :: (GObject a, MonadIO m) =>- a -> WindowMinimizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMinimize obj cb after = liftIO $ do- cb' <- mkWindowMinimizeCallback (windowMinimizeCallbackWrapper cb)- connectSignalFunPtr obj "minimize" cb' after---- signal Window::move-type WindowMoveCallback =- IO ()--noWindowMoveCallback :: Maybe WindowMoveCallback-noWindowMoveCallback = Nothing--type WindowMoveCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowMoveCallback :: WindowMoveCallbackC -> IO (FunPtr WindowMoveCallbackC)--windowMoveClosure :: WindowMoveCallback -> IO Closure-windowMoveClosure cb = newCClosure =<< mkWindowMoveCallback wrapped- where wrapped = windowMoveCallbackWrapper cb--windowMoveCallbackWrapper ::- WindowMoveCallback ->- Ptr () ->- Ptr () ->- IO ()-windowMoveCallbackWrapper _cb _ _ = do- _cb --onWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId-onWindowMove obj cb = liftIO $ connectWindowMove obj cb SignalConnectBefore-afterWindowMove :: (GObject a, MonadIO m) => a -> WindowMoveCallback -> m SignalHandlerId-afterWindowMove obj cb = connectWindowMove obj cb SignalConnectAfter--connectWindowMove :: (GObject a, MonadIO m) =>- a -> WindowMoveCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowMove obj cb after = liftIO $ do- cb' <- mkWindowMoveCallback (windowMoveCallbackWrapper cb)- connectSignalFunPtr obj "move" cb' after---- signal Window::resize-type WindowResizeCallback =- IO ()--noWindowResizeCallback :: Maybe WindowResizeCallback-noWindowResizeCallback = Nothing--type WindowResizeCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowResizeCallback :: WindowResizeCallbackC -> IO (FunPtr WindowResizeCallbackC)--windowResizeClosure :: WindowResizeCallback -> IO Closure-windowResizeClosure cb = newCClosure =<< mkWindowResizeCallback wrapped- where wrapped = windowResizeCallbackWrapper cb--windowResizeCallbackWrapper ::- WindowResizeCallback ->- Ptr () ->- Ptr () ->- IO ()-windowResizeCallbackWrapper _cb _ _ = do- _cb --onWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId-onWindowResize obj cb = liftIO $ connectWindowResize obj cb SignalConnectBefore-afterWindowResize :: (GObject a, MonadIO m) => a -> WindowResizeCallback -> m SignalHandlerId-afterWindowResize obj cb = connectWindowResize obj cb SignalConnectAfter--connectWindowResize :: (GObject a, MonadIO m) =>- a -> WindowResizeCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowResize obj cb after = liftIO $ do- cb' <- mkWindowResizeCallback (windowResizeCallbackWrapper cb)- connectSignalFunPtr obj "resize" cb' after---- signal Window::restore-type WindowRestoreCallback =- IO ()--noWindowRestoreCallback :: Maybe WindowRestoreCallback-noWindowRestoreCallback = Nothing--type WindowRestoreCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkWindowRestoreCallback :: WindowRestoreCallbackC -> IO (FunPtr WindowRestoreCallbackC)--windowRestoreClosure :: WindowRestoreCallback -> IO Closure-windowRestoreClosure cb = newCClosure =<< mkWindowRestoreCallback wrapped- where wrapped = windowRestoreCallbackWrapper cb--windowRestoreCallbackWrapper ::- WindowRestoreCallback ->- Ptr () ->- Ptr () ->- IO ()-windowRestoreCallbackWrapper _cb _ _ = do- _cb --onWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId-onWindowRestore obj cb = liftIO $ connectWindowRestore obj cb SignalConnectBefore-afterWindowRestore :: (GObject a, MonadIO m) => a -> WindowRestoreCallback -> m SignalHandlerId-afterWindowRestore obj cb = connectWindowRestore obj cb SignalConnectAfter--connectWindowRestore :: (GObject a, MonadIO m) =>- a -> WindowRestoreCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowRestore obj cb after = liftIO $ do- cb' <- mkWindowRestoreCallback (windowRestoreCallbackWrapper cb)- connectSignalFunPtr obj "restore" cb' after--type instance AttributeList Window = WindowAttributeList-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- type HaskellCallbackType WindowActivateSignalInfo = WindowActivateCallback- connectSignal _ = connectWindowActivate--data WindowCreateSignalInfo-instance SignalInfo WindowCreateSignalInfo where- type HaskellCallbackType WindowCreateSignalInfo = WindowCreateCallback- connectSignal _ = connectWindowCreate--data WindowDeactivateSignalInfo-instance SignalInfo WindowDeactivateSignalInfo where- type HaskellCallbackType WindowDeactivateSignalInfo = WindowDeactivateCallback- connectSignal _ = connectWindowDeactivate--data WindowDestroySignalInfo-instance SignalInfo WindowDestroySignalInfo where- type HaskellCallbackType WindowDestroySignalInfo = WindowDestroyCallback- connectSignal _ = connectWindowDestroy--data WindowMaximizeSignalInfo-instance SignalInfo WindowMaximizeSignalInfo where- type HaskellCallbackType WindowMaximizeSignalInfo = WindowMaximizeCallback- connectSignal _ = connectWindowMaximize--data WindowMinimizeSignalInfo-instance SignalInfo WindowMinimizeSignalInfo where- type HaskellCallbackType WindowMinimizeSignalInfo = WindowMinimizeCallback- connectSignal _ = connectWindowMinimize--data WindowMoveSignalInfo-instance SignalInfo WindowMoveSignalInfo where- type HaskellCallbackType WindowMoveSignalInfo = WindowMoveCallback- connectSignal _ = connectWindowMove--data WindowResizeSignalInfo-instance SignalInfo WindowResizeSignalInfo where- type HaskellCallbackType WindowResizeSignalInfo = WindowResizeCallback- connectSignal _ = connectWindowResize--data WindowRestoreSignalInfo-instance SignalInfo WindowRestoreSignalInfo where- type HaskellCallbackType WindowRestoreSignalInfo = WindowRestoreCallback- connectSignal _ = connectWindowRestore--type instance SignalList Window = WindowSignalList-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--type instance ParentTypes Window = WindowParentTypes-type WindowParentTypes = '[Object, GObject.Object]--instance GObject Window where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_window_get_type- --class GObject o => WindowK o-instance (GObject o, IsDescendantOf Window o) => WindowK o--toWindow :: WindowK o => o -> IO Window-toWindow = unsafeCastTo Window--
− GI/Atk/Interfaces/Window.hs-boot
@@ -1,22 +0,0 @@-module GI.Atk.Interfaces.Window where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Window = Window (ForeignPtr Window)-data WindowActivateSignalInfo-data WindowCreateSignalInfo-data WindowDeactivateSignalInfo-data WindowDestroySignalInfo-data WindowMaximizeSignalInfo-data WindowMinimizeSignalInfo-data WindowMoveSignalInfo-data WindowResizeSignalInfo-data WindowRestoreSignalInfo-instance GObject Window where-class GObject o => WindowK o-instance (GObject o, IsDescendantOf Window o) => WindowK o
− GI/Atk/Objects.hs
@@ -1,53 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects- ( module GI.Atk.Objects.GObjectAccessible ,- module GI.Atk.Objects.Hyperlink ,- module GI.Atk.Objects.Misc ,- module GI.Atk.Objects.NoOpObject ,- module GI.Atk.Objects.NoOpObjectFactory ,- module GI.Atk.Objects.Object ,- module GI.Atk.Objects.ObjectFactory ,- module GI.Atk.Objects.Plug ,- module GI.Atk.Objects.Registry ,- module GI.Atk.Objects.Relation ,- module GI.Atk.Objects.RelationSet ,- module GI.Atk.Objects.Socket ,- module GI.Atk.Objects.StateSet ,- module GI.Atk.Objects.Util ,--- ) where--import GI.Atk.Objects.GObjectAccessible-import GI.Atk.Objects.Hyperlink-import GI.Atk.Objects.Misc-import GI.Atk.Objects.NoOpObject-import GI.Atk.Objects.NoOpObjectFactory-import GI.Atk.Objects.Object-import GI.Atk.Objects.ObjectFactory-import GI.Atk.Objects.Plug-import GI.Atk.Objects.Registry-import GI.Atk.Objects.Relation-import GI.Atk.Objects.RelationSet-import GI.Atk.Objects.Socket-import GI.Atk.Objects.StateSet-import GI.Atk.Objects.Util--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--
− GI/Atk/Objects/GObjectAccessible.hs
@@ -1,182 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.GObjectAccessible- ( ---- * Exported types- GObjectAccessible(..) ,- GObjectAccessibleK ,- toGObjectAccessible ,- noGObjectAccessible ,--- -- * Methods--- ** gObjectAccessibleForObject- gObjectAccessibleForObject ,----- ** gObjectAccessibleGetObject- GObjectAccessibleGetObjectMethodInfo ,- gObjectAccessibleGetObject ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible)-foreign import ccall "atk_gobject_accessible_get_type"- c_atk_gobject_accessible_get_type :: IO GType--type instance ParentTypes GObjectAccessible = GObjectAccessibleParentTypes-type GObjectAccessibleParentTypes = '[Object, GObject.Object]--instance GObject GObjectAccessible where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_gobject_accessible_get_type- --class GObject o => GObjectAccessibleK o-instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o--toGObjectAccessible :: GObjectAccessibleK o => o -> IO GObjectAccessible-toGObjectAccessible = unsafeCastTo GObjectAccessible--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 = ('[ '("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 = ('[ '("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 {argCName = "_obj", argType = TInterface "Atk" "GObjectAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_gobject_accessible_get_object" atk_gobject_accessible_get_object :: - Ptr GObjectAccessible -> -- _obj : TInterface "Atk" "GObjectAccessible"- IO (Ptr GObject.Object)---gObjectAccessibleGetObject ::- (MonadIO m, GObjectAccessibleK a) =>- a -- _obj- -> m GObject.Object -- result-gObjectAccessibleGetObject _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_gobject_accessible_get_object _obj'- checkUnexpectedReturnNULL "atk_gobject_accessible_get_object" result- result' <- (newObject GObject.Object) result- 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 {argCName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_gobject_accessible_for_object" atk_gobject_accessible_for_object :: - Ptr GObject.Object -> -- obj : TInterface "GObject" "Object"- IO (Ptr Object)---gObjectAccessibleForObject ::- (MonadIO m, GObject.ObjectK a) =>- a -- obj- -> m Object -- result-gObjectAccessibleForObject obj = liftIO $ do- let obj' = unsafeManagedPtrCastPtr obj- result <- atk_gobject_accessible_for_object obj'- checkUnexpectedReturnNULL "atk_gobject_accessible_for_object" result- result' <- (newObject Object) result- touchManagedPtr obj- return result'--
− GI/Atk/Objects/GObjectAccessible.hs-boot
@@ -1,14 +0,0 @@-module GI.Atk.Objects.GObjectAccessible where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GObjectAccessible = GObjectAccessible (ForeignPtr GObjectAccessible)-instance GObject GObjectAccessible where-class GObject o => GObjectAccessibleK o-instance (GObject o, IsDescendantOf GObjectAccessible o) => GObjectAccessibleK o-data GObjectAccessibleGetObjectMethodInfo
− GI/Atk/Objects/Hyperlink.hs
@@ -1,555 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Hyperlink- ( ---- * Exported types- Hyperlink(..) ,- HyperlinkK ,- toHyperlink ,- noHyperlink ,--- -- * 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 ,----- -- * Properties--- ** EndIndex- HyperlinkEndIndexPropertyInfo ,- getHyperlinkEndIndex ,- hyperlinkEndIndex ,----- ** NumberOfAnchors- HyperlinkNumberOfAnchorsPropertyInfo ,- getHyperlinkNumberOfAnchors ,- hyperlinkNumberOfAnchors ,----- ** SelectedLink- HyperlinkSelectedLinkPropertyInfo ,- getHyperlinkSelectedLink ,- hyperlinkSelectedLink ,----- ** StartIndex- HyperlinkStartIndexPropertyInfo ,- getHyperlinkStartIndex ,- hyperlinkStartIndex ,----- -- * Signals--- ** LinkActivated- HyperlinkLinkActivatedCallback ,- HyperlinkLinkActivatedCallbackC ,- HyperlinkLinkActivatedSignalInfo ,- afterHyperlinkLinkActivated ,- hyperlinkLinkActivatedCallbackWrapper ,- hyperlinkLinkActivatedClosure ,- mkHyperlinkLinkActivatedCallback ,- noHyperlinkLinkActivatedCallback ,- onHyperlinkLinkActivated ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink)-foreign import ccall "atk_hyperlink_get_type"- c_atk_hyperlink_get_type :: IO GType--type instance ParentTypes Hyperlink = HyperlinkParentTypes-type HyperlinkParentTypes = '[GObject.Object, Action]--instance GObject Hyperlink where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_hyperlink_get_type- --class GObject o => HyperlinkK o-instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o--toHyperlink :: HyperlinkK o => o -> IO Hyperlink-toHyperlink = unsafeCastTo Hyperlink--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 ()--noHyperlinkLinkActivatedCallback :: Maybe HyperlinkLinkActivatedCallback-noHyperlinkLinkActivatedCallback = Nothing--type HyperlinkLinkActivatedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkHyperlinkLinkActivatedCallback :: HyperlinkLinkActivatedCallbackC -> IO (FunPtr HyperlinkLinkActivatedCallbackC)--hyperlinkLinkActivatedClosure :: HyperlinkLinkActivatedCallback -> IO Closure-hyperlinkLinkActivatedClosure cb = newCClosure =<< mkHyperlinkLinkActivatedCallback wrapped- where wrapped = hyperlinkLinkActivatedCallbackWrapper cb--hyperlinkLinkActivatedCallbackWrapper ::- HyperlinkLinkActivatedCallback ->- Ptr () ->- Ptr () ->- IO ()-hyperlinkLinkActivatedCallbackWrapper _cb _ _ = do- _cb --onHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId-onHyperlinkLinkActivated obj cb = liftIO $ connectHyperlinkLinkActivated obj cb SignalConnectBefore-afterHyperlinkLinkActivated :: (GObject a, MonadIO m) => a -> HyperlinkLinkActivatedCallback -> m SignalHandlerId-afterHyperlinkLinkActivated obj cb = connectHyperlinkLinkActivated obj cb SignalConnectAfter--connectHyperlinkLinkActivated :: (GObject a, MonadIO m) =>- a -> HyperlinkLinkActivatedCallback -> SignalConnectMode -> m SignalHandlerId-connectHyperlinkLinkActivated obj cb after = liftIO $ do- cb' <- mkHyperlinkLinkActivatedCallback (hyperlinkLinkActivatedCallbackWrapper cb)- connectSignalFunPtr obj "link-activated" cb' after---- VVV Prop "end-index"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Just False,Nothing)--getHyperlinkEndIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkEndIndex obj = liftIO $ getObjectPropertyInt32 obj "end-index"--data HyperlinkEndIndexPropertyInfo-instance AttrInfo HyperlinkEndIndexPropertyInfo where- type AttrAllowedOps HyperlinkEndIndexPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint HyperlinkEndIndexPropertyInfo = (~) ()- type AttrBaseTypeConstraint HyperlinkEndIndexPropertyInfo = HyperlinkK- type AttrGetType HyperlinkEndIndexPropertyInfo = Int32- type AttrLabel HyperlinkEndIndexPropertyInfo = "end-index"- attrGet _ = getHyperlinkEndIndex- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "number-of-anchors"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Nothing,Nothing)--getHyperlinkNumberOfAnchors :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkNumberOfAnchors obj = liftIO $ getObjectPropertyInt32 obj "number-of-anchors"--data HyperlinkNumberOfAnchorsPropertyInfo-instance AttrInfo HyperlinkNumberOfAnchorsPropertyInfo where- type AttrAllowedOps HyperlinkNumberOfAnchorsPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = (~) ()- type AttrBaseTypeConstraint HyperlinkNumberOfAnchorsPropertyInfo = HyperlinkK- type AttrGetType HyperlinkNumberOfAnchorsPropertyInfo = Int32- type AttrLabel HyperlinkNumberOfAnchorsPropertyInfo = "number-of-anchors"- attrGet _ = getHyperlinkNumberOfAnchors- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "selected-link"- -- Type: TBasicType TBoolean- -- Flags: [PropertyReadable]- -- Nullable: (Nothing,Nothing)--getHyperlinkSelectedLink :: (MonadIO m, HyperlinkK o) => o -> m Bool-getHyperlinkSelectedLink obj = liftIO $ getObjectPropertyBool obj "selected-link"--data HyperlinkSelectedLinkPropertyInfo-instance AttrInfo HyperlinkSelectedLinkPropertyInfo where- type AttrAllowedOps HyperlinkSelectedLinkPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint HyperlinkSelectedLinkPropertyInfo = (~) ()- type AttrBaseTypeConstraint HyperlinkSelectedLinkPropertyInfo = HyperlinkK- type AttrGetType HyperlinkSelectedLinkPropertyInfo = Bool- type AttrLabel HyperlinkSelectedLinkPropertyInfo = "selected-link"- attrGet _ = getHyperlinkSelectedLink- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "start-index"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Just False,Nothing)--getHyperlinkStartIndex :: (MonadIO m, HyperlinkK o) => o -> m Int32-getHyperlinkStartIndex obj = liftIO $ getObjectPropertyInt32 obj "start-index"--data HyperlinkStartIndexPropertyInfo-instance AttrInfo HyperlinkStartIndexPropertyInfo where- type AttrAllowedOps HyperlinkStartIndexPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint HyperlinkStartIndexPropertyInfo = (~) ()- type AttrBaseTypeConstraint HyperlinkStartIndexPropertyInfo = HyperlinkK- type AttrGetType HyperlinkStartIndexPropertyInfo = Int32- type AttrLabel HyperlinkStartIndexPropertyInfo = "start-index"- attrGet _ = getHyperlinkStartIndex- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined--type instance AttributeList Hyperlink = HyperlinkAttributeList-type HyperlinkAttributeList = ('[ '("endIndex", HyperlinkEndIndexPropertyInfo), '("numberOfAnchors", HyperlinkNumberOfAnchorsPropertyInfo), '("selectedLink", HyperlinkSelectedLinkPropertyInfo), '("startIndex", HyperlinkStartIndexPropertyInfo)] :: [(Symbol, *)])--hyperlinkEndIndex :: AttrLabelProxy "endIndex"-hyperlinkEndIndex = AttrLabelProxy--hyperlinkNumberOfAnchors :: AttrLabelProxy "numberOfAnchors"-hyperlinkNumberOfAnchors = AttrLabelProxy--hyperlinkSelectedLink :: AttrLabelProxy "selectedLink"-hyperlinkSelectedLink = AttrLabelProxy--hyperlinkStartIndex :: AttrLabelProxy "startIndex"-hyperlinkStartIndex = AttrLabelProxy--data HyperlinkLinkActivatedSignalInfo-instance SignalInfo HyperlinkLinkActivatedSignalInfo where- type HaskellCallbackType HyperlinkLinkActivatedSignalInfo = HyperlinkLinkActivatedCallback- connectSignal _ = connectHyperlinkLinkActivated--type instance SignalList Hyperlink = HyperlinkSignalList-type HyperlinkSignalList = ('[ '("linkActivated", HyperlinkLinkActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Hyperlink::get_end_index--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_end_index" atk_hyperlink_get_end_index :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO Int32---hyperlinkGetEndIndex ::- (MonadIO m, HyperlinkK a) =>- 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 {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_n_anchors" atk_hyperlink_get_n_anchors :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO Int32---hyperlinkGetNAnchors ::- (MonadIO m, HyperlinkK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_object" atk_hyperlink_get_object :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- Int32 -> -- i : TBasicType TInt- IO (Ptr Object)---hyperlinkGetObject ::- (MonadIO m, HyperlinkK a) =>- a -- _obj- -> Int32 -- i- -> m Object -- result-hyperlinkGetObject _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_hyperlink_get_object _obj' i- checkUnexpectedReturnNULL "atk_hyperlink_get_object" result- result' <- (newObject Object) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_start_index" atk_hyperlink_get_start_index :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO Int32---hyperlinkGetStartIndex ::- (MonadIO m, HyperlinkK a) =>- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_get_uri" atk_hyperlink_get_uri :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- Int32 -> -- i : TBasicType TInt- IO CString---hyperlinkGetUri ::- (MonadIO m, HyperlinkK a) =>- a -- _obj- -> Int32 -- i- -> m T.Text -- result-hyperlinkGetUri _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_hyperlink_get_uri _obj' i- checkUnexpectedReturnNULL "atk_hyperlink_get_uri" result- result' <- cstringToText result- freeMem result- 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 {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_inline" atk_hyperlink_is_inline :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO CInt---hyperlinkIsInline ::- (MonadIO m, HyperlinkK a) =>- a -- _obj- -> m Bool -- result-hyperlinkIsInline _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_hyperlink_is_inline _obj'- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_selected_link" atk_hyperlink_is_selected_link :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO CInt--{-# 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 -- result-hyperlinkIsSelectedLink _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_hyperlink_is_selected_link _obj'- let result' = (/= 0) result- 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 {argCName = "_obj", argType = TInterface "Atk" "Hyperlink", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_hyperlink_is_valid" atk_hyperlink_is_valid :: - Ptr Hyperlink -> -- _obj : TInterface "Atk" "Hyperlink"- IO CInt---hyperlinkIsValid ::- (MonadIO m, HyperlinkK a) =>- 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--
− GI/Atk/Objects/Hyperlink.hs-boot
@@ -1,26 +0,0 @@-module GI.Atk.Objects.Hyperlink where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Hyperlink = Hyperlink (ForeignPtr Hyperlink)-instance GObject Hyperlink where-class GObject o => HyperlinkK o-instance (GObject o, IsDescendantOf Hyperlink o) => HyperlinkK o-data HyperlinkEndIndexPropertyInfo-data HyperlinkNumberOfAnchorsPropertyInfo-data HyperlinkSelectedLinkPropertyInfo-data HyperlinkStartIndexPropertyInfo-data HyperlinkLinkActivatedSignalInfo-data HyperlinkGetEndIndexMethodInfo-data HyperlinkGetNAnchorsMethodInfo-data HyperlinkGetObjectMethodInfo-data HyperlinkGetStartIndexMethodInfo-data HyperlinkGetUriMethodInfo-data HyperlinkIsInlineMethodInfo-data HyperlinkIsSelectedLinkMethodInfo-data HyperlinkIsValidMethodInfo
− GI/Atk/Objects/Misc.hs
@@ -1,186 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Misc- ( ---- * Exported types- Misc(..) ,- MiscK ,- toMisc ,- noMisc ,--- -- * Methods--- ** miscGetInstance- miscGetInstance ,----- ** miscThreadsEnter- MiscThreadsEnterMethodInfo ,- miscThreadsEnter ,----- ** miscThreadsLeave- MiscThreadsLeaveMethodInfo ,- miscThreadsLeave ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Misc = Misc (ForeignPtr Misc)-foreign import ccall "atk_misc_get_type"- c_atk_misc_get_type :: IO GType--type instance ParentTypes Misc = MiscParentTypes-type MiscParentTypes = '[GObject.Object]--instance GObject Misc where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_misc_get_type- --class GObject o => MiscK o-instance (GObject o, IsDescendantOf Misc o) => MiscK o--toMisc :: MiscK o => o -> IO Misc-toMisc = unsafeCastTo Misc--noMisc :: Maybe Misc-noMisc = Nothing--type family ResolveMiscMethod (t :: Symbol) (o :: *) :: * where- ResolveMiscMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveMiscMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveMiscMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveMiscMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveMiscMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveMiscMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveMiscMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveMiscMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveMiscMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveMiscMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveMiscMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveMiscMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveMiscMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveMiscMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveMiscMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveMiscMethod "threadsEnter" o = MiscThreadsEnterMethodInfo- ResolveMiscMethod "threadsLeave" o = MiscThreadsLeaveMethodInfo- ResolveMiscMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveMiscMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveMiscMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveMiscMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveMiscMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveMiscMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveMiscMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveMiscMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMiscMethod t Misc, MethodInfo info Misc p) => IsLabelProxy t (Misc -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMiscMethod t Misc, MethodInfo info Misc p) => IsLabel t (Misc -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Misc = MiscAttributeList-type MiscAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Misc = MiscSignalList-type MiscSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Misc::threads_enter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_misc_threads_enter" atk_misc_threads_enter :: - Ptr Misc -> -- _obj : TInterface "Atk" "Misc"- IO ()--{-# DEPRECATED miscThreadsEnter ["Since 2.12."]#-}-miscThreadsEnter ::- (MonadIO m, MiscK a) =>- a -- _obj- -> m () -- result-miscThreadsEnter _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_misc_threads_enter _obj'- touchManagedPtr _obj- return ()--data MiscThreadsEnterMethodInfo-instance (signature ~ (m ()), MonadIO m, MiscK a) => MethodInfo MiscThreadsEnterMethodInfo a signature where- overloadedMethod _ = miscThreadsEnter---- method Misc::threads_leave--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_misc_threads_leave" atk_misc_threads_leave :: - Ptr Misc -> -- _obj : TInterface "Atk" "Misc"- IO ()--{-# DEPRECATED miscThreadsLeave ["Since 2.12."]#-}-miscThreadsLeave ::- (MonadIO m, MiscK a) =>- a -- _obj- -> m () -- result-miscThreadsLeave _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_misc_threads_leave _obj'- touchManagedPtr _obj- return ()--data MiscThreadsLeaveMethodInfo-instance (signature ~ (m ()), MonadIO m, MiscK a) => MethodInfo MiscThreadsLeaveMethodInfo a signature where- overloadedMethod _ = miscThreadsLeave---- method Misc::get_instance--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Misc")--- throws : False--- Skip return : False--foreign import ccall "atk_misc_get_instance" atk_misc_get_instance :: - IO (Ptr Misc)--{-# DEPRECATED miscGetInstance ["Since 2.12."]#-}-miscGetInstance ::- (MonadIO m) =>- m Misc -- result-miscGetInstance = liftIO $ do- result <- atk_misc_get_instance- checkUnexpectedReturnNULL "atk_misc_get_instance" result- result' <- (newObject Misc) result- return result'--
− GI/Atk/Objects/Misc.hs-boot
@@ -1,15 +0,0 @@-module GI.Atk.Objects.Misc where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Misc = Misc (ForeignPtr Misc)-instance GObject Misc where-class GObject o => MiscK o-instance (GObject o, IsDescendantOf Misc o) => MiscK o-data MiscThreadsEnterMethodInfo-data MiscThreadsLeaveMethodInfo
− GI/Atk/Objects/NoOpObject.hs
@@ -1,245 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.NoOpObject- ( ---- * Exported types- NoOpObject(..) ,- NoOpObjectK ,- toNoOpObject ,- noNoOpObject ,--- -- * Methods--- ** noOpObjectNew- noOpObjectNew ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject)-foreign import ccall "atk_no_op_object_get_type"- c_atk_no_op_object_get_type :: IO GType--type instance ParentTypes NoOpObject = NoOpObjectParentTypes-type NoOpObjectParentTypes = '[Object, GObject.Object, Action, Component, Document, EditableText, Hypertext, Image, Selection, Table, TableCell, Text, Value, Window]--instance GObject NoOpObject where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_no_op_object_get_type- --class GObject o => NoOpObjectK o-instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o--toNoOpObject :: NoOpObjectK o => o -> IO NoOpObject-toNoOpObject = unsafeCastTo NoOpObject--noNoOpObject :: Maybe NoOpObject-noNoOpObject = Nothing--type family ResolveNoOpObjectMethod (t :: Symbol) (o :: *) :: * where- ResolveNoOpObjectMethod "addColumnSelection" o = TableAddColumnSelectionMethodInfo- ResolveNoOpObjectMethod "addRelationship" o = ObjectAddRelationshipMethodInfo- ResolveNoOpObjectMethod "addRowSelection" o = TableAddRowSelectionMethodInfo- ResolveNoOpObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveNoOpObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveNoOpObjectMethod "clearSelection" o = SelectionClearSelectionMethodInfo- ResolveNoOpObjectMethod "contains" o = ComponentContainsMethodInfo- ResolveNoOpObjectMethod "copyText" o = EditableTextCopyTextMethodInfo- ResolveNoOpObjectMethod "cutText" o = EditableTextCutTextMethodInfo- ResolveNoOpObjectMethod "deleteText" o = EditableTextDeleteTextMethodInfo- ResolveNoOpObjectMethod "doAction" o = ActionDoActionMethodInfo- ResolveNoOpObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveNoOpObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveNoOpObjectMethod "grabFocus" o = ComponentGrabFocusMethodInfo- ResolveNoOpObjectMethod "initialize" o = ObjectInitializeMethodInfo- ResolveNoOpObjectMethod "insertText" o = EditableTextInsertTextMethodInfo- ResolveNoOpObjectMethod "isChildSelected" o = SelectionIsChildSelectedMethodInfo- ResolveNoOpObjectMethod "isColumnSelected" o = TableIsColumnSelectedMethodInfo- ResolveNoOpObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveNoOpObjectMethod "isRowSelected" o = TableIsRowSelectedMethodInfo- ResolveNoOpObjectMethod "isSelected" o = TableIsSelectedMethodInfo- ResolveNoOpObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveNoOpObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveNoOpObjectMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo- ResolveNoOpObjectMethod "pasteText" o = EditableTextPasteTextMethodInfo- ResolveNoOpObjectMethod "peekParent" o = ObjectPeekParentMethodInfo- ResolveNoOpObjectMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveNoOpObjectMethod "refAccessibleAtPoint" o = ComponentRefAccessibleAtPointMethodInfo- ResolveNoOpObjectMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo- ResolveNoOpObjectMethod "refAt" o = TableRefAtMethodInfo- ResolveNoOpObjectMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo- ResolveNoOpObjectMethod "refSelection" o = SelectionRefSelectionMethodInfo- ResolveNoOpObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveNoOpObjectMethod "refStateSet" o = ObjectRefStateSetMethodInfo- ResolveNoOpObjectMethod "removeColumnSelection" o = TableRemoveColumnSelectionMethodInfo- ResolveNoOpObjectMethod "removeFocusHandler" o = ComponentRemoveFocusHandlerMethodInfo- ResolveNoOpObjectMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo- ResolveNoOpObjectMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo- ResolveNoOpObjectMethod "removeRowSelection" o = TableRemoveRowSelectionMethodInfo- ResolveNoOpObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveNoOpObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveNoOpObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveNoOpObjectMethod "selectAllSelection" o = SelectionSelectAllSelectionMethodInfo- ResolveNoOpObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveNoOpObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveNoOpObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveNoOpObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveNoOpObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveNoOpObjectMethod "getAlpha" o = ComponentGetAlphaMethodInfo- ResolveNoOpObjectMethod "getAttributeValue" o = DocumentGetAttributeValueMethodInfo- ResolveNoOpObjectMethod "getBoundedRanges" o = TextGetBoundedRangesMethodInfo- ResolveNoOpObjectMethod "getCaption" o = TableGetCaptionMethodInfo- ResolveNoOpObjectMethod "getCaretOffset" o = TextGetCaretOffsetMethodInfo- ResolveNoOpObjectMethod "getCharacterAtOffset" o = TextGetCharacterAtOffsetMethodInfo- ResolveNoOpObjectMethod "getCharacterCount" o = TextGetCharacterCountMethodInfo- ResolveNoOpObjectMethod "getCharacterExtents" o = TextGetCharacterExtentsMethodInfo- ResolveNoOpObjectMethod "getColumnAtIndex" o = TableGetColumnAtIndexMethodInfo- ResolveNoOpObjectMethod "getColumnDescription" o = TableGetColumnDescriptionMethodInfo- ResolveNoOpObjectMethod "getColumnExtentAt" o = TableGetColumnExtentAtMethodInfo- ResolveNoOpObjectMethod "getColumnHeader" o = TableGetColumnHeaderMethodInfo- ResolveNoOpObjectMethod "getColumnHeaderCells" o = TableCellGetColumnHeaderCellsMethodInfo- ResolveNoOpObjectMethod "getColumnSpan" o = TableCellGetColumnSpanMethodInfo- ResolveNoOpObjectMethod "getCurrentPageNumber" o = DocumentGetCurrentPageNumberMethodInfo- ResolveNoOpObjectMethod "getCurrentValue" o = ValueGetCurrentValueMethodInfo- ResolveNoOpObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveNoOpObjectMethod "getDefaultAttributes" o = TextGetDefaultAttributesMethodInfo- ResolveNoOpObjectMethod "getDocument" o = DocumentGetDocumentMethodInfo- ResolveNoOpObjectMethod "getDocumentType" o = DocumentGetDocumentTypeMethodInfo- ResolveNoOpObjectMethod "getExtents" o = ComponentGetExtentsMethodInfo- ResolveNoOpObjectMethod "getImageDescription" o = ImageGetImageDescriptionMethodInfo- ResolveNoOpObjectMethod "getImageLocale" o = ImageGetImageLocaleMethodInfo- ResolveNoOpObjectMethod "getImagePosition" o = ImageGetImagePositionMethodInfo- ResolveNoOpObjectMethod "getImageSize" o = ImageGetImageSizeMethodInfo- ResolveNoOpObjectMethod "getIncrement" o = ValueGetIncrementMethodInfo- ResolveNoOpObjectMethod "getIndexAt" o = TableGetIndexAtMethodInfo- ResolveNoOpObjectMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo- ResolveNoOpObjectMethod "getKeybinding" o = ActionGetKeybindingMethodInfo- ResolveNoOpObjectMethod "getLink" o = HypertextGetLinkMethodInfo- ResolveNoOpObjectMethod "getLinkIndex" o = HypertextGetLinkIndexMethodInfo- ResolveNoOpObjectMethod "getLocale" o = DocumentGetLocaleMethodInfo- ResolveNoOpObjectMethod "getLocalizedName" o = ActionGetLocalizedNameMethodInfo- ResolveNoOpObjectMethod "getMaximumValue" o = ValueGetMaximumValueMethodInfo- ResolveNoOpObjectMethod "getMinimumIncrement" o = ValueGetMinimumIncrementMethodInfo- ResolveNoOpObjectMethod "getMinimumValue" o = ValueGetMinimumValueMethodInfo- ResolveNoOpObjectMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo- ResolveNoOpObjectMethod "getNActions" o = ActionGetNActionsMethodInfo- ResolveNoOpObjectMethod "getNColumns" o = TableGetNColumnsMethodInfo- ResolveNoOpObjectMethod "getNLinks" o = HypertextGetNLinksMethodInfo- ResolveNoOpObjectMethod "getNRows" o = TableGetNRowsMethodInfo- ResolveNoOpObjectMethod "getNSelections" o = TextGetNSelectionsMethodInfo- ResolveNoOpObjectMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo- ResolveNoOpObjectMethod "getOffsetAtPoint" o = TextGetOffsetAtPointMethodInfo- ResolveNoOpObjectMethod "getPageCount" o = DocumentGetPageCountMethodInfo- ResolveNoOpObjectMethod "getParent" o = ObjectGetParentMethodInfo- ResolveNoOpObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveNoOpObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveNoOpObjectMethod "getRange" o = ValueGetRangeMethodInfo- ResolveNoOpObjectMethod "getRangeExtents" o = TextGetRangeExtentsMethodInfo- ResolveNoOpObjectMethod "getRole" o = ObjectGetRoleMethodInfo- ResolveNoOpObjectMethod "getRowAtIndex" o = TableGetRowAtIndexMethodInfo- ResolveNoOpObjectMethod "getRowColumnSpan" o = TableCellGetRowColumnSpanMethodInfo- ResolveNoOpObjectMethod "getRowDescription" o = TableGetRowDescriptionMethodInfo- ResolveNoOpObjectMethod "getRowExtentAt" o = TableGetRowExtentAtMethodInfo- ResolveNoOpObjectMethod "getRowHeader" o = TableGetRowHeaderMethodInfo- ResolveNoOpObjectMethod "getRowHeaderCells" o = TableCellGetRowHeaderCellsMethodInfo- ResolveNoOpObjectMethod "getRowSpan" o = TableCellGetRowSpanMethodInfo- ResolveNoOpObjectMethod "getRunAttributes" o = TextGetRunAttributesMethodInfo- ResolveNoOpObjectMethod "getSelectedColumns" o = TableGetSelectedColumnsMethodInfo- ResolveNoOpObjectMethod "getSelectedRows" o = TableGetSelectedRowsMethodInfo- ResolveNoOpObjectMethod "getSelection" o = TextGetSelectionMethodInfo- ResolveNoOpObjectMethod "getSelectionCount" o = SelectionGetSelectionCountMethodInfo- ResolveNoOpObjectMethod "getSize" o = ComponentGetSizeMethodInfo- ResolveNoOpObjectMethod "getStringAtOffset" o = TextGetStringAtOffsetMethodInfo- ResolveNoOpObjectMethod "getSubRanges" o = ValueGetSubRangesMethodInfo- ResolveNoOpObjectMethod "getSummary" o = TableGetSummaryMethodInfo- ResolveNoOpObjectMethod "getTable" o = TableCellGetTableMethodInfo- ResolveNoOpObjectMethod "getText" o = TextGetTextMethodInfo- ResolveNoOpObjectMethod "getTextAfterOffset" o = TextGetTextAfterOffsetMethodInfo- ResolveNoOpObjectMethod "getTextAtOffset" o = TextGetTextAtOffsetMethodInfo- ResolveNoOpObjectMethod "getTextBeforeOffset" o = TextGetTextBeforeOffsetMethodInfo- ResolveNoOpObjectMethod "getValueAndText" o = ValueGetValueAndTextMethodInfo- ResolveNoOpObjectMethod "setAttributeValue" o = DocumentSetAttributeValueMethodInfo- ResolveNoOpObjectMethod "setCaption" o = TableSetCaptionMethodInfo- ResolveNoOpObjectMethod "setCaretOffset" o = TextSetCaretOffsetMethodInfo- ResolveNoOpObjectMethod "setColumnDescription" o = TableSetColumnDescriptionMethodInfo- ResolveNoOpObjectMethod "setColumnHeader" o = TableSetColumnHeaderMethodInfo- ResolveNoOpObjectMethod "setCurrentValue" o = ValueSetCurrentValueMethodInfo- ResolveNoOpObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveNoOpObjectMethod "setExtents" o = ComponentSetExtentsMethodInfo- ResolveNoOpObjectMethod "setImageDescription" o = ImageSetImageDescriptionMethodInfo- ResolveNoOpObjectMethod "setName" o = ObjectSetNameMethodInfo- ResolveNoOpObjectMethod "setParent" o = ObjectSetParentMethodInfo- ResolveNoOpObjectMethod "setPosition" o = ComponentSetPositionMethodInfo- ResolveNoOpObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveNoOpObjectMethod "setRole" o = ObjectSetRoleMethodInfo- ResolveNoOpObjectMethod "setRowDescription" o = TableSetRowDescriptionMethodInfo- ResolveNoOpObjectMethod "setRowHeader" o = TableSetRowHeaderMethodInfo- ResolveNoOpObjectMethod "setRunAttributes" o = EditableTextSetRunAttributesMethodInfo- ResolveNoOpObjectMethod "setSelection" o = TextSetSelectionMethodInfo- ResolveNoOpObjectMethod "setSize" o = ComponentSetSizeMethodInfo- ResolveNoOpObjectMethod "setSummary" o = TableSetSummaryMethodInfo- ResolveNoOpObjectMethod "setTextContents" o = EditableTextSetTextContentsMethodInfo- ResolveNoOpObjectMethod "setValue" o = ValueSetValueMethodInfo- ResolveNoOpObjectMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNoOpObjectMethod t NoOpObject, MethodInfo info NoOpObject p) => IsLabelProxy t (NoOpObject -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNoOpObjectMethod t NoOpObject, MethodInfo info NoOpObject p) => IsLabel t (NoOpObject -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList NoOpObject = NoOpObjectAttributeList-type NoOpObjectAttributeList = ('[ '("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 NoOpObject = NoOpObjectSignalList-type NoOpObjectSignalList = ('[ '("activate", WindowActivateSignalInfo), '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", ComponentBoundsChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("columnDeleted", TableColumnDeletedSignalInfo), '("columnInserted", TableColumnInsertedSignalInfo), '("columnReordered", TableColumnReorderedSignalInfo), '("create", WindowCreateSignalInfo), '("deactivate", WindowDeactivateSignalInfo), '("destroy", WindowDestroySignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("linkSelected", HypertextLinkSelectedSignalInfo), '("loadComplete", DocumentLoadCompleteSignalInfo), '("loadStopped", DocumentLoadStoppedSignalInfo), '("maximize", WindowMaximizeSignalInfo), '("minimize", WindowMinimizeSignalInfo), '("modelChanged", TableModelChangedSignalInfo), '("move", WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pageChanged", DocumentPageChangedSignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("reload", DocumentReloadSignalInfo), '("resize", WindowResizeSignalInfo), '("restore", WindowRestoreSignalInfo), '("rowDeleted", TableRowDeletedSignalInfo), '("rowInserted", TableRowInsertedSignalInfo), '("rowReordered", TableRowReorderedSignalInfo), '("selectionChanged", SelectionSelectionChangedSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("textAttributesChanged", TextTextAttributesChangedSignalInfo), '("textCaretMoved", TextTextCaretMovedSignalInfo), '("textChanged", TextTextChangedSignalInfo), '("textInsert", TextTextInsertSignalInfo), '("textRemove", TextTextRemoveSignalInfo), '("textSelectionChanged", TextTextSelectionChangedSignalInfo), '("valueChanged", ValueValueChangedSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])---- method NoOpObject::new--- method type : Constructor--- Args : [Arg {argCName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "NoOpObject")--- throws : False--- Skip return : False--foreign import ccall "atk_no_op_object_new" atk_no_op_object_new :: - Ptr GObject.Object -> -- obj : TInterface "GObject" "Object"- IO (Ptr NoOpObject)---noOpObjectNew ::- (MonadIO m, GObject.ObjectK a) =>- a -- obj- -> m NoOpObject -- result-noOpObjectNew obj = liftIO $ do- let obj' = unsafeManagedPtrCastPtr obj- result <- atk_no_op_object_new obj'- checkUnexpectedReturnNULL "atk_no_op_object_new" result- result' <- (wrapObject NoOpObject) result- touchManagedPtr obj- return result'--
− GI/Atk/Objects/NoOpObject.hs-boot
@@ -1,13 +0,0 @@-module GI.Atk.Objects.NoOpObject where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NoOpObject = NoOpObject (ForeignPtr NoOpObject)-instance GObject NoOpObject where-class GObject o => NoOpObjectK o-instance (GObject o, IsDescendantOf NoOpObject o) => NoOpObjectK o
− GI/Atk/Objects/NoOpObjectFactory.hs
@@ -1,123 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.NoOpObjectFactory- ( ---- * Exported types- NoOpObjectFactory(..) ,- NoOpObjectFactoryK ,- toNoOpObjectFactory ,- noNoOpObjectFactory ,--- -- * Methods--- ** noOpObjectFactoryNew- noOpObjectFactoryNew ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory)-foreign import ccall "atk_no_op_object_factory_get_type"- c_atk_no_op_object_factory_get_type :: IO GType--type instance ParentTypes NoOpObjectFactory = NoOpObjectFactoryParentTypes-type NoOpObjectFactoryParentTypes = '[ObjectFactory, GObject.Object]--instance GObject NoOpObjectFactory where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_no_op_object_factory_get_type- --class GObject o => NoOpObjectFactoryK o-instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o--toNoOpObjectFactory :: NoOpObjectFactoryK o => o -> IO NoOpObjectFactory-toNoOpObjectFactory = unsafeCastTo NoOpObjectFactory--noNoOpObjectFactory :: Maybe NoOpObjectFactory-noNoOpObjectFactory = Nothing--type family ResolveNoOpObjectFactoryMethod (t :: Symbol) (o :: *) :: * where- ResolveNoOpObjectFactoryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveNoOpObjectFactoryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveNoOpObjectFactoryMethod "createAccessible" o = ObjectFactoryCreateAccessibleMethodInfo- ResolveNoOpObjectFactoryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveNoOpObjectFactoryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveNoOpObjectFactoryMethod "invalidate" o = ObjectFactoryInvalidateMethodInfo- ResolveNoOpObjectFactoryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveNoOpObjectFactoryMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveNoOpObjectFactoryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveNoOpObjectFactoryMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveNoOpObjectFactoryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveNoOpObjectFactoryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveNoOpObjectFactoryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveNoOpObjectFactoryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveNoOpObjectFactoryMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveNoOpObjectFactoryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveNoOpObjectFactoryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveNoOpObjectFactoryMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveNoOpObjectFactoryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveNoOpObjectFactoryMethod "getAccessibleType" o = ObjectFactoryGetAccessibleTypeMethodInfo- ResolveNoOpObjectFactoryMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveNoOpObjectFactoryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveNoOpObjectFactoryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveNoOpObjectFactoryMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveNoOpObjectFactoryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveNoOpObjectFactoryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNoOpObjectFactoryMethod t NoOpObjectFactory, MethodInfo info NoOpObjectFactory p) => IsLabelProxy t (NoOpObjectFactory -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNoOpObjectFactoryMethod t NoOpObjectFactory, MethodInfo info NoOpObjectFactory p) => IsLabel t (NoOpObjectFactory -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList NoOpObjectFactory = NoOpObjectFactoryAttributeList-type NoOpObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList NoOpObjectFactory = NoOpObjectFactorySignalList-type NoOpObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method NoOpObjectFactory::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "NoOpObjectFactory")--- throws : False--- Skip return : False--foreign import ccall "atk_no_op_object_factory_new" atk_no_op_object_factory_new :: - IO (Ptr NoOpObjectFactory)---noOpObjectFactoryNew ::- (MonadIO m) =>- m NoOpObjectFactory -- result-noOpObjectFactoryNew = liftIO $ do- result <- atk_no_op_object_factory_new- checkUnexpectedReturnNULL "atk_no_op_object_factory_new" result- result' <- (wrapObject NoOpObjectFactory) result- return result'--
− GI/Atk/Objects/NoOpObjectFactory.hs-boot
@@ -1,13 +0,0 @@-module GI.Atk.Objects.NoOpObjectFactory where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NoOpObjectFactory = NoOpObjectFactory (ForeignPtr NoOpObjectFactory)-instance GObject NoOpObjectFactory where-class GObject o => NoOpObjectFactoryK o-instance (GObject o, IsDescendantOf NoOpObjectFactory o) => NoOpObjectFactoryK o
− GI/Atk/Objects/Object.hs
@@ -1,1847 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Object- ( ---- * Exported types- Object(..) ,- ObjectK ,- toObject ,- noObject ,--- -- * Methods--- ** objectAddRelationship- ObjectAddRelationshipMethodInfo ,- objectAddRelationship ,----- ** objectGetAttributes- ObjectGetAttributesMethodInfo ,- objectGetAttributes ,----- ** objectGetDescription- ObjectGetDescriptionMethodInfo ,- objectGetDescription ,----- ** objectGetIndexInParent- ObjectGetIndexInParentMethodInfo ,- objectGetIndexInParent ,----- ** objectGetLayer- ObjectGetLayerMethodInfo ,- objectGetLayer ,----- ** objectGetMdiZorder- ObjectGetMdiZorderMethodInfo ,- objectGetMdiZorder ,----- ** objectGetNAccessibleChildren- ObjectGetNAccessibleChildrenMethodInfo ,- objectGetNAccessibleChildren ,----- ** objectGetName- ObjectGetNameMethodInfo ,- objectGetName ,----- ** objectGetObjectLocale- ObjectGetObjectLocaleMethodInfo ,- objectGetObjectLocale ,----- ** objectGetParent- ObjectGetParentMethodInfo ,- objectGetParent ,----- ** objectGetRole- ObjectGetRoleMethodInfo ,- objectGetRole ,----- ** objectInitialize- ObjectInitializeMethodInfo ,- objectInitialize ,----- ** objectNotifyStateChange- ObjectNotifyStateChangeMethodInfo ,- objectNotifyStateChange ,----- ** objectPeekParent- ObjectPeekParentMethodInfo ,- objectPeekParent ,----- ** objectRefAccessibleChild- ObjectRefAccessibleChildMethodInfo ,- objectRefAccessibleChild ,----- ** objectRefRelationSet- ObjectRefRelationSetMethodInfo ,- objectRefRelationSet ,----- ** objectRefStateSet- ObjectRefStateSetMethodInfo ,- objectRefStateSet ,----- ** objectRemovePropertyChangeHandler- ObjectRemovePropertyChangeHandlerMethodInfo,- objectRemovePropertyChangeHandler ,----- ** objectRemoveRelationship- ObjectRemoveRelationshipMethodInfo ,- objectRemoveRelationship ,----- ** objectSetDescription- ObjectSetDescriptionMethodInfo ,- objectSetDescription ,----- ** objectSetName- ObjectSetNameMethodInfo ,- objectSetName ,----- ** objectSetParent- ObjectSetParentMethodInfo ,- objectSetParent ,----- ** objectSetRole- ObjectSetRoleMethodInfo ,- objectSetRole ,----- -- * Properties--- ** AccessibleComponentLayer- ObjectAccessibleComponentLayerPropertyInfo,- getObjectAccessibleComponentLayer ,- objectAccessibleComponentLayer ,----- ** AccessibleComponentMdiZorder- ObjectAccessibleComponentMdiZorderPropertyInfo,- getObjectAccessibleComponentMdiZorder ,- objectAccessibleComponentMdiZorder ,----- ** AccessibleDescription- ObjectAccessibleDescriptionPropertyInfo ,- clearObjectAccessibleDescription ,- constructObjectAccessibleDescription ,- getObjectAccessibleDescription ,- objectAccessibleDescription ,- setObjectAccessibleDescription ,----- ** AccessibleHypertextNlinks- ObjectAccessibleHypertextNlinksPropertyInfo,- getObjectAccessibleHypertextNlinks ,- objectAccessibleHypertextNlinks ,----- ** AccessibleName- ObjectAccessibleNamePropertyInfo ,- clearObjectAccessibleName ,- constructObjectAccessibleName ,- getObjectAccessibleName ,- objectAccessibleName ,- setObjectAccessibleName ,----- ** AccessibleParent- ObjectAccessibleParentPropertyInfo ,- clearObjectAccessibleParent ,- constructObjectAccessibleParent ,- getObjectAccessibleParent ,- objectAccessibleParent ,- setObjectAccessibleParent ,----- ** AccessibleRole- ObjectAccessibleRolePropertyInfo ,- constructObjectAccessibleRole ,- getObjectAccessibleRole ,- objectAccessibleRole ,- setObjectAccessibleRole ,----- ** AccessibleTableCaption- ObjectAccessibleTableCaptionPropertyInfo,- clearObjectAccessibleTableCaption ,- constructObjectAccessibleTableCaption ,- getObjectAccessibleTableCaption ,- objectAccessibleTableCaption ,- setObjectAccessibleTableCaption ,----- ** AccessibleTableCaptionObject- ObjectAccessibleTableCaptionObjectPropertyInfo,- clearObjectAccessibleTableCaptionObject ,- constructObjectAccessibleTableCaptionObject,- getObjectAccessibleTableCaptionObject ,- objectAccessibleTableCaptionObject ,- setObjectAccessibleTableCaptionObject ,----- ** AccessibleTableColumnDescription- ObjectAccessibleTableColumnDescriptionPropertyInfo,- clearObjectAccessibleTableColumnDescription,- constructObjectAccessibleTableColumnDescription,- getObjectAccessibleTableColumnDescription,- objectAccessibleTableColumnDescription ,- setObjectAccessibleTableColumnDescription,----- ** AccessibleTableColumnHeader- ObjectAccessibleTableColumnHeaderPropertyInfo,- clearObjectAccessibleTableColumnHeader ,- constructObjectAccessibleTableColumnHeader,- getObjectAccessibleTableColumnHeader ,- objectAccessibleTableColumnHeader ,- setObjectAccessibleTableColumnHeader ,----- ** AccessibleTableRowDescription- ObjectAccessibleTableRowDescriptionPropertyInfo,- clearObjectAccessibleTableRowDescription,- constructObjectAccessibleTableRowDescription,- getObjectAccessibleTableRowDescription ,- objectAccessibleTableRowDescription ,- setObjectAccessibleTableRowDescription ,----- ** AccessibleTableRowHeader- ObjectAccessibleTableRowHeaderPropertyInfo,- clearObjectAccessibleTableRowHeader ,- constructObjectAccessibleTableRowHeader ,- getObjectAccessibleTableRowHeader ,- objectAccessibleTableRowHeader ,- setObjectAccessibleTableRowHeader ,----- ** AccessibleTableSummary- ObjectAccessibleTableSummaryPropertyInfo,- clearObjectAccessibleTableSummary ,- constructObjectAccessibleTableSummary ,- getObjectAccessibleTableSummary ,- objectAccessibleTableSummary ,- setObjectAccessibleTableSummary ,----- ** AccessibleValue- ObjectAccessibleValuePropertyInfo ,- constructObjectAccessibleValue ,- getObjectAccessibleValue ,- objectAccessibleValue ,- setObjectAccessibleValue ,----- -- * Signals--- ** ActiveDescendantChanged- ObjectActiveDescendantChangedCallback ,- ObjectActiveDescendantChangedCallbackC ,- ObjectActiveDescendantChangedSignalInfo ,- afterObjectActiveDescendantChanged ,- mkObjectActiveDescendantChangedCallback ,- noObjectActiveDescendantChangedCallback ,- objectActiveDescendantChangedCallbackWrapper,- objectActiveDescendantChangedClosure ,- onObjectActiveDescendantChanged ,----- ** ChildrenChanged- ObjectChildrenChangedCallback ,- ObjectChildrenChangedCallbackC ,- ObjectChildrenChangedSignalInfo ,- afterObjectChildrenChanged ,- mkObjectChildrenChangedCallback ,- noObjectChildrenChangedCallback ,- objectChildrenChangedCallbackWrapper ,- objectChildrenChangedClosure ,- onObjectChildrenChanged ,----- ** FocusEvent- ObjectFocusEventCallback ,- ObjectFocusEventCallbackC ,- ObjectFocusEventSignalInfo ,- afterObjectFocusEvent ,- mkObjectFocusEventCallback ,- noObjectFocusEventCallback ,- objectFocusEventCallbackWrapper ,- objectFocusEventClosure ,- onObjectFocusEvent ,----- ** PropertyChange- ObjectPropertyChangeCallback ,- ObjectPropertyChangeCallbackC ,- ObjectPropertyChangeSignalInfo ,- afterObjectPropertyChange ,- mkObjectPropertyChangeCallback ,- noObjectPropertyChangeCallback ,- objectPropertyChangeCallbackWrapper ,- objectPropertyChangeClosure ,- onObjectPropertyChange ,----- ** StateChange- ObjectStateChangeCallback ,- ObjectStateChangeCallbackC ,- ObjectStateChangeSignalInfo ,- afterObjectStateChange ,- mkObjectStateChangeCallback ,- noObjectStateChangeCallback ,- objectStateChangeCallbackWrapper ,- objectStateChangeClosure ,- onObjectStateChange ,----- ** VisibleDataChanged- ObjectVisibleDataChangedCallback ,- ObjectVisibleDataChangedCallbackC ,- ObjectVisibleDataChangedSignalInfo ,- afterObjectVisibleDataChanged ,- mkObjectVisibleDataChangedCallback ,- noObjectVisibleDataChangedCallback ,- objectVisibleDataChangedCallbackWrapper ,- objectVisibleDataChangedClosure ,- onObjectVisibleDataChanged ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Object = Object (ForeignPtr Object)-foreign import ccall "atk_object_get_type"- c_atk_object_get_type :: IO GType--type instance ParentTypes Object = ObjectParentTypes-type ObjectParentTypes = '[GObject.Object]--instance GObject Object where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_object_get_type- --class GObject o => ObjectK o-instance (GObject o, IsDescendantOf Object o) => ObjectK o--toObject :: ObjectK o => o -> IO Object-toObject = unsafeCastTo Object--noObject :: Maybe Object-noObject = Nothing--type family ResolveObjectMethod (t :: Symbol) (o :: *) :: * where- ResolveObjectMethod "addRelationship" o = ObjectAddRelationshipMethodInfo- ResolveObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveObjectMethod "initialize" o = ObjectInitializeMethodInfo- ResolveObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveObjectMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo- ResolveObjectMethod "peekParent" o = ObjectPeekParentMethodInfo- ResolveObjectMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveObjectMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo- ResolveObjectMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo- ResolveObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveObjectMethod "refStateSet" o = ObjectRefStateSetMethodInfo- ResolveObjectMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo- ResolveObjectMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo- ResolveObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveObjectMethod "getAttributes" o = ObjectGetAttributesMethodInfo- ResolveObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveObjectMethod "getDescription" o = ObjectGetDescriptionMethodInfo- ResolveObjectMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo- ResolveObjectMethod "getLayer" o = ObjectGetLayerMethodInfo- ResolveObjectMethod "getMdiZorder" o = ObjectGetMdiZorderMethodInfo- ResolveObjectMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo- ResolveObjectMethod "getName" o = ObjectGetNameMethodInfo- ResolveObjectMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo- ResolveObjectMethod "getParent" o = ObjectGetParentMethodInfo- ResolveObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveObjectMethod "getRole" o = ObjectGetRoleMethodInfo- ResolveObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveObjectMethod "setDescription" o = ObjectSetDescriptionMethodInfo- ResolveObjectMethod "setName" o = ObjectSetNameMethodInfo- ResolveObjectMethod "setParent" o = ObjectSetParentMethodInfo- ResolveObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveObjectMethod "setRole" o = ObjectSetRoleMethodInfo- ResolveObjectMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveObjectMethod t Object, MethodInfo info Object p) => IsLabelProxy t (Object -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveObjectMethod t Object, MethodInfo info Object p) => IsLabel t (Object -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Object::active-descendant-changed-type ObjectActiveDescendantChangedCallback =- Ptr () ->- IO ()--noObjectActiveDescendantChangedCallback :: Maybe ObjectActiveDescendantChangedCallback-noObjectActiveDescendantChangedCallback = Nothing--type ObjectActiveDescendantChangedCallbackC =- Ptr () -> -- object- Ptr () ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectActiveDescendantChangedCallback :: ObjectActiveDescendantChangedCallbackC -> IO (FunPtr ObjectActiveDescendantChangedCallbackC)--objectActiveDescendantChangedClosure :: ObjectActiveDescendantChangedCallback -> IO Closure-objectActiveDescendantChangedClosure cb = newCClosure =<< mkObjectActiveDescendantChangedCallback wrapped- where wrapped = objectActiveDescendantChangedCallbackWrapper cb--objectActiveDescendantChangedCallbackWrapper ::- ObjectActiveDescendantChangedCallback ->- Ptr () ->- Ptr () ->- Ptr () ->- IO ()-objectActiveDescendantChangedCallbackWrapper _cb _ arg1 _ = do- _cb arg1--onObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId-onObjectActiveDescendantChanged obj cb = liftIO $ connectObjectActiveDescendantChanged obj cb SignalConnectBefore-afterObjectActiveDescendantChanged :: (GObject a, MonadIO m) => a -> ObjectActiveDescendantChangedCallback -> m SignalHandlerId-afterObjectActiveDescendantChanged obj cb = connectObjectActiveDescendantChanged obj cb SignalConnectAfter--connectObjectActiveDescendantChanged :: (GObject a, MonadIO m) =>- a -> ObjectActiveDescendantChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectActiveDescendantChanged obj cb after = liftIO $ do- cb' <- mkObjectActiveDescendantChangedCallback (objectActiveDescendantChangedCallbackWrapper cb)- connectSignalFunPtr obj "active-descendant-changed" cb' after---- signal Object::children-changed-type ObjectChildrenChangedCallback =- Word32 ->- Ptr () ->- IO ()--noObjectChildrenChangedCallback :: Maybe ObjectChildrenChangedCallback-noObjectChildrenChangedCallback = Nothing--type ObjectChildrenChangedCallbackC =- Ptr () -> -- object- Word32 ->- Ptr () ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectChildrenChangedCallback :: ObjectChildrenChangedCallbackC -> IO (FunPtr ObjectChildrenChangedCallbackC)--objectChildrenChangedClosure :: ObjectChildrenChangedCallback -> IO Closure-objectChildrenChangedClosure cb = newCClosure =<< mkObjectChildrenChangedCallback wrapped- where wrapped = objectChildrenChangedCallbackWrapper cb--objectChildrenChangedCallbackWrapper ::- ObjectChildrenChangedCallback ->- Ptr () ->- Word32 ->- Ptr () ->- Ptr () ->- IO ()-objectChildrenChangedCallbackWrapper _cb _ arg1 arg2 _ = do- _cb arg1 arg2--onObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId-onObjectChildrenChanged obj cb = liftIO $ connectObjectChildrenChanged obj cb SignalConnectBefore-afterObjectChildrenChanged :: (GObject a, MonadIO m) => a -> ObjectChildrenChangedCallback -> m SignalHandlerId-afterObjectChildrenChanged obj cb = connectObjectChildrenChanged obj cb SignalConnectAfter--connectObjectChildrenChanged :: (GObject a, MonadIO m) =>- a -> ObjectChildrenChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectChildrenChanged obj cb after = liftIO $ do- cb' <- mkObjectChildrenChangedCallback (objectChildrenChangedCallbackWrapper cb)- connectSignalFunPtr obj "children-changed" cb' after---- signal Object::focus-event-type ObjectFocusEventCallback =- Bool ->- IO ()--noObjectFocusEventCallback :: Maybe ObjectFocusEventCallback-noObjectFocusEventCallback = Nothing--type ObjectFocusEventCallbackC =- Ptr () -> -- object- CInt ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectFocusEventCallback :: ObjectFocusEventCallbackC -> IO (FunPtr ObjectFocusEventCallbackC)--objectFocusEventClosure :: ObjectFocusEventCallback -> IO Closure-objectFocusEventClosure cb = newCClosure =<< mkObjectFocusEventCallback wrapped- where wrapped = objectFocusEventCallbackWrapper cb--objectFocusEventCallbackWrapper ::- ObjectFocusEventCallback ->- Ptr () ->- CInt ->- Ptr () ->- IO ()-objectFocusEventCallbackWrapper _cb _ arg1 _ = do- let arg1' = (/= 0) arg1- _cb arg1'--onObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId-onObjectFocusEvent obj cb = liftIO $ connectObjectFocusEvent obj cb SignalConnectBefore-afterObjectFocusEvent :: (GObject a, MonadIO m) => a -> ObjectFocusEventCallback -> m SignalHandlerId-afterObjectFocusEvent obj cb = connectObjectFocusEvent obj cb SignalConnectAfter--connectObjectFocusEvent :: (GObject a, MonadIO m) =>- a -> ObjectFocusEventCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectFocusEvent obj cb after = liftIO $ do- cb' <- mkObjectFocusEventCallback (objectFocusEventCallbackWrapper cb)- connectSignalFunPtr obj "focus-event" cb' after---- signal Object::property-change-type ObjectPropertyChangeCallback =- Ptr () ->- IO ()--noObjectPropertyChangeCallback :: Maybe ObjectPropertyChangeCallback-noObjectPropertyChangeCallback = Nothing--type ObjectPropertyChangeCallbackC =- Ptr () -> -- object- Ptr () ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectPropertyChangeCallback :: ObjectPropertyChangeCallbackC -> IO (FunPtr ObjectPropertyChangeCallbackC)--objectPropertyChangeClosure :: ObjectPropertyChangeCallback -> IO Closure-objectPropertyChangeClosure cb = newCClosure =<< mkObjectPropertyChangeCallback wrapped- where wrapped = objectPropertyChangeCallbackWrapper cb--objectPropertyChangeCallbackWrapper ::- ObjectPropertyChangeCallback ->- Ptr () ->- Ptr () ->- Ptr () ->- IO ()-objectPropertyChangeCallbackWrapper _cb _ arg1 _ = do- _cb arg1--onObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId-onObjectPropertyChange obj cb = liftIO $ connectObjectPropertyChange obj cb SignalConnectBefore-afterObjectPropertyChange :: (GObject a, MonadIO m) => a -> ObjectPropertyChangeCallback -> m SignalHandlerId-afterObjectPropertyChange obj cb = connectObjectPropertyChange obj cb SignalConnectAfter--connectObjectPropertyChange :: (GObject a, MonadIO m) =>- a -> ObjectPropertyChangeCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectPropertyChange obj cb after = liftIO $ do- cb' <- mkObjectPropertyChangeCallback (objectPropertyChangeCallbackWrapper cb)- connectSignalFunPtr obj "property-change" cb' after---- signal Object::state-change-type ObjectStateChangeCallback =- T.Text ->- Bool ->- IO ()--noObjectStateChangeCallback :: Maybe ObjectStateChangeCallback-noObjectStateChangeCallback = Nothing--type ObjectStateChangeCallbackC =- Ptr () -> -- object- CString ->- CInt ->- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectStateChangeCallback :: ObjectStateChangeCallbackC -> IO (FunPtr ObjectStateChangeCallbackC)--objectStateChangeClosure :: ObjectStateChangeCallback -> IO Closure-objectStateChangeClosure cb = newCClosure =<< mkObjectStateChangeCallback wrapped- where wrapped = objectStateChangeCallbackWrapper cb--objectStateChangeCallbackWrapper ::- ObjectStateChangeCallback ->- Ptr () ->- CString ->- CInt ->- Ptr () ->- IO ()-objectStateChangeCallbackWrapper _cb _ arg1 arg2 _ = do- arg1' <- cstringToText arg1- let arg2' = (/= 0) arg2- _cb arg1' arg2'--onObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId-onObjectStateChange obj cb = liftIO $ connectObjectStateChange obj cb SignalConnectBefore-afterObjectStateChange :: (GObject a, MonadIO m) => a -> ObjectStateChangeCallback -> m SignalHandlerId-afterObjectStateChange obj cb = connectObjectStateChange obj cb SignalConnectAfter--connectObjectStateChange :: (GObject a, MonadIO m) =>- a -> ObjectStateChangeCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectStateChange obj cb after = liftIO $ do- cb' <- mkObjectStateChangeCallback (objectStateChangeCallbackWrapper cb)- connectSignalFunPtr obj "state-change" cb' after---- signal Object::visible-data-changed-type ObjectVisibleDataChangedCallback =- IO ()--noObjectVisibleDataChangedCallback :: Maybe ObjectVisibleDataChangedCallback-noObjectVisibleDataChangedCallback = Nothing--type ObjectVisibleDataChangedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkObjectVisibleDataChangedCallback :: ObjectVisibleDataChangedCallbackC -> IO (FunPtr ObjectVisibleDataChangedCallbackC)--objectVisibleDataChangedClosure :: ObjectVisibleDataChangedCallback -> IO Closure-objectVisibleDataChangedClosure cb = newCClosure =<< mkObjectVisibleDataChangedCallback wrapped- where wrapped = objectVisibleDataChangedCallbackWrapper cb--objectVisibleDataChangedCallbackWrapper ::- ObjectVisibleDataChangedCallback ->- Ptr () ->- Ptr () ->- IO ()-objectVisibleDataChangedCallbackWrapper _cb _ _ = do- _cb --onObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId-onObjectVisibleDataChanged obj cb = liftIO $ connectObjectVisibleDataChanged obj cb SignalConnectBefore-afterObjectVisibleDataChanged :: (GObject a, MonadIO m) => a -> ObjectVisibleDataChangedCallback -> m SignalHandlerId-afterObjectVisibleDataChanged obj cb = connectObjectVisibleDataChanged obj cb SignalConnectAfter--connectObjectVisibleDataChanged :: (GObject a, MonadIO m) =>- a -> ObjectVisibleDataChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectObjectVisibleDataChanged obj cb after = liftIO $ do- cb' <- mkObjectVisibleDataChangedCallback (objectVisibleDataChangedCallbackWrapper cb)- connectSignalFunPtr obj "visible-data-changed" cb' after---- VVV Prop "accessible-component-layer"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleComponentLayer :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleComponentLayer obj = liftIO $ getObjectPropertyInt32 obj "accessible-component-layer"--data ObjectAccessibleComponentLayerPropertyInfo-instance AttrInfo ObjectAccessibleComponentLayerPropertyInfo where- type AttrAllowedOps ObjectAccessibleComponentLayerPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = (~) ()- type AttrBaseTypeConstraint ObjectAccessibleComponentLayerPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleComponentLayerPropertyInfo = Int32- type AttrLabel ObjectAccessibleComponentLayerPropertyInfo = "accessible-component-layer"- attrGet _ = getObjectAccessibleComponentLayer- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "accessible-component-mdi-zorder"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleComponentMdiZorder :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleComponentMdiZorder obj = liftIO $ getObjectPropertyInt32 obj "accessible-component-mdi-zorder"--data ObjectAccessibleComponentMdiZorderPropertyInfo-instance AttrInfo ObjectAccessibleComponentMdiZorderPropertyInfo where- type AttrAllowedOps ObjectAccessibleComponentMdiZorderPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = (~) ()- type AttrBaseTypeConstraint ObjectAccessibleComponentMdiZorderPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleComponentMdiZorderPropertyInfo = Int32- type AttrLabel ObjectAccessibleComponentMdiZorderPropertyInfo = "accessible-component-mdi-zorder"- attrGet _ = getObjectAccessibleComponentMdiZorder- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "accessible-description"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m (Maybe T.Text)-getObjectAccessibleDescription obj = liftIO $ getObjectPropertyString obj "accessible-description"--setObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleDescription obj val = liftIO $ setObjectPropertyString obj "accessible-description" (Just val)--constructObjectAccessibleDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleDescription val = constructObjectPropertyString "accessible-description" (Just val)--clearObjectAccessibleDescription :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleDescription obj = liftIO $ setObjectPropertyString obj "accessible-description" (Nothing :: Maybe T.Text)--data ObjectAccessibleDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleDescriptionPropertyInfo where- type AttrAllowedOps ObjectAccessibleDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleDescriptionPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint ObjectAccessibleDescriptionPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleDescriptionPropertyInfo = (Maybe T.Text)- type AttrLabel ObjectAccessibleDescriptionPropertyInfo = "accessible-description"- attrGet _ = getObjectAccessibleDescription- attrSet _ = setObjectAccessibleDescription- attrConstruct _ = constructObjectAccessibleDescription- attrClear _ = clearObjectAccessibleDescription---- VVV Prop "accessible-hypertext-nlinks"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleHypertextNlinks :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleHypertextNlinks obj = liftIO $ getObjectPropertyInt32 obj "accessible-hypertext-nlinks"--data ObjectAccessibleHypertextNlinksPropertyInfo-instance AttrInfo ObjectAccessibleHypertextNlinksPropertyInfo where- type AttrAllowedOps ObjectAccessibleHypertextNlinksPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = (~) ()- type AttrBaseTypeConstraint ObjectAccessibleHypertextNlinksPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleHypertextNlinksPropertyInfo = Int32- type AttrLabel ObjectAccessibleHypertextNlinksPropertyInfo = "accessible-hypertext-nlinks"- attrGet _ = getObjectAccessibleHypertextNlinks- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "accessible-name"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m (Maybe T.Text)-getObjectAccessibleName obj = liftIO $ getObjectPropertyString obj "accessible-name"--setObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleName obj val = liftIO $ setObjectPropertyString obj "accessible-name" (Just val)--constructObjectAccessibleName :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleName val = constructObjectPropertyString "accessible-name" (Just val)--clearObjectAccessibleName :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleName obj = liftIO $ setObjectPropertyString obj "accessible-name" (Nothing :: Maybe T.Text)--data ObjectAccessibleNamePropertyInfo-instance AttrInfo ObjectAccessibleNamePropertyInfo where- type AttrAllowedOps ObjectAccessibleNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleNamePropertyInfo = (~) T.Text- type AttrBaseTypeConstraint ObjectAccessibleNamePropertyInfo = ObjectK- type AttrGetType ObjectAccessibleNamePropertyInfo = (Maybe T.Text)- type AttrLabel ObjectAccessibleNamePropertyInfo = "accessible-name"- attrGet _ = getObjectAccessibleName- attrSet _ = setObjectAccessibleName- attrConstruct _ = constructObjectAccessibleName- attrClear _ = clearObjectAccessibleName---- VVV Prop "accessible-parent"- -- Type: TInterface "Atk" "Object"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m (Maybe Object)-getObjectAccessibleParent obj = liftIO $ getObjectPropertyObject obj "accessible-parent" Object--setObjectAccessibleParent :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleParent obj val = liftIO $ setObjectPropertyObject obj "accessible-parent" (Just val)--constructObjectAccessibleParent :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleParent val = constructObjectPropertyObject "accessible-parent" (Just val)--clearObjectAccessibleParent :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleParent obj = liftIO $ setObjectPropertyObject obj "accessible-parent" (Nothing :: Maybe Object)--data ObjectAccessibleParentPropertyInfo-instance AttrInfo ObjectAccessibleParentPropertyInfo where- type AttrAllowedOps ObjectAccessibleParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK- type AttrBaseTypeConstraint ObjectAccessibleParentPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleParentPropertyInfo = (Maybe Object)- type AttrLabel ObjectAccessibleParentPropertyInfo = "accessible-parent"- attrGet _ = getObjectAccessibleParent- attrSet _ = setObjectAccessibleParent- attrConstruct _ = constructObjectAccessibleParent- attrClear _ = clearObjectAccessibleParent---- VVV Prop "accessible-role"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> m Int32-getObjectAccessibleRole obj = liftIO $ getObjectPropertyInt32 obj "accessible-role"--setObjectAccessibleRole :: (MonadIO m, ObjectK o) => o -> Int32 -> m ()-setObjectAccessibleRole obj val = liftIO $ setObjectPropertyInt32 obj "accessible-role" val--constructObjectAccessibleRole :: Int32 -> IO ([Char], GValue)-constructObjectAccessibleRole val = constructObjectPropertyInt32 "accessible-role" val--data ObjectAccessibleRolePropertyInfo-instance AttrInfo ObjectAccessibleRolePropertyInfo where- type AttrAllowedOps ObjectAccessibleRolePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]- type AttrSetTypeConstraint ObjectAccessibleRolePropertyInfo = (~) Int32- type AttrBaseTypeConstraint ObjectAccessibleRolePropertyInfo = ObjectK- type AttrGetType ObjectAccessibleRolePropertyInfo = Int32- type AttrLabel ObjectAccessibleRolePropertyInfo = "accessible-role"- attrGet _ = getObjectAccessibleRole- attrSet _ = setObjectAccessibleRole- attrConstruct _ = constructObjectAccessibleRole- attrClear _ = undefined---- VVV Prop "accessible-table-caption"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m (Maybe T.Text)-getObjectAccessibleTableCaption obj = liftIO $ getObjectPropertyString obj "accessible-table-caption"--setObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableCaption obj val = liftIO $ setObjectPropertyString obj "accessible-table-caption" (Just val)--constructObjectAccessibleTableCaption :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableCaption val = constructObjectPropertyString "accessible-table-caption" (Just val)--clearObjectAccessibleTableCaption :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableCaption obj = liftIO $ setObjectPropertyString obj "accessible-table-caption" (Nothing :: Maybe T.Text)--data ObjectAccessibleTableCaptionPropertyInfo-instance AttrInfo ObjectAccessibleTableCaptionPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableCaptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint ObjectAccessibleTableCaptionPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableCaptionPropertyInfo = (Maybe T.Text)- type AttrLabel ObjectAccessibleTableCaptionPropertyInfo = "accessible-table-caption"- attrGet _ = getObjectAccessibleTableCaption- attrSet _ = setObjectAccessibleTableCaption- attrConstruct _ = constructObjectAccessibleTableCaption- attrClear _ = clearObjectAccessibleTableCaption---- VVV Prop "accessible-table-caption-object"- -- Type: TInterface "Atk" "Object"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m (Maybe Object)-getObjectAccessibleTableCaptionObject obj = liftIO $ getObjectPropertyObject obj "accessible-table-caption-object" Object--setObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableCaptionObject obj val = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" (Just val)--constructObjectAccessibleTableCaptionObject :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableCaptionObject val = constructObjectPropertyObject "accessible-table-caption-object" (Just val)--clearObjectAccessibleTableCaptionObject :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableCaptionObject obj = liftIO $ setObjectPropertyObject obj "accessible-table-caption-object" (Nothing :: Maybe Object)--data ObjectAccessibleTableCaptionObjectPropertyInfo-instance AttrInfo ObjectAccessibleTableCaptionObjectPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableCaptionObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK- type AttrBaseTypeConstraint ObjectAccessibleTableCaptionObjectPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableCaptionObjectPropertyInfo = (Maybe Object)- type AttrLabel ObjectAccessibleTableCaptionObjectPropertyInfo = "accessible-table-caption-object"- attrGet _ = getObjectAccessibleTableCaptionObject- attrSet _ = setObjectAccessibleTableCaptionObject- attrConstruct _ = constructObjectAccessibleTableCaptionObject- attrClear _ = clearObjectAccessibleTableCaptionObject---- VVV Prop "accessible-table-column-description"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m (Maybe T.Text)-getObjectAccessibleTableColumnDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-column-description"--setObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableColumnDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-column-description" (Just val)--constructObjectAccessibleTableColumnDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableColumnDescription val = constructObjectPropertyString "accessible-table-column-description" (Just val)--clearObjectAccessibleTableColumnDescription :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableColumnDescription obj = liftIO $ setObjectPropertyString obj "accessible-table-column-description" (Nothing :: Maybe T.Text)--data ObjectAccessibleTableColumnDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleTableColumnDescriptionPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableColumnDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint ObjectAccessibleTableColumnDescriptionPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableColumnDescriptionPropertyInfo = (Maybe T.Text)- type AttrLabel ObjectAccessibleTableColumnDescriptionPropertyInfo = "accessible-table-column-description"- attrGet _ = getObjectAccessibleTableColumnDescription- attrSet _ = setObjectAccessibleTableColumnDescription- attrConstruct _ = constructObjectAccessibleTableColumnDescription- attrClear _ = clearObjectAccessibleTableColumnDescription---- VVV Prop "accessible-table-column-header"- -- Type: TInterface "Atk" "Object"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m (Maybe Object)-getObjectAccessibleTableColumnHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-column-header" Object--setObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableColumnHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" (Just val)--constructObjectAccessibleTableColumnHeader :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableColumnHeader val = constructObjectPropertyObject "accessible-table-column-header" (Just val)--clearObjectAccessibleTableColumnHeader :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableColumnHeader obj = liftIO $ setObjectPropertyObject obj "accessible-table-column-header" (Nothing :: Maybe Object)--data ObjectAccessibleTableColumnHeaderPropertyInfo-instance AttrInfo ObjectAccessibleTableColumnHeaderPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableColumnHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK- type AttrBaseTypeConstraint ObjectAccessibleTableColumnHeaderPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableColumnHeaderPropertyInfo = (Maybe Object)- type AttrLabel ObjectAccessibleTableColumnHeaderPropertyInfo = "accessible-table-column-header"- attrGet _ = getObjectAccessibleTableColumnHeader- attrSet _ = setObjectAccessibleTableColumnHeader- attrConstruct _ = constructObjectAccessibleTableColumnHeader- attrClear _ = clearObjectAccessibleTableColumnHeader---- VVV Prop "accessible-table-row-description"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m (Maybe T.Text)-getObjectAccessibleTableRowDescription obj = liftIO $ getObjectPropertyString obj "accessible-table-row-description"--setObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> T.Text -> m ()-setObjectAccessibleTableRowDescription obj val = liftIO $ setObjectPropertyString obj "accessible-table-row-description" (Just val)--constructObjectAccessibleTableRowDescription :: T.Text -> IO ([Char], GValue)-constructObjectAccessibleTableRowDescription val = constructObjectPropertyString "accessible-table-row-description" (Just val)--clearObjectAccessibleTableRowDescription :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableRowDescription obj = liftIO $ setObjectPropertyString obj "accessible-table-row-description" (Nothing :: Maybe T.Text)--data ObjectAccessibleTableRowDescriptionPropertyInfo-instance AttrInfo ObjectAccessibleTableRowDescriptionPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableRowDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint ObjectAccessibleTableRowDescriptionPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableRowDescriptionPropertyInfo = (Maybe T.Text)- type AttrLabel ObjectAccessibleTableRowDescriptionPropertyInfo = "accessible-table-row-description"- attrGet _ = getObjectAccessibleTableRowDescription- attrSet _ = setObjectAccessibleTableRowDescription- attrConstruct _ = constructObjectAccessibleTableRowDescription- attrClear _ = clearObjectAccessibleTableRowDescription---- VVV Prop "accessible-table-row-header"- -- Type: TInterface "Atk" "Object"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m (Maybe Object)-getObjectAccessibleTableRowHeader obj = liftIO $ getObjectPropertyObject obj "accessible-table-row-header" Object--setObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableRowHeader obj val = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" (Just val)--constructObjectAccessibleTableRowHeader :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableRowHeader val = constructObjectPropertyObject "accessible-table-row-header" (Just val)--clearObjectAccessibleTableRowHeader :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableRowHeader obj = liftIO $ setObjectPropertyObject obj "accessible-table-row-header" (Nothing :: Maybe Object)--data ObjectAccessibleTableRowHeaderPropertyInfo-instance AttrInfo ObjectAccessibleTableRowHeaderPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableRowHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK- type AttrBaseTypeConstraint ObjectAccessibleTableRowHeaderPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableRowHeaderPropertyInfo = (Maybe Object)- type AttrLabel ObjectAccessibleTableRowHeaderPropertyInfo = "accessible-table-row-header"- attrGet _ = getObjectAccessibleTableRowHeader- attrSet _ = setObjectAccessibleTableRowHeader- attrConstruct _ = constructObjectAccessibleTableRowHeader- attrClear _ = clearObjectAccessibleTableRowHeader---- VVV Prop "accessible-table-summary"- -- Type: TInterface "Atk" "Object"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m (Maybe Object)-getObjectAccessibleTableSummary obj = liftIO $ getObjectPropertyObject obj "accessible-table-summary" Object--setObjectAccessibleTableSummary :: (MonadIO m, ObjectK o, ObjectK a) => o -> a -> m ()-setObjectAccessibleTableSummary obj val = liftIO $ setObjectPropertyObject obj "accessible-table-summary" (Just val)--constructObjectAccessibleTableSummary :: (ObjectK a) => a -> IO ([Char], GValue)-constructObjectAccessibleTableSummary val = constructObjectPropertyObject "accessible-table-summary" (Just val)--clearObjectAccessibleTableSummary :: (MonadIO m, ObjectK o) => o -> m ()-clearObjectAccessibleTableSummary obj = liftIO $ setObjectPropertyObject obj "accessible-table-summary" (Nothing :: Maybe Object)--data ObjectAccessibleTableSummaryPropertyInfo-instance AttrInfo ObjectAccessibleTableSummaryPropertyInfo where- type AttrAllowedOps ObjectAccessibleTableSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK- type AttrBaseTypeConstraint ObjectAccessibleTableSummaryPropertyInfo = ObjectK- type AttrGetType ObjectAccessibleTableSummaryPropertyInfo = (Maybe Object)- type AttrLabel ObjectAccessibleTableSummaryPropertyInfo = "accessible-table-summary"- attrGet _ = getObjectAccessibleTableSummary- attrSet _ = setObjectAccessibleTableSummary- attrConstruct _ = constructObjectAccessibleTableSummary- attrClear _ = clearObjectAccessibleTableSummary---- VVV Prop "accessible-value"- -- Type: TBasicType TDouble- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> m Double-getObjectAccessibleValue obj = liftIO $ getObjectPropertyDouble obj "accessible-value"--setObjectAccessibleValue :: (MonadIO m, ObjectK o) => o -> Double -> m ()-setObjectAccessibleValue obj val = liftIO $ setObjectPropertyDouble obj "accessible-value" val--constructObjectAccessibleValue :: Double -> IO ([Char], GValue)-constructObjectAccessibleValue val = constructObjectPropertyDouble "accessible-value" val--data ObjectAccessibleValuePropertyInfo-instance AttrInfo ObjectAccessibleValuePropertyInfo where- type AttrAllowedOps ObjectAccessibleValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]- type AttrSetTypeConstraint ObjectAccessibleValuePropertyInfo = (~) Double- type AttrBaseTypeConstraint ObjectAccessibleValuePropertyInfo = ObjectK- type AttrGetType ObjectAccessibleValuePropertyInfo = Double- type AttrLabel ObjectAccessibleValuePropertyInfo = "accessible-value"- attrGet _ = getObjectAccessibleValue- attrSet _ = setObjectAccessibleValue- attrConstruct _ = constructObjectAccessibleValue- attrClear _ = undefined--type instance AttributeList Object = ObjectAttributeList-type ObjectAttributeList = ('[ '("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, *)])--objectAccessibleComponentLayer :: AttrLabelProxy "accessibleComponentLayer"-objectAccessibleComponentLayer = AttrLabelProxy--objectAccessibleComponentMdiZorder :: AttrLabelProxy "accessibleComponentMdiZorder"-objectAccessibleComponentMdiZorder = AttrLabelProxy--objectAccessibleDescription :: AttrLabelProxy "accessibleDescription"-objectAccessibleDescription = AttrLabelProxy--objectAccessibleHypertextNlinks :: AttrLabelProxy "accessibleHypertextNlinks"-objectAccessibleHypertextNlinks = AttrLabelProxy--objectAccessibleName :: AttrLabelProxy "accessibleName"-objectAccessibleName = AttrLabelProxy--objectAccessibleParent :: AttrLabelProxy "accessibleParent"-objectAccessibleParent = AttrLabelProxy--objectAccessibleRole :: AttrLabelProxy "accessibleRole"-objectAccessibleRole = AttrLabelProxy--objectAccessibleTableCaption :: AttrLabelProxy "accessibleTableCaption"-objectAccessibleTableCaption = AttrLabelProxy--objectAccessibleTableCaptionObject :: AttrLabelProxy "accessibleTableCaptionObject"-objectAccessibleTableCaptionObject = AttrLabelProxy--objectAccessibleTableColumnDescription :: AttrLabelProxy "accessibleTableColumnDescription"-objectAccessibleTableColumnDescription = AttrLabelProxy--objectAccessibleTableColumnHeader :: AttrLabelProxy "accessibleTableColumnHeader"-objectAccessibleTableColumnHeader = AttrLabelProxy--objectAccessibleTableRowDescription :: AttrLabelProxy "accessibleTableRowDescription"-objectAccessibleTableRowDescription = AttrLabelProxy--objectAccessibleTableRowHeader :: AttrLabelProxy "accessibleTableRowHeader"-objectAccessibleTableRowHeader = AttrLabelProxy--objectAccessibleTableSummary :: AttrLabelProxy "accessibleTableSummary"-objectAccessibleTableSummary = AttrLabelProxy--objectAccessibleValue :: AttrLabelProxy "accessibleValue"-objectAccessibleValue = AttrLabelProxy--data ObjectActiveDescendantChangedSignalInfo-instance SignalInfo ObjectActiveDescendantChangedSignalInfo where- type HaskellCallbackType ObjectActiveDescendantChangedSignalInfo = ObjectActiveDescendantChangedCallback- connectSignal _ = connectObjectActiveDescendantChanged--data ObjectChildrenChangedSignalInfo-instance SignalInfo ObjectChildrenChangedSignalInfo where- type HaskellCallbackType ObjectChildrenChangedSignalInfo = ObjectChildrenChangedCallback- connectSignal _ = connectObjectChildrenChanged--data ObjectFocusEventSignalInfo-instance SignalInfo ObjectFocusEventSignalInfo where- type HaskellCallbackType ObjectFocusEventSignalInfo = ObjectFocusEventCallback- connectSignal _ = connectObjectFocusEvent--data ObjectPropertyChangeSignalInfo-instance SignalInfo ObjectPropertyChangeSignalInfo where- type HaskellCallbackType ObjectPropertyChangeSignalInfo = ObjectPropertyChangeCallback- connectSignal _ = connectObjectPropertyChange--data ObjectStateChangeSignalInfo-instance SignalInfo ObjectStateChangeSignalInfo where- type HaskellCallbackType ObjectStateChangeSignalInfo = ObjectStateChangeCallback- connectSignal _ = connectObjectStateChange--data ObjectVisibleDataChangedSignalInfo-instance SignalInfo ObjectVisibleDataChangedSignalInfo where- type HaskellCallbackType ObjectVisibleDataChangedSignalInfo = ObjectVisibleDataChangedCallback- connectSignal _ = connectObjectVisibleDataChanged--type instance SignalList Object = ObjectSignalList-type ObjectSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])---- method Object::add_relationship--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_object_add_relationship" atk_object_add_relationship :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO CInt---objectAddRelationship ::- (MonadIO m, ObjectK a, ObjectK b) =>- a -- _obj- -> RelationType -- relationship- -> b -- target- -> m Bool -- result-objectAddRelationship _obj relationship target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- let target' = unsafeManagedPtrCastPtr target- result <- atk_object_add_relationship _obj' relationship' target'- let result' = (/= 0) result- touchManagedPtr _obj- touchManagedPtr target- return result'--data ObjectAddRelationshipMethodInfo-instance (signature ~ (RelationType -> b -> m Bool), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectAddRelationshipMethodInfo a signature where- overloadedMethod _ = objectAddRelationship---- method Object::get_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TPtr))--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_attributes" atk_object_get_attributes :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO (Ptr (GSList (Ptr ())))---objectGetAttributes ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m [Ptr ()] -- result-objectGetAttributes _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_attributes _obj'- result' <- unpackGSList result- g_slist_free result- touchManagedPtr _obj- return result'--data ObjectGetAttributesMethodInfo-instance (signature ~ (m [Ptr ()]), MonadIO m, ObjectK a) => MethodInfo ObjectGetAttributesMethodInfo a signature where- overloadedMethod _ = objectGetAttributes---- method Object::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_description" atk_object_get_description :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO CString---objectGetDescription ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m T.Text -- result-objectGetDescription _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_description _obj'- checkUnexpectedReturnNULL "atk_object_get_description" result- result' <- cstringToText result- touchManagedPtr _obj- return result'--data ObjectGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetDescriptionMethodInfo a signature where- overloadedMethod _ = objectGetDescription---- method Object::get_index_in_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_index_in_parent" atk_object_get_index_in_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO Int32---objectGetIndexInParent ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Int32 -- result-objectGetIndexInParent _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_index_in_parent _obj'- touchManagedPtr _obj- return result--data ObjectGetIndexInParentMethodInfo-instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetIndexInParentMethodInfo a signature where- overloadedMethod _ = objectGetIndexInParent---- method Object::get_layer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Layer")--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_layer" atk_object_get_layer :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO CUInt--{-# DEPRECATED objectGetLayer ["Use atk_component_get_layer instead."]#-}-objectGetLayer ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Layer -- result-objectGetLayer _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_layer _obj'- let result' = (toEnum . fromIntegral) result- touchManagedPtr _obj- return result'--data ObjectGetLayerMethodInfo-instance (signature ~ (m Layer), MonadIO m, ObjectK a) => MethodInfo ObjectGetLayerMethodInfo a signature where- overloadedMethod _ = objectGetLayer---- method Object::get_mdi_zorder--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_mdi_zorder" atk_object_get_mdi_zorder :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO Int32--{-# DEPRECATED objectGetMdiZorder ["Use atk_component_get_mdi_zorder instead."]#-}-objectGetMdiZorder ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Int32 -- result-objectGetMdiZorder _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_mdi_zorder _obj'- touchManagedPtr _obj- return result--data ObjectGetMdiZorderMethodInfo-instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetMdiZorderMethodInfo a signature where- overloadedMethod _ = objectGetMdiZorder---- method Object::get_n_accessible_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_n_accessible_children" atk_object_get_n_accessible_children :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO Int32---objectGetNAccessibleChildren ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Int32 -- result-objectGetNAccessibleChildren _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_n_accessible_children _obj'- touchManagedPtr _obj- return result--data ObjectGetNAccessibleChildrenMethodInfo-instance (signature ~ (m Int32), MonadIO m, ObjectK a) => MethodInfo ObjectGetNAccessibleChildrenMethodInfo a signature where- overloadedMethod _ = objectGetNAccessibleChildren---- method Object::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_name" atk_object_get_name :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO CString---objectGetName ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m T.Text -- result-objectGetName _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_name _obj'- checkUnexpectedReturnNULL "atk_object_get_name" result- result' <- cstringToText result- touchManagedPtr _obj- return result'--data ObjectGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetNameMethodInfo a signature where- overloadedMethod _ = objectGetName---- method Object::get_object_locale--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_object_locale" atk_object_get_object_locale :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO CString---objectGetObjectLocale ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m T.Text -- result-objectGetObjectLocale _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_object_locale _obj'- checkUnexpectedReturnNULL "atk_object_get_object_locale" result- result' <- cstringToText result- touchManagedPtr _obj- return result'--data ObjectGetObjectLocaleMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ObjectK a) => MethodInfo ObjectGetObjectLocaleMethodInfo a signature where- overloadedMethod _ = objectGetObjectLocale---- method Object::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_parent" atk_object_get_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO (Ptr Object)---objectGetParent ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Object -- result-objectGetParent _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_parent _obj'- checkUnexpectedReturnNULL "atk_object_get_parent" result- result' <- (newObject Object) result- touchManagedPtr _obj- return result'--data ObjectGetParentMethodInfo-instance (signature ~ (m Object), MonadIO m, ObjectK a) => MethodInfo ObjectGetParentMethodInfo a signature where- overloadedMethod _ = objectGetParent---- method Object::get_role--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Role")--- throws : False--- Skip return : False--foreign import ccall "atk_object_get_role" atk_object_get_role :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO CUInt---objectGetRole ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Role -- result-objectGetRole _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_get_role _obj'- let result' = (toEnum . fromIntegral) result- touchManagedPtr _obj- return result'--data ObjectGetRoleMethodInfo-instance (signature ~ (m Role), MonadIO m, ObjectK a) => MethodInfo ObjectGetRoleMethodInfo a signature where- overloadedMethod _ = objectGetRole---- method Object::initialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_initialize" atk_object_initialize :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- Ptr () -> -- data : TBasicType TPtr- IO ()---objectInitialize ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> Ptr () -- data_- -> m () -- result-objectInitialize _obj data_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_object_initialize _obj' data_- touchManagedPtr _obj- return ()--data ObjectInitializeMethodInfo-instance (signature ~ (Ptr () -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectInitializeMethodInfo a signature where- overloadedMethod _ = objectInitialize---- method Object::notify_state_change--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_notify_state_change" atk_object_notify_state_change :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- Word64 -> -- state : TBasicType TUInt64- CInt -> -- value : TBasicType TBoolean- IO ()---objectNotifyStateChange ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> Word64 -- state- -> Bool -- value- -> m () -- result-objectNotifyStateChange _obj state value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let value' = (fromIntegral . fromEnum) value- atk_object_notify_state_change _obj' state value'- touchManagedPtr _obj- return ()--data ObjectNotifyStateChangeMethodInfo-instance (signature ~ (Word64 -> Bool -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectNotifyStateChangeMethodInfo a signature where- overloadedMethod _ = objectNotifyStateChange---- method Object::peek_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_object_peek_parent" atk_object_peek_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO (Ptr Object)---objectPeekParent ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m Object -- result-objectPeekParent _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_peek_parent _obj'- checkUnexpectedReturnNULL "atk_object_peek_parent" result- result' <- (newObject Object) result- touchManagedPtr _obj- return result'--data ObjectPeekParentMethodInfo-instance (signature ~ (m Object), MonadIO m, ObjectK a) => MethodInfo ObjectPeekParentMethodInfo a signature where- overloadedMethod _ = objectPeekParent---- method Object::ref_accessible_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_accessible_child" atk_object_ref_accessible_child :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- Int32 -> -- i : TBasicType TInt- IO (Ptr Object)---objectRefAccessibleChild ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> Int32 -- i- -> m Object -- result-objectRefAccessibleChild _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_ref_accessible_child _obj' i- checkUnexpectedReturnNULL "atk_object_ref_accessible_child" result- result' <- (wrapObject Object) result- touchManagedPtr _obj- return result'--data ObjectRefAccessibleChildMethodInfo-instance (signature ~ (Int32 -> m Object), MonadIO m, ObjectK a) => MethodInfo ObjectRefAccessibleChildMethodInfo a signature where- overloadedMethod _ = objectRefAccessibleChild---- method Object::ref_relation_set--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "RelationSet")--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_relation_set" atk_object_ref_relation_set :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO (Ptr RelationSet)---objectRefRelationSet ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m RelationSet -- result-objectRefRelationSet _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_ref_relation_set _obj'- checkUnexpectedReturnNULL "atk_object_ref_relation_set" result- result' <- (wrapObject RelationSet) result- touchManagedPtr _obj- return result'--data ObjectRefRelationSetMethodInfo-instance (signature ~ (m RelationSet), MonadIO m, ObjectK a) => MethodInfo ObjectRefRelationSetMethodInfo a signature where- overloadedMethod _ = objectRefRelationSet---- method Object::ref_state_set--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "StateSet")--- throws : False--- Skip return : False--foreign import ccall "atk_object_ref_state_set" atk_object_ref_state_set :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- IO (Ptr StateSet)---objectRefStateSet ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> m StateSet -- result-objectRefStateSet _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_ref_state_set _obj'- checkUnexpectedReturnNULL "atk_object_ref_state_set" result- result' <- (wrapObject StateSet) result- touchManagedPtr _obj- return result'--data ObjectRefStateSetMethodInfo-instance (signature ~ (m StateSet), MonadIO m, ObjectK a) => MethodInfo ObjectRefStateSetMethodInfo a signature where- overloadedMethod _ = objectRefStateSet---- method Object::remove_property_change_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_remove_property_change_handler" atk_object_remove_property_change_handler :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- Word32 -> -- handler_id : TBasicType TUInt- IO ()--{-# DEPRECATED objectRemovePropertyChangeHandler ["Since 2.12.","","Removes a property change handler."]#-}-objectRemovePropertyChangeHandler ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> Word32 -- handlerId- -> m () -- result-objectRemovePropertyChangeHandler _obj handlerId = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_object_remove_property_change_handler _obj' handlerId- touchManagedPtr _obj- return ()--data ObjectRemovePropertyChangeHandlerMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectRemovePropertyChangeHandlerMethodInfo a signature where- overloadedMethod _ = objectRemovePropertyChangeHandler---- method Object::remove_relationship--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_object_remove_relationship" atk_object_remove_relationship :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO CInt---objectRemoveRelationship ::- (MonadIO m, ObjectK a, ObjectK b) =>- a -- _obj- -> RelationType -- relationship- -> b -- target- -> m Bool -- result-objectRemoveRelationship _obj relationship target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- let target' = unsafeManagedPtrCastPtr target- result <- atk_object_remove_relationship _obj' relationship' target'- let result' = (/= 0) result- touchManagedPtr _obj- touchManagedPtr target- return result'--data ObjectRemoveRelationshipMethodInfo-instance (signature ~ (RelationType -> b -> m Bool), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectRemoveRelationshipMethodInfo a signature where- overloadedMethod _ = objectRemoveRelationship---- method Object::set_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_description" atk_object_set_description :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- CString -> -- description : TBasicType TUTF8- IO ()---objectSetDescription ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> T.Text -- description- -> m () -- result-objectSetDescription _obj description = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- description' <- textToCString description- atk_object_set_description _obj' description'- touchManagedPtr _obj- freeMem description'- return ()--data ObjectSetDescriptionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetDescriptionMethodInfo a signature where- overloadedMethod _ = objectSetDescription---- method Object::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_name" atk_object_set_name :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- CString -> -- name : TBasicType TUTF8- IO ()---objectSetName ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> T.Text -- name- -> m () -- result-objectSetName _obj name = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- name' <- textToCString name- atk_object_set_name _obj' name'- touchManagedPtr _obj- freeMem name'- return ()--data ObjectSetNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetNameMethodInfo a signature where- overloadedMethod _ = objectSetName---- method Object::set_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_parent" atk_object_set_parent :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- Ptr Object -> -- parent : TInterface "Atk" "Object"- IO ()---objectSetParent ::- (MonadIO m, ObjectK a, ObjectK b) =>- a -- _obj- -> b -- parent- -> m () -- result-objectSetParent _obj parent = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let parent' = unsafeManagedPtrCastPtr parent- atk_object_set_parent _obj' parent'- touchManagedPtr _obj- touchManagedPtr parent- return ()--data ObjectSetParentMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ObjectK a, ObjectK b) => MethodInfo ObjectSetParentMethodInfo a signature where- overloadedMethod _ = objectSetParent---- method Object::set_role--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TInterface "Atk" "Role", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_set_role" atk_object_set_role :: - Ptr Object -> -- _obj : TInterface "Atk" "Object"- CUInt -> -- role : TInterface "Atk" "Role"- IO ()---objectSetRole ::- (MonadIO m, ObjectK a) =>- a -- _obj- -> Role -- role- -> m () -- result-objectSetRole _obj role = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let role' = (fromIntegral . fromEnum) role- atk_object_set_role _obj' role'- touchManagedPtr _obj- return ()--data ObjectSetRoleMethodInfo-instance (signature ~ (Role -> m ()), MonadIO m, ObjectK a) => MethodInfo ObjectSetRoleMethodInfo a signature where- overloadedMethod _ = objectSetRole--
− GI/Atk/Objects/Object.hs-boot
@@ -1,57 +0,0 @@-module GI.Atk.Objects.Object where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Object = Object (ForeignPtr Object)-instance GObject Object where-class GObject o => ObjectK o-instance (GObject o, IsDescendantOf Object o) => ObjectK o-data ObjectAccessibleComponentLayerPropertyInfo-data ObjectAccessibleComponentMdiZorderPropertyInfo-data ObjectAccessibleDescriptionPropertyInfo-data ObjectAccessibleHypertextNlinksPropertyInfo-data ObjectAccessibleNamePropertyInfo-data ObjectAccessibleParentPropertyInfo-data ObjectAccessibleRolePropertyInfo-data ObjectAccessibleTableCaptionPropertyInfo-data ObjectAccessibleTableCaptionObjectPropertyInfo-data ObjectAccessibleTableColumnDescriptionPropertyInfo-data ObjectAccessibleTableColumnHeaderPropertyInfo-data ObjectAccessibleTableRowDescriptionPropertyInfo-data ObjectAccessibleTableRowHeaderPropertyInfo-data ObjectAccessibleTableSummaryPropertyInfo-data ObjectAccessibleValuePropertyInfo-data ObjectActiveDescendantChangedSignalInfo-data ObjectChildrenChangedSignalInfo-data ObjectFocusEventSignalInfo-data ObjectPropertyChangeSignalInfo-data ObjectStateChangeSignalInfo-data ObjectVisibleDataChangedSignalInfo-data ObjectAddRelationshipMethodInfo-data ObjectGetAttributesMethodInfo-data ObjectGetDescriptionMethodInfo-data ObjectGetIndexInParentMethodInfo-data ObjectGetLayerMethodInfo-data ObjectGetMdiZorderMethodInfo-data ObjectGetNAccessibleChildrenMethodInfo-data ObjectGetNameMethodInfo-data ObjectGetObjectLocaleMethodInfo-data ObjectGetParentMethodInfo-data ObjectGetRoleMethodInfo-data ObjectInitializeMethodInfo-data ObjectNotifyStateChangeMethodInfo-data ObjectPeekParentMethodInfo-data ObjectRefAccessibleChildMethodInfo-data ObjectRefRelationSetMethodInfo-data ObjectRefStateSetMethodInfo-data ObjectRemovePropertyChangeHandlerMethodInfo-data ObjectRemoveRelationshipMethodInfo-data ObjectSetDescriptionMethodInfo-data ObjectSetNameMethodInfo-data ObjectSetParentMethodInfo-data ObjectSetRoleMethodInfo
− GI/Atk/Objects/ObjectFactory.hs
@@ -1,201 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.ObjectFactory- ( ---- * Exported types- ObjectFactory(..) ,- ObjectFactoryK ,- toObjectFactory ,- noObjectFactory ,--- -- * Methods--- ** objectFactoryCreateAccessible- ObjectFactoryCreateAccessibleMethodInfo ,- objectFactoryCreateAccessible ,----- ** objectFactoryGetAccessibleType- ObjectFactoryGetAccessibleTypeMethodInfo,- objectFactoryGetAccessibleType ,----- ** objectFactoryInvalidate- ObjectFactoryInvalidateMethodInfo ,- objectFactoryInvalidate ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory)-foreign import ccall "atk_object_factory_get_type"- c_atk_object_factory_get_type :: IO GType--type instance ParentTypes ObjectFactory = ObjectFactoryParentTypes-type ObjectFactoryParentTypes = '[GObject.Object]--instance GObject ObjectFactory where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_object_factory_get_type- --class GObject o => ObjectFactoryK o-instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o--toObjectFactory :: ObjectFactoryK o => o -> IO ObjectFactory-toObjectFactory = unsafeCastTo ObjectFactory--noObjectFactory :: Maybe ObjectFactory-noObjectFactory = Nothing--type family ResolveObjectFactoryMethod (t :: Symbol) (o :: *) :: * where- ResolveObjectFactoryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveObjectFactoryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveObjectFactoryMethod "createAccessible" o = ObjectFactoryCreateAccessibleMethodInfo- ResolveObjectFactoryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveObjectFactoryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveObjectFactoryMethod "invalidate" o = ObjectFactoryInvalidateMethodInfo- ResolveObjectFactoryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveObjectFactoryMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveObjectFactoryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveObjectFactoryMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveObjectFactoryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveObjectFactoryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveObjectFactoryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveObjectFactoryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveObjectFactoryMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveObjectFactoryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveObjectFactoryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveObjectFactoryMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveObjectFactoryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveObjectFactoryMethod "getAccessibleType" o = ObjectFactoryGetAccessibleTypeMethodInfo- ResolveObjectFactoryMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveObjectFactoryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveObjectFactoryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveObjectFactoryMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveObjectFactoryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveObjectFactoryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveObjectFactoryMethod t ObjectFactory, MethodInfo info ObjectFactory p) => IsLabelProxy t (ObjectFactory -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveObjectFactoryMethod t ObjectFactory, MethodInfo info ObjectFactory p) => IsLabel t (ObjectFactory -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ObjectFactory = ObjectFactoryAttributeList-type ObjectFactoryAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ObjectFactory = ObjectFactorySignalList-type ObjectFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ObjectFactory::create_accessible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obj", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_create_accessible" atk_object_factory_create_accessible :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory"- Ptr GObject.Object -> -- obj : TInterface "GObject" "Object"- IO (Ptr Object)---objectFactoryCreateAccessible ::- (MonadIO m, ObjectFactoryK a, GObject.ObjectK b) =>- a -- _obj- -> b -- obj- -> m Object -- result-objectFactoryCreateAccessible _obj obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let obj' = unsafeManagedPtrCastPtr obj- result <- atk_object_factory_create_accessible _obj' obj'- checkUnexpectedReturnNULL "atk_object_factory_create_accessible" result- result' <- (wrapObject Object) result- touchManagedPtr _obj- touchManagedPtr obj- return result'--data ObjectFactoryCreateAccessibleMethodInfo-instance (signature ~ (b -> m Object), MonadIO m, ObjectFactoryK a, GObject.ObjectK b) => MethodInfo ObjectFactoryCreateAccessibleMethodInfo a signature where- overloadedMethod _ = objectFactoryCreateAccessible---- method ObjectFactory::get_accessible_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_get_accessible_type" atk_object_factory_get_accessible_type :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory"- IO CGType---objectFactoryGetAccessibleType ::- (MonadIO m, ObjectFactoryK a) =>- a -- _obj- -> m GType -- result-objectFactoryGetAccessibleType _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_object_factory_get_accessible_type _obj'- let result' = GType result- touchManagedPtr _obj- return result'--data ObjectFactoryGetAccessibleTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, ObjectFactoryK a) => MethodInfo ObjectFactoryGetAccessibleTypeMethodInfo a signature where- overloadedMethod _ = objectFactoryGetAccessibleType---- method ObjectFactory::invalidate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "ObjectFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_object_factory_invalidate" atk_object_factory_invalidate :: - Ptr ObjectFactory -> -- _obj : TInterface "Atk" "ObjectFactory"- IO ()---objectFactoryInvalidate ::- (MonadIO m, ObjectFactoryK a) =>- a -- _obj- -> m () -- result-objectFactoryInvalidate _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_object_factory_invalidate _obj'- touchManagedPtr _obj- return ()--data ObjectFactoryInvalidateMethodInfo-instance (signature ~ (m ()), MonadIO m, ObjectFactoryK a) => MethodInfo ObjectFactoryInvalidateMethodInfo a signature where- overloadedMethod _ = objectFactoryInvalidate--
− GI/Atk/Objects/ObjectFactory.hs-boot
@@ -1,16 +0,0 @@-module GI.Atk.Objects.ObjectFactory where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ObjectFactory = ObjectFactory (ForeignPtr ObjectFactory)-instance GObject ObjectFactory where-class GObject o => ObjectFactoryK o-instance (GObject o, IsDescendantOf ObjectFactory o) => ObjectFactoryK o-data ObjectFactoryCreateAccessibleMethodInfo-data ObjectFactoryGetAccessibleTypeMethodInfo-data ObjectFactoryInvalidateMethodInfo
− GI/Atk/Objects/Plug.hs
@@ -1,188 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Plug- ( ---- * Exported types- Plug(..) ,- PlugK ,- toPlug ,- noPlug ,--- -- * Methods--- ** plugGetId- PlugGetIdMethodInfo ,- plugGetId ,----- ** plugNew- plugNew ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Plug = Plug (ForeignPtr Plug)-foreign import ccall "atk_plug_get_type"- c_atk_plug_get_type :: IO GType--type instance ParentTypes Plug = PlugParentTypes-type PlugParentTypes = '[Object, GObject.Object, Component]--instance GObject Plug where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_plug_get_type- --class GObject o => PlugK o-instance (GObject o, IsDescendantOf Plug o) => PlugK o--toPlug :: PlugK o => o -> IO Plug-toPlug = unsafeCastTo Plug--noPlug :: Maybe Plug-noPlug = Nothing--type family ResolvePlugMethod (t :: Symbol) (o :: *) :: * where- ResolvePlugMethod "addRelationship" o = ObjectAddRelationshipMethodInfo- ResolvePlugMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolvePlugMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolvePlugMethod "contains" o = ComponentContainsMethodInfo- ResolvePlugMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolvePlugMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolvePlugMethod "grabFocus" o = ComponentGrabFocusMethodInfo- ResolvePlugMethod "initialize" o = ObjectInitializeMethodInfo- ResolvePlugMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolvePlugMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolvePlugMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolvePlugMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo- ResolvePlugMethod "peekParent" o = ObjectPeekParentMethodInfo- ResolvePlugMethod "ref" o = GObject.ObjectRefMethodInfo- ResolvePlugMethod "refAccessibleAtPoint" o = ComponentRefAccessibleAtPointMethodInfo- ResolvePlugMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo- ResolvePlugMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo- ResolvePlugMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolvePlugMethod "refStateSet" o = ObjectRefStateSetMethodInfo- ResolvePlugMethod "removeFocusHandler" o = ComponentRemoveFocusHandlerMethodInfo- ResolvePlugMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo- ResolvePlugMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo- ResolvePlugMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolvePlugMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolvePlugMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolvePlugMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolvePlugMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolvePlugMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolvePlugMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolvePlugMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolvePlugMethod "getAlpha" o = ComponentGetAlphaMethodInfo- ResolvePlugMethod "getAttributes" o = ObjectGetAttributesMethodInfo- ResolvePlugMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolvePlugMethod "getDescription" o = ObjectGetDescriptionMethodInfo- ResolvePlugMethod "getExtents" o = ComponentGetExtentsMethodInfo- ResolvePlugMethod "getId" o = PlugGetIdMethodInfo- ResolvePlugMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo- ResolvePlugMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo- ResolvePlugMethod "getName" o = ObjectGetNameMethodInfo- ResolvePlugMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo- ResolvePlugMethod "getParent" o = ObjectGetParentMethodInfo- ResolvePlugMethod "getPosition" o = ComponentGetPositionMethodInfo- ResolvePlugMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolvePlugMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolvePlugMethod "getRole" o = ObjectGetRoleMethodInfo- ResolvePlugMethod "getSize" o = ComponentGetSizeMethodInfo- ResolvePlugMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolvePlugMethod "setDescription" o = ObjectSetDescriptionMethodInfo- ResolvePlugMethod "setExtents" o = ComponentSetExtentsMethodInfo- ResolvePlugMethod "setName" o = ObjectSetNameMethodInfo- ResolvePlugMethod "setParent" o = ObjectSetParentMethodInfo- ResolvePlugMethod "setPosition" o = ComponentSetPositionMethodInfo- ResolvePlugMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolvePlugMethod "setRole" o = ObjectSetRoleMethodInfo- ResolvePlugMethod "setSize" o = ComponentSetSizeMethodInfo- ResolvePlugMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePlugMethod t Plug, MethodInfo info Plug p) => IsLabelProxy t (Plug -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePlugMethod t Plug, MethodInfo info Plug p) => IsLabel t (Plug -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Plug = PlugAttributeList-type PlugAttributeList = ('[ '("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 Plug = PlugSignalList-type PlugSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", ComponentBoundsChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])---- method Plug::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Plug")--- throws : False--- Skip return : False--foreign import ccall "atk_plug_new" atk_plug_new :: - IO (Ptr Plug)---plugNew ::- (MonadIO m) =>- m Plug -- result-plugNew = liftIO $ do- result <- atk_plug_new- checkUnexpectedReturnNULL "atk_plug_new" result- result' <- (wrapObject Plug) result- return result'---- method Plug::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_plug_get_id" atk_plug_get_id :: - Ptr Plug -> -- _obj : TInterface "Atk" "Plug"- IO CString---plugGetId ::- (MonadIO m, PlugK a) =>- a -- _obj- -> m T.Text -- result-plugGetId _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_plug_get_id _obj'- checkUnexpectedReturnNULL "atk_plug_get_id" result- result' <- cstringToText result- freeMem result- touchManagedPtr _obj- return result'--data PlugGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where- overloadedMethod _ = plugGetId--
− GI/Atk/Objects/Plug.hs-boot
@@ -1,14 +0,0 @@-module GI.Atk.Objects.Plug where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Plug = Plug (ForeignPtr Plug)-instance GObject Plug where-class GObject o => PlugK o-instance (GObject o, IsDescendantOf Plug o) => PlugK o-data PlugGetIdMethodInfo
− GI/Atk/Objects/Registry.hs
@@ -1,209 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Registry- ( ---- * Exported types- Registry(..) ,- RegistryK ,- toRegistry ,- noRegistry ,--- -- * Methods--- ** registryGetFactory- RegistryGetFactoryMethodInfo ,- registryGetFactory ,----- ** registryGetFactoryType- RegistryGetFactoryTypeMethodInfo ,- registryGetFactoryType ,----- ** registrySetFactoryType- RegistrySetFactoryTypeMethodInfo ,- registrySetFactoryType ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Registry = Registry (ForeignPtr Registry)-foreign import ccall "atk_registry_get_type"- c_atk_registry_get_type :: IO GType--type instance ParentTypes Registry = RegistryParentTypes-type RegistryParentTypes = '[GObject.Object]--instance GObject Registry where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_registry_get_type- --class GObject o => RegistryK o-instance (GObject o, IsDescendantOf Registry o) => RegistryK o--toRegistry :: RegistryK o => o -> IO Registry-toRegistry = unsafeCastTo Registry--noRegistry :: Maybe Registry-noRegistry = Nothing--type family ResolveRegistryMethod (t :: Symbol) (o :: *) :: * where- ResolveRegistryMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveRegistryMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveRegistryMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveRegistryMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveRegistryMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveRegistryMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveRegistryMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveRegistryMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveRegistryMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveRegistryMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveRegistryMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveRegistryMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveRegistryMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveRegistryMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveRegistryMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveRegistryMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveRegistryMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveRegistryMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveRegistryMethod "getFactory" o = RegistryGetFactoryMethodInfo- ResolveRegistryMethod "getFactoryType" o = RegistryGetFactoryTypeMethodInfo- ResolveRegistryMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveRegistryMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveRegistryMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveRegistryMethod "setFactoryType" o = RegistrySetFactoryTypeMethodInfo- ResolveRegistryMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveRegistryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRegistryMethod t Registry, MethodInfo info Registry p) => IsLabelProxy t (Registry -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRegistryMethod t Registry, MethodInfo info Registry p) => IsLabel t (Registry -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Registry = RegistryAttributeList-type RegistryAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Registry = RegistrySignalList-type RegistrySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Registry::get_factory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "ObjectFactory")--- throws : False--- Skip return : False--foreign import ccall "atk_registry_get_factory" atk_registry_get_factory :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry"- CGType -> -- type : TBasicType TGType- IO (Ptr ObjectFactory)---registryGetFactory ::- (MonadIO m, RegistryK a) =>- a -- _obj- -> GType -- type_- -> m ObjectFactory -- result-registryGetFactory _obj type_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = gtypeToCGType type_- result <- atk_registry_get_factory _obj' type_'- checkUnexpectedReturnNULL "atk_registry_get_factory" result- result' <- (newObject ObjectFactory) result- touchManagedPtr _obj- return result'--data RegistryGetFactoryMethodInfo-instance (signature ~ (GType -> m ObjectFactory), MonadIO m, RegistryK a) => MethodInfo RegistryGetFactoryMethodInfo a signature where- overloadedMethod _ = registryGetFactory---- method Registry::get_factory_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "atk_registry_get_factory_type" atk_registry_get_factory_type :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry"- CGType -> -- type : TBasicType TGType- IO CGType---registryGetFactoryType ::- (MonadIO m, RegistryK a) =>- a -- _obj- -> GType -- type_- -> m GType -- result-registryGetFactoryType _obj type_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = gtypeToCGType type_- result <- atk_registry_get_factory_type _obj' type_'- let result' = GType result- touchManagedPtr _obj- return result'--data RegistryGetFactoryTypeMethodInfo-instance (signature ~ (GType -> m GType), MonadIO m, RegistryK a) => MethodInfo RegistryGetFactoryTypeMethodInfo a signature where- overloadedMethod _ = registryGetFactoryType---- method Registry::set_factory_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Registry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factory_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_registry_set_factory_type" atk_registry_set_factory_type :: - Ptr Registry -> -- _obj : TInterface "Atk" "Registry"- CGType -> -- type : TBasicType TGType- CGType -> -- factory_type : TBasicType TGType- IO ()---registrySetFactoryType ::- (MonadIO m, RegistryK a) =>- a -- _obj- -> GType -- type_- -> GType -- factoryType- -> m () -- result-registrySetFactoryType _obj type_ factoryType = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = gtypeToCGType type_- let factoryType' = gtypeToCGType factoryType- atk_registry_set_factory_type _obj' type_' factoryType'- touchManagedPtr _obj- return ()--data RegistrySetFactoryTypeMethodInfo-instance (signature ~ (GType -> GType -> m ()), MonadIO m, RegistryK a) => MethodInfo RegistrySetFactoryTypeMethodInfo a signature where- overloadedMethod _ = registrySetFactoryType--
− GI/Atk/Objects/Registry.hs-boot
@@ -1,16 +0,0 @@-module GI.Atk.Objects.Registry where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Registry = Registry (ForeignPtr Registry)-instance GObject Registry where-class GObject o => RegistryK o-instance (GObject o, IsDescendantOf Registry o) => RegistryK o-data RegistryGetFactoryMethodInfo-data RegistryGetFactoryTypeMethodInfo-data RegistrySetFactoryTypeMethodInfo
− GI/Atk/Objects/Relation.hs
@@ -1,357 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Relation- ( ---- * Exported types- Relation(..) ,- RelationK ,- toRelation ,- noRelation ,--- -- * Methods--- ** relationAddTarget- RelationAddTargetMethodInfo ,- relationAddTarget ,----- ** relationGetRelationType- RelationGetRelationTypeMethodInfo ,- relationGetRelationType ,----- ** relationGetTarget- RelationGetTargetMethodInfo ,- relationGetTarget ,----- ** relationNew- relationNew ,----- ** relationRemoveTarget- RelationRemoveTargetMethodInfo ,- relationRemoveTarget ,----- -- * Properties--- ** RelationType- RelationRelationTypePropertyInfo ,- constructRelationRelationType ,- getRelationRelationType ,- relationRelationType ,- setRelationRelationType ,----- ** Target- RelationTargetPropertyInfo ,- clearRelationTarget ,- constructRelationTarget ,- getRelationTarget ,- relationTarget ,- setRelationTarget ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Relation = Relation (ForeignPtr Relation)-foreign import ccall "atk_relation_get_type"- c_atk_relation_get_type :: IO GType--type instance ParentTypes Relation = RelationParentTypes-type RelationParentTypes = '[GObject.Object]--instance GObject Relation where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_relation_get_type- --class GObject o => RelationK o-instance (GObject o, IsDescendantOf Relation o) => RelationK o--toRelation :: RelationK o => o -> IO Relation-toRelation = unsafeCastTo Relation--noRelation :: Maybe Relation-noRelation = Nothing--type family ResolveRelationMethod (t :: Symbol) (o :: *) :: * where- ResolveRelationMethod "addTarget" o = RelationAddTargetMethodInfo- ResolveRelationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveRelationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveRelationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveRelationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveRelationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveRelationMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveRelationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveRelationMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveRelationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveRelationMethod "removeTarget" o = RelationRemoveTargetMethodInfo- ResolveRelationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveRelationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveRelationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveRelationMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveRelationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveRelationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveRelationMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveRelationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveRelationMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveRelationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveRelationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveRelationMethod "getRelationType" o = RelationGetRelationTypeMethodInfo- ResolveRelationMethod "getTarget" o = RelationGetTargetMethodInfo- ResolveRelationMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveRelationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveRelationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRelationMethod t Relation, MethodInfo info Relation p) => IsLabelProxy t (Relation -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRelationMethod t Relation, MethodInfo info Relation p) => IsLabel t (Relation -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "relation-type"- -- Type: TInterface "Atk" "RelationType"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Just False,Nothing)--getRelationRelationType :: (MonadIO m, RelationK o) => o -> m RelationType-getRelationRelationType obj = liftIO $ getObjectPropertyEnum obj "relation-type"--setRelationRelationType :: (MonadIO m, RelationK o) => o -> RelationType -> m ()-setRelationRelationType obj val = liftIO $ setObjectPropertyEnum obj "relation-type" val--constructRelationRelationType :: RelationType -> IO ([Char], GValue)-constructRelationRelationType val = constructObjectPropertyEnum "relation-type" val--data RelationRelationTypePropertyInfo-instance AttrInfo RelationRelationTypePropertyInfo where- type AttrAllowedOps RelationRelationTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]- type AttrSetTypeConstraint RelationRelationTypePropertyInfo = (~) RelationType- type AttrBaseTypeConstraint RelationRelationTypePropertyInfo = RelationK- type AttrGetType RelationRelationTypePropertyInfo = RelationType- type AttrLabel RelationRelationTypePropertyInfo = "relation-type"- attrGet _ = getRelationRelationType- attrSet _ = setRelationRelationType- attrConstruct _ = constructRelationRelationType- attrClear _ = undefined---- VVV Prop "target"- -- Type: TInterface "GObject" "ValueArray"- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Nothing)--getRelationTarget :: (MonadIO m, RelationK o) => o -> m (Maybe GObject.ValueArray)-getRelationTarget obj = liftIO $ getObjectPropertyBoxed obj "target" GObject.ValueArray--setRelationTarget :: (MonadIO m, RelationK o) => o -> GObject.ValueArray -> m ()-setRelationTarget obj val = liftIO $ setObjectPropertyBoxed obj "target" (Just val)--constructRelationTarget :: GObject.ValueArray -> IO ([Char], GValue)-constructRelationTarget val = constructObjectPropertyBoxed "target" (Just val)--clearRelationTarget :: (MonadIO m, RelationK o) => o -> m ()-clearRelationTarget obj = liftIO $ setObjectPropertyBoxed obj "target" (Nothing :: Maybe GObject.ValueArray)--data RelationTargetPropertyInfo-instance AttrInfo RelationTargetPropertyInfo where- type AttrAllowedOps RelationTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint RelationTargetPropertyInfo = (~) GObject.ValueArray- type AttrBaseTypeConstraint RelationTargetPropertyInfo = RelationK- type AttrGetType RelationTargetPropertyInfo = (Maybe GObject.ValueArray)- type AttrLabel RelationTargetPropertyInfo = "target"- attrGet _ = getRelationTarget- attrSet _ = setRelationTarget- attrConstruct _ = constructRelationTarget- attrClear _ = clearRelationTarget--type instance AttributeList Relation = RelationAttributeList-type RelationAttributeList = ('[ '("relationType", RelationRelationTypePropertyInfo), '("target", RelationTargetPropertyInfo)] :: [(Symbol, *)])--relationRelationType :: AttrLabelProxy "relationType"-relationRelationType = AttrLabelProxy--relationTarget :: AttrLabelProxy "target"-relationTarget = AttrLabelProxy--type instance SignalList Relation = RelationSignalList-type RelationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Relation::new--- method type : Constructor--- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Atk" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Atk" "Relation")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_new" atk_relation_new :: - Ptr (Ptr Object) -> -- targets : TCArray False (-1) 1 (TInterface "Atk" "Object")- Int32 -> -- n_targets : TBasicType TInt- CUInt -> -- relationship : TInterface "Atk" "RelationType"- IO (Ptr Relation)---relationNew ::- (MonadIO m) =>- [Object] -- targets- -> RelationType -- relationship- -> m Relation -- result-relationNew targets relationship = liftIO $ do- let nTargets = fromIntegral $ length targets- let targets' = map unsafeManagedPtrCastPtr targets- targets'' <- packPtrArray targets'- let relationship' = (fromIntegral . fromEnum) relationship- result <- atk_relation_new targets'' nTargets relationship'- checkUnexpectedReturnNULL "atk_relation_new" result- result' <- (wrapObject Relation) result- mapM_ touchManagedPtr targets- freeMem targets''- return result'---- method Relation::add_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_relation_add_target" atk_relation_add_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO ()---relationAddTarget ::- (MonadIO m, RelationK a, ObjectK b) =>- a -- _obj- -> b -- target- -> m () -- result-relationAddTarget _obj target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let target' = unsafeManagedPtrCastPtr target- atk_relation_add_target _obj' target'- touchManagedPtr _obj- touchManagedPtr target- return ()--data RelationAddTargetMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, RelationK a, ObjectK b) => MethodInfo RelationAddTargetMethodInfo a signature where- overloadedMethod _ = relationAddTarget---- method Relation::get_relation_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "RelationType")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_get_relation_type" atk_relation_get_relation_type :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation"- IO CUInt---relationGetRelationType ::- (MonadIO m, RelationK a) =>- a -- _obj- -> m RelationType -- result-relationGetRelationType _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_relation_get_relation_type _obj'- let result' = (toEnum . fromIntegral) result- touchManagedPtr _obj- return result'--data RelationGetRelationTypeMethodInfo-instance (signature ~ (m RelationType), MonadIO m, RelationK a) => MethodInfo RelationGetRelationTypeMethodInfo a signature where- overloadedMethod _ = relationGetRelationType---- method Relation::get_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TPtrArray (TInterface "Atk" "Object"))--- throws : False--- Skip return : False--foreign import ccall "atk_relation_get_target" atk_relation_get_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation"- IO (Ptr (GPtrArray (Ptr Object)))---relationGetTarget ::- (MonadIO m, RelationK a) =>- a -- _obj- -> m [Object] -- result-relationGetTarget _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_relation_get_target _obj'- checkUnexpectedReturnNULL "atk_relation_get_target" result- result' <- unpackGPtrArray result- result'' <- mapM (newObject Object) result'- touchManagedPtr _obj- return result''--data RelationGetTargetMethodInfo-instance (signature ~ (m [Object]), MonadIO m, RelationK a) => MethodInfo RelationGetTargetMethodInfo a signature where- overloadedMethod _ = relationGetTarget---- method Relation::remove_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_relation_remove_target" atk_relation_remove_target :: - Ptr Relation -> -- _obj : TInterface "Atk" "Relation"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO CInt---relationRemoveTarget ::- (MonadIO m, RelationK a, ObjectK b) =>- a -- _obj- -> b -- target- -> m Bool -- result-relationRemoveTarget _obj target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let target' = unsafeManagedPtrCastPtr target- result <- atk_relation_remove_target _obj' target'- let result' = (/= 0) result- touchManagedPtr _obj- touchManagedPtr target- return result'--data RelationRemoveTargetMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, RelationK a, ObjectK b) => MethodInfo RelationRemoveTargetMethodInfo a signature where- overloadedMethod _ = relationRemoveTarget--
− GI/Atk/Objects/Relation.hs-boot
@@ -1,19 +0,0 @@-module GI.Atk.Objects.Relation where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Relation = Relation (ForeignPtr Relation)-instance GObject Relation where-class GObject o => RelationK o-instance (GObject o, IsDescendantOf Relation o) => RelationK o-data RelationRelationTypePropertyInfo-data RelationTargetPropertyInfo-data RelationAddTargetMethodInfo-data RelationGetRelationTypeMethodInfo-data RelationGetTargetMethodInfo-data RelationRemoveTargetMethodInfo
− GI/Atk/Objects/RelationSet.hs
@@ -1,420 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.RelationSet- ( ---- * Exported types- RelationSet(..) ,- RelationSetK ,- toRelationSet ,- noRelationSet ,--- -- * Methods--- ** relationSetAdd- RelationSetAddMethodInfo ,- relationSetAdd ,----- ** relationSetAddRelationByType- RelationSetAddRelationByTypeMethodInfo ,- relationSetAddRelationByType ,----- ** relationSetContains- RelationSetContainsMethodInfo ,- relationSetContains ,----- ** relationSetContainsTarget- RelationSetContainsTargetMethodInfo ,- relationSetContainsTarget ,----- ** relationSetGetNRelations- RelationSetGetNRelationsMethodInfo ,- relationSetGetNRelations ,----- ** relationSetGetRelation- RelationSetGetRelationMethodInfo ,- relationSetGetRelation ,----- ** relationSetGetRelationByType- RelationSetGetRelationByTypeMethodInfo ,- relationSetGetRelationByType ,----- ** relationSetNew- relationSetNew ,----- ** relationSetRemove- RelationSetRemoveMethodInfo ,- relationSetRemove ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype RelationSet = RelationSet (ForeignPtr RelationSet)-foreign import ccall "atk_relation_set_get_type"- c_atk_relation_set_get_type :: IO GType--type instance ParentTypes RelationSet = RelationSetParentTypes-type RelationSetParentTypes = '[GObject.Object]--instance GObject RelationSet where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_relation_set_get_type- --class GObject o => RelationSetK o-instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o--toRelationSet :: RelationSetK o => o -> IO RelationSet-toRelationSet = unsafeCastTo RelationSet--noRelationSet :: Maybe RelationSet-noRelationSet = Nothing--type family ResolveRelationSetMethod (t :: Symbol) (o :: *) :: * where- ResolveRelationSetMethod "add" o = RelationSetAddMethodInfo- ResolveRelationSetMethod "addRelationByType" o = RelationSetAddRelationByTypeMethodInfo- ResolveRelationSetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveRelationSetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveRelationSetMethod "contains" o = RelationSetContainsMethodInfo- ResolveRelationSetMethod "containsTarget" o = RelationSetContainsTargetMethodInfo- ResolveRelationSetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveRelationSetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveRelationSetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveRelationSetMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveRelationSetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveRelationSetMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveRelationSetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveRelationSetMethod "remove" o = RelationSetRemoveMethodInfo- ResolveRelationSetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveRelationSetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveRelationSetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveRelationSetMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveRelationSetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveRelationSetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveRelationSetMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveRelationSetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveRelationSetMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveRelationSetMethod "getNRelations" o = RelationSetGetNRelationsMethodInfo- ResolveRelationSetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveRelationSetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveRelationSetMethod "getRelation" o = RelationSetGetRelationMethodInfo- ResolveRelationSetMethod "getRelationByType" o = RelationSetGetRelationByTypeMethodInfo- ResolveRelationSetMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveRelationSetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveRelationSetMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRelationSetMethod t RelationSet, MethodInfo info RelationSet p) => IsLabelProxy t (RelationSet -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRelationSetMethod t RelationSet, MethodInfo info RelationSet p) => IsLabel t (RelationSet -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList RelationSet = RelationSetAttributeList-type RelationSetAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList RelationSet = RelationSetSignalList-type RelationSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method RelationSet::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "RelationSet")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_new" atk_relation_set_new :: - IO (Ptr RelationSet)---relationSetNew ::- (MonadIO m) =>- m RelationSet -- result-relationSetNew = liftIO $ do- result <- atk_relation_set_new- checkUnexpectedReturnNULL "atk_relation_set_new" result- result' <- (wrapObject RelationSet) result- return result'---- method RelationSet::add--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_add" atk_relation_set_add :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- Ptr Relation -> -- relation : TInterface "Atk" "Relation"- IO ()---relationSetAdd ::- (MonadIO m, RelationSetK a, RelationK b) =>- a -- _obj- -> b -- relation- -> m () -- result-relationSetAdd _obj relation = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relation' = unsafeManagedPtrCastPtr relation- atk_relation_set_add _obj' relation'- touchManagedPtr _obj- touchManagedPtr relation- return ()--data RelationSetAddMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, RelationSetK a, RelationK b) => MethodInfo RelationSetAddMethodInfo a signature where- overloadedMethod _ = relationSetAdd---- method RelationSet::add_relation_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_add_relation_by_type" atk_relation_set_add_relation_by_type :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO ()---relationSetAddRelationByType ::- (MonadIO m, RelationSetK a, ObjectK b) =>- a -- _obj- -> RelationType -- relationship- -> b -- target- -> m () -- result-relationSetAddRelationByType _obj relationship target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- let target' = unsafeManagedPtrCastPtr target- atk_relation_set_add_relation_by_type _obj' relationship' target'- touchManagedPtr _obj- touchManagedPtr target- return ()--data RelationSetAddRelationByTypeMethodInfo-instance (signature ~ (RelationType -> b -> m ()), MonadIO m, RelationSetK a, ObjectK b) => MethodInfo RelationSetAddRelationByTypeMethodInfo a signature where- overloadedMethod _ = relationSetAddRelationByType---- method RelationSet::contains--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_contains" atk_relation_set_contains :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- IO CInt---relationSetContains ::- (MonadIO m, RelationSetK a) =>- a -- _obj- -> RelationType -- relationship- -> m Bool -- result-relationSetContains _obj relationship = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- result <- atk_relation_set_contains _obj' relationship'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data RelationSetContainsMethodInfo-instance (signature ~ (RelationType -> m Bool), MonadIO m, RelationSetK a) => MethodInfo RelationSetContainsMethodInfo a signature where- overloadedMethod _ = relationSetContains---- method RelationSet::contains_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Atk" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_contains_target" atk_relation_set_contains_target :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- Ptr Object -> -- target : TInterface "Atk" "Object"- IO CInt---relationSetContainsTarget ::- (MonadIO m, RelationSetK a, ObjectK b) =>- a -- _obj- -> RelationType -- relationship- -> b -- target- -> m Bool -- result-relationSetContainsTarget _obj relationship target = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- let target' = unsafeManagedPtrCastPtr target- result <- atk_relation_set_contains_target _obj' relationship' target'- let result' = (/= 0) result- touchManagedPtr _obj- touchManagedPtr target- return result'--data RelationSetContainsTargetMethodInfo-instance (signature ~ (RelationType -> b -> m Bool), MonadIO m, RelationSetK a, ObjectK b) => MethodInfo RelationSetContainsTargetMethodInfo a signature where- overloadedMethod _ = relationSetContainsTarget---- method RelationSet::get_n_relations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_n_relations" atk_relation_set_get_n_relations :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- IO Int32---relationSetGetNRelations ::- (MonadIO m, RelationSetK a) =>- a -- _obj- -> m Int32 -- result-relationSetGetNRelations _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_relation_set_get_n_relations _obj'- touchManagedPtr _obj- return result--data RelationSetGetNRelationsMethodInfo-instance (signature ~ (m Int32), MonadIO m, RelationSetK a) => MethodInfo RelationSetGetNRelationsMethodInfo a signature where- overloadedMethod _ = relationSetGetNRelations---- method RelationSet::get_relation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "i", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Relation")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_relation" atk_relation_set_get_relation :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- Int32 -> -- i : TBasicType TInt- IO (Ptr Relation)---relationSetGetRelation ::- (MonadIO m, RelationSetK a) =>- a -- _obj- -> Int32 -- i- -> m Relation -- result-relationSetGetRelation _obj i = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_relation_set_get_relation _obj' i- checkUnexpectedReturnNULL "atk_relation_set_get_relation" result- result' <- (newObject Relation) result- touchManagedPtr _obj- return result'--data RelationSetGetRelationMethodInfo-instance (signature ~ (Int32 -> m Relation), MonadIO m, RelationSetK a) => MethodInfo RelationSetGetRelationMethodInfo a signature where- overloadedMethod _ = relationSetGetRelation---- method RelationSet::get_relation_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationship", argType = TInterface "Atk" "RelationType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Relation")--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_get_relation_by_type" atk_relation_set_get_relation_by_type :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- CUInt -> -- relationship : TInterface "Atk" "RelationType"- IO (Ptr Relation)---relationSetGetRelationByType ::- (MonadIO m, RelationSetK a) =>- a -- _obj- -> RelationType -- relationship- -> m Relation -- result-relationSetGetRelationByType _obj relationship = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relationship' = (fromIntegral . fromEnum) relationship- result <- atk_relation_set_get_relation_by_type _obj' relationship'- checkUnexpectedReturnNULL "atk_relation_set_get_relation_by_type" result- result' <- (newObject Relation) result- touchManagedPtr _obj- return result'--data RelationSetGetRelationByTypeMethodInfo-instance (signature ~ (RelationType -> m Relation), MonadIO m, RelationSetK a) => MethodInfo RelationSetGetRelationByTypeMethodInfo a signature where- overloadedMethod _ = relationSetGetRelationByType---- method RelationSet::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relation", argType = TInterface "Atk" "Relation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_relation_set_remove" atk_relation_set_remove :: - Ptr RelationSet -> -- _obj : TInterface "Atk" "RelationSet"- Ptr Relation -> -- relation : TInterface "Atk" "Relation"- IO ()---relationSetRemove ::- (MonadIO m, RelationSetK a, RelationK b) =>- a -- _obj- -> b -- relation- -> m () -- result-relationSetRemove _obj relation = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let relation' = unsafeManagedPtrCastPtr relation- atk_relation_set_remove _obj' relation'- touchManagedPtr _obj- touchManagedPtr relation- return ()--data RelationSetRemoveMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, RelationSetK a, RelationK b) => MethodInfo RelationSetRemoveMethodInfo a signature where- overloadedMethod _ = relationSetRemove--
− GI/Atk/Objects/RelationSet.hs-boot
@@ -1,21 +0,0 @@-module GI.Atk.Objects.RelationSet where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RelationSet = RelationSet (ForeignPtr RelationSet)-instance GObject RelationSet where-class GObject o => RelationSetK o-instance (GObject o, IsDescendantOf RelationSet o) => RelationSetK o-data RelationSetAddMethodInfo-data RelationSetAddRelationByTypeMethodInfo-data RelationSetContainsMethodInfo-data RelationSetContainsTargetMethodInfo-data RelationSetGetNRelationsMethodInfo-data RelationSetGetRelationMethodInfo-data RelationSetGetRelationByTypeMethodInfo-data RelationSetRemoveMethodInfo
− GI/Atk/Objects/Socket.hs
@@ -1,223 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Socket- ( ---- * Exported types- Socket(..) ,- SocketK ,- toSocket ,- noSocket ,--- -- * Methods--- ** socketEmbed- SocketEmbedMethodInfo ,- socketEmbed ,----- ** socketIsOccupied- SocketIsOccupiedMethodInfo ,- socketIsOccupied ,----- ** socketNew- socketNew ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Socket = Socket (ForeignPtr Socket)-foreign import ccall "atk_socket_get_type"- c_atk_socket_get_type :: IO GType--type instance ParentTypes Socket = SocketParentTypes-type SocketParentTypes = '[Object, GObject.Object, Component]--instance GObject Socket where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_socket_get_type- --class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o--toSocket :: SocketK o => o -> IO Socket-toSocket = unsafeCastTo Socket--noSocket :: Maybe Socket-noSocket = Nothing--type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where- ResolveSocketMethod "addRelationship" o = ObjectAddRelationshipMethodInfo- ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveSocketMethod "contains" o = ComponentContainsMethodInfo- ResolveSocketMethod "embed" o = SocketEmbedMethodInfo- ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveSocketMethod "grabFocus" o = ComponentGrabFocusMethodInfo- ResolveSocketMethod "initialize" o = ObjectInitializeMethodInfo- ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveSocketMethod "isOccupied" o = SocketIsOccupiedMethodInfo- ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveSocketMethod "notifyStateChange" o = ObjectNotifyStateChangeMethodInfo- ResolveSocketMethod "peekParent" o = ObjectPeekParentMethodInfo- ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveSocketMethod "refAccessibleAtPoint" o = ComponentRefAccessibleAtPointMethodInfo- ResolveSocketMethod "refAccessibleChild" o = ObjectRefAccessibleChildMethodInfo- ResolveSocketMethod "refRelationSet" o = ObjectRefRelationSetMethodInfo- ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveSocketMethod "refStateSet" o = ObjectRefStateSetMethodInfo- ResolveSocketMethod "removeFocusHandler" o = ComponentRemoveFocusHandlerMethodInfo- ResolveSocketMethod "removePropertyChangeHandler" o = ObjectRemovePropertyChangeHandlerMethodInfo- ResolveSocketMethod "removeRelationship" o = ObjectRemoveRelationshipMethodInfo- ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveSocketMethod "getAlpha" o = ComponentGetAlphaMethodInfo- ResolveSocketMethod "getAttributes" o = ObjectGetAttributesMethodInfo- ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveSocketMethod "getDescription" o = ObjectGetDescriptionMethodInfo- ResolveSocketMethod "getExtents" o = ComponentGetExtentsMethodInfo- ResolveSocketMethod "getIndexInParent" o = ObjectGetIndexInParentMethodInfo- ResolveSocketMethod "getNAccessibleChildren" o = ObjectGetNAccessibleChildrenMethodInfo- ResolveSocketMethod "getName" o = ObjectGetNameMethodInfo- ResolveSocketMethod "getObjectLocale" o = ObjectGetObjectLocaleMethodInfo- ResolveSocketMethod "getParent" o = ObjectGetParentMethodInfo- ResolveSocketMethod "getPosition" o = ComponentGetPositionMethodInfo- ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveSocketMethod "getRole" o = ObjectGetRoleMethodInfo- ResolveSocketMethod "getSize" o = ComponentGetSizeMethodInfo- ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveSocketMethod "setDescription" o = ObjectSetDescriptionMethodInfo- ResolveSocketMethod "setExtents" o = ComponentSetExtentsMethodInfo- ResolveSocketMethod "setName" o = ObjectSetNameMethodInfo- ResolveSocketMethod "setParent" o = ObjectSetParentMethodInfo- ResolveSocketMethod "setPosition" o = ComponentSetPositionMethodInfo- ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveSocketMethod "setRole" o = ObjectSetRoleMethodInfo- ResolveSocketMethod "setSize" o = ComponentSetSizeMethodInfo- ResolveSocketMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Socket = SocketAttributeList-type SocketAttributeList = ('[ '("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 Socket = SocketSignalList-type SocketSignalList = ('[ '("activeDescendantChanged", ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", ComponentBoundsChangedSignalInfo), '("childrenChanged", ObjectChildrenChangedSignalInfo), '("focusEvent", ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", ObjectPropertyChangeSignalInfo), '("stateChange", ObjectStateChangeSignalInfo), '("visibleDataChanged", ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)])---- method Socket::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "Socket")--- throws : False--- Skip return : False--foreign import ccall "atk_socket_new" atk_socket_new :: - IO (Ptr Socket)---socketNew ::- (MonadIO m) =>- m Socket -- result-socketNew = liftIO $ do- result <- atk_socket_new- checkUnexpectedReturnNULL "atk_socket_new" result- result' <- (wrapObject Socket) result- return result'---- method Socket::embed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "plug_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_socket_embed" atk_socket_embed :: - Ptr Socket -> -- _obj : TInterface "Atk" "Socket"- CString -> -- plug_id : TBasicType TUTF8- IO ()---socketEmbed ::- (MonadIO m, SocketK a) =>- a -- _obj- -> T.Text -- plugId- -> m () -- result-socketEmbed _obj plugId = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- plugId' <- textToCString plugId- atk_socket_embed _obj' plugId'- touchManagedPtr _obj- freeMem plugId'- return ()--data SocketEmbedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SocketK a) => MethodInfo SocketEmbedMethodInfo a signature where- overloadedMethod _ = socketEmbed---- method Socket::is_occupied--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_socket_is_occupied" atk_socket_is_occupied :: - Ptr Socket -> -- _obj : TInterface "Atk" "Socket"- IO CInt---socketIsOccupied ::- (MonadIO m, SocketK a) =>- a -- _obj- -> m Bool -- result-socketIsOccupied _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_socket_is_occupied _obj'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data SocketIsOccupiedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsOccupiedMethodInfo a signature where- overloadedMethod _ = socketIsOccupied--
− GI/Atk/Objects/Socket.hs-boot
@@ -1,15 +0,0 @@-module GI.Atk.Objects.Socket where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Socket = Socket (ForeignPtr Socket)-instance GObject Socket where-class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o-data SocketEmbedMethodInfo-data SocketIsOccupiedMethodInfo
− GI/Atk/Objects/StateSet.hs
@@ -1,497 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.StateSet- ( ---- * Exported types- StateSet(..) ,- StateSetK ,- toStateSet ,- noStateSet ,--- -- * Methods--- ** stateSetAddState- StateSetAddStateMethodInfo ,- stateSetAddState ,----- ** stateSetAddStates- StateSetAddStatesMethodInfo ,- stateSetAddStates ,----- ** stateSetAndSets- StateSetAndSetsMethodInfo ,- stateSetAndSets ,----- ** stateSetClearStates- StateSetClearStatesMethodInfo ,- stateSetClearStates ,----- ** stateSetContainsState- StateSetContainsStateMethodInfo ,- stateSetContainsState ,----- ** stateSetContainsStates- StateSetContainsStatesMethodInfo ,- stateSetContainsStates ,----- ** stateSetIsEmpty- StateSetIsEmptyMethodInfo ,- stateSetIsEmpty ,----- ** stateSetNew- stateSetNew ,----- ** stateSetOrSets- StateSetOrSetsMethodInfo ,- stateSetOrSets ,----- ** stateSetRemoveState- StateSetRemoveStateMethodInfo ,- stateSetRemoveState ,----- ** stateSetXorSets- StateSetXorSetsMethodInfo ,- stateSetXorSets ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype StateSet = StateSet (ForeignPtr StateSet)-foreign import ccall "atk_state_set_get_type"- c_atk_state_set_get_type :: IO GType--type instance ParentTypes StateSet = StateSetParentTypes-type StateSetParentTypes = '[GObject.Object]--instance GObject StateSet where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_state_set_get_type- --class GObject o => StateSetK o-instance (GObject o, IsDescendantOf StateSet o) => StateSetK o--toStateSet :: StateSetK o => o -> IO StateSet-toStateSet = unsafeCastTo StateSet--noStateSet :: Maybe StateSet-noStateSet = Nothing--type family ResolveStateSetMethod (t :: Symbol) (o :: *) :: * where- ResolveStateSetMethod "addState" o = StateSetAddStateMethodInfo- ResolveStateSetMethod "addStates" o = StateSetAddStatesMethodInfo- ResolveStateSetMethod "andSets" o = StateSetAndSetsMethodInfo- ResolveStateSetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveStateSetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveStateSetMethod "clearStates" o = StateSetClearStatesMethodInfo- ResolveStateSetMethod "containsState" o = StateSetContainsStateMethodInfo- ResolveStateSetMethod "containsStates" o = StateSetContainsStatesMethodInfo- ResolveStateSetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveStateSetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveStateSetMethod "isEmpty" o = StateSetIsEmptyMethodInfo- ResolveStateSetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveStateSetMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveStateSetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveStateSetMethod "orSets" o = StateSetOrSetsMethodInfo- ResolveStateSetMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveStateSetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveStateSetMethod "removeState" o = StateSetRemoveStateMethodInfo- ResolveStateSetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveStateSetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveStateSetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveStateSetMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveStateSetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveStateSetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveStateSetMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveStateSetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveStateSetMethod "xorSets" o = StateSetXorSetsMethodInfo- ResolveStateSetMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveStateSetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveStateSetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveStateSetMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveStateSetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveStateSetMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveStateSetMethod t StateSet, MethodInfo info StateSet p) => IsLabelProxy t (StateSet -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveStateSetMethod t StateSet, MethodInfo info StateSet p) => IsLabel t (StateSet -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList StateSet = StateSetAttributeList-type StateSetAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList StateSet = StateSetSignalList-type StateSetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method StateSet::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Atk" "StateSet")--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_new" atk_state_set_new :: - IO (Ptr StateSet)---stateSetNew ::- (MonadIO m) =>- m StateSet -- result-stateSetNew = liftIO $ do- result <- atk_state_set_new- checkUnexpectedReturnNULL "atk_state_set_new" result- result' <- (wrapObject StateSet) result- return result'---- method StateSet::add_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_add_state" atk_state_set_add_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- CUInt -> -- type : TInterface "Atk" "StateType"- IO CInt---stateSetAddState ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> StateType -- type_- -> m Bool -- result-stateSetAddState _obj type_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = (fromIntegral . fromEnum) type_- result <- atk_state_set_add_state _obj' type_'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data StateSetAddStateMethodInfo-instance (signature ~ (StateType -> m Bool), MonadIO m, StateSetK a) => MethodInfo StateSetAddStateMethodInfo a signature where- overloadedMethod _ = stateSetAddState---- method StateSet::add_states--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_types", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_types", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_add_states" atk_state_set_add_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")- Int32 -> -- n_types : TBasicType TInt- IO ()---stateSetAddStates ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> [StateType] -- types- -> m () -- result-stateSetAddStates _obj types = liftIO $ do- let nTypes = fromIntegral $ length types- let _obj' = unsafeManagedPtrCastPtr _obj- let types' = map (fromIntegral . fromEnum) types- types'' <- packStorableArray types'- atk_state_set_add_states _obj' types'' nTypes- touchManagedPtr _obj- freeMem types''- return ()--data StateSetAddStatesMethodInfo-instance (signature ~ ([StateType] -> m ()), MonadIO m, StateSetK a) => MethodInfo StateSetAddStatesMethodInfo a signature where- overloadedMethod _ = stateSetAddStates---- method StateSet::and_sets--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "StateSet")--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_and_sets" atk_state_set_and_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet"- IO (Ptr StateSet)---stateSetAndSets ::- (MonadIO m, StateSetK a, StateSetK b) =>- a -- _obj- -> b -- compareSet- -> m StateSet -- result-stateSetAndSets _obj compareSet = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let compareSet' = unsafeManagedPtrCastPtr compareSet- result <- atk_state_set_and_sets _obj' compareSet'- checkUnexpectedReturnNULL "atk_state_set_and_sets" result- result' <- (wrapObject StateSet) result- touchManagedPtr _obj- touchManagedPtr compareSet- return result'--data StateSetAndSetsMethodInfo-instance (signature ~ (b -> m StateSet), MonadIO m, StateSetK a, StateSetK b) => MethodInfo StateSetAndSetsMethodInfo a signature where- overloadedMethod _ = stateSetAndSets---- method StateSet::clear_states--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_clear_states" atk_state_set_clear_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- IO ()---stateSetClearStates ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> m () -- result-stateSetClearStates _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- atk_state_set_clear_states _obj'- touchManagedPtr _obj- return ()--data StateSetClearStatesMethodInfo-instance (signature ~ (m ()), MonadIO m, StateSetK a) => MethodInfo StateSetClearStatesMethodInfo a signature where- overloadedMethod _ = stateSetClearStates---- method StateSet::contains_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_contains_state" atk_state_set_contains_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- CUInt -> -- type : TInterface "Atk" "StateType"- IO CInt---stateSetContainsState ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> StateType -- type_- -> m Bool -- result-stateSetContainsState _obj type_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = (fromIntegral . fromEnum) type_- result <- atk_state_set_contains_state _obj' type_'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data StateSetContainsStateMethodInfo-instance (signature ~ (StateType -> m Bool), MonadIO m, StateSetK a) => MethodInfo StateSetContainsStateMethodInfo a signature where- overloadedMethod _ = stateSetContainsState---- method StateSet::contains_states--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 2 (TInterface "Atk" "StateType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_types", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_types", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_contains_states" atk_state_set_contains_states :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- Ptr CUInt -> -- types : TCArray False (-1) 2 (TInterface "Atk" "StateType")- Int32 -> -- n_types : TBasicType TInt- IO CInt---stateSetContainsStates ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> [StateType] -- types- -> m Bool -- result-stateSetContainsStates _obj types = liftIO $ do- let nTypes = fromIntegral $ length types- let _obj' = unsafeManagedPtrCastPtr _obj- let types' = map (fromIntegral . fromEnum) types- types'' <- packStorableArray types'- result <- atk_state_set_contains_states _obj' types'' nTypes- let result' = (/= 0) result- touchManagedPtr _obj- freeMem types''- return result'--data StateSetContainsStatesMethodInfo-instance (signature ~ ([StateType] -> m Bool), MonadIO m, StateSetK a) => MethodInfo StateSetContainsStatesMethodInfo a signature where- overloadedMethod _ = stateSetContainsStates---- method StateSet::is_empty--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_is_empty" atk_state_set_is_empty :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- IO CInt---stateSetIsEmpty ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> m Bool -- result-stateSetIsEmpty _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- atk_state_set_is_empty _obj'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data StateSetIsEmptyMethodInfo-instance (signature ~ (m Bool), MonadIO m, StateSetK a) => MethodInfo StateSetIsEmptyMethodInfo a signature where- overloadedMethod _ = stateSetIsEmpty---- method StateSet::or_sets--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "StateSet")--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_or_sets" atk_state_set_or_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet"- IO (Ptr StateSet)---stateSetOrSets ::- (MonadIO m, StateSetK a, StateSetK b) =>- a -- _obj- -> b -- compareSet- -> m (Maybe StateSet) -- result-stateSetOrSets _obj compareSet = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let compareSet' = unsafeManagedPtrCastPtr compareSet- result <- atk_state_set_or_sets _obj' compareSet'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapObject StateSet) result'- return result''- touchManagedPtr _obj- touchManagedPtr compareSet- return maybeResult--data StateSetOrSetsMethodInfo-instance (signature ~ (b -> m (Maybe StateSet)), MonadIO m, StateSetK a, StateSetK b) => MethodInfo StateSetOrSetsMethodInfo a signature where- overloadedMethod _ = stateSetOrSets---- method StateSet::remove_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Atk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_remove_state" atk_state_set_remove_state :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- CUInt -> -- type : TInterface "Atk" "StateType"- IO CInt---stateSetRemoveState ::- (MonadIO m, StateSetK a) =>- a -- _obj- -> StateType -- type_- -> m Bool -- result-stateSetRemoveState _obj type_ = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let type_' = (fromIntegral . fromEnum) type_- result <- atk_state_set_remove_state _obj' type_'- let result' = (/= 0) result- touchManagedPtr _obj- return result'--data StateSetRemoveStateMethodInfo-instance (signature ~ (StateType -> m Bool), MonadIO m, StateSetK a) => MethodInfo StateSetRemoveStateMethodInfo a signature where- overloadedMethod _ = stateSetRemoveState---- method StateSet::xor_sets--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_set", argType = TInterface "Atk" "StateSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "StateSet")--- throws : False--- Skip return : False--foreign import ccall "atk_state_set_xor_sets" atk_state_set_xor_sets :: - Ptr StateSet -> -- _obj : TInterface "Atk" "StateSet"- Ptr StateSet -> -- compare_set : TInterface "Atk" "StateSet"- IO (Ptr StateSet)---stateSetXorSets ::- (MonadIO m, StateSetK a, StateSetK b) =>- a -- _obj- -> b -- compareSet- -> m StateSet -- result-stateSetXorSets _obj compareSet = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let compareSet' = unsafeManagedPtrCastPtr compareSet- result <- atk_state_set_xor_sets _obj' compareSet'- checkUnexpectedReturnNULL "atk_state_set_xor_sets" result- result' <- (wrapObject StateSet) result- touchManagedPtr _obj- touchManagedPtr compareSet- return result'--data StateSetXorSetsMethodInfo-instance (signature ~ (b -> m StateSet), MonadIO m, StateSetK a, StateSetK b) => MethodInfo StateSetXorSetsMethodInfo a signature where- overloadedMethod _ = stateSetXorSets--
− GI/Atk/Objects/StateSet.hs-boot
@@ -1,23 +0,0 @@-module GI.Atk.Objects.StateSet where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StateSet = StateSet (ForeignPtr StateSet)-instance GObject StateSet where-class GObject o => StateSetK o-instance (GObject o, IsDescendantOf StateSet o) => StateSetK o-data StateSetAddStateMethodInfo-data StateSetAddStatesMethodInfo-data StateSetAndSetsMethodInfo-data StateSetClearStatesMethodInfo-data StateSetContainsStateMethodInfo-data StateSetContainsStatesMethodInfo-data StateSetIsEmptyMethodInfo-data StateSetOrSetsMethodInfo-data StateSetRemoveStateMethodInfo-data StateSetXorSetsMethodInfo
− GI/Atk/Objects/Util.hs
@@ -1,92 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Objects.Util- ( ---- * Exported types- Util(..) ,- UtilK ,- toUtil ,- noUtil ,--- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks-import qualified GI.GObject as GObject--newtype Util = Util (ForeignPtr Util)-foreign import ccall "atk_util_get_type"- c_atk_util_get_type :: IO GType--type instance ParentTypes Util = UtilParentTypes-type UtilParentTypes = '[GObject.Object]--instance GObject Util where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_atk_util_get_type- --class GObject o => UtilK o-instance (GObject o, IsDescendantOf Util o) => UtilK o--toUtil :: UtilK o => o -> IO Util-toUtil = unsafeCastTo Util--noUtil :: Maybe Util-noUtil = Nothing--type family ResolveUtilMethod (t :: Symbol) (o :: *) :: * where- ResolveUtilMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveUtilMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveUtilMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveUtilMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveUtilMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveUtilMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveUtilMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveUtilMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveUtilMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveUtilMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveUtilMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveUtilMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveUtilMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveUtilMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveUtilMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveUtilMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveUtilMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveUtilMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveUtilMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveUtilMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveUtilMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveUtilMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveUtilMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUtilMethod t Util, MethodInfo info Util p) => IsLabelProxy t (Util -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUtilMethod t Util, MethodInfo info Util p) => IsLabel t (Util -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Util = UtilAttributeList-type UtilAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Util = UtilSignalList-type UtilSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Atk/Objects/Util.hs-boot
@@ -1,13 +0,0 @@-module GI.Atk.Objects.Util where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Util = Util (ForeignPtr Util)-instance GObject Util where-class GObject o => UtilK o-instance (GObject o, IsDescendantOf Util o) => UtilK o
− GI/Atk/Structs.hs
@@ -1,41 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Structs- ( module GI.Atk.Structs.Attribute ,- module GI.Atk.Structs.Implementor ,- module GI.Atk.Structs.KeyEventStruct ,- module GI.Atk.Structs.PropertyValues ,- module GI.Atk.Structs.Range ,- module GI.Atk.Structs.Rectangle ,- module GI.Atk.Structs.TextRange ,- module GI.Atk.Structs.TextRectangle ,--- ) where--import GI.Atk.Structs.Attribute-import GI.Atk.Structs.Implementor-import GI.Atk.Structs.KeyEventStruct-import GI.Atk.Structs.PropertyValues-import GI.Atk.Structs.Range-import GI.Atk.Structs.Rectangle-import GI.Atk.Structs.TextRange-import GI.Atk.Structs.TextRectangle--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--
− GI/Atk/Structs/Attribute.hs
@@ -1,188 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--AtkAttribute is a string name/value pair representing a generic-attribute. This can be used to expose additional information from-an accessible object as a whole (see atk_object_get_attributes())-or an document (see atk_document_get_attributes()). In the case of-text attributes (see atk_text_get_default_attributes()),-#AtkTextAttribute enum defines all the possible text attribute-names. You can use atk_text_attribute_get_name() to get the string-name from the enum value. See also atk_text_attribute_for_name()-and atk_text_attribute_get_value() for more information.--A string name/value pair representing a generic attribute.--}--module GI.Atk.Structs.Attribute- ( ---- * Exported types- Attribute(..) ,- newZeroAttribute ,- noAttribute ,--- -- * Methods--- ** attributeSetFree- attributeSetFree ,----- -- * Properties--- ** Name- attributeClearName ,- attributeName ,- attributeReadName ,- attributeWriteName ,----- ** Value- attributeClearValue ,- attributeReadValue ,- attributeValue ,- attributeWriteValue ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype Attribute = Attribute (ForeignPtr Attribute)-instance WrappedPtr Attribute where- wrappedPtrCalloc = callocBytes 16- wrappedPtrCopy = copyPtr 16- wrappedPtrFree = Just ptr_to_g_free---- | Construct a `Attribute` struct initialized to zero.-newZeroAttribute :: MonadIO m => m Attribute-newZeroAttribute = liftIO $ wrappedPtrCalloc >>= wrapPtr Attribute--instance tag ~ 'AttrSet => Constructible Attribute tag where- new _ attrs = do- o <- newZeroAttribute- GI.Attributes.set o attrs- return o---noAttribute :: Maybe Attribute-noAttribute = Nothing--attributeReadName :: MonadIO m => Attribute -> m (Maybe T.Text)-attributeReadName s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO CString- result <- convertIfNonNull val $ \val' -> do- val'' <- cstringToText val'- return val''- return result--attributeWriteName :: MonadIO m => Attribute -> CString -> m ()-attributeWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: CString)--attributeClearName :: MonadIO m => Attribute -> m ()-attributeClearName s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (nullPtr :: CString)--data AttributeNameFieldInfo-instance AttrInfo AttributeNameFieldInfo where- type AttrAllowedOps AttributeNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint AttributeNameFieldInfo = (~) CString- type AttrBaseTypeConstraint AttributeNameFieldInfo = (~) Attribute- type AttrGetType AttributeNameFieldInfo = Maybe T.Text- type AttrLabel AttributeNameFieldInfo = "name"- attrGet _ = attributeReadName- attrSet _ = attributeWriteName- attrConstruct = undefined- attrClear _ = attributeClearName--attributeName :: AttrLabelProxy "name"-attributeName = AttrLabelProxy---attributeReadValue :: MonadIO m => Attribute -> m (Maybe T.Text)-attributeReadValue s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO CString- result <- convertIfNonNull val $ \val' -> do- val'' <- cstringToText val'- return val''- return result--attributeWriteValue :: MonadIO m => Attribute -> CString -> m ()-attributeWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: CString)--attributeClearValue :: MonadIO m => Attribute -> m ()-attributeClearValue s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (nullPtr :: CString)--data AttributeValueFieldInfo-instance AttrInfo AttributeValueFieldInfo where- type AttrAllowedOps AttributeValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint AttributeValueFieldInfo = (~) CString- type AttrBaseTypeConstraint AttributeValueFieldInfo = (~) Attribute- type AttrGetType AttributeValueFieldInfo = Maybe T.Text- type AttrLabel AttributeValueFieldInfo = "value"- attrGet _ = attributeReadValue- attrSet _ = attributeWriteValue- attrConstruct = undefined- attrClear _ = attributeClearValue--attributeValue :: AttrLabelProxy "value"-attributeValue = AttrLabelProxy----type instance AttributeList Attribute = AttributeAttributeList-type AttributeAttributeList = ('[ '("name", AttributeNameFieldInfo), '("value", AttributeValueFieldInfo)] :: [(Symbol, *)])---- method Attribute::set_free--- method type : MemberFunction--- Args : [Arg {argCName = "attrib_set", argType = TGSList (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_attribute_set_free" atk_attribute_set_free :: - Ptr (GSList (Ptr ())) -> -- attrib_set : TGSList (TBasicType TPtr)- IO ()---attributeSetFree ::- (MonadIO m) =>- [Ptr ()] -- attribSet- -> m () -- result-attributeSetFree attribSet = liftIO $ do- attribSet' <- packGSList attribSet- atk_attribute_set_free attribSet'- g_slist_free attribSet'- return ()--type family ResolveAttributeMethod (t :: Symbol) (o :: *) :: * where- ResolveAttributeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAttributeMethod t Attribute, MethodInfo info Attribute p) => IsLabelProxy t (Attribute -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAttributeMethod t Attribute, MethodInfo info Attribute p) => IsLabel t (Attribute -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/Attribute.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.Attribute where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Attribute = Attribute (ForeignPtr Attribute)-instance WrappedPtr Attribute where
− GI/Atk/Structs/Implementor.hs
@@ -1,92 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Atk.Structs.Implementor- ( ---- * Exported types- Implementor(..) ,- noImplementor ,--- -- * Methods--- ** implementorRefAccessible- ImplementorRefAccessibleMethodInfo ,- implementorRefAccessible ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype Implementor = Implementor (ForeignPtr Implementor)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr Implementor where- wrappedPtrCalloc = return nullPtr- wrappedPtrCopy = return- wrappedPtrFree = Nothing--noImplementor :: Maybe Implementor-noImplementor = Nothing---type instance AttributeList Implementor = ImplementorAttributeList-type ImplementorAttributeList = ('[ ] :: [(Symbol, *)])---- method Implementor::ref_accessible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Implementor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Object")--- throws : False--- Skip return : False--foreign import ccall "atk_implementor_ref_accessible" atk_implementor_ref_accessible :: - Ptr Implementor -> -- _obj : TInterface "Atk" "Implementor"- IO (Ptr Object)---implementorRefAccessible ::- (MonadIO m) =>- Implementor -- _obj- -> m Object -- result-implementorRefAccessible _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- result <- atk_implementor_ref_accessible _obj'- checkUnexpectedReturnNULL "atk_implementor_ref_accessible" result- result' <- (wrapObject Object) result- touchManagedPtr _obj- return result'--data ImplementorRefAccessibleMethodInfo-instance (signature ~ (m Object), MonadIO m) => MethodInfo ImplementorRefAccessibleMethodInfo Implementor signature where- overloadedMethod _ = implementorRefAccessible--type family ResolveImplementorMethod (t :: Symbol) (o :: *) :: * where- ResolveImplementorMethod "refAccessible" o = ImplementorRefAccessibleMethodInfo- ResolveImplementorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveImplementorMethod t Implementor, MethodInfo info Implementor p) => IsLabelProxy t (Implementor -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveImplementorMethod t Implementor, MethodInfo info Implementor p) => IsLabel t (Implementor -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/Implementor.hs-boot
@@ -1,12 +0,0 @@-module GI.Atk.Structs.Implementor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Implementor = Implementor (ForeignPtr Implementor)-instance WrappedPtr Implementor where-data ImplementorRefAccessibleMethodInfo
− GI/Atk/Structs/KeyEventStruct.hs
@@ -1,295 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Encapsulates information about a key event.--}--module GI.Atk.Structs.KeyEventStruct- ( ---- * Exported types- KeyEventStruct(..) ,- newZeroKeyEventStruct ,- noKeyEventStruct ,--- -- * Properties--- ** Keycode- keyEventStructKeycode ,- keyEventStructReadKeycode ,- keyEventStructWriteKeycode ,----- ** Keyval- keyEventStructKeyval ,- keyEventStructReadKeyval ,- keyEventStructWriteKeyval ,----- ** Length- keyEventStructLength ,- keyEventStructReadLength ,- keyEventStructWriteLength ,----- ** State- keyEventStructReadState ,- keyEventStructState ,- keyEventStructWriteState ,----- ** String- keyEventStructClearString ,- keyEventStructReadString ,- keyEventStructString ,- keyEventStructWriteString ,----- ** Timestamp- keyEventStructReadTimestamp ,- keyEventStructTimestamp ,- keyEventStructWriteTimestamp ,----- ** Type- keyEventStructReadType ,- keyEventStructType ,- keyEventStructWriteType ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)-instance WrappedPtr KeyEventStruct where- wrappedPtrCalloc = callocBytes 32- wrappedPtrCopy = copyPtr 32- wrappedPtrFree = Just ptr_to_g_free---- | Construct a `KeyEventStruct` struct initialized to zero.-newZeroKeyEventStruct :: MonadIO m => m KeyEventStruct-newZeroKeyEventStruct = liftIO $ wrappedPtrCalloc >>= wrapPtr KeyEventStruct--instance tag ~ 'AttrSet => Constructible KeyEventStruct tag where- new _ attrs = do- o <- newZeroKeyEventStruct- GI.Attributes.set o attrs- return o---noKeyEventStruct :: Maybe KeyEventStruct-noKeyEventStruct = Nothing--keyEventStructReadType :: MonadIO m => KeyEventStruct -> m Int32-keyEventStructReadType s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO Int32- return val--keyEventStructWriteType :: MonadIO m => KeyEventStruct -> Int32 -> m ()-keyEventStructWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: Int32)--data KeyEventStructTypeFieldInfo-instance AttrInfo KeyEventStructTypeFieldInfo where- type AttrAllowedOps KeyEventStructTypeFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructTypeFieldInfo = (~) Int32- type AttrBaseTypeConstraint KeyEventStructTypeFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructTypeFieldInfo = Int32- type AttrLabel KeyEventStructTypeFieldInfo = "type"- attrGet _ = keyEventStructReadType- attrSet _ = keyEventStructWriteType- attrConstruct = undefined- attrClear _ = undefined--keyEventStructType :: AttrLabelProxy "type"-keyEventStructType = AttrLabelProxy---keyEventStructReadState :: MonadIO m => KeyEventStruct -> m Word32-keyEventStructReadState s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 4) :: IO Word32- return val--keyEventStructWriteState :: MonadIO m => KeyEventStruct -> Word32 -> m ()-keyEventStructWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 4) (val :: Word32)--data KeyEventStructStateFieldInfo-instance AttrInfo KeyEventStructStateFieldInfo where- type AttrAllowedOps KeyEventStructStateFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructStateFieldInfo = (~) Word32- type AttrBaseTypeConstraint KeyEventStructStateFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructStateFieldInfo = Word32- type AttrLabel KeyEventStructStateFieldInfo = "state"- attrGet _ = keyEventStructReadState- attrSet _ = keyEventStructWriteState- attrConstruct = undefined- attrClear _ = undefined--keyEventStructState :: AttrLabelProxy "state"-keyEventStructState = AttrLabelProxy---keyEventStructReadKeyval :: MonadIO m => KeyEventStruct -> m Word32-keyEventStructReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO Word32- return val--keyEventStructWriteKeyval :: MonadIO m => KeyEventStruct -> Word32 -> m ()-keyEventStructWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: Word32)--data KeyEventStructKeyvalFieldInfo-instance AttrInfo KeyEventStructKeyvalFieldInfo where- type AttrAllowedOps KeyEventStructKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructKeyvalFieldInfo = (~) Word32- type AttrBaseTypeConstraint KeyEventStructKeyvalFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructKeyvalFieldInfo = Word32- type AttrLabel KeyEventStructKeyvalFieldInfo = "keyval"- attrGet _ = keyEventStructReadKeyval- attrSet _ = keyEventStructWriteKeyval- attrConstruct = undefined- attrClear _ = undefined--keyEventStructKeyval :: AttrLabelProxy "keyval"-keyEventStructKeyval = AttrLabelProxy---keyEventStructReadLength :: MonadIO m => KeyEventStruct -> m Int32-keyEventStructReadLength s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 12) :: IO Int32- return val--keyEventStructWriteLength :: MonadIO m => KeyEventStruct -> Int32 -> m ()-keyEventStructWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 12) (val :: Int32)--data KeyEventStructLengthFieldInfo-instance AttrInfo KeyEventStructLengthFieldInfo where- type AttrAllowedOps KeyEventStructLengthFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructLengthFieldInfo = (~) Int32- type AttrBaseTypeConstraint KeyEventStructLengthFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructLengthFieldInfo = Int32- type AttrLabel KeyEventStructLengthFieldInfo = "length"- attrGet _ = keyEventStructReadLength- attrSet _ = keyEventStructWriteLength- attrConstruct = undefined- attrClear _ = undefined--keyEventStructLength :: AttrLabelProxy "length"-keyEventStructLength = AttrLabelProxy---keyEventStructReadString :: MonadIO m => KeyEventStruct -> m (Maybe T.Text)-keyEventStructReadString s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 16) :: IO CString- result <- convertIfNonNull val $ \val' -> do- val'' <- cstringToText val'- return val''- return result--keyEventStructWriteString :: MonadIO m => KeyEventStruct -> CString -> m ()-keyEventStructWriteString s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 16) (val :: CString)--keyEventStructClearString :: MonadIO m => KeyEventStruct -> m ()-keyEventStructClearString s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 16) (nullPtr :: CString)--data KeyEventStructStringFieldInfo-instance AttrInfo KeyEventStructStringFieldInfo where- type AttrAllowedOps KeyEventStructStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint KeyEventStructStringFieldInfo = (~) CString- type AttrBaseTypeConstraint KeyEventStructStringFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructStringFieldInfo = Maybe T.Text- type AttrLabel KeyEventStructStringFieldInfo = "string"- attrGet _ = keyEventStructReadString- attrSet _ = keyEventStructWriteString- attrConstruct = undefined- attrClear _ = keyEventStructClearString--keyEventStructString :: AttrLabelProxy "string"-keyEventStructString = AttrLabelProxy---keyEventStructReadKeycode :: MonadIO m => KeyEventStruct -> m Word16-keyEventStructReadKeycode s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 24) :: IO Word16- return val--keyEventStructWriteKeycode :: MonadIO m => KeyEventStruct -> Word16 -> m ()-keyEventStructWriteKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 24) (val :: Word16)--data KeyEventStructKeycodeFieldInfo-instance AttrInfo KeyEventStructKeycodeFieldInfo where- type AttrAllowedOps KeyEventStructKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructKeycodeFieldInfo = (~) Word16- type AttrBaseTypeConstraint KeyEventStructKeycodeFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructKeycodeFieldInfo = Word16- type AttrLabel KeyEventStructKeycodeFieldInfo = "keycode"- attrGet _ = keyEventStructReadKeycode- attrSet _ = keyEventStructWriteKeycode- attrConstruct = undefined- attrClear _ = undefined--keyEventStructKeycode :: AttrLabelProxy "keycode"-keyEventStructKeycode = AttrLabelProxy---keyEventStructReadTimestamp :: MonadIO m => KeyEventStruct -> m Word32-keyEventStructReadTimestamp s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 28) :: IO Word32- return val--keyEventStructWriteTimestamp :: MonadIO m => KeyEventStruct -> Word32 -> m ()-keyEventStructWriteTimestamp s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 28) (val :: Word32)--data KeyEventStructTimestampFieldInfo-instance AttrInfo KeyEventStructTimestampFieldInfo where- type AttrAllowedOps KeyEventStructTimestampFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint KeyEventStructTimestampFieldInfo = (~) Word32- type AttrBaseTypeConstraint KeyEventStructTimestampFieldInfo = (~) KeyEventStruct- type AttrGetType KeyEventStructTimestampFieldInfo = Word32- type AttrLabel KeyEventStructTimestampFieldInfo = "timestamp"- attrGet _ = keyEventStructReadTimestamp- attrSet _ = keyEventStructWriteTimestamp- attrConstruct = undefined- attrClear _ = undefined--keyEventStructTimestamp :: AttrLabelProxy "timestamp"-keyEventStructTimestamp = AttrLabelProxy----type instance AttributeList KeyEventStruct = KeyEventStructAttributeList-type KeyEventStructAttributeList = ('[ '("type", KeyEventStructTypeFieldInfo), '("state", KeyEventStructStateFieldInfo), '("keyval", KeyEventStructKeyvalFieldInfo), '("length", KeyEventStructLengthFieldInfo), '("string", KeyEventStructStringFieldInfo), '("keycode", KeyEventStructKeycodeFieldInfo), '("timestamp", KeyEventStructTimestampFieldInfo)] :: [(Symbol, *)])--type family ResolveKeyEventStructMethod (t :: Symbol) (o :: *) :: * where- ResolveKeyEventStructMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveKeyEventStructMethod t KeyEventStruct, MethodInfo info KeyEventStruct p) => IsLabelProxy t (KeyEventStruct -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveKeyEventStructMethod t KeyEventStruct, MethodInfo info KeyEventStruct p) => IsLabel t (KeyEventStruct -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/KeyEventStruct.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.KeyEventStruct where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)-instance WrappedPtr KeyEventStruct where
− GI/Atk/Structs/PropertyValues.hs
@@ -1,189 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Note: @old_value field of #AtkPropertyValues will not contain a-valid value. This is a field defined with the purpose of contain-the previous value of the property, but is not used anymore.--}--module GI.Atk.Structs.PropertyValues- ( ---- * Exported types- PropertyValues(..) ,- newZeroPropertyValues ,- noPropertyValues ,--- -- * Properties--- ** NewValue- propertyValuesClearNewValue ,- propertyValuesNewValue ,- propertyValuesReadNewValue ,- propertyValuesWriteNewValue ,----- ** OldValue- propertyValuesClearOldValue ,- propertyValuesOldValue ,- propertyValuesReadOldValue ,- propertyValuesWriteOldValue ,----- ** PropertyName- propertyValuesClearPropertyName ,- propertyValuesPropertyName ,- propertyValuesReadPropertyName ,- propertyValuesWritePropertyName ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)-instance WrappedPtr PropertyValues where- wrappedPtrCalloc = callocBytes 56- wrappedPtrCopy = copyPtr 56- wrappedPtrFree = Just ptr_to_g_free---- | Construct a `PropertyValues` struct initialized to zero.-newZeroPropertyValues :: MonadIO m => m PropertyValues-newZeroPropertyValues = liftIO $ wrappedPtrCalloc >>= wrapPtr PropertyValues--instance tag ~ 'AttrSet => Constructible PropertyValues tag where- new _ attrs = do- o <- newZeroPropertyValues- GI.Attributes.set o attrs- return o---noPropertyValues :: Maybe PropertyValues-noPropertyValues = Nothing--propertyValuesReadPropertyName :: MonadIO m => PropertyValues -> m (Maybe T.Text)-propertyValuesReadPropertyName s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO CString- result <- convertIfNonNull val $ \val' -> do- val'' <- cstringToText val'- return val''- return result--propertyValuesWritePropertyName :: MonadIO m => PropertyValues -> CString -> m ()-propertyValuesWritePropertyName s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: CString)--propertyValuesClearPropertyName :: MonadIO m => PropertyValues -> m ()-propertyValuesClearPropertyName s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (nullPtr :: CString)--data PropertyValuesPropertyNameFieldInfo-instance AttrInfo PropertyValuesPropertyNameFieldInfo where- type AttrAllowedOps PropertyValuesPropertyNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint PropertyValuesPropertyNameFieldInfo = (~) CString- type AttrBaseTypeConstraint PropertyValuesPropertyNameFieldInfo = (~) PropertyValues- type AttrGetType PropertyValuesPropertyNameFieldInfo = Maybe T.Text- type AttrLabel PropertyValuesPropertyNameFieldInfo = "property_name"- attrGet _ = propertyValuesReadPropertyName- attrSet _ = propertyValuesWritePropertyName- attrConstruct = undefined- attrClear _ = propertyValuesClearPropertyName--propertyValuesPropertyName :: AttrLabelProxy "propertyName"-propertyValuesPropertyName = AttrLabelProxy---propertyValuesReadOldValue :: MonadIO m => PropertyValues -> m (Maybe GValue)-propertyValuesReadOldValue s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue)- result <- convertIfNonNull val $ \val' -> do- val'' <- (newBoxed GValue) val'- return val''- return result--propertyValuesWriteOldValue :: MonadIO m => PropertyValues -> Ptr GValue -> m ()-propertyValuesWriteOldValue s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: Ptr GValue)--propertyValuesClearOldValue :: MonadIO m => PropertyValues -> m ()-propertyValuesClearOldValue s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (nullPtr :: Ptr GValue)--data PropertyValuesOldValueFieldInfo-instance AttrInfo PropertyValuesOldValueFieldInfo where- type AttrAllowedOps PropertyValuesOldValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint PropertyValuesOldValueFieldInfo = (~) (Ptr GValue)- type AttrBaseTypeConstraint PropertyValuesOldValueFieldInfo = (~) PropertyValues- type AttrGetType PropertyValuesOldValueFieldInfo = Maybe GValue- type AttrLabel PropertyValuesOldValueFieldInfo = "old_value"- attrGet _ = propertyValuesReadOldValue- attrSet _ = propertyValuesWriteOldValue- attrConstruct = undefined- attrClear _ = propertyValuesClearOldValue--propertyValuesOldValue :: AttrLabelProxy "oldValue"-propertyValuesOldValue = AttrLabelProxy---propertyValuesReadNewValue :: MonadIO m => PropertyValues -> m (Maybe GValue)-propertyValuesReadNewValue s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 32) :: IO (Ptr GValue)- result <- convertIfNonNull val $ \val' -> do- val'' <- (newBoxed GValue) val'- return val''- return result--propertyValuesWriteNewValue :: MonadIO m => PropertyValues -> Ptr GValue -> m ()-propertyValuesWriteNewValue s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 32) (val :: Ptr GValue)--propertyValuesClearNewValue :: MonadIO m => PropertyValues -> m ()-propertyValuesClearNewValue s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 32) (nullPtr :: Ptr GValue)--data PropertyValuesNewValueFieldInfo-instance AttrInfo PropertyValuesNewValueFieldInfo where- type AttrAllowedOps PropertyValuesNewValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint PropertyValuesNewValueFieldInfo = (~) (Ptr GValue)- type AttrBaseTypeConstraint PropertyValuesNewValueFieldInfo = (~) PropertyValues- type AttrGetType PropertyValuesNewValueFieldInfo = Maybe GValue- type AttrLabel PropertyValuesNewValueFieldInfo = "new_value"- attrGet _ = propertyValuesReadNewValue- attrSet _ = propertyValuesWriteNewValue- attrConstruct = undefined- attrClear _ = propertyValuesClearNewValue--propertyValuesNewValue :: AttrLabelProxy "newValue"-propertyValuesNewValue = AttrLabelProxy----type instance AttributeList PropertyValues = PropertyValuesAttributeList-type PropertyValuesAttributeList = ('[ '("propertyName", PropertyValuesPropertyNameFieldInfo), '("oldValue", PropertyValuesOldValueFieldInfo), '("newValue", PropertyValuesNewValueFieldInfo)] :: [(Symbol, *)])--type family ResolvePropertyValuesMethod (t :: Symbol) (o :: *) :: * where- ResolvePropertyValuesMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePropertyValuesMethod t PropertyValues, MethodInfo info PropertyValues p) => IsLabelProxy t (PropertyValues -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePropertyValuesMethod t PropertyValues, MethodInfo info PropertyValues p) => IsLabel t (PropertyValues -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/PropertyValues.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.PropertyValues where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)-instance WrappedPtr PropertyValues where
− GI/Atk/Structs/Range.hs
@@ -1,269 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--#AtkRange are used on #AtkValue, in order to represent the full-range of a given component (for example an slider or a range-control), or to define each individual subrange this full range is-splitted if available. See #AtkValue documentation for further-details.--}--module GI.Atk.Structs.Range- ( ---- * Exported types- Range(..) ,- noRange ,--- -- * Methods--- ** rangeCopy- RangeCopyMethodInfo ,- rangeCopy ,----- ** rangeFree- RangeFreeMethodInfo ,- rangeFree ,----- ** rangeGetDescription- RangeGetDescriptionMethodInfo ,- rangeGetDescription ,----- ** rangeGetLowerLimit- RangeGetLowerLimitMethodInfo ,- rangeGetLowerLimit ,----- ** rangeGetUpperLimit- RangeGetUpperLimitMethodInfo ,- rangeGetUpperLimit ,----- ** rangeNew- rangeNew ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype Range = Range (ForeignPtr Range)-foreign import ccall "atk_range_get_type" c_atk_range_get_type :: - IO GType--instance BoxedObject Range where- boxedType _ = c_atk_range_get_type--noRange :: Maybe Range-noRange = Nothing---type instance AttributeList Range = RangeAttributeList-type RangeAttributeList = ('[ ] :: [(Symbol, *)])---- method Range::new--- method type : Constructor--- Args : [Arg {argCName = "lower_limit", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper_limit", argType = TBasicType TDouble, 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 : []--- returnType : Just (TInterface "Atk" "Range")--- throws : False--- Skip return : False--foreign import ccall "atk_range_new" atk_range_new :: - CDouble -> -- lower_limit : TBasicType TDouble- CDouble -> -- upper_limit : TBasicType TDouble- CString -> -- description : TBasicType TUTF8- IO (Ptr Range)---rangeNew ::- (MonadIO m) =>- Double -- lowerLimit- -> Double -- upperLimit- -> T.Text -- description- -> m Range -- result-rangeNew lowerLimit upperLimit description = liftIO $ do- let lowerLimit' = realToFrac lowerLimit- let upperLimit' = realToFrac upperLimit- description' <- textToCString description- result <- atk_range_new lowerLimit' upperLimit' description'- checkUnexpectedReturnNULL "atk_range_new" result- result' <- (wrapBoxed Range) result- freeMem description'- return result'---- method Range::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Atk" "Range")--- throws : False--- Skip return : False--foreign import ccall "atk_range_copy" atk_range_copy :: - Ptr Range -> -- _obj : TInterface "Atk" "Range"- IO (Ptr Range)---rangeCopy ::- (MonadIO m) =>- Range -- _obj- -> m Range -- result-rangeCopy _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- result <- atk_range_copy _obj'- checkUnexpectedReturnNULL "atk_range_copy" result- result' <- (wrapBoxed Range) result- touchManagedPtr _obj- return result'--data RangeCopyMethodInfo-instance (signature ~ (m Range), MonadIO m) => MethodInfo RangeCopyMethodInfo Range signature where- overloadedMethod _ = rangeCopy---- method Range::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "atk_range_free" atk_range_free :: - Ptr Range -> -- _obj : TInterface "Atk" "Range"- IO ()---rangeFree ::- (MonadIO m) =>- Range -- _obj- -> m () -- result-rangeFree _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- atk_range_free _obj'- touchManagedPtr _obj- return ()--data RangeFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo RangeFreeMethodInfo Range signature where- overloadedMethod _ = rangeFree---- method Range::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_description" atk_range_get_description :: - Ptr Range -> -- _obj : TInterface "Atk" "Range"- IO CString---rangeGetDescription ::- (MonadIO m) =>- Range -- _obj- -> m T.Text -- result-rangeGetDescription _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- result <- atk_range_get_description _obj'- checkUnexpectedReturnNULL "atk_range_get_description" result- result' <- cstringToText result- touchManagedPtr _obj- return result'--data RangeGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RangeGetDescriptionMethodInfo Range signature where- overloadedMethod _ = rangeGetDescription---- method Range::get_lower_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_lower_limit" atk_range_get_lower_limit :: - Ptr Range -> -- _obj : TInterface "Atk" "Range"- IO CDouble---rangeGetLowerLimit ::- (MonadIO m) =>- Range -- _obj- -> m Double -- result-rangeGetLowerLimit _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- result <- atk_range_get_lower_limit _obj'- let result' = realToFrac result- touchManagedPtr _obj- return result'--data RangeGetLowerLimitMethodInfo-instance (signature ~ (m Double), MonadIO m) => MethodInfo RangeGetLowerLimitMethodInfo Range signature where- overloadedMethod _ = rangeGetLowerLimit---- method Range::get_upper_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Atk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "atk_range_get_upper_limit" atk_range_get_upper_limit :: - Ptr Range -> -- _obj : TInterface "Atk" "Range"- IO CDouble---rangeGetUpperLimit ::- (MonadIO m) =>- Range -- _obj- -> m Double -- result-rangeGetUpperLimit _obj = liftIO $ do- let _obj' = unsafeManagedPtrGetPtr _obj- result <- atk_range_get_upper_limit _obj'- let result' = realToFrac result- touchManagedPtr _obj- return result'--data RangeGetUpperLimitMethodInfo-instance (signature ~ (m Double), MonadIO m) => MethodInfo RangeGetUpperLimitMethodInfo Range signature where- overloadedMethod _ = rangeGetUpperLimit--type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where- ResolveRangeMethod "copy" o = RangeCopyMethodInfo- ResolveRangeMethod "free" o = RangeFreeMethodInfo- ResolveRangeMethod "getDescription" o = RangeGetDescriptionMethodInfo- ResolveRangeMethod "getLowerLimit" o = RangeGetLowerLimitMethodInfo- ResolveRangeMethod "getUpperLimit" o = RangeGetUpperLimitMethodInfo- ResolveRangeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabelProxy t (Range -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabel t (Range -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/Range.hs-boot
@@ -1,16 +0,0 @@-module GI.Atk.Structs.Range where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Range = Range (ForeignPtr Range)-instance BoxedObject Range where-data RangeCopyMethodInfo-data RangeFreeMethodInfo-data RangeGetDescriptionMethodInfo-data RangeGetLowerLimitMethodInfo-data RangeGetUpperLimitMethodInfo
− GI/Atk/Structs/Rectangle.hs
@@ -1,196 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A data structure for holding a rectangle. Those coordinates are-relative to the component top-level parent.--}--module GI.Atk.Structs.Rectangle- ( ---- * Exported types- Rectangle(..) ,- newZeroRectangle ,- noRectangle ,--- -- * Properties--- ** Height- rectangleHeight ,- rectangleReadHeight ,- rectangleWriteHeight ,----- ** Width- rectangleReadWidth ,- rectangleWidth ,- rectangleWriteWidth ,----- ** X- rectangleReadX ,- rectangleWriteX ,- rectangleX ,----- ** Y- rectangleReadY ,- rectangleWriteY ,- rectangleY ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-foreign import ccall "atk_rectangle_get_type" c_atk_rectangle_get_type :: - IO GType--instance BoxedObject Rectangle where- boxedType _ = c_atk_rectangle_get_type---- | Construct a `Rectangle` struct initialized to zero.-newZeroRectangle :: MonadIO m => m Rectangle-newZeroRectangle = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Rectangle--instance tag ~ 'AttrSet => Constructible Rectangle tag where- new _ attrs = do- o <- newZeroRectangle- GI.Attributes.set o attrs- return o---noRectangle :: Maybe Rectangle-noRectangle = Nothing--rectangleReadX :: MonadIO m => Rectangle -> m Int32-rectangleReadX s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO Int32- return val--rectangleWriteX :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: Int32)--data RectangleXFieldInfo-instance AttrInfo RectangleXFieldInfo where- type AttrAllowedOps RectangleXFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleXFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleXFieldInfo = (~) Rectangle- type AttrGetType RectangleXFieldInfo = Int32- type AttrLabel RectangleXFieldInfo = "x"- attrGet _ = rectangleReadX- attrSet _ = rectangleWriteX- attrConstruct = undefined- attrClear _ = undefined--rectangleX :: AttrLabelProxy "x"-rectangleX = AttrLabelProxy---rectangleReadY :: MonadIO m => Rectangle -> m Int32-rectangleReadY s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 4) :: IO Int32- return val--rectangleWriteY :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 4) (val :: Int32)--data RectangleYFieldInfo-instance AttrInfo RectangleYFieldInfo where- type AttrAllowedOps RectangleYFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleYFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleYFieldInfo = (~) Rectangle- type AttrGetType RectangleYFieldInfo = Int32- type AttrLabel RectangleYFieldInfo = "y"- attrGet _ = rectangleReadY- attrSet _ = rectangleWriteY- attrConstruct = undefined- attrClear _ = undefined--rectangleY :: AttrLabelProxy "y"-rectangleY = AttrLabelProxy---rectangleReadWidth :: MonadIO m => Rectangle -> m Int32-rectangleReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO Int32- return val--rectangleWriteWidth :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: Int32)--data RectangleWidthFieldInfo-instance AttrInfo RectangleWidthFieldInfo where- type AttrAllowedOps RectangleWidthFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleWidthFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleWidthFieldInfo = (~) Rectangle- type AttrGetType RectangleWidthFieldInfo = Int32- type AttrLabel RectangleWidthFieldInfo = "width"- attrGet _ = rectangleReadWidth- attrSet _ = rectangleWriteWidth- attrConstruct = undefined- attrClear _ = undefined--rectangleWidth :: AttrLabelProxy "width"-rectangleWidth = AttrLabelProxy---rectangleReadHeight :: MonadIO m => Rectangle -> m Int32-rectangleReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 12) :: IO Int32- return val--rectangleWriteHeight :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 12) (val :: Int32)--data RectangleHeightFieldInfo-instance AttrInfo RectangleHeightFieldInfo where- type AttrAllowedOps RectangleHeightFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleHeightFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleHeightFieldInfo = (~) Rectangle- type AttrGetType RectangleHeightFieldInfo = Int32- type AttrLabel RectangleHeightFieldInfo = "height"- attrGet _ = rectangleReadHeight- attrSet _ = rectangleWriteHeight- attrConstruct = undefined- attrClear _ = undefined--rectangleHeight :: AttrLabelProxy "height"-rectangleHeight = AttrLabelProxy----type instance AttributeList Rectangle = RectangleAttributeList-type RectangleAttributeList = ('[ '("x", RectangleXFieldInfo), '("y", RectangleYFieldInfo), '("width", RectangleWidthFieldInfo), '("height", RectangleHeightFieldInfo)] :: [(Symbol, *)])--type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where- ResolveRectangleMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/Rectangle.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.Rectangle where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-instance BoxedObject Rectangle where
− GI/Atk/Structs/TextRange.hs
@@ -1,211 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A structure used to describe a text range.--}--module GI.Atk.Structs.TextRange- ( ---- * Exported types- TextRange(..) ,- newZeroTextRange ,- noTextRange ,--- -- * Properties--- ** Bounds- textRangeBounds ,- textRangeClearBounds ,- textRangeReadBounds ,- textRangeWriteBounds ,----- ** Content- textRangeClearContent ,- textRangeContent ,- textRangeReadContent ,- textRangeWriteContent ,----- ** EndOffset- textRangeEndOffset ,- textRangeReadEndOffset ,- textRangeWriteEndOffset ,----- ** StartOffset- textRangeReadStartOffset ,- textRangeStartOffset ,- textRangeWriteStartOffset ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype TextRange = TextRange (ForeignPtr TextRange)-foreign import ccall "atk_text_range_get_type" c_atk_text_range_get_type :: - IO GType--instance BoxedObject TextRange where- boxedType _ = c_atk_text_range_get_type---- | Construct a `TextRange` struct initialized to zero.-newZeroTextRange :: MonadIO m => m TextRange-newZeroTextRange = liftIO $ callocBoxedBytes 32 >>= wrapBoxed TextRange--instance tag ~ 'AttrSet => Constructible TextRange tag where- new _ attrs = do- o <- newZeroTextRange- GI.Attributes.set o attrs- return o---noTextRange :: Maybe TextRange-noTextRange = Nothing--textRangeReadBounds :: MonadIO m => TextRange -> m (Maybe TextRectangle)-textRangeReadBounds s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle)- result <- convertIfNonNull val $ \val' -> do- val'' <- (newPtr TextRectangle) val'- return val''- return result--textRangeWriteBounds :: MonadIO m => TextRange -> Ptr TextRectangle -> m ()-textRangeWriteBounds s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: Ptr TextRectangle)--textRangeClearBounds :: MonadIO m => TextRange -> m ()-textRangeClearBounds s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (nullPtr :: Ptr TextRectangle)--data TextRangeBoundsFieldInfo-instance AttrInfo TextRangeBoundsFieldInfo where- type AttrAllowedOps TextRangeBoundsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint TextRangeBoundsFieldInfo = (~) (Ptr TextRectangle)- type AttrBaseTypeConstraint TextRangeBoundsFieldInfo = (~) TextRange- type AttrGetType TextRangeBoundsFieldInfo = Maybe TextRectangle- type AttrLabel TextRangeBoundsFieldInfo = "bounds"- attrGet _ = textRangeReadBounds- attrSet _ = textRangeWriteBounds- attrConstruct = undefined- attrClear _ = textRangeClearBounds--textRangeBounds :: AttrLabelProxy "bounds"-textRangeBounds = AttrLabelProxy---textRangeReadStartOffset :: MonadIO m => TextRange -> m Int32-textRangeReadStartOffset s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 16) :: IO Int32- return val--textRangeWriteStartOffset :: MonadIO m => TextRange -> Int32 -> m ()-textRangeWriteStartOffset s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 16) (val :: Int32)--data TextRangeStartOffsetFieldInfo-instance AttrInfo TextRangeStartOffsetFieldInfo where- type AttrAllowedOps TextRangeStartOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRangeStartOffsetFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRangeStartOffsetFieldInfo = (~) TextRange- type AttrGetType TextRangeStartOffsetFieldInfo = Int32- type AttrLabel TextRangeStartOffsetFieldInfo = "start_offset"- attrGet _ = textRangeReadStartOffset- attrSet _ = textRangeWriteStartOffset- attrConstruct = undefined- attrClear _ = undefined--textRangeStartOffset :: AttrLabelProxy "startOffset"-textRangeStartOffset = AttrLabelProxy---textRangeReadEndOffset :: MonadIO m => TextRange -> m Int32-textRangeReadEndOffset s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 20) :: IO Int32- return val--textRangeWriteEndOffset :: MonadIO m => TextRange -> Int32 -> m ()-textRangeWriteEndOffset s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 20) (val :: Int32)--data TextRangeEndOffsetFieldInfo-instance AttrInfo TextRangeEndOffsetFieldInfo where- type AttrAllowedOps TextRangeEndOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRangeEndOffsetFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRangeEndOffsetFieldInfo = (~) TextRange- type AttrGetType TextRangeEndOffsetFieldInfo = Int32- type AttrLabel TextRangeEndOffsetFieldInfo = "end_offset"- attrGet _ = textRangeReadEndOffset- attrSet _ = textRangeWriteEndOffset- attrConstruct = undefined- attrClear _ = undefined--textRangeEndOffset :: AttrLabelProxy "endOffset"-textRangeEndOffset = AttrLabelProxy---textRangeReadContent :: MonadIO m => TextRange -> m (Maybe T.Text)-textRangeReadContent s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 24) :: IO CString- result <- convertIfNonNull val $ \val' -> do- val'' <- cstringToText val'- return val''- return result--textRangeWriteContent :: MonadIO m => TextRange -> CString -> m ()-textRangeWriteContent s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 24) (val :: CString)--textRangeClearContent :: MonadIO m => TextRange -> m ()-textRangeClearContent s = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 24) (nullPtr :: CString)--data TextRangeContentFieldInfo-instance AttrInfo TextRangeContentFieldInfo where- type AttrAllowedOps TextRangeContentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint TextRangeContentFieldInfo = (~) CString- type AttrBaseTypeConstraint TextRangeContentFieldInfo = (~) TextRange- type AttrGetType TextRangeContentFieldInfo = Maybe T.Text- type AttrLabel TextRangeContentFieldInfo = "content"- attrGet _ = textRangeReadContent- attrSet _ = textRangeWriteContent- attrConstruct = undefined- attrClear _ = textRangeClearContent--textRangeContent :: AttrLabelProxy "content"-textRangeContent = AttrLabelProxy----type instance AttributeList TextRange = TextRangeAttributeList-type TextRangeAttributeList = ('[ '("bounds", TextRangeBoundsFieldInfo), '("startOffset", TextRangeStartOffsetFieldInfo), '("endOffset", TextRangeEndOffsetFieldInfo), '("content", TextRangeContentFieldInfo)] :: [(Symbol, *)])--type family ResolveTextRangeMethod (t :: Symbol) (o :: *) :: * where- ResolveTextRangeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTextRangeMethod t TextRange, MethodInfo info TextRange p) => IsLabelProxy t (TextRange -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTextRangeMethod t TextRange, MethodInfo info TextRange p) => IsLabel t (TextRange -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/TextRange.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.TextRange where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TextRange = TextRange (ForeignPtr TextRange)-instance BoxedObject TextRange where
− GI/Atk/Structs/TextRectangle.hs
@@ -1,194 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A structure used to store a rectangle used by AtkText.--}--module GI.Atk.Structs.TextRectangle- ( ---- * Exported types- TextRectangle(..) ,- newZeroTextRectangle ,- noTextRectangle ,--- -- * Properties--- ** Height- textRectangleHeight ,- textRectangleReadHeight ,- textRectangleWriteHeight ,----- ** Width- textRectangleReadWidth ,- textRectangleWidth ,- textRectangleWriteWidth ,----- ** X- textRectangleReadX ,- textRectangleWriteX ,- textRectangleX ,----- ** Y- textRectangleReadY ,- textRectangleWriteY ,- textRectangleY ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Atk.Types-import GI.Atk.Callbacks--newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)-instance WrappedPtr TextRectangle where- wrappedPtrCalloc = callocBytes 16- wrappedPtrCopy = copyPtr 16- wrappedPtrFree = Just ptr_to_g_free---- | Construct a `TextRectangle` struct initialized to zero.-newZeroTextRectangle :: MonadIO m => m TextRectangle-newZeroTextRectangle = liftIO $ wrappedPtrCalloc >>= wrapPtr TextRectangle--instance tag ~ 'AttrSet => Constructible TextRectangle tag where- new _ attrs = do- o <- newZeroTextRectangle- GI.Attributes.set o attrs- return o---noTextRectangle :: Maybe TextRectangle-noTextRectangle = Nothing--textRectangleReadX :: MonadIO m => TextRectangle -> m Int32-textRectangleReadX s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO Int32- return val--textRectangleWriteX :: MonadIO m => TextRectangle -> Int32 -> m ()-textRectangleWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: Int32)--data TextRectangleXFieldInfo-instance AttrInfo TextRectangleXFieldInfo where- type AttrAllowedOps TextRectangleXFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRectangleXFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRectangleXFieldInfo = (~) TextRectangle- type AttrGetType TextRectangleXFieldInfo = Int32- type AttrLabel TextRectangleXFieldInfo = "x"- attrGet _ = textRectangleReadX- attrSet _ = textRectangleWriteX- attrConstruct = undefined- attrClear _ = undefined--textRectangleX :: AttrLabelProxy "x"-textRectangleX = AttrLabelProxy---textRectangleReadY :: MonadIO m => TextRectangle -> m Int32-textRectangleReadY s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 4) :: IO Int32- return val--textRectangleWriteY :: MonadIO m => TextRectangle -> Int32 -> m ()-textRectangleWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 4) (val :: Int32)--data TextRectangleYFieldInfo-instance AttrInfo TextRectangleYFieldInfo where- type AttrAllowedOps TextRectangleYFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRectangleYFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRectangleYFieldInfo = (~) TextRectangle- type AttrGetType TextRectangleYFieldInfo = Int32- type AttrLabel TextRectangleYFieldInfo = "y"- attrGet _ = textRectangleReadY- attrSet _ = textRectangleWriteY- attrConstruct = undefined- attrClear _ = undefined--textRectangleY :: AttrLabelProxy "y"-textRectangleY = AttrLabelProxy---textRectangleReadWidth :: MonadIO m => TextRectangle -> m Int32-textRectangleReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO Int32- return val--textRectangleWriteWidth :: MonadIO m => TextRectangle -> Int32 -> m ()-textRectangleWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: Int32)--data TextRectangleWidthFieldInfo-instance AttrInfo TextRectangleWidthFieldInfo where- type AttrAllowedOps TextRectangleWidthFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRectangleWidthFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRectangleWidthFieldInfo = (~) TextRectangle- type AttrGetType TextRectangleWidthFieldInfo = Int32- type AttrLabel TextRectangleWidthFieldInfo = "width"- attrGet _ = textRectangleReadWidth- attrSet _ = textRectangleWriteWidth- attrConstruct = undefined- attrClear _ = undefined--textRectangleWidth :: AttrLabelProxy "width"-textRectangleWidth = AttrLabelProxy---textRectangleReadHeight :: MonadIO m => TextRectangle -> m Int32-textRectangleReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 12) :: IO Int32- return val--textRectangleWriteHeight :: MonadIO m => TextRectangle -> Int32 -> m ()-textRectangleWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 12) (val :: Int32)--data TextRectangleHeightFieldInfo-instance AttrInfo TextRectangleHeightFieldInfo where- type AttrAllowedOps TextRectangleHeightFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint TextRectangleHeightFieldInfo = (~) Int32- type AttrBaseTypeConstraint TextRectangleHeightFieldInfo = (~) TextRectangle- type AttrGetType TextRectangleHeightFieldInfo = Int32- type AttrLabel TextRectangleHeightFieldInfo = "height"- attrGet _ = textRectangleReadHeight- attrSet _ = textRectangleWriteHeight- attrConstruct = undefined- attrClear _ = undefined--textRectangleHeight :: AttrLabelProxy "height"-textRectangleHeight = AttrLabelProxy----type instance AttributeList TextRectangle = TextRectangleAttributeList-type TextRectangleAttributeList = ('[ '("x", TextRectangleXFieldInfo), '("y", TextRectangleYFieldInfo), '("width", TextRectangleWidthFieldInfo), '("height", TextRectangleHeightFieldInfo)] :: [(Symbol, *)])--type family ResolveTextRectangleMethod (t :: Symbol) (o :: *) :: * where- ResolveTextRectangleMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTextRectangleMethod t TextRectangle, MethodInfo info TextRectangle p) => IsLabelProxy t (TextRectangle -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTextRectangleMethod t TextRectangle, MethodInfo info TextRectangle p) => IsLabel t (TextRectangle -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Atk/Structs/TextRectangle.hs-boot
@@ -1,11 +0,0 @@-module GI.Atk.Structs.TextRectangle where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)-instance WrappedPtr TextRectangle where
− GI/Atk/Types.hs
@@ -1,86 +0,0 @@-module GI.Atk.Types- ( module GI.Atk.Interfaces.Action ,- module GI.Atk.Interfaces.Component ,- module GI.Atk.Interfaces.Document ,- module GI.Atk.Interfaces.EditableText ,- module GI.Atk.Interfaces.HyperlinkImpl ,- module GI.Atk.Interfaces.Hypertext ,- module GI.Atk.Interfaces.Image ,- module GI.Atk.Interfaces.ImplementorIface,- module GI.Atk.Interfaces.Selection ,- module GI.Atk.Interfaces.StreamableContent,- module GI.Atk.Interfaces.Table ,- module GI.Atk.Interfaces.TableCell ,- module GI.Atk.Interfaces.Text ,- module GI.Atk.Interfaces.Value ,- module GI.Atk.Interfaces.Window ,- module GI.Atk.Objects.GObjectAccessible ,- module GI.Atk.Objects.Hyperlink ,- module GI.Atk.Objects.Misc ,- module GI.Atk.Objects.NoOpObject ,- module GI.Atk.Objects.NoOpObjectFactory ,- module GI.Atk.Objects.Object ,- module GI.Atk.Objects.ObjectFactory ,- module GI.Atk.Objects.Plug ,- module GI.Atk.Objects.Registry ,- module GI.Atk.Objects.Relation ,- module GI.Atk.Objects.RelationSet ,- module GI.Atk.Objects.Socket ,- module GI.Atk.Objects.StateSet ,- module GI.Atk.Objects.Util ,- module GI.Atk.Structs.Attribute ,- module GI.Atk.Structs.Implementor ,- module GI.Atk.Structs.KeyEventStruct ,- module GI.Atk.Structs.PropertyValues ,- module GI.Atk.Structs.Range ,- module GI.Atk.Structs.Rectangle ,- module GI.Atk.Structs.TextRange ,- module GI.Atk.Structs.TextRectangle ,- module GI.Atk.Enums ,- module GI.Atk.Flags ,--- ) where---import {-# SOURCE #-} GI.Atk.Interfaces.Action-import {-# SOURCE #-} GI.Atk.Interfaces.Component-import {-# SOURCE #-} GI.Atk.Interfaces.Document-import {-# SOURCE #-} GI.Atk.Interfaces.EditableText-import {-# SOURCE #-} GI.Atk.Interfaces.HyperlinkImpl-import {-# SOURCE #-} GI.Atk.Interfaces.Hypertext-import {-# SOURCE #-} GI.Atk.Interfaces.Image-import {-# SOURCE #-} GI.Atk.Interfaces.ImplementorIface-import {-# SOURCE #-} GI.Atk.Interfaces.Selection-import {-# SOURCE #-} GI.Atk.Interfaces.StreamableContent-import {-# SOURCE #-} GI.Atk.Interfaces.Table-import {-# SOURCE #-} GI.Atk.Interfaces.TableCell-import {-# SOURCE #-} GI.Atk.Interfaces.Text-import {-# SOURCE #-} GI.Atk.Interfaces.Value-import {-# SOURCE #-} GI.Atk.Interfaces.Window-import {-# SOURCE #-} GI.Atk.Objects.GObjectAccessible-import {-# SOURCE #-} GI.Atk.Objects.Hyperlink-import {-# SOURCE #-} GI.Atk.Objects.Misc-import {-# SOURCE #-} GI.Atk.Objects.NoOpObject-import {-# SOURCE #-} GI.Atk.Objects.NoOpObjectFactory-import {-# SOURCE #-} GI.Atk.Objects.Object-import {-# SOURCE #-} GI.Atk.Objects.ObjectFactory-import {-# SOURCE #-} GI.Atk.Objects.Plug-import {-# SOURCE #-} GI.Atk.Objects.Registry-import {-# SOURCE #-} GI.Atk.Objects.Relation-import {-# SOURCE #-} GI.Atk.Objects.RelationSet-import {-# SOURCE #-} GI.Atk.Objects.Socket-import {-# SOURCE #-} GI.Atk.Objects.StateSet-import {-# SOURCE #-} GI.Atk.Objects.Util-import {-# SOURCE #-} GI.Atk.Structs.Attribute-import {-# SOURCE #-} GI.Atk.Structs.Implementor-import {-# SOURCE #-} GI.Atk.Structs.KeyEventStruct-import {-# SOURCE #-} GI.Atk.Structs.PropertyValues-import {-# SOURCE #-} GI.Atk.Structs.Range-import {-# SOURCE #-} GI.Atk.Structs.Rectangle-import {-# SOURCE #-} GI.Atk.Structs.TextRange-import {-# SOURCE #-} GI.Atk.Structs.TextRectangle--import GI.Atk.Enums-import GI.Atk.Flags-
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+ overridesFile outputDir)+ where name = "Atk"+ version = "1.0"+ verbose = False+ overridesFile = Just "Atk.overrides"+ outputDir = Nothing
gi-atk.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name: gi-atk-version: 0.2.18.15+version: 2.0.1 synopsis: Atk bindings description: Bindings for Atk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi@@ -9,67 +8,28 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings-build-type: Simple-cabal-version: >=1.10+build-type: Custom+cabal-version: >= 1.24 +extra-source-files: Atk.overrides++custom-setup+ setup-depends: base >= 4.7,+ Cabal >= 1.24,+ haskell-gi >= 0.15+ library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations- exposed-modules: GI.Atk.Types- GI.Atk- GI.Atk.Callbacks- GI.Atk.Constants- GI.Atk.Enums- GI.Atk.Flags- GI.Atk.Functions- GI.Atk.Interfaces- GI.Atk.Interfaces.Action- GI.Atk.Interfaces.Component- GI.Atk.Interfaces.Document- GI.Atk.Interfaces.EditableText- GI.Atk.Interfaces.HyperlinkImpl- GI.Atk.Interfaces.Hypertext- GI.Atk.Interfaces.Image- GI.Atk.Interfaces.ImplementorIface- GI.Atk.Interfaces.Selection- GI.Atk.Interfaces.StreamableContent- GI.Atk.Interfaces.Table- GI.Atk.Interfaces.TableCell- GI.Atk.Interfaces.Text- GI.Atk.Interfaces.Value- GI.Atk.Interfaces.Window- GI.Atk.Objects- GI.Atk.Objects.GObjectAccessible- GI.Atk.Objects.Hyperlink- GI.Atk.Objects.Misc- GI.Atk.Objects.NoOpObject- GI.Atk.Objects.NoOpObjectFactory- GI.Atk.Objects.Object- GI.Atk.Objects.ObjectFactory- GI.Atk.Objects.Plug- GI.Atk.Objects.Registry- GI.Atk.Objects.Relation- GI.Atk.Objects.RelationSet- GI.Atk.Objects.Socket- GI.Atk.Objects.StateSet- GI.Atk.Objects.Util- GI.Atk.Structs- GI.Atk.Structs.Attribute- GI.Atk.Structs.Implementor- GI.Atk.Structs.KeyEventStruct- GI.Atk.Structs.PropertyValues- GI.Atk.Structs.Range- GI.Atk.Structs.Rectangle- GI.Atk.Structs.TextRange- GI.Atk.Structs.TextRectangle- pkgconfig-depends: atk >= 2.18++ pkgconfig-depends: atk >= 2.0 && < 3 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1,- gi-glib >= 0.2.46.15 && < 0.2.47,- gi-gobject >= 0.2.46.15 && < 0.2.47,+ gi-glib == 2.0.*,+ gi-gobject == 2.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0,- transformers >= 0.3+ transformers >= 0.5