diff --git a/Atk.overrides b/Atk.overrides new file mode 100644 --- /dev/null +++ b/Atk.overrides @@ -0,0 +1,4 @@ +namespace Atk + +# Not marked properly as a GType struct (which we hide) +ignore _RegistryClass diff --git a/GI/Atk.hs b/GI/Atk.hs deleted file mode 100644 --- a/GI/Atk.hs +++ /dev/null @@ -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 - diff --git a/GI/Atk/Callbacks.hs b/GI/Atk/Callbacks.hs deleted file mode 100644 --- a/GI/Atk/Callbacks.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Constants.hs b/GI/Atk/Constants.hs deleted file mode 100644 --- a/GI/Atk/Constants.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Enums.hs b/GI/Atk/Enums.hs deleted file mode 100644 --- a/GI/Atk/Enums.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Flags.hs b/GI/Atk/Flags.hs deleted file mode 100644 --- a/GI/Atk/Flags.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Functions.hs b/GI/Atk/Functions.hs deleted file mode 100644 --- a/GI/Atk/Functions.hs +++ /dev/null @@ -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 () - - - diff --git a/GI/Atk/Interfaces.hs b/GI/Atk/Interfaces.hs deleted file mode 100644 --- a/GI/Atk/Interfaces.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Action.hs b/GI/Atk/Interfaces/Action.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Action.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Action.hs-boot b/GI/Atk/Interfaces/Action.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Action.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Component.hs b/GI/Atk/Interfaces/Component.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Component.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Component.hs-boot b/GI/Atk/Interfaces/Component.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Component.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Document.hs b/GI/Atk/Interfaces/Document.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Document.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Document.hs-boot b/GI/Atk/Interfaces/Document.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Document.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/EditableText.hs b/GI/Atk/Interfaces/EditableText.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/EditableText.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/EditableText.hs-boot b/GI/Atk/Interfaces/EditableText.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/EditableText.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/HyperlinkImpl.hs b/GI/Atk/Interfaces/HyperlinkImpl.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/HyperlinkImpl.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/HyperlinkImpl.hs-boot b/GI/Atk/Interfaces/HyperlinkImpl.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/HyperlinkImpl.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Hypertext.hs b/GI/Atk/Interfaces/Hypertext.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Hypertext.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Hypertext.hs-boot b/GI/Atk/Interfaces/Hypertext.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Hypertext.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Image.hs b/GI/Atk/Interfaces/Image.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Image.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Image.hs-boot b/GI/Atk/Interfaces/Image.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Image.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/ImplementorIface.hs b/GI/Atk/Interfaces/ImplementorIface.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/ImplementorIface.hs +++ /dev/null @@ -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 = '[] - - diff --git a/GI/Atk/Interfaces/ImplementorIface.hs-boot b/GI/Atk/Interfaces/ImplementorIface.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/ImplementorIface.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Selection.hs b/GI/Atk/Interfaces/Selection.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Selection.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Selection.hs-boot b/GI/Atk/Interfaces/Selection.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Selection.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/StreamableContent.hs b/GI/Atk/Interfaces/StreamableContent.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/StreamableContent.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/StreamableContent.hs-boot b/GI/Atk/Interfaces/StreamableContent.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/StreamableContent.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Table.hs b/GI/Atk/Interfaces/Table.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Table.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Table.hs-boot b/GI/Atk/Interfaces/Table.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Table.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/TableCell.hs b/GI/Atk/Interfaces/TableCell.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/TableCell.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/TableCell.hs-boot b/GI/Atk/Interfaces/TableCell.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/TableCell.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Text.hs b/GI/Atk/Interfaces/Text.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Text.hs +++ /dev/null @@ -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 () - - diff --git a/GI/Atk/Interfaces/Text.hs-boot b/GI/Atk/Interfaces/Text.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Text.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Value.hs b/GI/Atk/Interfaces/Value.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Value.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Value.hs-boot b/GI/Atk/Interfaces/Value.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Value.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Interfaces/Window.hs b/GI/Atk/Interfaces/Window.hs deleted file mode 100644 --- a/GI/Atk/Interfaces/Window.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Interfaces/Window.hs-boot b/GI/Atk/Interfaces/Window.hs-boot deleted file mode 100644 --- a/GI/Atk/Interfaces/Window.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects.hs b/GI/Atk/Objects.hs deleted file mode 100644 --- a/GI/Atk/Objects.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/GObjectAccessible.hs b/GI/Atk/Objects/GObjectAccessible.hs deleted file mode 100644 --- a/GI/Atk/Objects/GObjectAccessible.hs +++ /dev/null @@ -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' - - diff --git a/GI/Atk/Objects/GObjectAccessible.hs-boot b/GI/Atk/Objects/GObjectAccessible.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/GObjectAccessible.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Hyperlink.hs b/GI/Atk/Objects/Hyperlink.hs deleted file mode 100644 --- a/GI/Atk/Objects/Hyperlink.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Hyperlink.hs-boot b/GI/Atk/Objects/Hyperlink.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Hyperlink.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Misc.hs b/GI/Atk/Objects/Misc.hs deleted file mode 100644 --- a/GI/Atk/Objects/Misc.hs +++ /dev/null @@ -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' - - diff --git a/GI/Atk/Objects/Misc.hs-boot b/GI/Atk/Objects/Misc.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Misc.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/NoOpObject.hs b/GI/Atk/Objects/NoOpObject.hs deleted file mode 100644 --- a/GI/Atk/Objects/NoOpObject.hs +++ /dev/null @@ -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' - - diff --git a/GI/Atk/Objects/NoOpObject.hs-boot b/GI/Atk/Objects/NoOpObject.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/NoOpObject.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/NoOpObjectFactory.hs b/GI/Atk/Objects/NoOpObjectFactory.hs deleted file mode 100644 --- a/GI/Atk/Objects/NoOpObjectFactory.hs +++ /dev/null @@ -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' - - diff --git a/GI/Atk/Objects/NoOpObjectFactory.hs-boot b/GI/Atk/Objects/NoOpObjectFactory.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/NoOpObjectFactory.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Object.hs b/GI/Atk/Objects/Object.hs deleted file mode 100644 --- a/GI/Atk/Objects/Object.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Object.hs-boot b/GI/Atk/Objects/Object.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Object.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/ObjectFactory.hs b/GI/Atk/Objects/ObjectFactory.hs deleted file mode 100644 --- a/GI/Atk/Objects/ObjectFactory.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/ObjectFactory.hs-boot b/GI/Atk/Objects/ObjectFactory.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/ObjectFactory.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Plug.hs b/GI/Atk/Objects/Plug.hs deleted file mode 100644 --- a/GI/Atk/Objects/Plug.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Plug.hs-boot b/GI/Atk/Objects/Plug.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Plug.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Registry.hs b/GI/Atk/Objects/Registry.hs deleted file mode 100644 --- a/GI/Atk/Objects/Registry.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Registry.hs-boot b/GI/Atk/Objects/Registry.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Registry.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Relation.hs b/GI/Atk/Objects/Relation.hs deleted file mode 100644 --- a/GI/Atk/Objects/Relation.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Relation.hs-boot b/GI/Atk/Objects/Relation.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Relation.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/RelationSet.hs b/GI/Atk/Objects/RelationSet.hs deleted file mode 100644 --- a/GI/Atk/Objects/RelationSet.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/RelationSet.hs-boot b/GI/Atk/Objects/RelationSet.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/RelationSet.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Socket.hs b/GI/Atk/Objects/Socket.hs deleted file mode 100644 --- a/GI/Atk/Objects/Socket.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/Socket.hs-boot b/GI/Atk/Objects/Socket.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Socket.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/StateSet.hs b/GI/Atk/Objects/StateSet.hs deleted file mode 100644 --- a/GI/Atk/Objects/StateSet.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Objects/StateSet.hs-boot b/GI/Atk/Objects/StateSet.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/StateSet.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Objects/Util.hs b/GI/Atk/Objects/Util.hs deleted file mode 100644 --- a/GI/Atk/Objects/Util.hs +++ /dev/null @@ -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, *)]) - - diff --git a/GI/Atk/Objects/Util.hs-boot b/GI/Atk/Objects/Util.hs-boot deleted file mode 100644 --- a/GI/Atk/Objects/Util.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs.hs b/GI/Atk/Structs.hs deleted file mode 100644 --- a/GI/Atk/Structs.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/Attribute.hs b/GI/Atk/Structs/Attribute.hs deleted file mode 100644 --- a/GI/Atk/Structs/Attribute.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/Attribute.hs-boot b/GI/Atk/Structs/Attribute.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/Attribute.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/Implementor.hs b/GI/Atk/Structs/Implementor.hs deleted file mode 100644 --- a/GI/Atk/Structs/Implementor.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/Implementor.hs-boot b/GI/Atk/Structs/Implementor.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/Implementor.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/KeyEventStruct.hs b/GI/Atk/Structs/KeyEventStruct.hs deleted file mode 100644 --- a/GI/Atk/Structs/KeyEventStruct.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/KeyEventStruct.hs-boot b/GI/Atk/Structs/KeyEventStruct.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/KeyEventStruct.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/PropertyValues.hs b/GI/Atk/Structs/PropertyValues.hs deleted file mode 100644 --- a/GI/Atk/Structs/PropertyValues.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/PropertyValues.hs-boot b/GI/Atk/Structs/PropertyValues.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/PropertyValues.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/Range.hs b/GI/Atk/Structs/Range.hs deleted file mode 100644 --- a/GI/Atk/Structs/Range.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/Range.hs-boot b/GI/Atk/Structs/Range.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/Range.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/Rectangle.hs b/GI/Atk/Structs/Rectangle.hs deleted file mode 100644 --- a/GI/Atk/Structs/Rectangle.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/Rectangle.hs-boot b/GI/Atk/Structs/Rectangle.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/Rectangle.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/TextRange.hs b/GI/Atk/Structs/TextRange.hs deleted file mode 100644 --- a/GI/Atk/Structs/TextRange.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/TextRange.hs-boot b/GI/Atk/Structs/TextRange.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/TextRange.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Structs/TextRectangle.hs b/GI/Atk/Structs/TextRectangle.hs deleted file mode 100644 --- a/GI/Atk/Structs/TextRectangle.hs +++ /dev/null @@ -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 - - diff --git a/GI/Atk/Structs/TextRectangle.hs-boot b/GI/Atk/Structs/TextRectangle.hs-boot deleted file mode 100644 --- a/GI/Atk/Structs/TextRectangle.hs-boot +++ /dev/null @@ -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 diff --git a/GI/Atk/Types.hs b/GI/Atk/Types.hs deleted file mode 100644 --- a/GI/Atk/Types.hs +++ /dev/null @@ -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 - diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -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 diff --git a/gi-atk.cabal b/gi-atk.cabal --- a/gi-atk.cabal +++ b/gi-atk.cabal @@ -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